SARSAM8

ADLIST - Archive Date Reporting Utility (SARSAM8)
view
ADLIST - Archive Date Reporting Utility (SARSAM8)
ADLIST is a demonstration program that shows you how you can use SARSAM, CA View's database access method, to retrieve specialized information from the database control records
Unlike SARBCH, which performs most reporting functions based on report ID or generation numbers or both, ADLIST performs all reporting functions based on an archival date or archival date range.
The following job control statements are required to execute SARSAM8:
  • JOB
    Initiates the job.
  • EXEC
    Specifies the program name (PGM=ADLIST) and the high-level name of the product database. (PARM='VIEW.SYSTEM1').
  • STEPLIB DD
    Defines the load library containing ADLIST. If the program resides in a link list library, omit this statement.
  • SYSPRINT DD
    Defines the sequential output data set (typically SYSOUT) used for listing the control statements, messages, and reporting. If you are not defining a SYSOUT data set, code DCB=BLKSIZE=
    nnn
    , where 
    nnn
     is a multiple of 133.
  • (Optional) CTLCARDS DD
    Identifies control card input for SARBCH that is written to this dataset. The CTLCARD DD is optional but it must be provided when you are using the CCREATE control card parameter.
    This dataset has the following JCL attributes:
    • RECFM=FB
    • LRECL=80
  • SYSIN DD
    Defines a card image data set that contains the control statements that are used for input.
JCL Requirements
//STEP1 EXEC PGM=ADLIST,PARM='.....db_hlq......' //STEPLIB DD DSN=.....CAILIB,DISP=SHR //SYSPRINT DD SYSOUT=* //CTLCARD DD DSN=......CTLCARD,DISP=(NEW,CATLG), // UNIT=SYSDA,SPACE=(TRK,(1,1)), // DCB=(,RECFM=FB,LRECL=80,BLKSIZE=8000) //SYSIN DD * /control cards /* //
Control Cards
/LIST ARCHDATE=[mm/dd/yy[-mm/dd/yy]|*|TODAY] [XCODE|RETENTION|TEMP|BNDW| MAXLINES|MAXLINES(9999999999)| USERCOM|REPORTID=XXX] [RDRDATE] [INDEX] [ORIG=[SAR|EXP|ALL] [CCREATE[(COMMAND)]]
where:
  • ARCHDATE
    A date or a date range, ARCHDATE=* lists all reports and ARCHDATE=TODAY lists all reports with Today's data.
  • RDRDATE
    Display the Reader Date/Time rather than the 'Last Print Date/Time'.
  • CCREATE
    Creates SARBCH Input control cards.
  • CCREATE(…command…)
    This command can be up to 30 characters. These characters are later moved to the control card. If CCREATE is coded without a command, 30 'X' characters are placed in the SARBCH command field of the output control.
  • ORIG=SAR 
    List only SAR reports.
  • ORIG=EXP 
    List only CA Deliver (EXP) reports.
    • ORIG=ALL 
      List all reports (default).
Note: 
The following parameters are mutually exclusive, only one parameter can be coded.
  • XCODE 
    List only reports that have exception codes.
  • RETENTION 
    List ERO retention values.
  • TEMP 
    List only reports in TEMP status.
  • BNDW 
    List only reports in 'BUNDLE WAIT' status.
  • MAXLINES 
    List only reports which exceed the 'MAXLINES' initialization parameter.
  • MAXLINES(9999999999) 
    List only reports which exceed the specified number of lines (up to 10 digits).
  • USERCOM
    Display the contents of the User Field (GCRUFLD).
  • REPORTID= 
    Restrict the general selection criteria to reports matching this specification. The report ID can specify a trailing wildcard(*).
Note: 
All control card parameters must fit on one control card, all 80 characters can be used, and no continuation cards are allowed.
Sample Assembly and Linkage Editor JCL
//ASM1 EXEC PGM=ASMA90,PARM=('NODECK,OBJECT') //SYSPRINT DD SYSOUT=* //SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(5,5)) //SYSUT2 DD UNIT=SYSDA,SPACE=(TRK,(5,5)) //SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(5,5)) //SYSLIN DD DSN=&&OBJ,DISP=(,PASS),SPACE=(CYL,(1,1)),UNIT=SYSDA //SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB // DD DISP=SHR,DSN=...................CVDEMAC //SYSIN DD * /*
Insert source here
//LKED EXEC PGM=IEWL,PARM='XREF,LIST,NCAL' //SYSLMOD DD DISP=SHR,DSN=...................CVDELOAD //SYSPRINT DD SYSOUT=* //CVDELOAD DD DISP=SHR,DSN=...................CVDELOAD //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,1)) //SYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE) // DD * INCLUDE CVDELOAD(SARSAM) INCLUDE CVDELOAD(SARDFMT) ENTRY ADLIST NAME ADLIST(R) /*