REWRITE A RECORD IN RRDS CLUSTER

***** REWRITE A RECORD IN RRDS CLUSTER *****  IDENTIFICATION DIVISION.                 PROGRAM-ID. DELR....

***** REWRITE A RECORD IN RRDS CLUSTER *****

 IDENTIFICATION DIVISION.               

 PROGRAM-ID. DELR.                      

 ENVIRONMENT DIVISION.                  

 INPUT-OUTPUT SECTION.                  

 FILE-CONTROL.                           

         SELECT IN-FILE ASSIGN TO DD1     

         ORGANIZATION IS RELATIVE         

         RELATIVE KEY IS REL-KEY          

         ACCESS MODE IS RANDOM            

         FILE STATUS IS FS1.              

 DATA DIVISION.                          

 FILE SECTION.                          

 FD IN-FILE.                            

 01 IN-REC.                             

    05 ENO PIC 9(4).                    

    05 ENAME PIC X(4).                  

    05 SAL PIC 9(5).  

    05 FILLER PIC X(67).                                  

 WORKING-STORAGE SECTION.                                 

 01 REL-KEY PIC 9.                                        

 01 OUTREC.                                               

   02 ENO1 PIC 9(4).                                      

   02 ENAME1 PIC X(4).                                    

   02 SAL1 PIC 9(5).                                      

01 FS1  PIC 9(2).                                        

PROCEDURE DIVISION.                                       

          OPEN I-O IN-FILE.                                  

          DISPLAY "FS1: " FS1.                               

         MOVE 9 TO REL-KEY.                                 

         MOVE 0005 TO ENO1.                                  

         MOVE "HHHH" TO ENAME1.                             

         MOVE 70000 TO SAL1.                                

         MOVE OUTREC TO IN-REC.                             

         DISPLAY "FS1: " FS1.                                

         REWRITE IN-REC INVALID KEY DISPLAY "NOT DONE".

         CLOSE IN-FILE.   

         STOP RUN. 


File Program's in COBOL:                          

1. PS TO RRDS CLUSTER (WRITING)
2. PS TO KSDS CLUSTER (WRITE) 
3. RUNJCL TO RRDS (WRITE) 
4. RUNJCL TO RRDS (WRITE) 
5. RUNJCL TO KSDS CLUSTER(WRITE) 
6. FETCH A RECORD BY USING RANDOM IN RRDS CLUSTER 
7. FETCH A RECORD BY USING RANDOM IN KSDS CLUSTER
8. FETCHING RECORDS BY USING DYNAMIC IN RRDS CLUSTER
9. FETCH RECORDS BY USIING DYNAMIC IN KSDS CLUSTER 
10. INSERT A RECORD IN RRDS CLUSTER
11. INSERT A RECORD IN KSDS CLUSTER 
12. REWRITE A RECORD IN RRDS CLUSTER 
13. REWRITE A RECORD IN KSDS CLUSTER
14. DELETE A RECORD IN RRDS CLUSTER