SARSAMB

SARSAMB is a demonstration program that describes how to use the
View
Database Access Method (SARSAM) to retrieve information from the database. This sample can list all GCR records with a report ID=UNDEF. Optional command FROMDATE(MM/DD/YYY) lets you list only reports that were archived on or after this date.
view
SARSAMB is a demonstration program that describes how to use the
View
Database Access Method (SARSAM) to retrieve information from the database. This sample can list all GCR records with a report ID=UNDEF. Optional command FROMDATE(MM/DD/YYY) lets you list only reports that were archived on or after this date.
The UNDEF is used to track reports that have been processed using the UNDEF report identifier. This batch program provides the same function as the online screen when the ‘?’ command is used to select a report ID=UNDEF.
The following job control statements are required to execute SARSAMB:
  • JOB
    Initiates the job.
  • EXEC
    Specifies the program name (PGM=SARSAMB) and the high-level name of the product database. (PARM='VIEW.SYSTEM1').
  • STEPLIB DD
    Defines the load library containing SARSAMB. 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.
  • 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=SARSAMB,PARM='.....db_hlq......' //STEPLIB DD DSN=.....CVDELOAD,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSIN DD * control cards /* // PARM='db_hlq'
Where:
  • db_hlq
    Defines the high-level name of the product database.
Control Cards
NAME(databasename) FROMDATE(MM/DD/YYYY)
Where:
  • NAME(databasename)
    Defines NAME=high-level name of the product database.
  • FROMDATE(MM/DD/YYYY)
    Lists all UNDEF reports that were archived on or after the FROMDATE parameter.
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 SARSAMB NAME SARSAMB(R) /* //