Sample Process for SYSOUT
The following sample Process shows all attributes that you can specify within the SYSOUT=(...) keyword. This sample Process is provided in the Sample Library, SDGAPROC.
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/* */
/* * * * S A M P L E P R O C E S S * * * */
/* */
/* C:D-ZOS JES SPOOL TRANSFER FACILITY SAMPLE PROCESS */
/* INPUT FROM JES SPOOL TRANSFER FACILITY */
/* OUTPUT TO VPS CONTROLLED PRINTER */
/* */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
CDTOJES PROC SNODE=&SNODE, -
&ADDR1=, /* ADDRESS LINE 1 */ -
&ADDR2=, /* ADDRESS LINE 1 */ -
&ADDR3=, /* ADDRESS LINE 1 */ -
&ADDR4=, /* ADDRESS LINE 1 */ -
&BLDG=, /* BUILDING */ -
&BURST=, /* BURST=YES OR NO */ -
&CHARS=, /* CHAR ARRANGEMENT TABLE */ -
&CKPTL=, /* CKPTLINE */ -
&CKPTP=, /* CKPTPAGE */ -
&CKPTS=, /* CKPTSEC */ -
&CLASS=, /* OUTPUT CLASS */ -
&CMOD=, /* COPY MODIFICATION MOD */ -
&CMTTC=, /* COPY MODULE TABLE REF */ -
&CNTL=, /* DEFAULT SPACING */ -
&COMPACT=, /* COMPACTATION TABLE */ -
&COPIES=, /* OUTPUT NUMBER COPIES */ -
©G=, /* COPY GROUP(S) */ -
&DATCK=, /* DATACK */ -
&DEFAULT=, /* DEFAULT */ -
&DEPT=, /* DEPARTMENT */ -
&DEST=, /* OUTPUT DESTINATION */ -
&FCB=, /* OUTPUT WTR FCB */ -
&FLASH=, /* FLASH FORMS OVERLAY */ -
&FLSCT=, /* FLASH FORMS OVERLAY CNT*/ -
&FMDEF=, /* FORMDEF */ -
&FORM=, /* OUTPUT FORM */ -
&GROUPID=, /* GROUPID */ -
&INDEX=, /* INDEX */ -
&JACCT=, /* JOB ACCOUNTING NUMBER */ -
&JESDS=, /* JESDS */ -
&JOBID=, /* JES ASSIGNED JOB ID */ -
&JOBNM=, /* JOB NAME */ -
&JPNAME=, /* JOB PROGRAMMERS NAME */ -
&JPROC=, /* JOB PROC NAME */ -
&JROOM=, /* JOB PROGRAMMERS ROOM */ -
&JSECL=, /* SECURITY LABEL */ -
&LINDEX=, /* LINDEX */ -
&LINECT=, /* LINES PER PAGE */ -
&NAME=, /* NAME */ -
&NOTIFY1=, /* 1ST NOTIFY ID */ -
&NOTIFY2=, /* 2ND NOTIFY ID */ -
&NOTIFY3=, /* 3RD NOTIFY ID */ -
&NOTIFY4=, /* 4TH NOTIFY ID */ -
&OPTCD=, /* OPTCD=J SPECIFIED */ -
&PGDEF=, /* PAGEDEF */ -
&PIMCT=, /* PIMSG MSG-COUNT */ -
&PIMSG=, /* PIMSG */ -
&PRMODE=, /* PRMODE */ -
&PRTY=, /* PRTY */ -
&ROOM=, /* ROOM */ -
&STEPDD=, /* STEP DDNAME */ -
&STEPNM=, /* STEP NAME */ -
&SUBNAME=, /* SUBMITTERS NAME */ -
&THRES=, /* THRESHLD */ -
&TITLE=, /* TITLE */ -
&TOF=X'F1', /* ASA TOP OF FORM */ -
&TRC=, /* TRC */ -
&UCS=, /* OUTPUT WTR UCS */ -
&UDATA01=, /* 1ST USERDATA */ -
&UDATA02=, /* 2ND USERDATA */ -
&UDATA03=, /* 3RD USERDATA */ -
&UDATA04=, /* 4TH USERDATA */ -
&UDATA05=, /* 5TH USERDATA */ -
&UDATA06=, /* 6TH USERDATA */ -
&UDATA07=, /* 7TH USERDATA */ -
&UDATA08=, /* 8TH USERDATA */ -
&UDATA09=, /* 9TH USERDATA */ -
&UDATA10=, /* 10TH USERDATA */ -
&UDATA11=, /* 11TH USERDATA */ -
&UDATA12=, /* 12TH USERDATA */ -
&UDATA13=, /* 13TH USERDATA */ -
&UDATA14=, /* 14TH USERDATA */ -
&UDATA15=, /* 15TH USERDATA */ -
&UDATA16=, /* 16TH USERDATA */ -
&ULIB1=, /* 1ST USERLIB LIBRARY */ -
&ULIB2=, /* 2ND USERLIB LIBRARY */ -
&ULIB3=, /* 3RD USERLIB LIBRARY */ -
&ULIB4=, /* 4TH USERLIB LIBRARY */ -
&ULIB5=, /* 5TH USERLIB LIBRARY */ -
&ULIB6=, /* 6TH USERLIB LIBRARY */ -
&ULIB7=, /* 7TH USERLIB LIBRARY */ -
&ULIB8=, /* 8TH USERLIB LIBRARY */ -
&VPSDSN=, /* VPS PRINTER STAGED DSN */ -
&WRITER=, /* OUTPUT WRITER NAME */ -
&WTR=, /* OUTPUT WTR NAME (OLD) */ -
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/* COPY FILE FROM VPS STAGED DATASET INTO JES SPOOL */
/* DESTINATION HAS BEEN CHANGED TO A VPS CONTROLLED PRINTER. */
/* BANNER PAGE WILL BE PRODUCED. */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
STEP01 COPY FROM( PNODE -
DSN=&VPSDSN -
DISP=SHR ) -
CKPT=1M -
COMPRESS EXT -
TO( SNODE -
SYSOUT=(CLASS=&CLASS,COPIES=&COPIES,DEST=&DEST -
BANNER=(PROGRAMMER=&JPNAME,JOBNAME=&JOBNM, -
SUBMITTER=&SUBNAME,STEPNAME=&STEPNM, -
DDNAME=&STEPDD),JOBNAME=&JOBNM) -
)
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/* DELETE VPS STAGE INPUT FILE */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
STEP02 IF (STEP01 = 0) THEN
STEP03 RUN TASK (PGM=DMRTDYN -
PARM=(C"ALLOC DSN=&VPSDSN,DISP=(OLD,DELETE)" -
F'-1' -
C"UNALLOC DSN=&VPSDSN"))
EIF
EXIT