Databases
StackOverflow2013
Postsdbo
POMaking a Screen (COBOL)
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POMaking a Screen (COBOL)
    primarykey
    data
    text
    <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>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PTQuestion
    1. This table or related slice is empty.
    1. USKimmy1235
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POMaking a Screen (COBOL)
      1. This table or related slice is empty.
      1. VTUpMod
    1. COWhy don't you have a period after the `DISPLAY` or `ACCEPT` commands?
      singulars
      1. POMaking a Screen (COBOL)
      1. USGabe
    2. CO@Gabe You need those? in the examples I was given it didn't have periods.
      singulars
      1. POMaking a Screen (COBOL)
      1. USKimmy1235
    3. COCan you post the error message ? It might help pin down the error. Are you sure the data fields you are using are correctly defined previously in the program, (FD, WORKING-STORAGE).
      singulars
      1. POMaking a Screen (COBOL)
      1. UScolemanj
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload