I've a COPYBOOK like this -
Code: Select all
01 COPYBK-IND.
05 COPYBK-CURRENCY.
10 COPYBK-STATE-CURRENCY PIC X(01).
88 COPYBK-CURR-A VALUE 'A'.
88 COPYBK-CURR-B VALUE 'B'.
88 COPYBK-CURR-C VALUE 'C'.
05 COPYBK-OTHER
10.....
Code: Select all
88 COPYBK-CURR-D VALUE 'D'.