COBOL program not refreshing screen

15 pts.
Tags:
COBOL/400
Initial write to display file works perfect. However, all subsequent writes are not refreshing the screen. I've coded just like the book says, but it still is not working. Any ideas?
0

Answer Wiki

Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

Discuss This Question: 3  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.
  • bvining
    Can you provide some of your code (*DSPF and *PGM)?
    7,070 pointsBadges:
    report
  • baja1988
    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 
    
    				
    15 pointsBadges:
    report
  • pdraebel
    The cause is probably the setting of the Display file. Verify that the DSPF object has the RSTDSP(*YES) setting. You can change this parameter on the DSPF object without recompiling.
    7,545 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

Thanks! We'll email you when relevant content is added and updated.

Following

Share this item with your network: