Remove excess complexity in channel record specification.

2017-03-27 19:34:51 -06:00 · 2017-03-27 19:34:51 -06:00 · 2770e4a5f2
parent c6f4372a04
commit 2770e4a5f2
1 changed files with 1 additions and 2 deletions
--- a/WOPO.COB
+++ b/WOPO.COB
@ -34,8 +34,7 @@
           03 USER-NAME PIC X(40).
           03 USER-LEVEL PIC 9(2).
       FD CHANNELS.
-       01 CHANNEL-RECORD.
-           03 CHANNEL-NAME PIC X(50).
+       01 CHANNEL-NAME PIC X(50).
       
       WORKING-STORAGE SECTION.
      *CONFIGURATION "CONSTANTS"