Example of using SWAREQ
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