Hello.

The consept exists, indeed:

FILE-CONTROL. 
 
     SELECT TESTFILE01  ASSIGN TO DATABASE-TESTFILE01 
                            ORGANIZATION IS INDEXED 
                            ACCESS DYNAMIC 
                            FILE STATUS IS FILE-STATUS 
                            RECORD KEY EXTERNALLY-DESCRIBED-KEY

DATA DIVISION. 
FILE SECTION. 
 
FD  TESTFILE01 
    LABEL RECORDS STANDARD 
    DATA RECORD TESTREC 
01  TESTREC. 
    COPY DDS-ALL-FORMATS OF TESTFILE01.


This is one example, the file-definitions can be different from this, 
depending on what you are going to do.  This is an indexed file, 
TESTFILE01, ment to be read by key or sequentually inside the pgm.
The 'COPY DDS-ALL-FORMATS' copys the external data structure into the 
program. 


Mvh.

Geir Kildal
TietoEnator AS

eMail: geir.kildal@xxxxxxxxxxxxxxx




David Gibbs <david@xxxxxxxxxxxx> 
Sent by: cobol400-l-bounces@xxxxxxxxxxxx
09.08.2005 20:45
Please respond to
COBOL Programming on the iSeries/AS400 <cobol400-l@xxxxxxxxxxxx>


To
cobol400-l@xxxxxxxxxxxx
cc

Subject
[COBOL400-L] External data structures






Folks:

Nobody in our office has any cobol experience on the 400 (my cobol
experience is from way back in '83 when I took a few classes).

A co-worker was wondering if anyone would be able give a simple source
example of an external data structure definition in OPM COBOL and ILE
COBOL ... if the concept even exists.

Thanks!

david



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-2022 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.