DCL

VAR(&EXPARM)

TYPE(*CHAR)

LEN(512)

 

 

/* Type of exit

point (*BEFORE,*MIDDLE,*AFTER)

*/

DCL

VAR(&EXTYPE)

TYPE(*CHAR)

LEN(10)

 

 

/* Name of input spooled file

*/

DCL

VAR(&EXINFILE)

TYPE(*CHAR)

LEN(10)

 

 

/* Name of input spooled file number

*/

DCL

VAR(&EXINNBR)

TYPE(*CHAR)

LEN(10)

 

 

/* Input Printer device type

 

*/

DCL

VAR(&EXINTYPE)

TYPE(*CHAR)

LEN(10)

 

 

/* Input Jobs User

 

*/

DCL

VAR(&EXJOBUSR)

TYPE(*CHAR)

LEN(10)

 

 

/* Input Jobs Name

 

*/

DCL

VAR(&EXJOBNAM)

TYPE(*CHAR)

LEN(10)

 

 

/* Input Jobs Number (alpha)

 

*/

DCL

VAR(&EXJOBNBR)

TYPE(*CHAR)

LEN(06)

 

 

/* Input Outq Name

 

*/

DCL

VAR(&EXINOQNM)

TYPE(*CHAR)

LEN(10)

 

 

/* Input Outq Library

 

*/

DCL

VAR(&EXINOQLB)

TYPE(*CHAR)

LEN(10)

 

 

/* Input User data

 

*/

DCL

VAR(&EXINUSDT)

TYPE(*CHAR)

LEN(10)

 

 

/* Input Form type

 

*/

DCL

VAR(&EXINFORM)

TYPE(*CHAR)

LEN(10)

 

 

/* Input out-bin

 

*/

DCL

VAR(&EXINOBIN)

TYPE(*CHAR)

LEN(10)

 

 

/* Input Program Name

 

*/

DCL

VAR(&EXINPGNM)

TYPE(*CHAR)

LEN(10)

 

 

/* Input Program Library

 

*/

DCL

VAR(&EXINPGLB)

TYPE(*CHAR)

LEN(10)

 

 

/* Print Definition Name

 

*/

DCL

VAR(&EXPRTDEF)

TYPE(*CHAR)

LEN(10)

 

 

/* Print Definition Library

 

*/

DCL

VAR(&EXPRTDLB)

TYPE(*CHAR)

LEN(10)

 

 

/* Success flag

(*YES, *NO,

*ACTIVE)

*/

DCL

VAR(&EXSUCFLG)

TYPE(*CHAR)

LEN(10)

 

 

/* Name of output spooled file

*/

DCL

VAR(&EXOTFILE)

TYPE(*CHAR)

LEN(10)

 

 

/* Output Outq

Name

 

*/

DCL

VAR(&EXOTOQNM)

TYPE(*CHAR)

LEN(10)

 

 

/* Output Outq

Library

 

*/

DCL

VAR(&EXOTOQLB)

TYPE(*CHAR)

LEN(10)

 

 

/* Output Hold

Flag (*YES, *NO)

*/

DCL

VAR(&EXOTHOLD)

TYPE(*CHAR)

LEN(10)

 

 

/* Output Save

Flag (*YES, *NO)

*/

DCL

VAR(&EXOTSAVE)

TYPE(*CHAR)

LEN(10)

 

Appendix B. User Exits 107

Page 119
Image 119
IBM S544-5351-03 manual Var&Exparm, Var&Exinfile, Var&Exinnbr