Step 1: Load the report back to the disk portion of the CA View database:
a. Place an 'L' next to the report in the Sel field online. Then submit the JCL that is automatically created.
or
b. Run a batch SARBCH job (JCL displayed below) to load the report back to the database called VIEW.SYSTEM1.
//EXAMPLE JOB ACCOUNT,PROGRAMMER
//SARBCH EXEC PGM=SARBCH,PARM='VIEW.SYSTEM1' <== Modify
//STEPLIB DD DSN=CAI.CVDELOAD,DISP=SHR <== Modify
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
/LOAD ID=......... GEN=...... SEQ=....... <== Modify
/*
//
Step 2: Run SARDBASE UNLOAD with the SARUNLTB DD added to the JCL. The dataset specified for the SARUNLTB has to be a PDS dataset defined LRECL=80 and RECFM=FB. The SARUNLD1 member in that PDS dataset will contain control cards with the following format:
J= To Specify UNLOAD by Jobname
S= To Specify UNLOAD by Sysout Id
OPT ARGUMENTS that can be included with either Jobname or Sysout Id
ADATE=MM/DD/YYYY this is the ARCHIVE DATE
ATIME=HH:MM this is the ARCHIVE TIME
JID=JOBNNNNN this is the JOB ID
The above specifications must begin between columns 1 TO 16. An astrerisk (*) can be used to wildcard the Jobname or Sysout Id to indicate all Jobnames or Sysout Ids that match. An asterisk can also be specified in any position of the Jobname or the Sysout Id.
Here is an example of the contents of the SARUNLD1 member.
J=TIRSSTMX JID=JOB30746 => this would UNLOAD job TIRSSTMX
//UNLOAD EXEC PGM=SARDBASE
//STEPLIB DD DSN=CAI.CVDELOAD,DISP=SHR <== Modify
//SYSPRINT DD SYSOUT=*
//SARUNLD DD DSN=......SELECT.UNLOAD,DISP=(NEW,CATLG), <== Modify
// UNIT=SYSDA,DCB=(RECFM=VB,LRECL=32756,BLKSIZE=32760)
//SARUNLTB DD DSN=CAI.SEL.UNLOAD.TABLE(SARUNLD1),DISP=SHR
//SYSIN DD *
NAME your.ca.view.db <== Modify
UNLOAD
/*
//
Step 3: TERSE the unloaded dataset, ......SELECT.UNLOAD from the above JCL.
//STEP EXEC PGM=TRSMAIN,PARM=PACK
//SYSPRINT DD SYSOUT=*
//INFILE DD DISP=SHR,DSN=......SELECT.UNLOAD
//OUTFILE DD DISP=(NEW,CATLG),UNIT=SYSDA,
// SPACE=(CYL,(200,150),RLSE),
// DSN=.........SELECT.UNLOAD.TRS,
// DCB=(RECFM=FBS,LRECL=1024,BLKSIZE=6144)
Step 4: Send the tersed dataset to your case: