|
QCMDSRC for source @
*************** Beginning of data *************************************
0001.00 CMD
****************** End of data ****************************************
QCLSRC for source RETURN
*************** Beginning of data *************************************
0001.00 RETURN
****************** End of data ****************************************
Create the command as follows:
Create Command (CRTCMD)
Command . . . . . . . . . . . .. . .>_@_________ Name
Library . . . . . . . . . . . . . . _*CURLIB____ Name, *CURLIB
Program to process command . . . . >_RETURN_____ Name, *REXX
Library . . . . . . . . . . . .. . . _*LIBL______ Name, *LIBL, *CURLIB
Source file . . . . . . . . . .. . . _QCMDSRC____ Name
Library . . . . . . . . . .. . . . ._*LIBL______ Name, *LIBL, *CURLIB
Source member . . . . . . . . . . . >_CMD________ Name, *CMD
Text 'description' . . . . . . . . ._*SRCMBRTXT____________________
Additional Parameters
Validity checking program . . . >_QCMD_______ Name, *NONE
Library . . . . . . . . . . . . > _QSYS_______ Name, *LIBL, *CURLIB
When you have entered and compiled the source code above, edit any
CLP source member and enter "@"on any blank line and low and behold QCMD will
execute. To return to SEU simple press CMD-3. Another example would be to write a CLP
program called WAJ (say) that executes the WRKACTJOB)command. In the create-command above,
change "@" to WAJ in the command parameter and from QCMD to WAJ for the Validity
Checker parameter. When you type WAJ on any blank line in a CLP source member, the
WRKACTJOB command will execute.
|
