Sample Process to Display Attributes in the SUBMIT Statement
The following sample Process is provided in the Install Process Library, SDGAPROC. This example shows all attributes that can pass from DGASVPSA to the local IBM® Connect:Direct® DTF in the SUBMIT statement. Any value of X’00’ passed from VPS to DGASVPSA is considered a null value, and the SUBMIT command does not pass the corresponding field to the Process. For example, if your printer output DD statement does not code COPIES, then the symbolic &COPIES is not passed in the SUBMIT command.
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/* */
/* C:D-ZOS JES SPOOL TRANSFER FACILITY SAMPLE PROCESS */
/* */
/* CHANGE $CD.PROC TO THE Z/OS PROC LIBRARY THAT YOU HAVE */
/* INSTALLED THE PROC GENER INTO. THE CONNECT:DIRECT */
/* INSTALLATION LOADED THIS MEMBER INTO YOUR */
/* CONNECT:DIRECT PROCESS LIBRARY. */
/* */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
CDPROCES 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 */ -
&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) */ -
&OUTDSN=&SUBNAME..&JOBNM..&JOBID..&STEPNM..&STEPDD
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/* COPY FILE STAGED BY VPSSCDI */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
STEP01 COPY FROM(PNODE -
DSN=&VPSDSN -
DISP=SHR ) -
CKPT=10M -
COMPRESS EXT -
TO(SNODE -
DSN=&OUTDSN -
DISP=(NEW,CATLG,DELETE) )
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/* DELETE FILE STAGED BY VPSSCDI */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
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
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/* EXECUTE PROC GENER TO PRINT THE OUTPUT FILE */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
STEP04 RUN TASK (PGM=DMRTSUB -
PARM=("DSN=$CD.PROC(GENER),DISP=SHR", -
"ADDR1 &ADDR1", -
"ADDR2 &ADDR2", -
"ADDR3 &ADDR3", -
"ADDR4 &ADDR4", -
"BLDG &BLDG", -
"BURST &BURST", -
"CHARS &CHARS", -
"CKPTL &CKPTL", -
"CKPTP &CKPTP", -
"CKPTS &CKPTS", -
"CLASS &CLASS", -
"CMOD &CMOD", -
"CMTTC &CMTTC", -
"CNTL &CNTL", -
"COMPACT &COMPACT", -
"COPIES &COPIES", -
"COPYG ©G", -
"DATCK &DATCK", -
"DEFAULT &DEFAULT", -
"DEPT &DEPT", -
"DEST &DEST", -
"FCB &FCB", -
"FLASH &FLASH", -
"FLSCT &FLSCT", -
"FMDEF &FMDEF", -
"FORM &FORM", -
"GROUPID &GROUPID", -
"INDEX &INDEX", -
"INPUT &OUTDSN", -
"JACCT &JACCT", -
"JESDS &JESDS", -
"JNOTIFY &JNOTIFY", -
"JOBID &JOBID", -
"JOBNM &JOBNM", -
"JPNAME &JPNAME", -
"JPROC &JPROC", -
"JROOM &JROOM", -
"JSECL &JSECL", -
"LINDEX &LINDEX", -
"LINECT &LINECT", -
"NAME &NAME", -
"NOTIFY1 &NOTIFY1", -
"NOTIFY2 &NOTIFY2", -
"NOTIFY3 &NOTIFY3", -
"NOTIFY4 &NOTIFY4", -
"OPTCD &OPTCD", -
"PGDEF &PGDEF", -
"PIMCT &PIMCT", -
"PIMSG &PIMSG", -
"PRMODE &PRMODE", -
"PRTY &PRTY", -
"ROOM &ROOM", -
"STEPDD &STEPDD", -
"STEPNM &STEPNM", -
"SUBNAME &SUBNAME", -
"THRES &THRES", -
"TITLE &TITLE", -
"TRC &TRC", -
"UCS &UCS", -
"UDATA01 &UDATA01", -
"UDATA02 &UDATA02", -
"UDATA03 &UDATA03", -
"UDATA04 &UDATA04", -
"UDATA05 &UDATA05", -
"UDATA06 &UDATA06", -
"UDATA07 &UDATA07", -
"UDATA08 &UDATA08", -
"UDATA09 &UDATA09", -
"UDATA10 &UDATA10", -
"UDATA11 &UDATA11", -
"UDATA12 &UDATA12", -
"UDATA13 &UDATA13", -
"UDATA14 &UDATA14", -
"UDATA15 &UDATA15", -
"UDATA16 &UDATA16", -
"ULIB1 &ULIB1", -
"ULIB2 &ULIB2", -
"ULIB3 &ULIB3", -
"ULIB4 &ULIB4", -
"ULIB5 &ULIB5", -
"ULIB6 &ULIB6", -
"ULIB7 &ULIB7", -
"ULIB8 &ULIB8", -
"VPSDSN &VPSDSN", -
"WRITER &WRITER", -
"WTR &WTR", -
)) SNODE
EXIT