Example 4: Control statements to repair a VSAM RRDS data set

The following figure shows example control statements to repair a VSAM RRDS data set.

Figure 1. Example of repairing a VSAM RRDS data set
//ZAP      JOB     (installation accounting information)    
//RRDSTEP  EXEC    PGM=FABZVZAP                             
//STEPLIB  DD      DSNAME=DBT.SFABLMD0,DISP=SHR             
//SYSLIB   DD      DSNAME=DBT.RRDS,DISP=OLD                 
//SYSPRINT DD      SYSOUT=A                                 
//SYSIN    DD      *                                        
    PSW RRDSPASS                                            
    NUM 140                                                 
      VER 10 4780                                           
      REP 10 4700                                           
    NUM X'F2F0F0'                                           
      VER 8A 5810555C                                       
      REP 8A 5830555C                                       
    CNV 14350                                               
      VER 30 F1F2F5F6                                       
      REP 30 F9F9F9F9                                       
    CNV X'F1F3F8F8'                                         
      VER 26 4770                                           
      REP 26 47F0                                           
/*     
//
  • If you use a password statement (PSW control statement), the statement must be first in the series of control statements.
  • RRDS records can be addressed by both NUM and CNV control statements.
  • NUM and CNV can be expressed in either decimal or hexadecimal.