Remove excess complexity in channel record specification.

This commit is contained in:
Quinn Evans 2017-03-27 19:34:51 -06:00
parent c6f4372a04
commit 2770e4a5f2
1 changed files with 1 additions and 2 deletions

View File

@ -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"