Remove excess complexity in channel record specification.
This commit is contained in:
parent
c6f4372a04
commit
2770e4a5f2
3
WOPO.COB
3
WOPO.COB
|
@ -34,8 +34,7 @@
|
||||||
03 USER-NAME PIC X(40).
|
03 USER-NAME PIC X(40).
|
||||||
03 USER-LEVEL PIC 9(2).
|
03 USER-LEVEL PIC 9(2).
|
||||||
FD CHANNELS.
|
FD CHANNELS.
|
||||||
01 CHANNEL-RECORD.
|
01 CHANNEL-NAME PIC X(50).
|
||||||
03 CHANNEL-NAME PIC X(50).
|
|
||||||
|
|
||||||
WORKING-STORAGE SECTION.
|
WORKING-STORAGE SECTION.
|
||||||
*CONFIGURATION "CONSTANTS"
|
*CONFIGURATION "CONSTANTS"
|
||||||
|
|
Loading…
Reference in New Issue