title: Making a Screen (COBOL)
body: <p>Hey all, I got one more assignment to complete for the quarter in COBOL and I am out. The thing is I am getting a syntax error at the ACCEPT SCREEN-IMAGE command and this program needs to have user input. I don't see what I am doing wrong so I am stuck. I believe that everything else is put in right so once this is figured out I am done. Here is the code:</p>
  
  <pre><code>SCREEN SECTION.
     01  SCREEN-IMAGE.
         05  BLANK SCREEN
             BACKGROUND-COLOR 0
             FOREGROUND-COLOR 15.
         05  LINE 02  COLUMN 02  PIC X(8)
                 FROM CURRENT-TIME.
         05  LINE 02  COLUMN 26  PIC X(28)
                 FROM TITLE-LINE
                 FOREGROUND-COLOR 09.
         05  LINE 02  COLUMN 40  PIC X(8)
                 FROM DATE-TODAY.
         05  LINE 05  COLUMN 02
                 VALUE 'FUNCTION CODE:'
                 FOREGROUND-COLOR 09.
         05  LINE 05  COLUMN 12  PIC X(3)
                 FROM CODE-SCREEN AUTO.
         05  LINE 05  COLUMN 17
                 VALUE '&lt;ADD, CHG, DEL, INQ, END&gt;'.
         05  LINE 09  COLUMN 17
                 VALUE 'REP CODE:'
                 FOREGROUND-COLOR 09.
         05  LINE 09  COLUMN 29  PIC X(3)
                 FROM REP-SCREEN AUTO.
         05  LINE 11  COLUMN 17
                 VALUE 'NAME:'
                 FOREGROUND-COLOR 09.
         05  LINE 11  COLUMN 29  PIC X(3)
                 FROM NAME-SCREEN AUTO.
         05  LINE 13  COLUMN 17
                 VALUE 'DISTRICT:'
                 FOREGROUND-COLOR 09.
         05  LINE 13  COLUMN 29  PIC X(3)
                 FROM DIST-SCREEN AUTO.
         05  LINE 15  COLUMN 17
                 VALUE 'COMMISSION RATE:'
                 FOREGROUND-COLOR 09.
         05  LINE 15  COLUMN 29  PIC X(3)
                 FROM COM-SCREEN AUTO.
         05  LINE 17  COLUMN 17
                 VALUE 'DATE ADDED:'
                 FOREGROUND-COLOR 09.
         05  LINE 17  COLUMN 29  PIC X(10)
                 FROM ADD-DATE.
         05  LINE 19  COLUMN 17
                 VALUE 'DATE CHANGED:'
                 FOREGROUND-COLOR 09.
         05  LINE 19  COLUMN 29  PIC X(3)
                 FROM CHANGE-DATE.
         05  LINE 24  COLUMN 17  PIC X(29)
                 FROM ERROR-DISPLAY.
  
     PROCEDURE DIVISION.
     100-MAIN.
         OPEN I-O   REP-MASTER-FILE
         CALL 'DATETIME' USING DATE-TIME-PASS-AREA
         MOVE DATE-MMDDYY-SLASHES TO DATE-TODAY
         MOVE TIME-HHMMSSXX-COLONS TO CURRENT-TIME
         PERFORM UNTIL CODE-SCREEN = 'END' OR 'end'
             DISPLAY SCREEN-IMAGE
             ACCEPT SCREEN-IMAGE
             MOVE 0 TO ERROR-COUNT
             PERFORM 150-CHECK-COM
             PERFORM 140-CHECK-DIST
             PERFORM 130-CHECK-NAME
             PERFORM 120-CHECK-REP
             PERFORM 110-CHECK-CODE
             IF ERROR-COUNT = 0
                 PERFORM 200-PROCESS-ONE-RECORD
             END-IF
         END-PERFORM
  
         CLOSE REP-MASTER-FILE
         STOP RUN.
  </code></pre>
  
  <p>Any and all help will be appreciated.</p>