Subprogram NWUTJSUB: CICS Batch Job Submission Utility
If you have any questions about the content of this page, please contact CICS Requests for clarification
The CICS batch job submission utility, NWUTJSUB, enables CICS application programs to submit batch jobstreams.
- The application program writes the desired JCL statements to a temporary storage queue
- and then links to NWUTJSUB for submission of the job.
- NWUTJSUB merely submits what is present in the temp storage queue. NO EDITING IS PERFORMED.
- Correct and complete jobstreams are entirely the user's responsibility.
- No more than 999 records will be submitted.
- There may be more than one batch JOB in the temp storage queue.
Batch jobs submitted from CICS are required to contain a valid JOB card. Jobs submitted without any password data assume the logon ID of the terminal operator. They will succeed or fail based on the batch ACF2 security rules for that logon ID. Jobs submitted with password data run independent of the terminal operator's logon ID.
01) Include in your program the COPY statement for the work fields needed by NWUTJSUB:
COPY NWUTJSUB.
which will generate the following:
01 NWUTJSUB.
05 NWUTJSUB-COMMAREA.
10 NWUTJSUB-COUNT PIC S9(4) COMP.
10 NWJSUB-RETURN PIC X(1).
05 NWUTJSUB-QNAME.
10 FILLER PIC X(4) VALUE 'NWJS'.
10 NWUTJSUB-TERMID PIC X(4).
02) Define the proper temp storage queue name by moving the invoking terminal id to the NWRDC-supplied work field. For example,
MOVE EIBTRMID TO NWUTJSUB-TERMID.
03) Write JCL, data, etc. to the temp storage queue one 80 character card image at a time. For example,
EXEC CICS WRITEQ TS QUEUE (NWUTJSUB-QNAME)
FROM (cardimage) LENGTH (80)
END-EXEC.
where "cardimage" is the COBOL data name of a PIC X(80) field which has been loaded with the desired card image. Actually, the length may be less than 80, but it must not be greater than that.
04) After writing the entire jobstream(s) to the temp storage queue, the program links to NWUTJSUB. The exact command is:
EXEC CICS LINK PROGRAM ('NWUTJSUB')
COMMAREA (NWUTJSUB-COMMAREA)
END-EXEC.
Upon return, NWUTJSUB-RETURN will contain a return code indicating success or failure. The possible values are:
'0' = successful
'1' = user's temp storage queue does not exist
'2' = queue records are greater than 80 bytes in length
'3' = more than 999 records in queue
'4' = undetermined error with user's temp storage queue
'5' = error with internal reader contact NWRDC
NWUTJSUB COUNT will contain a count of the number of records read from the temp storage queue and submitted via the internal reader.
05) The NWUTJSUB program will delete the temp storage queue regardless of the success or failure of the request.
If this process is used to print a report, pay special attention to the TIME=x JOB card option.
Remember, The print will not start until the batch job finishes.
- If this form of report generation is used to produce print that needs to be produced immediately (for example, to hand to a student), remember to use the 'TIME=(,x)' parameter on the job card with a carefully selected value for "x".
- If no 'TIME=' value is specified, the assigned priority of that batch job will be very low. It may print quickly in times of low utilization. But during the Fall crunch, it may take several hours for such a job with to run.