ソースファイルの抽出

2019.01.28

ソースファイルがどこにあるかわからない場合にソースファイル一覧の作成方法をご紹介します。

PGM
             DCL        VAR(&ATR)       TYPE(*CHAR) LEN(3)
             DCL        VAR(&FTYP)      TYPE(*CHAR) LEN(5)
             DCL        VAR(&STYP)      TYPE(*CHAR) LEN(10)
             DCLF       FILE(QTEMP/OBJD)
             DSPOBJD    OBJ(*ALL/*ALL) OBJTYPE(*FILE) +
                          OUTPUT(*OUTFILE) OUTFILE(QTEMP/OBJD)
  LOOP:
             RCVF
             MONMSG     MSGID(CPF0864) EXEC(GOTO END)
             IF (&ODOBAT *EQ 'PF') THEN(DO)
             RTVMBRD    FILE(&ODLBNM/&ODOBNM) FILEATR(&ATR) +
                          FILETYPE(&FTYP) SRCTYPE(&STYP)
             MONMSG     MSGID(CPF0000) EXEC(GOTO LOOP)
             IF (&FTYP *EQ '*SRC') THEN(DO)
             SNDPGMMSG  MSGID(CPF9897) MSGF(QCPFMSG) MSGDTA(&ODLBNM +
                          *CAT &ODOBNM)
             ENDDO
             ENDDO
             GOTO LOOP
  END:
             ENDPGM

PGM

DCL VAR(&ATR) TYPE(*CHAR) LEN(3)

DCL VAR(&FTYP) TYPE(*CHAR) LEN(5)

DCL VAR(&STYP) TYPE(*CHAR) LEN(10)

DCLF FILE(QTEMP/OBJD)

DSPOBJD OBJ(*ALL/*ALL) OBJTYPE(*FILE) +

OUTPUT(*OUTFILE) OUTFILE(QTEMP/OBJD)

LOOP:

RCVF

MONMSG MSGID(CPF0864) EXEC(GOTO END)

IF (&ODOBAT *EQ 'PF') THEN(DO)

RTVMBRD FILE(&ODLBNM/&ODOBNM) FILEATR(&ATR) +

FILETYPE(&FTYP) SRCTYPE(&STYP)

MONMSG MSGID(CPF0000) EXEC(GOTO LOOP)

IF (&FTYP *EQ '*SRC') THEN(DO)

SNDPGMMSG MSGID(CPF9897) MSGF(QCPFMSG) MSGDTA(&ODLBNM +

*CAT &ODOBNM)

ENDDO

GOTO LOOP

END:

ENDPGM

古い記事へ新しい記事へ