I am trying to write a simple COBOL program to display a simple screen. The 1st write to the display file works fine, but subsequent writes are not. It appears to be writing the 1st record every time I press Enter. I've written the code just like it says in the books I have, but it still does not work. Any ideas?
Announcement
Collapse
No announcement yet.
Display not refreshing
Collapse
X
-
Re: Display not refreshing
0001.00 INDARA 131205
0002.00 PRINT 131205
0003.00 ************************************************** ************************ 140222
0004.00 R MDM4501R CA03(03 'Exit') 141029
0005.00 CA09(09 'Add/Update') 141026
0006.00 PUTOVR 131205
0007.00 * 131108
0008.00 COMPNAME 37A O 01 02DFTVAL- 141026
0009.00 ('Pismo Beach Savings & Loan') 131205
0010.00 ALIAS(MDM4501R_COMPNAME) 131210
0011.00 DIVNAME 37A O 02 02DFTVAL- 141026
0012.00 ('Mortgage Document Processing') 131205
0013.00 ALIAS(MDM4501R_DIVNAME) 131210
0014.00 DEPTNAME 37A O 03 02DFTVAL- 141026
0015.00 ('Records Management') 131205
0016.00 ALIAS(MDM4501R_DEPTNAME) 131210
0017.00 * 131109
0018.00 SYSNAME 32A O 01 40DFTVAL- 141026
0019.00 ('Carousel Item Tracking System') 131205
0020.00 ALIAS(MDM4501R_SYSNAME) 131210
0021.00 DSPATR(HI) 140324
0022.00 FUNCNAME 32A O 02 40DFTVAL- 141026
0023.00 ('Recall System Codes Management') 131205
0024.00 ALIAS(MDM4501R_FUNCNAME) 131210
0025.00 DSPATR(HI) 140324
0026.00 SUBFUNC 32A O 03 40DFTVAL- 141026
0027.00 ('Add/Update Location') 131205
0028.00 ALIAS(MDM4501R_SUBFUNC) 131210
0029.00 DSPATR(HI) 140324
0030.00 * 131109
0031.00 CURDATE 8A O 01 73ALIAS(MDM4501R_CURDATE) 141026
0032.00 CURTIME 8A O 02 73ALIAS(MDM4501R_CURTIME) 141026
0033.00 CURUSER 8A O 03 73ALIAS(MDM4501R_CURUSER) 141026
0034.00 * 131109
0035.00 05 30'Location:' 141026
0036.00 LOCATION 9A B 05 40ALIAS(MDM4501R_LOCATION) 141026
0037.00 05 50'(F4)' 141026
0038.00 * 131109
0039.00 07 29'System Id:' 141026
0040.00 SYSTEMID 8A B 07 40ALIAS(MDM4501R_SYSTEMID) 141026
0041.00 07 49'(F4)' 141026
0042.00 * 131109
0043.00 09 29'Mail Stop:' 141026
0044.00 MAILSTOP 13A B 09 40ALIAS(MDM4501R_MAILSTOP) 141026
0045.00 09 54'(F4)' 141026
0046.00 * 131109
0047.00 11 29'Person Id:' 131205
0048.00 PERSONID 8A B 11 40ALIAS(MDM4501R_PERSONID) 131210
0049.00 11 49'(F4)' 131205
0050.00 * 131109
0051.00 13 28'Company Id:' 131205
0052.00 COMPANYID 5S 0O 13 40ALIAS(MDM4501R_COMPANYID) 131210
0053.00 * 131109
0054.00 15 27'Cost Center:' 131205
0055.00 COSTCENTER 15S 0O 15 40ALIAS(MDM4501R_COSTCENTER) 131210
0056.00 * 131109
0057.00 17 21'Major Description:' 131205
0058.00 MAJDESC 25A O 17 40ALIAS(MDM4501R_MAJDESC) 131210
0059.00 * 131109
0060.00 ERRORMSG 79A O 23 02COLOR(RED) 141026
0061.00 ALIAS(MDM4501R_ERRORMSG) 141026
0062.00 * 131109
0063.00 O 24 02'F3=Exit F5=Refresh F9=Add/Update' 141026
0064.00 COLOR(BLU) 131213
0065.00 24 73'MDM4501S' 141026
0066.00 COLOR(BLU) 131213
0067.00 * 131109
0001.00 PROCESS DATETIME DATE TIME 131115
0002.00 Identification Division. 131005
0003.00 Program-Id. RCM001B. 141003
0004.00 Author. Barry Keith. 131005
0005.00 Installation. Pismo Beach Savings & Loan. 141006
0006.00 Date-Written. 05 Oct 2013. 140401
0007.00 Date-Compiled. 131005
0008.00 * 140220
0009.00 Environment Division. 131005
0010.00 Configuration Section. 131005
0011.00 Source-Computer. IBM-AS400. 131008
0012.00 Object-Computer. IBM-AS400. 131008
0013.00 Special-Names. 141006
0014.00 Input-Output Section. 131005
0015.00 File-Control. 131005
0016.00 Select CARRECSYSP-PF Assign To Database-CARRECSYSP 141022
0017.00 Organization Is Indexed 131008
0018.00 Access Mode Is Random 131212
0019.00 Record Key Is 131008
0020.00 Externally-Described-Key. 131017
0021.00 * 131209
0022.00 Select MDM4501D-DSPF Assign To Workstation-MDM4501D-SI 141021
0023.00 Organization Is Transaction 141019
0024.00 Access Mode Is Sequential 141030
0025.00 Control-Area Is WS-CONTROL-AREA. 141030
0026.00 * 140304
0027.00 I-O-Control. 141006
0028.00 Data Division. 131008
0029.00 File Section. 131008
0030.00 FD CARRECSYSP-PF. 141006
0031.00 01 CARRECSYSP-RECORD. 141010
0032.00 COPY DD-CARRECSYSR OF CARRECSYSP. 141010
0033.00 * 131008
0034.00 FD MDM4501D-DSPF. 131212
0035.00 01 MDM4501D-DSPF-RECORD PIC X(1920). 141029
0036.00 * 131209
0037.00 Working-Storage Section. 131008
0038.00 77 WS-PROG-NAME PIC X(08) Value "RCM001B". 141020
0039.00 77 WS-DISPLAY-FILE-STATUS PIC X(01) Value " ". 141024
0040.00 88 WS-DISPLAY-FILE-AT-END VALUE "Y". 141020
0041.00 88 WS-DISPLAY-FILE-NOT-AT-END VALUE " ". 141025
0042.00 * 131008
0043.00 01 WS-MDM4501D-IN. 141029
0044.00 COPY DD-MDM4501R-I OF MDM4501D. 141029
0045.00 * 141025
0046.00 01 WS-MDM4501D-OUT. 141029
0047.00 COPY DD-MDM4501R-O OF MDM4501D. 141029
0048.00 * 141025
0049.00 01 WS-INDICATOR-AREA. 141013
0050.00 05 WS-IND-01 PIC 1 INDICATOR 01. 141020
0051.00 88 WS-IND-01-OFF VALUE B"0". 141019
0052.00 88 WS-IND-01-ON VALUE B"1". 141019
0053.00 05 WS-IND-02 PIC 1 INDICATOR 02. 141020
0054.00 88 WS-IND-02-OFF VALUE B"0". 141019
0055.00 88 WS-IND-02-ON VALUE B"1". 141019
0056.00 05 WS-IND-03 PIC 1 INDICATOR 03. 141020
0057.00 88 WS-IND-03-OFF VALUE B"0". 141019
0058.00 88 WS-IND-03-ON VALUE B"1". 141019
0059.00 05 WS-IND-04 PIC 1 INDICATOR 04. 141020
0060.00 88 WS-IND-04-OFF VALUE B"0". 141019
0061.00 88 WS-IND-04-ON VALUE B"1". 141019
0062.00 05 WS-IND-05 PIC 1 INDICATOR 05. 141020
0063.00 88 WS-IND-05-OFF VALUE B"0". 141019
0064.00 88 WS-IND-05-ON VALUE B"1". 141019
0065.00 05 WS-IND-06 PIC 1 INDICATOR 06. 141020
0066.00 88 WS-IND-06-OFF VALUE B"0". 141019
0067.00 88 WS-IND-06-ON VALUE B"1". 141019
0068.00 05 WS-IND-07 PIC 1 INDICATOR 07. 141020
0069.00 88 WS-IND-07-OFF VALUE B"0". 141019
0070.00 88 WS-IND-07-ON VALUE B"1". 141019
0071.00 05 WS-IND-08 PIC 1 INDICATOR 08. 141020
0072.00 88 WS-IND-08-OFF VALUE B"0". 141019
0073.00 88 WS-IND-08-ON VALUE B"1". 141019
0074.00 05 WS-IND-09 PIC 1 INDICATOR 09. 141020
0075.00 88 WS-IND-09-OFF VALUE B"0". 141019
0076.00 88 WS-IND-09-ON VALUE B"1". 141019
0077.00 05 WS-IND-10 PIC 1 INDICATOR 10. 141020
0078.00 88 WS-IND-10-OFF VALUE B"0". 141019
0079.00 88 WS-IND-10-ON VALUE B"1". 141019
0080.00 05 WS-IND-11 PIC 1 INDICATOR 11. 141020
0081.00 88 WS-IND-11-OFF VALUE B"0". 141019
0082.00 88 WS-IND-11-ON VALUE B"1". 141019
0083.00 05 WS-IND-12 PIC 1 INDICATOR 12. 141020
0084.00 88 WS-IND-12-OFF VALUE B"0". 141019
0085.00 88 WS-IND-12-ON VALUE B"1". 141019
0086.00 * 140416
0087.00 01 WS-CONTROL-AREA. 141019
0088.00 05 WS-FUNCTION-KEY PIC X(02). 141019
0089.00 88 WS-ENTER-KEY VALUE "00". 141019
0090.00 88 WS-FUNCTION-KEY-01 VALUE "01". 141019
0091.00 88 WS-FUNCTION-KEY-02 VALUE "02". 141019
0092.00 88 WS-FUNCTION-KEY-03 VALUE "03". 141019
0093.00 88 WS-FUNCTION-KEY-04 VALUE "04". 141019
0094.00 88 WS-FUNCTION-KEY-05 VALUE "05". 141019
0095.00 88 WS-FUNCTION-KEY-06 VALUE "06". 141019
0096.00 88 WS-FUNCTION-KEY-07 VALUE "07". 141019
0097.00 88 WS-FUNCTION-KEY-08 VALUE "08". 141019
0098.00 88 WS-FUNCTION-KEY-09 VALUE "09". 141019
0099.00 88 WS-FUNCTION-KEY-10 VALUE "10". 141019
0100.00 88 WS-FUNCTION-KEY-11 VALUE "11". 141019
0101.00 88 WS-FUNCTION-KEY-12 VALUE "12". 141019
0102.00 05 WS-DEVICE-NAME PIC X(10). 141019
0103.00 05 WS-RECORD-FORMAT PIC X(10). 141019
0104.00 * 141019
0105.00 01 WS-CURRENT-DATE-FIELDS. 131210
0106.00 05 WS-CURRENT-DATE. 131210
0107.00 10 WS-CURRENT-DATE-CC PIC X(02). 140518
0108.00 10 WS-CURRENT-DATE-YY PIC X(02). 140518
0109.00 10 WS-CURRENT-DATE-MM PIC X(02). 140518
0110.00 10 WS-CURRENT-DATE-DD PIC X(02). 140518
0111.00 05 FILLER REDEFINES WS-CURRENT-DATE. 131210
0112.00 10 WS-CURRENT-DATE-CCYY PIC X(04). 140518
0113.00 10 FILLER PIC X(04). 131210
0114.00 05 FILLER REDEFINES WS-CURRENT-DATE. 131210
0115.00 10 FILLER PIC X(02). 131210
0116.00 10 WS-CURRENT-DATE-YYMMDD PIC X(06). 140518
0117.00 05 WS-CURRENT-TIME. 131210
0118.00 10 WS-CURRENT-TIME-HH PIC X(02). 140518
0119.00 10 WS-CURRENT-TIME-MM PIC X(02). 140518
0120.00 10 WS-CURRENT-TIME-SS PIC X(02). 140518
0121.00 10 WS-CURRENT-TIME-TT PIC X(02). 140518
0122.00 05 FILLER PIC X(04). 131210
0123.00 * 131210
0124.00 01 WS-DISPLAY-DATE. 131210
0125.00 05 WS-DISPLAY-DATE-MM PIC X(02). 131210
0126.00 05 FILLER PIC X(01) VALUE "/". 140220
0127.00 05 WS-DISPLAY-DATE-DD PIC X(02). 140219
0128.00 05 FILLER PIC X(01) VALUE "/". 131210
0129.00 05 WS-DISPLAY-DATE-YY PIC X(02). 131210
0130.00 * 131210
0131.00 01 WS-DISPLAY-TIME. 131210
0132.00 05 WS-DISPLAY-TIME-HH PIC X(02). 131210
0133.00 05 FILLER PIC X(01) VALUE ":". 131210
0134.00 05 WS-DISPLAY-TIME-MM PIC X(02). 131210
0135.00 05 FILLER PIC X(01) VALUE ":". 131210
0136.00 05 WS-DISPLAY-TIME-SS PIC X(02). 131210
0137.00 * 131210
0138.00 Procedure Division. 131008
0139.00 000-Mainline. 131008
0140.00 Perform 900-Open-Files. 131008
0141.00 Perform 800-Init-MDM4501R. 131210
0142.00 Perform 902-Write-Display-Record. 141021
0143.00 Perform 903-Read-Display-File. 141021
0144.00 Perform 100-Process-Screen Until WS-FUNCTION-KEY-03. 141030
0145.00 Perform 901-Close-Files. 141030
0146.00 Stop Run. 131210
0147.00 * 131008
0148.00 100-Process-Screen. 140805
0149.00 Move "Error Message" To MDM4501R-ERRORMSG. 141026
0150.00 Move "TEST" To MDM4501R-MAILSTOP Of MDM4501R-O. 141024
0151.00 * 141024
0152.00 Perform 902-Write-Display-Record. 141021
0153.00 Perform 903-Read-Display-File. 141021
0154.00 * 141021
0155.00 800-Init-MDM4501R. 131210
0156.00 Move "BKEITH12" To MDM4501R-CURUSER. 141022
0157.00 * 131210
0158.00 Move "123" To MDM4501R-LOCATION Of MDM4501R-O. 141025
0159.00 * 141024
0160.00 Move Space To MDM4501R-SYSTEMID Of MDM4501R-O 141024
0161.00 MDM4501R-MAILSTOP Of MDM4501R-O 141022
0162.00 MDM4501R-PERSONID Of MDM4501R-O 141022
0163.00 MDM4501R-ERRORMSG. 141026
0164.00 * 131210
0165.00 Move "Test Major Description" To MDM4501R-MAJDESC. 141025
0166.00 * 131213
0167.00 Move Zeros To MDM4501R-COMPANYID 141022
0168.00 MDM4501R-COSTCENTER. 131210
0169.00 * 131210
0170.00 Perform 910-Init-Indicators. 141021
0171.00 * 141021
0172.00 900-Open-Files. 131008
0173.00 Open I-O CARRECSYSP-PF 141010
0174.00 MDM4501D-DSPF. 131212
0175.00 * 131008
0176.00 901-Close-Files. 131008
0177.00 Close CARRECSYSP-PF 141010
0178.00 MDM4501D-DSPF. 131212
0179.00 * 131008
0180.00 902-Write-Display-Record. 140809
0181.00 Perform 999-Get-Current-Date. 141021
0182.00 Move WS-DISPLAY-DATE To MDM4501R-CURDATE. 141022
0183.00 Move WS-DISPLAY-TIME To MDM4501R-CURTIME. 141022
0184.00 * 141021
0185.00 Write MDM4501D-DSPF-RECORD 141025
0186.00 From WS-MDM4501D-OUT 141029
0187.00 Format "MDM4501R" 141013
0188.00 Indicators Are WS-INDICATOR-AREA 141024
0189.00 End-Write. 141024
0190.00 * 140809
0191.00 903-Read-Display-File. 140809
0192.00 Read MDM4501D-DSPF Record 141029
0193.00 Into WS-MDM4501D-IN 141029
0194.00 Format "MDM4501R" 141029
0195.00 Indicators Are WS-INDICATOR-AREA 141024
0196.00 At End 141024
0197.00 Set WS-DISPLAY-FILE-AT-END To True 141024
0198.00 Not At End 141025
0199.00 Set WS-DISPLAY-FILE-NOT-AT-END To True 141026
0200.00 End-Read. 141024
0201.00 * 140809
0202.00 910-Init-Indicators. 141021
0203.00 Set WS-IND-01-OFF 141021
0204.00 WS-IND-02-OFF 141021
0205.00 WS-IND-03-OFF 141021
0206.00 WS-IND-04-OFF 141021
0207.00 WS-IND-05-OFF 141021
0208.00 WS-IND-06-OFF 141021
0209.00 WS-IND-07-OFF 141021
0210.00 WS-IND-08-OFF 141021
0211.00 WS-IND-09-OFF 141021
0212.00 WS-IND-10-OFF 141021
0213.00 WS-IND-11-OFF 141021
0214.00 WS-IND-12-OFF To True. 141022
0215.00 * 141021
0216.00 999-Get-Current-Date. 131210
0217.00 Move Function CURRENT-DATE To WS-CURRENT-DATE-FIELDS. 141022
0218.00 * 131210
0219.00 Move WS-CURRENT-DATE-MM To WS-DISPLAY-DATE-MM. 141022
0220.00 Move WS-CURRENT-DATE-DD To WS-DISPLAY-DATE-DD. 141022
0221.00 Move WS-CURRENT-DATE-YY To WS-DISPLAY-DATE-YY. 141022
0222.00 * 131210
0223.00 Move WS-CURRENT-TIME-HH To WS-DISPLAY-TIME-HH. 141022
0224.00 Move WS-CURRENT-TIME-MM To WS-DISPLAY-TIME-MM. 141022
0225.00 Move WS-CURRENT-TIME-SS To WS-DISPLAY-TIME-SS. 141022
0226.00 * 131210
Comment
-
Re: Display not refreshing
From the code I do not need where exactly you are reading the file. It looks like you are just refreshing the date and time alone. Unless this is not the whole code.
0140.00 Perform 900-Open-Files.
0141.00 Perform 800-Init-MDM4501R.
0142.00 Perform 902-Write-Display-Record.
0143.00 Perform 903-Read-Display-File.
0144.00 Perform 100-Process-Screen Until WS-FUNCTION-KEY-03.
0145.00 Perform 901-Close-Files.
0146.00 Stop Run.
100-Process-Screen only does the display of the screen. I do not see any logic to read from a file.
Comment
Comment