’/’ *CAT &EXPRTDEF *BCAT ’for’ *BCAT +
&EXJOBUSR *CAT ’’’s’ *BCAT ’spooled file’ +
*BCAT &EXINFILE *TCAT ’.’ *CAT &EXINNBR +
*BCAT ’type’ *BCAT &EXINTYPE *BCAT ’from +
output queue’ *BCAT &EXINOQLB *TCAT ’/’ +
*CAT &EXINOQNM *TCAT ’)’) TOUSR(*SYSOPR)
GOTO CMDLBL(STEP4)
/******************************************************************************/
/* */
/* STEP 4: Return to APYPRTDEF and continue processing */
/* ------- */
/* */
/******************************************************************************/
STEP4:
RETURN
ENDPGM
110 APU User’s Guide