× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hello! I'm trying to get familiar with programming in Cobol on an AS/400. As
it is usually done in RPG, there is a screen description file that is called
using EXFMT in RPG. Now I tried to call this layout file from Cobol. Using
the manuals, I tried the following sample program, but it fails.

 100        IDENTIFICATION DIVISION.                                        
                                        
 200        PROGRAM-ID.     TEST1.                                          
                                        
 700       *                                                                
                                        
 800        ENVIRONMENT DIVISION.                                           
                                        
 900        CONFIGURATION SECTION.                                          
                                        
1000        INPUT-OUTPUT SECTION.                                           
                                        
1100        FILE-CONTROL.                                                   
                                        
1200            SELECT SCHIRM-FILE ASSIGN TO WORKSTATION-SCHIRM             
                                        
1300                          ORGANIZATION IS TRANSACTION.                  
                                        
1400       *                                                                
                                        
1500        DATA DIVISION.                                                  
                                        
1600        FILE SECTION.                                                   
                                        
1700        FD  SCHIRM-FILE                                                 
                                        
1800            LABEL RECORDS ARE STANDARD.                                 
                                        
1900        01  SCHIRM-REC.                                                 
                                        
2000            COPY DDS-ALL-FORMATS OF BUKTODSP.                           
                                        
2100       *                                                                
                                        
2200        PROCEDURE DIVISION.                                             
                                        
2300        0000-MAIN.                                                      
                                        
2400            OPEN I-O SCHIRM-FILE.                                       
                                        
2500            WRITE SCHIRM-REC FORMAT IS "D1KONTO".                       
                                        
2600            READ SCHIRM-FILE RECORD.                                    
                                        
2700        9999-ENDE.                                                      
                                        
2800            CLOSE SCHIRM-FILE.                                          
                                        
2900            STOP RUN.

It compiles well, but when run it ends up with a LBE7207 in the line with
the OPEN statement. The COPY copied the layout structure in. Why does the
system insist on not being able to open this TRANSACTION file? Or is there
something else wrong?

Thanks for any enlightenment.

Volker

-- 
NEU +++ DSL Komplett von GMX +++ http://www.gmx.net/de/go/dsl
GMX DSL-Netzanschluss + Tarif zum supergünstigen Komplett-Preis!

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.