II12201: II12200 CONTINUATION - RMM OW42560 ENHANCED DIAGNOSTIC TOOLS FOR SYNCSORT USERS

APAR status

• INTRAN

Error description

• Last update: 01/05/2000 11:00 EDT
  ---------------------------------
  RMM APAR OW42560 Enhanced Diagnostic Tools for Syncsort Users
  *** The enhanced diagnostic tools are contained in three
  *** INFO APARs -- II12195, II12200 and II12201 (this one).
  ================================================================
  //IDENTVOL  JOB ('T,H,IOM,,',SYSPROG),'RMMUSER',
  //          MSGLEVEL=(1,1),MSGCLASS=H,REGION=8M
  //**************************************************************
  //* Input:
  //*   Files from SMFAUD and CDSB
  //* Output:
  //*   CMDM - Commands for MASTER volumes
  //*   CMDS - Commands for SCRATCH volumes
  //*   LOST - List of volumes already re-used
  //**************************************************************
  //CLEAN  EXEC  PGM=IDCAMS
  //SYSPRINT DD SYSOUT=*
  //SYSIN    DD *
    DELETE 'RMMDEV.OW42560.DUPV'
    DELETE 'RMMDEV.OW42560.DUPS'
    DELETE 'RMMDEV.OW42560.DUPA'
    DELETE 'RMMDEV.OW42560.VOLM'
    DELETE 'RMMDEV.OW42560.VOLS'
    DELETE 'RMMDEV.OW42560.VOLR'
    DELETE 'RMMDEV.OW42560.CMDM'
    DELETE 'RMMDEV.OW42560.CMDS'
    DELETE 'RMMDEV.OW42560.LOST'
    DELETE 'RMMDEV.OW42560.DUPL'
    SET MAXCC = 0
  //*-------------------------------------------------------------
  //STEP1  EXEC  PGM=SYNCTOOL,REGION=24M
  //TOOLMSG  DD SYSOUT=*   ICETOOL MESSAGES
  //SYSOUT   DD SYSOUT=*   SORT    MESSAGES
  //DFSMSG   DD SYSOUT=*   DFSORT  MESSAGES
  //CONCV    DD DSN=RMMDEV.OW42560.VOLH,DISP=SHR
  //         DD DSN=RMMDEV.OW42560.CDSV,DISP=SHR
  //CONCS    DD DSN=RMMDEV.OW42560.VOLH,DISP=SHR
  //         DD DSN=RMMDEV.OW42560.CDSS,DISP=SHR
  //CONCR    DD DSN=RMMDEV.OW42560.VOLH,DISP=SHR
  //         DD DSN=RMMDEV.OW42560.CDSALL,DISP=SHR
  //*-------------------------------------------------------------
  //DUPV     DD DSN=RMMDEV.OW42560.DUPV,DISP=(,CATLG),UNIT=SYSDA,
  //            SPACE=(TRK,(5,2),RLSE)
  //DUPS     DD DSN=RMMDEV.OW42560.DUPS,DISP=(,CATLG),UNIT=SYSDA,
  //            SPACE=(TRK,(5,2),RLSE)
  //DUPA     DD DSN=RMMDEV.OW42560.DUPA,DISP=(,CATLG),UNIT=SYSDA,
  //            SPACE=(TRK,(5,2),RLSE)
  //DUPL     DD DSN=RMMDEV.OW42560.DUPL,DISP=(,CATLG,DELETE),
  //            SPACE=(TRK,(5,2),RLSE),UNIT=SYSDA
  //VOLM     DD DSN=RMMDEV.OW42560.VOLM,DISP=(,CATLG),UNIT=SYSDA,
  //            SPACE=(TRK,(5,2),RLSE)
  //VOLS     DD DSN=RMMDEV.OW42560.VOLS,DISP=(,CATLG),UNIT=SYSDA,
  //            SPACE=(TRK,(5,2),RLSE)
  //VOLR     DD DSN=RMMDEV.OW42560.VOLR,DISP=(,CATLG),UNIT=SYSDA,
  //            SPACE=(TRK,(5,2),RLSE)
  //CMDM     DD DSN=RMMDEV.OW42560.CMDM,DISP=(,CATLG),UNIT=SYSDA,
  //            SPACE=(TRK,(5,2),RLSE),LRECL=255
  //CMDS     DD DSN=RMMDEV.OW42560.CMDS,DISP=(,CATLG),UNIT=SYSDA,
  //            SPACE=(TRK,(5,2),RLSE),LRECL=255
  //LOST     DD DSN=RMMDEV.OW42560.LOST,DISP=(,CATLG),UNIT=SYSDA,
  //            SPACE=(TRK,(5,2),RLSE),LRECL=600
  //*-------------------------------------------------------------
  //TOOLIN DD *
   MODE CONTINUE
  * find volumes from history that still match private cds volumes
    SELECT FROM(CONCV) TO(DUPV) ON(7,6,CH) ON(316,8,CH) ALLDUPS
    SELECT FROM(DUPV) TO(VOLM) ON(7,6,CH) FIRST
  * build commands to reclaim volumes
    COPY FROM(VOLM) TO(CMDM) USING(CMDM)
  *
  * find volumes from history that still match scratch cds volumes
  * match volume still scratch with history volumes to see if
  * affected
    SELECT FROM(CONCS) TO(DUPS) ON(7,6,CH) ON(316,8,CH) ALLDUPS
    SELECT FROM(DUPS) TO(VOLS) ON(7,6,CH) FIRST
  * build commands to reclaim volumes
    COPY FROM(VOLS) TO(CMDS) USING(CMDS)
  *---------------------------------------------------------------
  * find volumes from history that have been reused
    SELECT FROM(CONCR) TO(DUPA) ON(7,6,CH)              ALLDUPS
    SELECT FROM(DUPA)  TO(DUPL) ON(7,6,CH) ON(316,8,CH) NODUPS
    SELECT FROM(DUPL)  TO(VOLR) ON(7,6,CH)              FIRST
  * ... only those with asdate > 1999366
    COPY FROM(VOLR) TO(LOST) USING(CPYR)
  //*-------------------------------------------------------------
  //CMDMCNTL DD *
    OUTREC FIELDS=(1,4,C'RMM CV ',7,6,C' EXPDT(1999365) ',
                   255:X)
  //*-------------------------------------------------------------
  //CMDSCNTL DD *
    OUTREC FIELDS=(1,4,C'RMM CV ',7,6,C' EXPDT(1999365) ',
                   C' STATUS(MASTER) OWNER(Y99365) ',
                   255:X)
  //*-------------------------------------------------------------
  //CPYRCNTL DD *
    INCLUDE COND=(205,4,PD,GT,1999366)    Assign date in Y2K
  ============================================================
  ============================================================
  //OLDCDSB   JOB ('T,H,IOM,,',SYSPROG),'RMMUSER',
  //          MSGLEVEL=(1,1),MSGCLASS=H,REGION=32M
  //*-------------------------------------------------------------
  //*  For use with SYNCSORT
  //*-------------------------------------------------------------
  //*  Input:  one or more old CDS BACKUP data sets
  //*  Output: Volumes which have ever had expdt 99365/6
  //*-------------------------------------------------------------
  //CLEAN  EXEC  PGM=IDCAMS
  //SYSPRINT DD SYSOUT=*
  //SYSIN    DD *
    DELETE 'RMMDEV.OW42560.OUT2'
    DELETE 'RMMDEV.OW42560.VOLH'
  //*-------------------------------------------------------------
  //STEP1  EXEC  PGM=SORT,REGION=24M
  //SYSOUT   DD SYSOUT=*   ICETOOL MESSAGES
  //SORTIN   DD DSN=RMMDEV.OW42560.CDSBKUPO,DISP=SHR
  //SORTOUT  DD DSN=RMMDEV.OW42560.OUT2,DISP=(,CATLG),UNIT=SYSDA,
  //            SPACE=(TRK,(5,1))
  //*-------------------------------------------------------------
  //SYSIN    DD *
    OPTION VLSHRT
    SORT FIELDS=(7,6,CH,A,                 volser
                 89,8,CH,D)                last change date and ti
    INCLUDE COND=(5,1,CH,EQ,C'V',AND,      Volume Record
                 (133,4,PD,EQ,1999365,OR,  EXPDT = never expire
                  133,4,PD,EQ,1999366))
  //*-------------------------------------------------------------
  //STEP2  EXEC  PGM=SYNCTOOL,REGION=24M
  //SYSOUT   DD SYSOUT=*   SORT    MESSAGES
  //TOOLMSG  DD SYSOUT=*   ICETOOL MESSAGES
  //DFSMSG   DD SYSOUT=*   DFSORT  MESSAGES
  //OUT2     DD DSN=RMMDEV.OW42560.OUT2,DISP=SHR
  //VOLH     DD DSN=RMMDEV.OW42560.VOLH,DISP=(,CATLG),UNIT=SYSDA,
  //            DCB=(LRECL=426,RECFM=VB),
  //            SPACE=(TRK,(5,1))
  //*-------------------------------------------------------------
  //TOOLIN DD *
   MODE CONTINUE
  * remove duplicates - using volser
   SELECT FROM(OUT2) TO(VOLH) ON(7,6,CH) FIRST
  =============================================================
  //JOURNAL   JOB ('T,H,IOM,,',SYSPROG),'RMMUSER',
  //          MSGLEVEL=(1,1),MSGCLASS=H,REGION=32M
  //*-------------------------------------------------------------
  //*  For use with SYNCSORT
  //*-------------------------------------------------------------
  //*  Input:  CDS Journal Backup
  //*  Output: Volumes which have ever had expdt 99365/6
  //*-------------------------------------------------------------
  //CLEAN  EXEC  PGM=IDCAMS
  //SYSPRINT DD SYSOUT=*
  //SYSIN    DD *
    DELETE 'RMMDEV.OW42560.OUT2'
    DELETE 'RMMDEV.OW42560.VOLH'
  //*-------------------------------------------------------------
  //STEP1  EXEC  PGM=SORT,REGION=24M
  //SYSOUT   DD SYSOUT=*   ICETOOL MESSAGES
  //SORTIN   DD DSN=RMMDEV.OW42560.JRNBKUP,DISP=SHR
  //SORTOUT  DD DSN=RMMDEV.OW42560.OUT2,DISP=(,CATLG),UNIT=SYSDA,
  //            SPACE=(TRK,(5,1))
  //*-------------------------------------------------------------
  //SYSIN    DD *
    OPTION VLSHRT
    SORT FIELDS=(35,6,CH,A,                 volser
                117,8,CH,D)                 last change date and t
    INCLUDE COND=(33,1,CH,EQ,C'V',AND,      Volume Record
                 (161,4,PD,EQ,1999365,OR,   EXPDT = never expire
                  161,4,PD,EQ,1999366))
    OUTREC FIELDS=(1,4,33,422)    just keep the volume record part
  //*-------------------------------------------------------------
  //STEP2  EXEC  PGM=SYNCTOOL,REGION=24M
  //SYSOUT   DD SYSOUT=*   SORT    MESSAGES
  //TOOLMSG  DD SYSOUT=*   ICETOOL MESSAGES
  //DFSMSG   DD SYSOUT=*   DFSORT  MESSAGES
  //OUT2     DD DSN=RMMDEV.OW42560.OUT2,DISP=SHR
  //VOLH     DD DSN=RMMDEV.OW42560.VOLH,DISP=(,CATLG),UNIT=SYSDA,
  //            DCB=(LRECL=426,RECFM=VB),
  //            SPACE=(TRK,(5,1))
  //*-------------------------------------------------------------
  //TOOLIN DD *
   MODE CONTINUE
  * remove duplicates - using volser
   SELECT FROM(OUT2) TO(VOLH) ON(7,6,CH) FIRST
  ===============================================================
  

Local fix

Problem summary

Problem conclusion

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Fix information

Applicable component levels