Re: External data structures

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