RUNJCL TO RRDS (WRITE)

***** RUNJCL TO RRDS (WRITE) *****  IDENTIFICATION DIVISION.                PROGRAM-ID. MEM3.           ...

***** RUNJCL TO RRDS (WRITE) *****

 IDENTIFICATION DIVISION.              

 PROGRAM-ID. MEM3.                     

 ENVIRONMENT DIVISION.                 

 INPUT-OUTPUT SECTION.                 

 FILE-CONTROL.                         

         SELECT OUT-FILE ASSIGN TO DD1     

         ORGANIZATION IS RELATIVE          

          RELATIVE KEY IS ENO2              

          FILE STATUS IS FS1.               

 DATA DIVISION.                        

 FILE SECTION.                         

 FD OUT-FILE.                          

 01 OUT-REC.                           

   02 ENO PIC 9(4).                    

   02 ENAME PIC X(4).                  

   02 SAL PIC 9(5).                     

   02 FILLER PIC X(67). 

WORKING-STORAGE SECTION.              

 01 ENO2 PIC 9.                        

 01 IN-FILE.                           

   02 OUTDATA OCCURS 3 TIMES.          

     03 ENO1 PIC 9(4).                 

     03 ENAME1 PIC X(4).               

     03 SAL1 PIC 9(5).                 

 77 FS1 PIC 9(2).                      

 77 I PIC 9.                           

 PROCEDURE DIVISION.                   

            PERFORM OPEN-PARA.                

            PERFORM ACCEPT-PARA 3 TIMES.      

            PERFORM CLOSE-PARA.               

 OPEN-PARA.                            

           OPEN OUTPUT OUT-FILE.             

           ACCEPT-PARA.                          

           MOVE 1 TO I.                       

           ACCEPT ENO1(I).                   

           ACCEPT ENAME1(I).          

           ACCEPT SAL1(I).            

           WRITE OUT-REC FROM IN-FILE.

           COMPUTE I = I + 1.         

 CLOSE-PARA.                    

             CLOSE OUT-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