FETCH A RECORD BY USING RANDOM IN RRDS CLUSTER


***** FETCH A RECORD BY USING RANDOM IN RRDS CLUSTER *****

 IDENTIFICATION DIVISION.        
 PROGRAM-ID. SEARCHS.            
 ENVIRONMENT DIVISION.           
 INPUT-OUTPUT SECTION.           
 FILE-CONTROL.                   
         SELECT IN-FILE ASSIGN TO DD1
        ORGANIZATION IS RELATIVE    
        ACCESS MODE IS RANDOM       
        RELATIVE KEY IS ENO1        
        FILE STATUS IS FS1.         
 DATA DIVISION.                  
 FILE SECTION.                   
 FD IN-FILE.                     
 01 IN-REC.                      
   02 ENO PIC 9(4).              
   02 ENAME PIC X(4).            
   02 SAL PIC 9(5).
   02 FILLER PIC X(67).    
WORKING-STORAGE SECTION.  
 77 FS1 PIC 9(2).          
 01 ENO2 PIC 9(4).         
 77 EOF PIC X.             
 77 REL-NO PIC 9.          
 01 IN-REC1.               
    03 ENO1 PIC 9(4).       
    03 ENAME1 PIC X(4).     
    03 SAL1 PIC 9(5).       
    03 FILLER PIC X(67).    
PROCEDURE DIVISION.       
           PERFORM OPEN-PARA.    
           PERFORM SEARCH-PARA.  
           PERFORM CLOSE-PARA.   
 OPEN-PARA.                
           OPEN INPUT IN-FILE.   
           MOVE 4 TO ENO1.       
           SEARCH-PARA.                        
           READ IN-FILE RECORD INTO IN-REC1
           IF ENO1 = ENO                   
           MOVE ENO TO ENO1                
           MOVE ENAME TO ENAME1            
           MOVE SAL TO SAL1                
           DISPLAY IN-REC1                 
           ELSE                            
           COMPUTE ENO1 = ENO1 + 1         
           GO TO SEARCH-PARA.              
 CLOSE-PARA.                         
             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   
                                      

0 comments:

Computers TopOfBlogs Technology Blogs Mainframe interview question and answers,mainframe jobs,cobol,vsam,jcl,cics,db2,rdbms,mvs,tso,ispf,ibm,hcl,tcs,cts,wibro Blog Directory