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

COBOL + DB2 complication process.

-
Image
There are various step involved before we run/execute a COBOL + DB2 program.   Below step are the various steps.   Precompile.   Compile.   Link edit.   Bind.   Package & plan. Step 1: Precompile               COBOL compiler did not understand about SQL statement so, it undergoes to precompile. In precompile.     Expands all include copybooks which are written in program.     Extracts all SQL statements into DBRM and SQL statement are convert into call statements.    Generates time-stamp for modified source codes and DBRM .there are checked at run time.   Check syndicated error of SQL statements and validates the fields based on the table declaration from dclgen copybook.    Notes: precompilation process can be executed even if DB2 is down. DSNHPC    ----------- It is the program used for precompilation. Step 2:  ...
Read more

ABEND list for 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

difference between jes2 and jes3

-
JES2 JES3       1.        Decentralization.       2.        Every processor the incoming job individually.       3.        It is prestep allocation.       4.        Dataset allowed before step is executed.       5.        It is a local process.       6.        Control statement (//*). 1. Centralization. 2. It control process and assign job to sub processor. 3. It is prejob allocation. 4. Dataset allowed before job is schedule. 5. It is global process. 6. Control statement (/*).
Read more