CA Deliver - Stack Reports missing after upgrading CA-Deliver from R12.0 to R14.0

Products

• Deliver
• View

Issue/Introduction

Since their upgrade from Deliver r12.0 to r14.0, the client reports that there are some reports that they are now not receiving.

Did something happen due to the upgrade?

Environment

Release : 14.0

Component : CA Deliver

Cause

The reason for the reports not being generated is because there was a coding change, starting in Deliver 12.1, that affected how reports within a job DD are processed. 

Resolution

For proper processing, there were 187 reports in the client's Deliver database that needed to have the report Type changed from BASIC to STACK.

If the upgrade had been done from Deliver 12.0 to an earlier higher release, the change in processing would have been experienced earlier.

To identify what reports need to have their Type changed from BASIC to STACK, run the following RMOGRW program:

//XXXXXXXX JOB ...
//RMOGRW01 EXEC PGM=RMOGRW
//STEPLIB DD DISP=SHR,DSN=DLVR.CVDELOAD <=== Modify, if used
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//PRTFILE DD SYSOUT=*
//OUTFILE DD DSN=xxxxxx.RMOGRW.OUTPUT,
// DISP=(,CATLG,DELETE),
// SPACE=(CYL,(50,9)),
// UNIT=xxxx,VOL=SER=xxxxxx,
// DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
//SYSIN DD *
/CONTROL SEQ=JOB DATABASE=dlvr_hlq <=== Modify Deliver DB name
/DEFINE SAVESTEP CHAR(8)
/DEFINE SAVEPSTP CHAR(8)
/DEFINE SAVEDDNM CHAR(10)
/DEFINE J BIN
/DEFINE K BIN
/DEFINE L BIN
/SET SAVESTEP = 'ZZZZZZZZ'
/SET SAVEPSTP = 'ZZZZZZZZ'
/SET SAVEDDNM = 'ZZZZZZZZ '
/DO J = 1 TO NRID BY 1
/ SET K = NRID
/ IF K = 1
/   SET SAVESTEP = 'ZZZZZZZZ'
/   SET SAVEPSTP = 'ZZZZZZZZ'
/   SET SAVEDDNM = 'ZZZZZZZZ '
/   PRINT JOB 'JOB' COL(1)
/   PRINT RID 'REPORT ID' COL(11)
/   PRINT RTYPE 'TYPE' COL(45)
/ ELSE
/   IF J = 1
/     SET L = 0
/   END
/   IF ((STEP NE SAVESTEP) OR (PROCSTEP NE SAVEPSTP) OR (DD NE SAVEDDNM))
      AND ((STEP NE ' ') OR (PROCSTEP NE ' ') OR (DD NE ' '))
/     SET L = 0
/     SET SAVESTEP = STEP
/     SET SAVEPSTP = PROCSTEP
/     SET SAVEDDNM = DD
/   END
/   IF RTYPE NE 'S'
/     IF L = 0
/       PRINT JOB 'JOB' COL(1)
/       PRINT RID 'REPORT ID' COL(11)
/       PRINT RTYPE 'TYPE' COL(45)
/     ELSE
/       PRINT JOB 'JOB' COL(1)
/       PRINT RID 'REPORT ID' COL(11)
/       PRINT 'S' COL(45)
/       PRINT 'CHANGED' COL(50)
/       OUTPUT JOB COL(1)
/       OUTPUT RID COL(10)
/       OUTPUT 'S' COL(43)
/       OUTPUT ' ' COL(45)
/     END
/   ELSE
/     SET L = 1
/     PRINT JOB 'JOB' COL(1)
/     PRINT RID 'REPORT ID' COL(11)
/     PRINT RTYPE 'TYPE' COL(45)
/   END
/   SET SAVESTEP = STEP
/   SET SAVEPSTP = PROCSTEP
/   SET SAVEDDNM = DD
/   IF J = K
/     SET SAVESTEP = 'ZZZZZZZZ'
/     SET SAVEPSTP = 'ZZZZZZZZ'
/     SET SAVEDDNM = 'ZZZZZZZZ '
/     BREAK
/   ELSE
/    NEXT RID
/   END
/ END
/END
/*
//