View - REGDAYS question

book

Article ID: 224929

calendar_today

Updated On:

Products

CA View

Issue/Introduction

Several years ago, I added REGDAYS to some of my SYSOUT in my ERO.

I have since removed it, but I can not determine which SYSOUT still has REGDAYS remaining.

How can i see what SYSOUT has REGDAYS remaining ?

Environment

Release : 14.0

Component :

Resolution

To find View reports with BEGDAYS values (GCR field GCREREGD), the client was given the following REXX program:

/* REXX */
count = 0
heading = 0
call READ_LINE
Do while (rc = 0)
  if left(input_rec,1) > '3E'x then do
    gcrid = substr(input_rec,1,32)
    gcrgen = right(c2d(substr(input_rec,33,2)),5,'0')
    gcrseq = right(c2d(substr(input_rec,35,2)),5,'0')
    gcradate = c2x(substr(input_rec,213,4))
    gcreregd = c2d(substr(input_rec,461,2))
    if gcreregd <> 0 then do
      if heading = 0 then do
         say 'ID                               GEN   SEQ   ARCH DATE ',
             'REGD'
         heading=1
      end
      r = right(gcreregd,5,'0')
      yyyy = substr(gcradate,1,4)
      mm = substr(gcradate,5,2)
      dd = substr(gcradate,7,2)
      say gcrid gcrgen gcrseq mm'/'dd'/'yyyy r
      count = count +1
    end
  end
  call READ_LINE
End
Say "GCR(s) with REGDAYS" count
Exit

READ_LINE:
  "EXECIO 1 DISKR IDXOUT"
  if rc = 0 then do
    Parse Pull input_rec
  end
  return

-------------------------------------------------------------------------------------------------------------

The client was also given the following JCL to run the program:

//LISTREGD JOB ...
//STEP1    EXEC PGM=IRXJCL,PARM='LISTREGD'
//SYSEXEC   DD  DSN=YOUR.REXX.LIBRARY,DISP=SHR
//SYSTSPRT  DD  SYSOUT=*
//SYSTSIN   DD  DUMMY
//SYSUDUMP  DD  SYSOUT=*
//IDXOUT    DD  DISP=SHR,DSN=YOUR.IDXOUT.FILE

----------------------------------------------------------------------------------------------------------------

The procedure used is:

  . Run SARDBASE IDXOUT, to create a flat file of the View index. 

  . Run the REXX program, using input of the IDXOUT file.