Copied from a new PMR:
I have eleven reports for which the input exits failed, but the documents loaded anyway during May. The ineffective exits caused every other transaction index to be lost. With the exit corrected, if I can extract the full document/report from CMOD, I can then re-load the report and acquire comprehensive, and correct, index information for the user community.
I believe this would be the ARSDOC command. But how to extract the entire report, each time, since eash is a daily report. For some of the reports, there are 15,000 indexed pages. I would like to extract them as a single unit each posting day, if possible.
Thank you,
Larry Wagner
I sent this JCL to Larry which is for line data. AFP data would need some reblocking.
//***************************************************************
//* EXECUTE THE ARSDOC GET COMMAND
//***************************************************************
//*
//ARSZOSHL EXEC PGM=IKJEFT01,REGION=0M,COND=(0,NE)
//SYSEXEC DD DISP=SHR,DSN=ARSSCLM.V841.STGA.INST
// DD DISP=SHR,DSN=ARSSCLM.V841.INTA.INST
// DD DISP=SHR,DSN=ARSSCLM.V841.RELA.INST
//SYSTSPRT DD SYSOUT=*
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
//SYSTSIN DD *
ARSZOSHL /usr/lpp/ars/dev/V8R4M1/bin/arsdoc get -h ARCHIV1 -
-u ARSTTT -p pwpwpwpw -v -c -a -d /tmp -
-o P99999.out -
-X "11324-308-0-1FAA-1278013021-1278013021" -
-G 'DLY_A'
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
//STDENV DD *
_BPX_SHAREAS=YES
_BPX_BATCH_SPAWN=YES
/*
//OSHOUT1 DD SYSOUT=*,DCB=(RECFM=F,LRECL=255)
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//*
//***************************************************************
//*
//* Copy the file loaded to HFS via the ARSDOC GET command in th
//* previous step.
//*
//***************************************************************
//COPY EXEC PGM=IKJEFT1A,COND=(0,NE)
//HFSCOPY DD DSN=ARS.DEV.TEMP.P54263.COPY,
// DISP=(,CATLG),
// DCB=ARSTEST.TESTCASE.DATA.LINE.P54263,
//* DCB=(LRECL=32756,RECFM=VB),
// SPACE=(CYL,(30,10),RLSE),
// UNIT=SYSDA
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROF MSGID
oget '/tmp/P54263.out' -
'ARS.TEMP.P99999.COPY' -
BINARY
//*
Code works like a charm.
Although, the initial ARSDOC get function would fail occasionally near the end, run from z/OS. I tried it directly from omvs, and completed every time.
Just a note on this. ARSZOSHL has been removed from 8.5.0 but I prefer oshell (from SYS1.SBPXEXEC) anyway.
Is there a way in 10.1 to use the ARSDOC Get command in a JCL job or is OShell the only way.
Looking for some sample JCL
Bruce
Hi Bruce - I've only ever run it per the sample.
But - you can try some of the various JCL samples I have here:
http://ODUG.net/index.php?topic=1202.0 (http://odug.net/index.php?topic=1202.0)
Whether they'll work is another matter. ;D
Ed