CA View - SARBCH /DELETE Scenario

Products

• Deliver
• View

Issue/Introduction

The client would like to have a View database initialized and residing in storage in their DR environment.

Once the DR test has concluded, every report should be deleted.

Is there a function that will delete all reports from the View database?

 

Environment

Release : 14.0

Component : CA View

Resolution

Below is a SARGRW program, which will create /DELETE records for each report record in the database:

//XXXXXXXX JOB …
//SARGRW01 EXEC PGM=SARGRW
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(5),,CONTIG)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(5),,CONTIG)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(5),,CONTIG)
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//OUTFILE DD DISP=(,CATLG,DELETE),
// DSN=xxxxxx.xxxxxx.SARGRWOP,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000),
// SPACE=(TRK,(5,1),RLSE),
// UNIT=xxxx,VOL=SER=yyyyyy
//SYSIN DD *
/CONTROL SEQ=RID DATABASE=view_hlq
/OUTPUT '/DELETE ID=' COL(1)
/OUTPUT ID COL(12)
/OUTPUT ' GEN=' COL(44)
/OUTPUT EDIT(GEN,'99999') COL(49)
/OUTPUT ' SEQ=' COL(54)
/OUTPUT EDIT(SEQ,'99999') COL(59)
/END
/*
//

. The resulting file would then be run through SARBCH:

//XXXXXXXX JOB ...
//SARBCH EXEC PGM=SARBCH,PARM='VIEW_HLQ' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSMDUMP DD SYSOUT=*
//REPORT DD SYSOUT=*
//SYSIN DD DISP=SHR, DSN=xxxxxx.xxxxxx.SARGRWOP
//