SARSAMA

ANNORPT is a demonstration program that was written to show you how you can use
View
's Database Access Method (SARSAM) to retrieve specialized information from the database.
view
ANNORPT is a demonstration program that was written to show you how you can use
View
's Database Access Method (SARSAM) to retrieve specialized information from the database.
This sample produces a cross reference of report annotations or bookmarks or both for specific reports or specific date ranges or both but it does not have the ability to select annotations created by a specific user.
The following job control statements are required to execute SARSAMA:
  • JOB
    Initiates the job.
  • EXEC
    Specifies the program name (PGM=ANNORPT) and the high-level name of the product database. (PARM='VIEW.SYSTEM1').
  • STEPLIB DD
    Defines the load library containing ANNORPT. 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=ANNORPT,PARM='.....db_hlq......' //STEPLIB DD DSN=.....CVDELOAD,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSIN DD * /control cards /* //
Control Cards
/LIST ID=reportid|reportid*|* [USERID=user] [ARCHDATE=yyyymmdd[-yyyymmdd]] [ANNODATE=yyyymmdd[-yyyymmdd]]
Where:
  • reportid
    ID of the report selected to have its Annotation and Bookmarks (or both) printed. The Report Id might specify a trailing wildcard(*). ID=* searches all reports. Multiple control cards can be included.
    Note:
     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’.
  • user
    The USERID to be used as a selection criteria.
  • ARCHDATE
    A report date or date range.
  • ANNODATE
    An annotation or bookmark on this date or date range.
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 ANNORPT NAME ANNORPT(R) /* //