SARSAM2

SARSAM2 is a demonstration program that describes how to use the
View
Database Access Method (SARSAM) to retrieve information from the database. This sample can find the SYSOUTs on a tape or range of tapes. SARSAM2 optionally generates /DELETE cards for reports on TAPE and /CHANGE cards for reports still on DISK. These generated control cards can be used as input to SARBCH to make updates to the database.
view
SARSAM2 is a demonstration program that describes how to use the
View
Database Access Method (SARSAM) to retrieve information from the database. This sample can find the SYSOUTs on a tape or range of tapes. SARSAM2 optionally generates /DELETE cards for reports on TAPE and /CHANGE cards for reports still on DISK. These generated control cards can be used as input to SARBCH to make updates to the database.
The following job control statements are required to execute SARSAM2.
  • JOB
    Initiates the job.
  • EXEC
    Specifies the program name (PGM=SARSAM2) and the high-level name of the product database. The PARM parameter can also specify a specific TAPE or range. (PARM='VIEW.SYSTEM1,nnn|nnn-nnn').
  • STEPLIB DD
    Defines the load library containing SARSAM2. 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 SYSOUTs on requested tapes. If you are not defining a SYSOUT data set, code DCB=BLKSIZE=
    nnn
    , where 
    nnn
     is a multiple of 133.
  • (Optional) CTLCARDS DD
    Identifies a specific tape or range of tape that is requested. Control card input for SARBCH is written to this dataset. SYSOUTS on tape create a /DELETE and SYSOUTS on DISK create a /CHANGE.
    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:
Use the following statements:
//STEP1 EXEC PGM=SARSAM2,PARM='db_hlq,nnn|nnn-nnn' //STEPLIB DD DSN=CAI.CVDELOAD,DISP=SHR //SYSPRINT DD SYSOUT=* //CTLCARDS DD DSN=...control.cards.sarbch...,DISP=(,CATLG), // UNIT=SYSDA, SPACE=(TRK,(10,1)),STORCLAS=? /* PARM='db_hlq,nnn|nnn-nnn'
where:
  • db_hlq
    Defines the high-level name of the product database.
  • nnn
    Specifies a single tape sequence number that is issued to find SYSOUTs on the database. All SYSOUTs on that tape are reported. If the CTLCARDS DD is provided /DELETE and /CHANGE control cards are also generated.
    Default is the tape sequence range 1-64K. When using the default value the control cards are not written to CTLCARDS DD.
  • nnn-nnn
    A range of tape sequence numbers are used to find SYSOUTs on the database. All SYSOUTs on these tapes are reported. If the CTLCARDS DD is provided /DELETE and /CHANGE control cards are also generated.
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) ENTRY SARSAM2 NAME SARSAM2(R) /*