SARSAM9

Database string Find Utility (SARSAM9).
view
Database string Find Utility (SARSAM9).
DBFIND is a demonstration program that shows you how you can use
View
's Database Access Method (SARSAM) to retrieve specialized information from the database. This sample can find character strings within the sysout data records of the specified reports.
The following job control statements are required to execute SARSAM9:
  • JOB
    Initiates the job.
  • EXEC
    Specifies the program name (PGM=DBFIND) and the high-level name of the product database. (PARM='VIEW.SYSTEM1').
  • STEPLIB DD
    Defines the load library containing DBFIND. 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=DBFIND,PARM='.....db_hlq......' //STEPLIB DD DSN=.....CVDELOAD,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSIN DD * /control cards /*
Control Cards
/FIND ID=report_id VALUE='string'
where:
  • ID
    The report id to be searched
    The report ID can specify a trailing wildcard(*), ID=* searches all reports.
    If the report-
    id
    contains spaces, it must be enclosed in quotes (single or double). Any quotes in report-id must be entered as a pair of quotes because a non-paired quote ends the ID. For example, if the value is JIM’S REPORT, it must be entered as ‘JIM’’S REPORT’.
  • VALUE
    The character string that will be used to search each specified report data line. Only reports that are resident on primary DASD are searched.
    If security is implemented on this database, the user must have Read access to any report that is to be searched.
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 DBFIND NAME DBFIND(R) /* //