Hello,
i have written the below code but while passing the parameter by calling with CALL PGM(mylib/FTOQ_LHM) PARM('PKMB11211D/Q0000033') from command line. it is reading the parameter as PKMB11211D/Q0000033 < long space> 033') Q_LHM. Could you please advise on this.
i have written the below code but while passing the parameter by calling with CALL PGM(mylib/FTOQ_LHM) PARM('PKMB11211D/Q0000033') from command line. it is reading the parameter as PKMB11211D/Q0000033 < long space> 033') Q_LHM. Could you please advise on this.
Code:
0001.00 PGM PARM(&FILE) 0002.00 0003.00 0004.00 DCL VAR(&FILE) TYPE(*CHAR) LEN(40) 0005.00 DCL VAR(&ID) TYPE(*CHAR) LEN(12) 0006.00 DCL VAR(&ENV) TYPE(*CHAR) LEN(12) 0007.00 DCL VAR(&DEBUG) TYPE(*CHAR) LEN(1) 0008.00 DCL VAR(&RCVAL) TYPE(*DEC) LEN(5 0) 0009.00 DCL VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00') 0010.00 CHGVAR VAR(&FILE) VALUE(&FILE *TCAT &NULL) 0011.00 CHGVAR VAR(&ID) VALUE('LHWMLMI' *TCAT &NULL) 0012.00 CHGVAR VAR(&ENV) VALUE('TESTD' *TCAT &NULL) 0013.00 CHGVAR VAR(&DEBUG) VALUE('1' *TCAT &NULL) 0014.00 ADDLIBLE LIB(SLMQTESTD) 0015.00 MONMSG MSGID(CPF2103) 0016.00 0016.00 0017.00 STRCMTCTL LCKLVL(*ALL) CMTSCOPE(*JOB) 0018.00 0019.00 CALL PGM(*LIBL/SLMQFTOQ) PARM('-f' &FILE '-i' &ID + 0020.00 '-e' &ENV '-debug' &DEBUG) 0021.00 0022.00 ENDCMTCTL 0023.00
Comment