Example of using IEFQMREQ

The following program copies the JFCB from the scheduler work area into a buffer that the program provides. The example assumes GPR 6 points to the TIOT:

         LA     5,EPA                  GET ADDRESS OF THE EPA
         USING  SWAMMEPA,5             ESTABLISH EPA ADDRESSABILITY
         LA     1,QMPA                 GET ADDRESS OF THE QMPA
         USING  IOPARAMS,1             ESTABLISH QMPA ADDRESSABILITY
         XC     IOPARAMS(36),IOPARAMS  INITIALIZE THE QMPA
         MVI    QMPOP,QMREAD           INDICATE READ FUNCTION
         MVI    QMPCL,1                INDICATE 1 EPA IS BEING PASSED
         STCM   5,7,QMPACL             PUT 3-BYTE EPA ADDRESS IN QMPA
         XC     SWAMMEPA,SWAMMEPA      INITIALIZE THE EPA
         USING  TIOT1,6                ESTABLISH ADDRESSABILITY TO TIOT
         MVC    SWROWVA,TIOEJFCB       SVA OF JFCB MOVED TO EPA
         LA     8,JFCBCOPY             SET THE POINTER TO THE JFCB
         ST     8,SWBUFPTR             SET BUFFER POINTER IN EPA
         IEFQMREQ                      COPY SWA BLOCK TO THE BUFFER
         USING  INFMJFCB,8             ESTABLISH ADDRESSABILITY TO JFCB
*
JFCBCOPY DS    CL176                   BUFFER TO READ THE JFCB INTO
EPA      DS    CL8
QMPA     DS    CL36
         CVT DSECT=YES
         IEFJESCT
         IEFZB506
         IEFQMNGR
TIOT     DSECT
         IEFTIOT1
         IEFJFCBN