R: [COBOL400-L] Read same file

[cobol400-l@xxxxxxxxxxxx]

You may try to declare three times the same file in the same program, and treat 
it as you like best.
E.g. 
  IDENTIFICATION DIVISION.
       PROGRAM-ID.  UNIQUE.

       SELECT FILEA-SEQ ASSIGN TO DATABASE-FILEA
           FILE STATUS IS STATUS-AS
           ACCESS MODE IS SEQUENTIAL
           ORGANIZATION IS SEQUENTIAL.
     
       SELECT FILEA-DYN ASSIGN TO DATABASE-FILEA
           FILE STATUS IS STATUS-AD
           ACCESS MODE IS DYNAMIC
           ORGANIZATION IS INDEXED
           RECORD KEY IS EXTERNALLY-DESCRIBED-KEY.

       SELECT FILEA-KEY
           ASSIGN TO DATABASE-FILEA
           FILE STATUS IS STATUS-AK
           ACCESS MODE IS DYNAMIC
           ORGANIZATION IS INDEXED
           RECORD KEY IS EXTERNALLY-DESCRIBED-KEY.

It seems that third file is treated same way than 2nd, but it problably does'nt 
care.
It would be ACCESS RANDOM, may be ? 

In the program's body  you may the code:
 perform READ-FILEA-SEQ

 perform START-FILEA-DYN
 perform READ-FILEA-DYN-NXT
 perform READ-FILEA-DYN-key

and so on....



START-FILEA-DYN
        start FILEA-DYN key not less externally described key invalid key 
continue end-start

READ-FILEA-DYN-NXT
        read filea-dyn next at end continue end-read

READ-FILEA-DYN-key
        read filea-dyn key externally-described-key invalid key  continue 
end-read


Sincerely
        Domenico Finucci
        Sistemi informativi (SVI/SSI)
         Tel. + 39 02-43.01.2494, cell. 348 - 59.53.279
         Fiditalia S.p.A. via G. Silva, 34 - 20149 Milano
        E-mail: domenico.finucci@xxxxxxxxxxxx 
> Sito internet: www.fiditalia.it
>