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