The following program locates the JFCB block in the scheduler work
area. After the program obtains the location of the block, it can
store new information in the block or it can move information from
the block into another area. The example assumes that general purpose
register (GPR) 6 points to the TIOT:
- UNAUTH=NO specified or defaulted to:
LA 5,EPA GET ADDRESS OF THE EPA
ST 5,SWEPAPTR INITIALIZE EPA POINTER
USING ZB505,5 ESTABLISH ADDRESSABILITY TO EPA
XC SWAEPA,SWAEPA INITIALIZE THE EPA
USING TIOT1,6 ESTABLISH ADDRESSABILITY TO TIOT
MVC SWVA,TIOEJFCB MV SVA OF JFCB INTO EPA
SWAREQ FCODE=RL,EPA=SWEPAPTR,MF=(E,SWAPARMS) LOCATE THE JFCB
L 7,SWBLKPTR SET THE POINTER TO THE JFCB
USING INFMJFCB,7 ESTABLISH ADDRESSABILITY TO JFCB
*
SWEPAPTR DS F
EPA DS CL16
SWAPARMS SWAREQ MF=L
CVT DSECT=YES
IEFJESCT
IEFZB505
TIOT DSECT
IEFTIOT1
IEFJFCBN
- UNAUTH=YES specified:
LA 5,EPA GET ADDRESS OF THE EPA
ST 5,SWEPAPTR INITIALIZE EPA POINTER
USING ZB505,5 ESTABLISH ADDRESSABILITY TO EPA
XC SWAEPAX,SWAEPAX INITIALIZE THE EPA
USING TIOT1,6 ESTABLISH ADDRESSABILITY TO TIOT
MVC SWVA,TIOEJFCB MV SVA OF JFCB INTO EPA
SWAREQ FCODE=RL,EPA=SWEPAPTR,MF=(E,SWAPARMS) LOCATE THE JFCB
L 7,SWBLKPTR SET THE POINTER TO THE JFCB
USING INFMJFCB,7 ESTABLISH ADDRESSABILITY TO JFCB
*
SWEPAPTR DS F
EPA DS CL28
SWAPARMS SWAREQ MF=L
CVT DSECT=YES
IEFJESCT
IEFZB505 LOCEPAX=YES
TIOT DSECT
IEFTIOT1
IEFJFCBN