FETCH RECORDS BY USIING DYNAMIC IN KSDS CLUSTER


***** FETCH RECORDS BY USIING DYNAMIC IN KSDS CLUSTER *****
 
  IDENTIFICATION DIVISION.         
  PROGRAM-ID. SEARCHS.             
  ENVIRONMENT DIVISION.            
  INPUT-OUTPUT SECTION.            
  FILE-CONTROL.                    
          SELECT IN-FILE ASSIGN TO DD1 
          ORGANIZATION IS INDEXED      
          ACCESS MODE IS DYNAMIC       
          RECORD KEY IS ENO            
          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).                           
 77 REL-KEY 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.                      
           MOVE 0003 TO ENO                     
           START IN-FILE                          
           KEY IS = ENO                         
           INVALID KEY GO TO CLOSE-PARA.       
           PERFORM SEARCH-PARA.                  
 OPEN-PARA.                                 
          OPEN I-O IN-FILE.                      
  SEARCH-PARA.                             
               READ IN-FILE NEXT RECORD INTO IN-REC1
               AT END DISPLAY "END".                
               IF ENO = ENO1                        
               MOVE IN-REC TO IN-REC1               
               DISPLAY IN-REC1                      
               ELSE                                 
               DISPLAY "NOT FOUND"                   
               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