ARSDOC complete document extract/retrieval

Previous topic - Next topic

LWagner

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

Ed_Arnold

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                                                           
//*                                                                   
#zOS #ODF

LWagner

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.

Ed_Arnold

Just a note on this.   ARSZOSHL has been removed from 8.5.0 but I prefer oshell (from SYS1.SBPXEXEC) anyway.
#zOS #ODF

bfoster@enchoice.com

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

Ed_Arnold

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

Whether they'll work is another matter.   ;D

Ed
#zOS #ODF