SARSAM1

List all
View
records from the
View
database (SARSAM1).
view
List all
View
records from the
View
database (SARSAM1).
SARSAM1 is a demonstration program that describes how to use SARSAM to retrieve database control records. The control cards can be used to determine what records are formatted for printing.
SARSAM is the database access method for
View
.
The following job control statements are required to execute SARSAM1:
  • JOB
    Initiates the job.
  • EXEC
    Specifies the program name (PGM=SARSAM1) and, optionally, the high-level name of the product database as the PARM parameter (PARM='VIEW.SYSTEM1').
  • STEPLIB DD
    Defines the load library containing SARSAM1. 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 formatted records. If you are not defining a SYSOUT data set, code DCB=BLKSIZE=
    nnn
    , where 
    nnn
     is a multiple of 133.
  • (Optional) SARIDXIN DD
    Specifies the sequential copy of the master index as an alternate input to the SARSAM1 program. Use the IDXOUT function of the SARDBASE program to create the sequential copy of the master index.
    This optional statement is required when using the INP=I control statement.
  • 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=SARSAM1,PARM='.....db_hlq......' //STEPLIB DD DSN=CAI.CVDELOAD,DISP=SHR //SYSPRINT DD SYSOUT=* //SARIDXIN DD DSN=...idxout.sequential.file...,DISP=SHR //SYSIN DD * Control Cards /*
Control Cards
[NAME 'databasename'] [KEY=0000000000000000] [GEN=n|n-n] [SEQ=n|n-n] [ACR=N|Y] [BCR=N|Y] [CHK=N|Y|X] [DCR=N|Y] [GCR=X|Y|N] [INP=S|I] [MCR=Y|N] [OCR=N|Y] [PQR=N|Y] [SDR=N|Y] [TCR=Y|N] [UCR=N|Y|P|J] [VCR=X|Y|N] [XDR=N|Y]
where:
  • NAME
    Defines the high-level name of the product database.
  • KEY
    Defines the 16-hex character database key. Used for initial access to the
    View
    database. Only valid when accessing database not valid for IDXOUT.
  • GEN
    Lists records with this generation number. Can be specified as a single generation or as a range of values, n-n.
  • SEQ
    Lists records with this sequence number. Can be specified as a single sequence number or as a range of values, n-n.
  • ACR
    Lists Alternate Index Control Record, defaults to ACR=N, no ACR records. ACR=Y formats all ACR records. ACR=X formats exceptions.
  • BCR
    Lists Banner page Control Record, defaults to BCR=N.
  • CHK
    Lists Alternate Index compare with GCR Records, defaults to CHK=N. CHK=X will format exceptions. The CHK=X|Y option is valid with ACR=Y.
  • DCR
    Lists Device attribute Control Record, defaults to DCR=N.
  • GCR
    Lists Group Control Record, defaults to GCR=X, format exceptions. GCR=N no GCR records are listed. GCR=Y formats all GCR records.
  • INP
    Specifies the input file to process. Defaults to INP=S for access a database. INP=I indicates that the sequential file in SARIDXIN DD is processed.
  • MCR
    Lists Master Control Record, defaults to MCR=Y.
  • OCR
    Lists Online panel/MSG/JCL Control Record, defaults to OCR=N.
  • PQR
    Lists PC Queue download Record, defaults to PQR=N.
  • SDR
    Lists Sysout Descriptor Record, defaults to SDR=N.
  • TCR
    Lists Tape Control Record, defaults to TCR=Y.
  • UCR
    Lists User attribute Control Record, defaults to UCR=N. UCR=Y formats all records. UCR=P formats PFKEY exceptions. UCR=J formats JOB cards.
  • VCR
    Lists View Control Record, defaults to VCR=X format exceptions. VCR=N no VCR records are listed. VCR=Y formats all VCR records.
  • XDR
    Lists Cross-reference Descriptor Record, defaults to XDR=N.
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) ENTRY SARSAM1 NAME SARSAM1(R) /*