プログラムなどのソースメンバーがどこにあるかを調べたい時に利用してください。
検索メンバーには、あいまい検索をしたい場合は%xxxx%形式の指定を
してください。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
PGM DCLF FILE(QTEMP/OUT1) DCL VAR(&TEXT) TYPE(*CHAR) LEN(10) VALUE('xxxxxx') DCL VAR(&SQL) TYPE(*CHAR) LEN(500) DCL VAR(&LOOP) TYPE(*CHAR) LEN(1) CHGVAR VAR(&LOOP) VALUE('0') DLTF QTEMP/OUT1 MONMSG CPF0000 DLTF QTEMP/OUT2 MONMSG CPF0000 DLTF QTEMP/OUT3 MONMSG CPF0000 /* ソースファイルの抽出 */ RUNSQL SQL('CREATE TABLE QTEMP/OUT1 AS + (SELECT DBXFIL, DBXLIB, DBXATR, DBXTYP, DBXTXT + FROM QADBXREF + WHERE DBXTYP = ''S'' ) + WITH DATA') + COMMIT(*NONE) /* ソースメンバー一覧の作成 */ DOWHILE (&LOOP = '0') RCVF MONMSG MSGID(CPF0000) EXEC(LEAVE) DSPFD FILE(&DBXLIB/&DBXFIL) TYPE(*MBRLIST) + OUTPUT(*OUTFILE) OUTFILE(QTEMP/OUT2) + OUTMBR(*FIRST *ADD) MONMSG CPF0000 ENDDO /* ソースメンバーの検索 */ RUNSQL SQL('CREATE TABLE QTEMP/OUT3 AS + (SELECT MLLIB,MLFILE,MLNAME + FROM QTEMP/OUT2 + WHERE MLNAME LIKE ''' || &TEXT || ''' ) + WITH DATA') + COMMIT(*NONE) ENDPGM |