create command source member as follows:
CMD PROMPT(‘Show File Contents’)
PARM KWD(FILE_LIB) TYPE(Q1) MIN(1) PROMPT(‘File’)
Q1: QUAL TYPE(*NAME) MIN(1)
QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
MIN(0) PROMPT(‘Library’)
creat CL source member as follows:
PGM PARM(&FILLIB)
DCL VAR(&FILLIB) TYPE(*CHAR) LEN(20)
DCL VAR(&FIL) TYPE(*CHAR) LEN(10)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
CHGVAR VAR(&FIL) VALUE(%SST(&FILLIB 1 10))
CHGVAR VAR(&LIB) VALUE(%SST(&FILLIB 11 10))
DSPF FILE(&LIB/&FIL)
ENDPGM
then compile both members
Discuss This Question: 1  Reply