OnDemand User Group
Support Forums => z/OS Server => Topic started by: Ed_Arnold on August 22, 2012, 07:37:41 AM
-
I know the JCL for this job is a little obtuse. Here's a sample I have. If anyone else has samples please share.
Ed
//ARSPDOCI EXEC PGM=ARSPDOCI,REGION=0M,
// PARM='/parmdd=//DD:PAR inputdd=//DD:IN'
//STEPLIB DD DSN=ARS.ARSV840.SARSLOAD,DISP=SHR
//PAR DD DISP=SHR,DSN=ODUSER.TESTPDF.TEMP.CNTL(P88650)
//IN DD DISP=SHR,DSN=ODUSER.P88650.PDF80
//*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
BROWSE ODUSER.TESTPDF.TEMP.CNTL(P88650) - 01.19 L
Command ===>
********************************* Top of Data *********
COORDINATES=IN
TRIGGER1=UL(7.80,9.14),LR(7.69,9.54),*,'PAGE:'
FIELD1=UL(7.80,9.14),LR(7.69,9.54),0,(TRIGGER=1,BASE=0)
INDEX1='PAGE',FIELD1,(TYPE=GROUP)
INDEXSTARTBY=2
INDEXDD=/u/oduser/P88650.ind
OUTPUTDD=/u/oduser/P88650.out
******************************** Bottom of Data *******
I haven't tested this, but I believe if your IN is in an HFS dataset, then the DD def for that
would be
//IN DD PATH='/tmp/print.out',
// PATHOPTS=(ORDONLY),PATHDISP=(KEEP)
-
Here is my sample that I tested recently. I defined the parameter file //PAR as inline file.
//ARSPDOCI EXEC PGM=ARSPDOCI,REGION=0M,
// PARM='/parmdd=//DD:PAR'
//STEPLIB DD DSN=ARS.ARSV840.SARSLOAD,DISP=SHR
//PAR DD *
COORDINATES=IN
TRIGGER1=UL(0.56,4.71),LR(1.90,5.06),*,'CMOD PDF TEST'
FIELD1=UL(1.35,0.54),LR(3.17,0.89),0,(TRIGGER=1,BASE=0)
FIELD2=UL(1.39,0.78),LR(2.95,1.21),0,(TRIGGER=1,BASE=0)
INDEX1='STMTACCT',FIELD1,(TYPE=GROUP)
INDEX2='STMTDATE',FIELD2,(TYPE=GROUP)
INDEXSTARTBY=1
RESTYPE=ALL
INPUTDD=/tmp/in
OUTPUTDD=/ars/tmp/sample.out
INDEXDD=/ars/tmp/sample.idx
RESOBJDD=/ars/tmp/sample.res
/*
//ADOBERES DD DUMMY
//ADOBEFNT DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSOUT DD SYSOUT=*
the output messages for this jcl was in sysout as below
ARS4901 COORDINATES=IN
ARS4901 TRIGGER1=UL(0.56,4.71),LR(1.90,5.06),*,'CMOD PDF TEST'
ARS4901 FIELD1=UL(1.35,0.54),LR(3.17,0.89),0,(TRIGGER=1,BASE=0)
ARS4901 FIELD2=UL(1.39,0.78),LR(2.95,1.21),0,(TRIGGER=1,BASE=0)
ARS4901 INDEX1='STMTACCT',FIELD1,(TYPE=GROUP)
ARS4901 INDEX2='STMTDATE',FIELD2,(TYPE=GROUP)
ARS4901 INDEXSTARTBY=1
ARS4901 RESTYPE=ALL
ARS4901 INPUTDD=/tmp/in
ARS4901 OUTPUTDD=/ars/tmp/sample.out
ARS4901 INDEXDD=/ars/tmp/sample.idx
ARS4901 RESOBJDD=/ars/tmp/sample.res
ARS4901 parmdd=//DD:PAR
ARS4902 Number of input pages = 138
ARS4922 ARSPDOCI completed code 0