** I've also discovered that '14' (compile) against a CMD file seems to work if the CMD and CLP filenames are the same **
Tom
EP: CMD PROMPT('WRKMBRPDM QRPGLESRC') PARM KWD(CMD) TYPE(*CHAR) LEN(19) + CONSTANT('WRKMBRPDM QRPGLESRC') PARM KWD(CMDLEN) TYPE(*DEC) LEN(15 5) CONSTANT(19)
CRTCMD CMD( mylib/EP ) PGM( QSYS/QCMDEXC ) SRCFILE( mylib/QCMDSRC ) SRCMBR( EP )
CRTDUPOBJ OBJ(WRKMBRPDM) FROMLIB(QPDA) OBJTYPE(*CMD) TOLIB(MSTRAM1) NEWOBJ(WMCLP2)
==> DSPCMD WRKMBRPDM
==> DSPCMD QPDA/WRKMBRPDM
==> CRTDUPOBJ OBJ(WRKMBRPDM) FROMLIB(QPDA) OBJTYPE(*CMD) TOLIB(QGPL) NEWOBJ(WMCLP)
==> CHGCMDDFT QGPL/WMCLPDFT('MBRTYPE(CLP)')
CRTCMD CMD(MSTRAM1/EP) PGM(EP) SRCFILE(MSTRAM1/QCMDSRC))
CRTCMD CMD(MSTRAM1/EP) PGM(EP)
PGM WRKMBRPDM QRPGLESRC ENDPGM
CRTCLPGM PGM(EP) SRCFILE(QCLSRC)
CMD PROMPT('Run WRKMBRPDM on QRPGLESRC')
CRTCMD CMD(EP) SRCFILE(QCMDSRC) PGM(*LIBL/EP) ALLOW(*ALL)
/******************************************************************************/
/* */
/* A T T E N T I O N : */
/* ------------------- */
/* */
/* */
/******************************************************************************/
PGM PARM(&INFILE)
DCL VAR(&INFILE) TYPE(*CHAR) LEN(10)
IF COND(&INFILE = ' ') THEN(CHGVAR VAR(&INFILE) +
VALUE('QRPGLESRC'))
WRKMBRPDM FILE(&INFILE)
THEEND: ENDPGM
CMD
PARM KWD(INFILE) TYPE(*CHAR) LEN(10) +
DFT(QRPGLESRC) PROMPT('File Name')
CRTCMD CMD(JAMIELIB/EP) PGM(WMPDM) SRCFILE(JAMIELIB/SOURCE)
PGM WRKMBRPDM QRPGLESRC
CMD WRKMBRPDM QRPGLESRC
Leave a comment: