ASG - ViewDirect - U0666

04.07.23 JOB*****  IEF450I JOBNAME REPTPROC PROC020 - ABEND=S000 U0666 REASON=000000000  238

04.07.23 JOB*****  U11-656 JOBNAME=JOBNAME,STPROC=PROC020 ,STSTEP=REPTPROC,AUTO SETUP PARMS

This issue is due to an error due to corruption in archive Distribution dataset (INDIST1) which is a VSAM ESDS dataset.

When the reports are pushed into the INFOPAC, the "REPTPROC TERMINATED BY ABS" which is a unrecoverable error, This user abend code is always accompanied with messages 9998 and 9999. Refer to these messages for information about why the task was terminated. If the problem persists, contact ASG Customer Support.

Once ASG verifies the failed job log, ASG would ask for cross reference report which will be produced against the corrupted dataset. ASG will let us know about the report IDs which is not available in the distribution database.

//*********JOB TO EXECUTE THE CROSS REFERENCE REPORT ****************//
//JOBCARD
//REPTXREF PROC DISKPFX='XXX.INFOPAC',      <=== DISK DATASET PREFIX        
//         VDSNPFX='XXX.INFOPAC',           <=== VSAM DATASET PREFIX             
//         SYSOUT='*'                       <=== YOUR SYSOUT CLASS              
//REPTXREF EXEC PGM=INFOPAC7                            
//STEPLIB  DD DSN=&DISKPFX..LOADLIB,DISP=SHR            
//*        DD DSN=&LELIB,DISP=SHR                       
//INCARD1  DD *                                         
##X-REPORT    01 I01U004D                   <=== I01U004D is a sample reportID that is unavailable                            
//INDIST1  DD DSN=&VDSNPFX..INDIST1.BKP29914,DISP=SHR   
//INRPT11  DD SYSOUT=&SYSOUT                            
//INRPT21  DD SYSOUT=&SYSOUT                            
//INWORK1  DD DSN=&&INWORK1,                            
//            SPACE=(CYL,(2,1)),                        
//            UNIT=SYSDA                                
//SORTMSG  DD SYSOUT=&SYSOUT                            
//SORTMS1  DD SYSOUT=&SYSOUT                            
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(2,1))              
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(2,1))              
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(2,1))              
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(2,1))              
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(2,1))              
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(2,1))              
//SYSUDUMP DD SYSOUT=&SYSOUT                                         
//ABNLIGNR DD DUMMY                         *** THIS DD TURNS OFF ABEND-AID ***   
//         PEND                                                      

//REPTXREF EXEC REPTXREF                                             

Once the issue is identified the backup of the last best version of the INDIST1 dataset has to be restored to bring back the INFOPAC and INFORDS system back to normal. During the restore activity the Started Tasks (STCs) of both INFOPAC and INFORDS will be brought down to restore the dataset and then activate the STCs back to normal.

//***********TO RESTORE A NON CORRUPTED COPY OF THE DATASET**********//
//JOBCARD
//*                                                                     
//*********************************************************************
//*   SHUT DOWN INFOPAC ADMINISTRATIVE ONLINE VARY                    *
//*********************************************************************
//STEP010  EXEC    PGM=IEBEDIT                                         
//SYSPRINT DD      SYSOUT=*                                            
//SYSUDUMP DD      SYSOUT=D                                            
//*                                                                    
//SYSUT1   DD      DATA,                                               
//             DLM=$$                                                  
/*$VS,'VARY NET,INACT,ID=BB0XINFO,FORCE'
/*$VS,'VARY NET,INACT,ID=BB0XRDS,FORCE'                                
$$                                                                     
//*                                                                    
//*********************************************************************
//*   BACK UP INDIST1 DATA SETS                             *          
//*********************************************************************
//STEP020  EXEC    PGM=IDCAMS                                          
//SYSPRINT DD      SYSOUT=*                                            
//SYSUDUMP DD      SYSOUT=D                                            
//*                                                                    
//INDD1    DD      DSN=SYS3.INFOPAC.INDIST1,DISP-SHR                           
//OUTDD1   DD      DSN=PNTS.INFOPAC.INDIST1.BK100114,                  
//             DISP=(NEW,CATLG),                                       
//             UNIT=TAPE,                                              
//             LABEL=(1,SL),                                           
//             VOL=(,RETAIN),                                          
//             DCB=(MODELGDG,RECFM=VB,LRECL=2064,BLKSIZE=0)            
//*                                                                    
//SYSIN    DD      DSN=PROD.DATALIB(INDD1),DISP=SHR                            
//*                                                                    
//********************************************************************* 
//*   DEL/DEF INDIST1 DATA SETS                             *           
//********************************************************************* 
//STEP030  EXEC    PGM=IDCAMS                                           
//VDSBYPAS DD      DUMMY                                                
//SYSPRINT DD      SYSOUT=*                                             
//SYSUDUMP DD      SYSOUT=D                                             
//*                                                                     
//SYSIN    DD      *                                                    
   DELETE SYS3.INFOPAC.INDIST1  PURGE                                   
   SET MAXCC = 0                                                        
                                                                        
   DEFINE CLUSTER -                                                     
            (NAME(SYS3.INFOPAC.INDIST1) -                               
             NONSPANNED -                                               
             SHAREOPTIONS(4 3) -                                       
            FREESPACE(20 10) -                                         
            VOLUMES(PRD500)) -                                         
         DATA -                                                        
           (NAME(SYS3.INFOPAC.INDIST1.DATA) -                          
            CYLINDERS(800 400) -                                       
            KEYS(60 0) -                                               
            RECORDSIZE(200 1060) -                                     
            CONTROLINTERVALSIZE(4096)) -                               
         INDEX -                                                       
           (NAME(SYS3.INFOPAC.INDIST1.INDEX) -                         
            CYLINDERS(100 50) -                                        
            CONTROLINTERVALSIZE(4096))                                 
//*                                                                    
//*********************************************************************
//*   RELOAD INDIST1 DATA SETS                              *          
//*********************************************************************
//STEP040  EXEC    PGM=IDCAMS,COND=(0,NE)                              
//SYSPRINT DD      SYSOUT=*                                            
//SYSUDUMP DD      SYSOUT=D                                            
//*                                                                    
//INDD1    DD      DSN=PNTS.T30REPRO.INDIST1.G7670V00,DISP=SHR                 
//OUTDD1   DD      DSN=SYS3.INFOPAC.INDIST1,DISP=SHR                           
//*                                                                    
//SYSIN    DD      DSN=PROD.DATALIB(INDD1),DISP=SHR                            
//*                                                                    
//*********************************************************************
//*   START INFOPAC ADMINISTRATIVE ONLINE VARY ACTIVE                 *
//*********************************************************************
//STEP050  EXEC    PGM=IEBEDIT,COND=(0,NE)                             
//SYSPRINT DD      SYSOUT=*                                            
//SYSUDUMP DD      SYSOUT=D                                            
//*                                                                    
//SYSUT1   DD      DATA,                                               
//             DLM=$$                                                  
/*$VS,'VARY NET,ACT,ID=BB0XINFO'
/*$VS,'VARY NET,ACT,ID=BB0XRDS'                                        
$$                                                                      
//*                                                                     
//SYSUT2   DD      SYSOUT=(P,INTRDR),BLKSIZE=80                               
//*                                                                     
//SYSIN    DD      DUMMY                                                
//*