Clicky
Skip to Content
Custom Search

Reply to comment

Anonymous
Thank you so much

 

Alan, 
 
Many Many Thanks!!
 
It worked as expected. Here are my test results.
 
Cobol program that I used.
--------------------------
 
 
IDENTIFICATION DIVISION.                                         
PROGRAM-ID. TEST1.                                               
ENVIRONMENT DIVISION.                                            
INPUT-OUTPUT SECTION.                                            
FILE-CONTROL.                                                    
                                                                 
    SELECT INPUTFL ASSIGN        TO UT-S-INPUTFL.                
                                                                 
DATA DIVISION.                                                   
                                                                 
FILE SECTION.                                                    
                                                                 
FD  INPUTFL                                                      
    BLOCK CONTAINS 0 RECORDS                                     
    RECORDING MODE IS V                                          
    RECORD IS VARYING IN SIZE FROM 1 TO 80 CHARACTERS            
    DEPENDING ON FILE-SIZE.                                      
01  INPUTFL-REC                            PIC X(80).            
                                                                 
WORKING-STORAGE SECTION.                                         
                                                                 
01 FILE-SIZE PIC 9(4) COMP-5.                                    
01  SWITCHES.                                                    
    05  EOF-INPUT-FILE           PIC X      VALUE 'N'.           
        88 EOF-INPUT                        VALUE 'Y'.           
                                                                 
PROCEDURE DIVISION.                                              
                                                                 
    OPEN INPUT INPUTFL.                                          
                                                                 
    MOVE 'N' TO  EOF-INPUT-FILE.                                 
    PERFORM UNTIL EOF-INPUT                                      
      READ INPUTFL AT END                                        
         SET EOF-INPUT TO TRUE                                   
      END-READ                                                   
      IF NOT EOF-INPUT                                           
         DISPLAY FILE-SIZE                                       
      END-IF                                                     
    END-PERFORM                                                  
                                                                 
    STOP RUN.                                                    
 
 
 
Contents of Input file INPUTFL
------------------------------
 
THE QUICK BROWN
FOX JUMPS
OVER THE LAZY
DOG
 
 
Contents of sysout display
--------------------------
 
00015                                                                                                                    
00009                                                                                                                    
00013                                                                                                                    
00003                                                                                                                    
 

Reply

  • Allowed HTML tags:
      1. Lines and paragraphs break automatically.

    More information about formatting options

    CAPTCHA
    This question is for testing whether you are a human visitor and to prevent automated spam submissions.

Navigation

Click the +1 button  below to share it with your friends and colleagues

 

Share this if you liked it!

 

Disclaimer



Number of Registered users 713
Theme by Dr. Radut.