RE: Basic Cobol

["Stone, Joel" <StoneJ@xxxxxxxxxxxxxxxx>]

Title: Basic Cobol

Here is a simple COBOL program: to compile, use option 14 in PDM.  The program reads all records from FILE1 and prints them.

 

 

       IDENTIFICATION DIVISION.                                   
                                                                  
       PROGRAM-ID.                     PGM1.                      
       ENVIRONMENT DIVISION.                                      
                                                                  
       INPUT-OUTPUT SECTION.                                      
       FILE-CONTROL.                                              
           SELECT File1                ASSIGN TO DATABASE-file1.  
                                                                  
           SELECT Prntr                ASSIGN TO PRINTER-Prntr.   
                                                                  
       DATA DIVISION.                                             
       FILE SECTION.                                              
       FD  File1.                                                 
       01  file1-rec.                                             
           COPY DDS-ALL-FORMATS OF file1.                         

                                                                      
       FD  prntr.                                                     
       01  prntr-rec     pic x(100).                                  
                                                                      
       WORKING-STORAGE SECTION.                                       
       01  WS-FLAG-EOF     PIC X       VALUE SPACE.                   
           88  EOF                     VALUE 'Y'.                     
                                                                      
       PROCEDURE DIVISION.                                            
                                                                      
      ****************************************************************
      *  MAIN ROUTINES                                                
      ****************************************************************
       MAINLINE.                                                      
           PERFORM SETUP                                              
           PERFORM main-process UNTIL EOF                             
           PERFORM ENDUP                                              

           STOP RUN.                                    
                                                        
       SETUP.                                           
           OPEN INPUT file1                             
                output prntr.                           
           READ file1 at end stop run.                  
                                                        
       main-process.                                    
           write prntr-rec from file1-rec.              
           READ file1 at end move 'Y' to ws-flag-eof.   
                                                        
       ENDUP.                                           
           CLOSE File1 prntr.                           

 

-----Original Message-----
From: Keith Flournoy [mailto:kflournoy@verticalsky.com]
Sent: Monday, January 29, 2001 9:08 PM
To: 'RPG400-L@midrange.com'
Subject: Basic Cobol

I am an RPG developer and I have not used COBOL in the past. Can anyone tell me how to write a basic COBOL program. An example would be how to compile a COBOL program that uses a physical or logical file. Thanks.