Filter
Top Products
/* Output User data */
DCL VAR(&EXOTUSDT) TYPE(*CHAR) LEN(10)
/* Output Form type */
DCL VAR(&EXOTFORM) TYPE(*CHAR) LEN(10)
/* Output out-bin */
DCL VAR(&EXOTOBIN) TYPE(*CHAR) LEN(10)
/* User specified parameter for exit pgm */
DCL VAR(&EXUSRPRM) TYPE(*CHAR) LEN(20)
/* Reserved for future use */
DCL VAR(&RESERVED) TYPE(*CHAR) LEN(246)
/******************************************************************************/
/* */
/* STEP 1: Split parameter structure into single fields */
/* ------- */
/* */
/******************************************************************************/
STEP1:
CHGVAR VAR(&EXTYPE) VALUE(%SST(&EXPARM 001 010))
CHGVAR VAR(&EXINFILE) VALUE(%SST(&EXPARM 011 010))
CHGVAR VAR(&EXINNBR) VALUE(%SST(&EXPARM 021 010))
CHGVAR VAR(&EXINTYPE) VALUE(%SST(&EXPARM 031 010))
CHGVAR VAR(&EXJOBUSR) VALUE(%SST(&EXPARM 041 010))
CHGVAR VAR(&EXJOBNAM) VALUE(%SST(&EXPARM 051 010))
CHGVAR VAR(&EXJOBNBR) VALUE(%SST(&EXPARM 061 006))
CHGVAR VAR(&EXINOQNM) VALUE(%SST(&EXPARM 067 010))
CHGVAR VAR(&EXINOQLB) VALUE(%SST(&EXPARM 077 010))
CHGVAR VAR(&EXINUSDT) VALUE(%SST(&EXPARM 087 010))
CHGVAR VAR(&EXINFORM) VALUE(%SST(&EXPARM 097 010))
CHGVAR VAR(&EXINOBIN) VALUE(%SST(&EXPARM 107 010))
CHGVAR VAR(&EXINPGNM) VALUE(%SST(&EXPARM 117 010))
CHGVAR VAR(&EXINPGLB) VALUE(%SST(&EXPARM 127 010))
CHGVAR VAR(&EXPRTDEF) VALUE(%SST(&EXPARM 137 010))
CHGVAR VAR(&EXPRTDLB) VALUE(%SST(&EXPARM 147 010))
CHGVAR VAR(&EXSUCFLG) VALUE(%SST(&EXPARM 157 010))
CHGVAR VAR(&EXOTFILE) VALUE(%SST(&EXPARM 167 010))
CHGVAR VAR(&EXOTOQNM) VALUE(%SST(&EXPARM 177 010))
CHGVAR VAR(&EXOTOQLB) VALUE(%SST(&EXPARM 187 010))
CHGVAR VAR(&EXOTHOLD) VALUE(%SST(&EXPARM 197 010))
CHGVAR VAR(&EXOTSAVE) VALUE(%SST(&EXPARM 207 010))
CHGVAR VAR(&EXOTUSDT) VALUE(%SST(&EXPARM 217 010))
CHGVAR VAR(&EXOTFORM) VALUE(%SST(&EXPARM 227 010))
CHGVAR VAR(&EXOTOBIN) VALUE(%SST(&EXPARM 237 010))
CHGVAR VAR(&EXUSRPRM) VALUE(%SST(&EXPARM 247 020))
CHGVAR VAR(&RESERVED) VALUE(%SST(&EXPARM 267 246))
/******************************************************************************/
/* */
/* STEP 2: Analyze type of calling exit point in APYPRTDEF */
/* ------- */
/* */
/******************************************************************************/
STEP2:
IF COND(&EXTYPE = *BEFORE) THEN(GOTO +
CMDLBL(STEP3_BEF))
IF COND(&EXTYPE = *MIDDLE) THEN(GOTO +
CMDLBL(STEP3_MID))
108 APU User’s Guide