Yes - this works fine in COBOL.
R REC1 PFILE(FILEA FILEB)
* EXTERNALLY DESCRIBED PRINTER FILE
SELECT FILEAB ASSIGN TO DATABASE-FILEAB
ACCESS MODE IS SEQUENTIAL
ORGANIZATION IS INDEXED
RECORD KEY IS
01 FILEAB-REC. COPY DDS-ALL-FORMATS OF FILEAB.
OPEN INPUT FILEAB.
fileA contains 1 record: "FROM FILEA"
fileB contains 1 record: "FROM FILEB"
Can I get back to work now?? :)
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.