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

108APU User's Guide

Page 120
Image 120
IBM S544-5351-03 manual Var&Reserved, Var&Exintype, Var&Exjobusr, Var&Exjobnbr, Var&Exinoqlb, Var&Exinusdt, Var&Exinobin