’/’*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