Hello Ashish,
HiI have a about 15 members in SRC-PF QDDSSRC in library MYLIB,
i want to write a RPGLE program to loop through all the 15 members, and
check if a object exist for this member, if not then use CRTPF to create a
physical file if the type is PF or CRTLF if the type of file is logical
Let's see if I have this straight:
a) You want to get a list of members.
b) For each member, you want to check if a file exists that has the same
name as the member name.
c) If the file doesn't exist, you want to create it.
You don't actually want to read the contents of the members, then? And
you're not concerned with the chances that the member name might not
match the object name?
That being the case, I'd do this purely in CL. I wouldn't use RPG at
all. I'd just do something like the following:
PGM
DCL VAR(&SRCLIB) TYPE(*CHAR) LEN(10) VALUE('MYLIB')
DCL VAR(&OBJLIB) TYPE(*CHAR) LEN(10) VALUE('MYLIB')
DCL VAR(&EOF) TYPE(*LGL) VALUE('0')
DCLF FILE(QAFDMBRL)
DLTF FILE(QTEMP/MBRLIST)
MONMSG CPF2105
DSPFD FILE(&SRCLIB/QDDSSRC) TYPE(*MBRLIST) OUTPUT(*OUTFILE) +
OUTFILE(QTEMP/MBRLIST)
OVRDBF FILE(QAFDMBRL) TOFILE(QTEMP/MBRLIST)
LOOP: RCVF
MONMSG CPF0864 EXEC(CHGVAR VAR(&EOF) VALUE('1'))
IF (&EOF *EQ '0') DO
CHKOBJ OBJ(&OBJLIB/&MLNAME) OBJTYPE(*FILE)
MONMSG MSGID(CPF9801) EXEC(DO)
IF (&MLSEU2 *EQ 'LF') DO
CRTLF FILE(&OBJLIB/&MLNAME) +
SRCFILE(&SRCLIB/QDDSSRC)
ENDDO
ELSE IF (&MLSEU2 *EQ 'PF') DO
CRTPF FILE(&OBJLIB/&MLNAME) +
SRCFILE(&SRCLIB/QDDSSRC)
ENDDO
ELSE IF (&MLSEU2 *EQ 'DSPF') DO
CRTDSPF FILE(&OBJLIB/&MLNAME) +
SRCFILE(&SRCLIB/QDDSSRC)
ENDDO
ELSE IF (&MLSEU2 *EQ 'PRTF') DO
CRTPRTF FILE(&OBJLIB/&MLNAME) +
SRCFILE(&SRCLIB/QDDSSRC)
ENDDO
ENDDO
GOTO LOOP
ENDDO
DLTOVR FILE(QAFDMBRL)
DLTF FILE(QTEMP/MBRLIST)
ENDPGM
Good luck
midrange.com
