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