The following code has been in our JES2 exit 6 since before I started (so like
maybe 40 years :) ?). The intent is to cause jobs with special forms to print
on ordinary paper when their JCL fails.
With z/OS 2.1, the field JPCEIOT is no longer in $CNVWORK.
SIS and Google for JPCEIOT is not helpful. It's probably no longer an issue due
to less forms, less actual printing and less failures. Still, I'd like to fix
it instead of just whacking the code.
Any JES knowledge out there to help me :)
ENDJCL DS 0H
L R2,X6CTRC Address of Convertor's RC
L R2,0(R2) Convertor's RC
C R2,=A(JCTCOK) Check Convertor's RC
JE CONVOK Ok now make our checks
BRASL R3,SETSTD Failed so force to STD forms
J RETURN And get out
..........
*
* FORCE OUTPUT TO STANDARD
*
SETSTD DS 0H
L R1,X6DTEADR ADDRESS OF DTE
USING DTE,R1
L R1,DTEPCE ADDRESS OF PCE
USING PCE,R1
LTR R1,R1 IS THE PCE THERE ?
BZR R3 skip
L R2,JPCEIOT GET ADDRESS OF 1ST IOT
DROP R1
AL R2,$IOTPDDB OF 1ST PDDB
MVC PDBFORMS,$STDFORM LOG
AH R2,PDBSIZE ADVANCE TO SECOND PDDB
MVC PDBFORMS,$STDFORM IMAGES
AH R2,PDBSIZE ADVANCE TO THIRD PDDB
MVC PDBFORMS,$STDFORM MESSAGES
DROP R2
BR R3
*
DROP R9,R10,R12
Dave Gibney
Information Technology Services
Washington State University
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
