I've a COBOL program which has got the linkage setion and Procedure Division like this:
Code: Select all
LINKAGE SECTION.
*** *xx402D-xxxx-REC:
COPY xx402D01.
01 W-xx849-xx426O01.
03 W-DDNAME PIC X(08).
03 W-NUMB PIC S9(09) PACKED-DECIMAL.
03 W-INFO PIC X(01).
03 FILLER PIC X(10).
/
*****************************************************************
* P R O C E D U R E D I V I S I O N *
*****************************************************************
PROCEDURE DIVISION USING xx402D-xxxx-REC
W-xx849-xx426O01.