I have a structure in a COBOL copybook like this:
Code: Select all
05 TB-ABCD-ENTRY.
10 TB-ABCD-COMPANY-CODE PIC X(02) VALUE SPACES.
10 TB-ABCD-ONLINE-FRT-CONS-SW PIC X(01) VALUE ' '.
88 TB-ABCD-ONLINE-FRT-CONS VALUE 'Y'.
10 FILLER PIC X(197).
Code: Select all
05 TB-ABCD-ENTRY.
10 TB-ABCD-COMPANY-CODE PIC X(02) VALUE SPACES.
10 TB-ABCD-ONLINE-FRT-CONS-SW PIC X(01) VALUE ' '.
88 TB-ABCD-ONLINE-FRT-CONS VALUE 'Y'.
10 WS-NEW-VAR PIC X(04).
10 FILLER PIC X(193).