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

110APU User's Guide

Page 122
Image 122
IBM S544-5351-03 manual Return Endpgm