SARSAM6

SARSAM6 is a demonstration program that shows you how to use the
View
Database Access Method (SARSAM) to retrieve information from the database. This sample can list the GCR Record information and optionally write /DELETE control cards for the GCR data. These /DELETE can be used as input to SARBCH to delete the GCR data.
view
SARSAM6 is a demonstration program that shows you how to use the
View
Database Access Method (SARSAM) to retrieve information from the database. This sample can list the GCR Record information and optionally write /DELETE control cards for the GCR data. These /DELETE can be used as input to SARBCH to delete the GCR data.
The following job control statements are required to execute SARSAM6:
  • JOB
    Initiates the job.
  • EXEC
    Specifies the program name (PGM=SARSAM6) and the high-level name of the product database. (PARM='VIEW.SYSTEM1').
  • STEPLIB DD
    Defines the load library containing SARSAM6. 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 /DELETE control card input for SARBCH that is written to this dataset. GCR records create a /DELETE.
    This dataset has the following JCL attributes:
    • RECFM=FB
    • LRECL=80
JCL Requirements:
Use the following statements:
//STEP1 EXEC PGM=SARSAM6,PARM='db_hlq' //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'
where:
  • db_hlq
    Defines the high-level name of the product database.
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 SARSAM6 NAME SARSAM6(R) /*