Sequential file read

 Sequential file read

ID DIVISION.                                       

PROGRAM-ID. ESDSRD.                               

ENVIRONMENT DIVISION.                             

INPUT-OUTPUT SECTION.                             

FILE-CONTROL.                                     

            SELECT EMPFILE ASSIGN TO AS-DD1           

            ORGANIZATION IS SEQUENTIAL                 

            ACCESS MODE IS SEQUENTIAL                 

            FILE STATUS IS WS-FS1.                      

 DATA DIVISION.                                     

 FILE SECTION.                                     

 FD EMPFILE.                                       

 01 EMPREC.                                         

       05 EMPNO PIC 9(04).                             

       05 FILLER PIC X(01).                           

       05 EMPNAME PIC A(10).                           

       05 FILLER PIC X(01).                           

       05 EMPLOC PIC X(10).                              

       05 FILLER PIC X(01).                             

       05 EMPSAL PIC 9(05).                             

       05 FILLER PIC X(48).                             

WORKING-STORAGE SECTION.                             

01 WS-FS1 PIC 9(02).                                 

01 WS-CHOICE PIC X(02).                             

 PROCEDURE DIVISION.                                 

             PERFORM OPEN-PARA.                           

             PERFORM READ-PARA UNTIL WS-FS1 = 10.         

             PERFORM CLOSE-PARA.                           

  OPEN-PARA.                                           

             OPEN INPUT EMPFILE.                           

             IF WS-FS1 = ZERO                              

             DISPLAY 'OPEN SUCCESFUL' WS-FS1               

             ELSE                                         

             DISPLAY 'ERROR IN OPENING FILE' WS-FS1       

           STOP RUN                                   

           END-IF.                                   

 READ-PARA.                                       

           READ EMPFILE                               

           AT END                                     

           DISPLAY 'END OF FILE' WS-FS1                

           NOT AT END                                 

           DISPLAY EMPREC                             

           END-READ.                                 

           IF WS-FS1 = ZERO                           

           DISPLAY 'READ SUCCESFUL' WS-FS1           

           ELSE                                       

           DISPLAY 'ERROR IN READING FILE' WS-FS1     

           STOP RUN                                   

           END-IF.                                    

CLOSE-PARA.                                       

           CLOSE EMPFILE.                             

         IF WS-FS1 = ZERO                       

         DISPLAY 'CLOSE SUCCESFUL' WS-FS1       

         ELSE                                    

         DISPLAY 'ERROR IN CLOSING FILE' WS-FS1 

         STOP RUN                               

         END-IF.                                 

         STOP RUN.                            

Comments

Post a Comment

Popular posts from this blog

files and db2 abends&cics

  File error codes: 00: Successful operation. 02: Duplicate key, non-unique key, alt index. 10: End of file. 20: Invalid key VSAM KSDS/RRDS. 21: Key errors (rewrite & write). 22: Duplicate primary key found. 23: Record not found. 24: Disk filled or key outside of boundary of file. 37: Wrong mode. 39: File attributes do not match COBOL description. 91: password or authorization failed. 92: logic error. 93: Resources are not available. 95: Invalid file information. 96: No DD statement for the file. 97: Open successful. 98: File is locked. 99: Record locked. -------------------------------------------------------------------------------------------- DB2 Return code. Note: 0: means successful execution. -ve: Negative means unsuccessful with an error. +ve: Positive means successful execution with a warning. 00: Successful operation. -104: illegal symbol using. -117: no of values in the insert does not match the no of columns. -180: wrong data passing to column. -204: Object not defi...
Read more

jcl

  what is ABEND?   An ABEND (abnormal end) is an exception condition which results in the abnormal termination of a program or software. It is a common terminology used in the mainframe world where a JCL terminates with an error code.  S0CB  -   Attempting to divide by 0 and not using ON SIZE ERROR S002  -   Very large record length/ wrong record length Sx22  -  Job has been cancelled. The value of x will vary depending on the way the job was  cancelled. . S222  -   Means job was cancelled by a user or operator without a dump.               If a TSO session times out you will probably get an S522 ABEND code. S222  -   The job was cancelled (by subsystem or operator) because it violated               Some restriction. S522 ...
Read more

cics interview question

  1. What is CICS? CICS stands for Customer Information  1. What is CICS? CICS stands for Customer Information Control System. It's a middleware designed by IBM to support rapid, high-volume online transaction processing. CICS allows multiple users to access the same data concurrently, ensuring data integrity and efficient resource management. 2. Describe the basic differences between batch and online systems. Feature Batch System Online System (CICS) Execution Processes jobs sequentially, no user input Handles real-time user interactions User Interactio n Discover more middleware Middleware IMS DB DB2 IBM Information Management System IBM Db2 SDSF IEFBR14 IDCAMS None during execution Continuous user input/output Response Time Delayed (scheduled ) Discover more DB2 IBM Db2 IMS DB Middleware ...
Read more