Charles Mills wrote:
>Two independent and separate methods:
>With DCB, very straightforward. It's so easy, even IEBGENER can do it. Write a
>QSAM or BSAM file of JCL to DD SYSOUT=(,INTRDR) and JES will queue it as a job.
This is what I do (snippet from an old working program, housekeeping and
errorchecking removed for this posting):
JOBOUT DCB DSORG=PS,MACRF=PM,DDNAME=JOBOUT
...
OPEN (JOBOUT,(OUTPUT))
LA R2,JOBAREA .LOAD ADDRESS OF JOBAREA
LA R3,1 .LOAD A COUNTER OF LINES
PUTJOB EQU *
PUT JOBOUT,0(R2) . WRITE OUT
LA R2,80(R2) .NEXT 80 CHARS
... etc ... (including looping back to PUTJOB if there are more lines to be
written)
LASTPUT EQU *
PUT JOBOUT,LASTCARD .WRITE LAST LINE
EOJ EQU *
CLOSE JOBOUT .CLOSE INTERNAL READER
Your program is then using
//OUTJOB DD SYSOUT=(?,INTRDR)
Oh, above SYSOUT could be a dataset which you can further massage before actual
submit...
Groete / Greetings
Elardus Engelbrecht
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
