250-UPDATE.
      * CHECK IF ANY CHANGES HAS BEEN MADE
           IF ( STUCR1AI IS EQUAL TO WS-STU-COURSE-1A AND
                STUCR1BI IS EQUAL TO WS-STU-COURSE-1B AND
                STUCR2AI IS EQUAL TO WS-STU-COURSE-2A AND
                STUCR2BI IS EQUAL TO WS-STU-COURSE-2B AND
                STUCR3AI IS EQUAL TO WS-STU-COURSE-3A AND
                STUCR3BI IS EQUAL TO WS-STU-COURSE-3B AND
                STUCR4AI IS EQUAL TO WS-STU-COURSE-4A AND
                STUCR4BI IS EQUAL TO WS-STU-COURSE-4B AND
                STUCR5AI IS EQUAL TO WS-STU-COURSE-5A AND
                STUCR5BI IS EQUAL TO WS-STU-COURSE-5B AND
                STUNAMEI IS EQUAL TO WS-STU-NAME AND
                STUADD1I IS EQUAL TO WS-STU-ADD1 AND
                STUADD2I IS EQUAL TO WS-STU-ADD2 AND
                STUADD3I IS EQUAL TO WS-STU-ADD3 AND
                STUPHN1I IS EQUAL TO WS-STU-PHONE1 AND
                STUPHN2I IS EQUAL TO WS-STU-PHONE2 AND
                STUPHN3I EQUAL TO WS-STU-PHONE3) THEN
      *         IF NO CHANGES HAS BEEN MADE
                PERFORM 400-PREP-INQUIRY

                MOVE "NOTHING HAS CHANGED, PLEASE ENTER STUDENT NUM"
                     TO MSGO

                EXEC CICS SEND
                     MAP('MAP1')
                     MAPSET('DCJB8MC')
                     ERASE
                END-EXEC

                EXEC CICS RETURN
                     TRANSID('JB83')
                     COMMAREA(WS-SAVE-DATA)
                     LENGTH(WS-SAVE-DATA-LEN)
                END-EXEC
           ELSE
      * IF CHANGES ARE DETECTED, VALIDATE
      * Moving the variables to STUDATA
           MOVE STUNUML to STU-NUMBERL-T
           MOVE STUNUMI TO STU-NUMBERI-T


           MOVE STUCR1AL TO STU-CR1AL-T
           MOVE STUCR1BL TO STU-CR1BL-T
           MOVE STUCR1AI TO STU-CR1AI-T
           MOVE STUCR1BI TO STU-CR1BI-T

           MOVE STUCR2AL TO STU-CR2AL-T
           MOVE STUCR2BL TO STU-CR2BL-T
           MOVE STUCR2AI TO STU-CR2AI-T
           MOVE STUCR2BI TO STU-CR2BI-T

           MOVE STUCR3AL TO STU-CR3AL-T
           MOVE STUCR3BL TO STU-CR3BL-T
           MOVE STUCR3AI TO STU-CR3AI-T
           MOVE STUCR3BI TO STU-CR3BI-T


           MOVE STUCR4AL TO STU-CR4AL-T
           MOVE STUCR4BL TO STU-CR4BL-T
           MOVE STUCR4AI TO STU-CR4AI-T
           MOVE STUCR4BI TO STU-CR4BI-T


           MOVE STUCR5AL TO STU-CR5AL-T
           MOVE STUCR5BL TO STU-CR5BL-T
           MOVE STUCR5AI TO STU-CR5AI-T
           MOVE STUCR5BI TO STU-CR5BI-T

           MOVE STUNAMEL TO STU-NAMEL-T
           MOVE STUNAMEI TO STU-NAMEI-T

           MOVE STUADD1L TO STU-ADD1L-T


           MOVE STUADD2L TO STU-ADD2L-T


           MOVE STUPOS1L TO STU-POST1L-T
           MOVE STUPOS1I TO STU-POST1I-T

           MOVE STUPOS2L TO STU-POST2L-T
           MOVE STUPOS2I TO STU-POST2I-T

           MOVE STUPHN1L TO STU-PHN1L-T
           MOVE STUPHN1I TO STU-PHN1I-T

           MOVE STUPHN2L TO STU-PHN2L-T
           MOVE STUPHN2I TO STU-PHN2I-T

           MOVE STUPHN3L TO STU-PHN3L-T
           MOVE STUPHN3I TO STU-PHN3I-T


           MOVE 00 TO STU-ERRORCODE
      *    MOVE STUDATA-RECORD TO WS-COMMAREA.

           EXEC CICS LINK
                PROGRAM('DCJB8PGE')
                COMMAREA(STUDATA-RECORD)
                LENGTH(STUDATA-LENGTH)
           END-EXEC

      *    If error code is not 0 - error has occured
           If STU-ERRORCODE OF STUDATA-RECORD IS NOT EQUAL TO
           WS-NOERROR-CONST
                MOVE STU-ERRORMSG TO WS-MSG
                EVALUATE STU-ERRORCODE
                    WHEN 1
                        MOVE -1 TO STUNUML
                        GO TO 600-ERROR-RETURN
                    WHEN 2
                        MOVE -1 TO STUCR1AL
                        GO TO 600-ERROR-RETURN
                    WHEN 3
                        MOVE -1 TO STUCR2AL
                        GO TO 600-ERROR-RETURN
                    WHEN 4
                        MOVE -1 TO STUCR3AL
                        GO TO 600-ERROR-RETURN
                    WHEN 5
                        MOVE -1 TO STUCR4AL
                        GO TO 600-ERROR-RETURN
                    WHEN 6
                        MOVE -1 TO STUCR5AL
                        GO TO 600-ERROR-RETURN
                    WHEN 7
                        MOVE -1 TO STUCR1BL
                        GO TO 600-ERROR-RETURN
                    WHEN 8
                        MOVE -1 TO STUCR2BL
                        GO TO 600-ERROR-RETURN
                    WHEN 9
                        MOVE -1 TO STUCR3BL
                        GO TO 600-ERROR-RETURN
                    WHEN 10
                        MOVE -1 TO STUCR4BL
                        GO TO 600-ERROR-RETURN
                    WHEN 11
                        MOVE -1 TO STUCR5BL
                        GO TO 600-ERROR-RETURN
                    WHEN 12
                        MOVE -1 TO STUNAMEL
                        GO TO 600-ERROR-RETURN
                    WHEN 13
                        MOVE -1 TO STUADD1L
                        GO TO 600-ERROR-RETURN
                    WHEN 14
                        MOVE -1 TO STUADD2L
                        GO TO 600-ERROR-RETURN
                    WHEN 15
                        MOVE -1 TO STUPOS1L
                        GO TO 600-ERROR-RETURN
                    WHEN 16
                        MOVE -1 TO STUPOS2L
                        GO TO 600-ERROR-RETURN
                    WHEN 17
                        MOVE -1 TO STUPHN1L
                        GO TO 600-ERROR-RETURN
                    WHEN 18
                        MOVE -1 TO STUPHN2L
                        GO TO 600-ERROR-RETURN
                    WHEN 19
                        MOVE -1 TO STUPHN3L
                        GO TO 600-ERROR-RETURN
           END-IF
      *    If validation is good updates record

                 MOVE STUNUMI TO STU-NUMBER

                 EXEC CICS READ
                      FILE('STUFILE')
                      RIDFLD(STU-KEY)
                      INTO(STUFILE-RECORD)
                      UPDATE
                 END-EXEC

      *          MOVE THE REST OF THE INPUTS
                 MOVE STUNAMEI TO STU-NAME

                 EXEC CICS REWRITE
                      FILE('STUFILE')
                      FROM(STUFILE-RECORD)
                      LENGTH(STUFILE-LENGTH)
                 END-EXEC

                PERFORM 400-PREP-INQUIRY
                MOVE "CHANGES HAVE BEEN MADE, PLEASE ENTER STU NUM"
                     TO MSGO

                EXEC CICS SEND
                     MAP('MAP1')
                     MAPSET('DCJB8MC')
                     ERASE
                END-EXEC

                EXEC CICS RETURN
                     TRANSID('JB83')
                     COMMAREA(WS-SAVE-DATA)
                     LENGTH(WS-SAVE-DATA-LEN)
                END-EXEC
           END-IF.