Page History

     GROUP_BY   NAME(#CUSTOMER)

...

 FIELDS(#CUSTNO #NAME #ADDL1 
                #ADDL2 #ADDL3)
     BEGIN_LOOP
     REQUEST    FIELDS(#CUSTOMER)

...

 EXIT_KEY(*

...

YES *EXIT)

...

 
                MENU_KEY(*

...

YES *MENU)
     INSERT     FIELDS(#CUSTOMER)

...

 TO_FILE(CUSMST)

...

 
                VAL_ERROR(*LASTDIS)
     END_LOOP
     Function MAINT - To Display / Maintain CUSMST Records
     GROUP_BY   NAME(#CUSTOMER)

...

 FIELDS((

...

#CUSTNO *NOCHG)

...

 #NAME 
                #ADDL1 #ADDL2 #ADDL3)
     BEGIN_LOOP
     SET_MODE   TO(*DISPLAY)
     REQUEST    FIELD(#CUSTNO)

...

 ADD_KEY(*YES)
 
     IF_MODE    IS(*ADD)
     TRANSFER   TOFUNCTION(ADD)

...

 EXCHANGE(#CUSTNO)
     ENDIF
 
     FETCH      FIELDS(#CUSTOMER)

...

 FROM_FILE(CUSMST)

...

 
                WITH_KEY(#CUSTNO)
           IF_STATUS  IS(*OKAY)

...

              DISPLAY FIELDS(#CUSTOMER)

...

 CHANGE_KEY(*YES)

...

 
                      DELETE_KEY(*YES)
              IF_

...

MODE IS(*CHANGE)
              UPDATE  FIELDS(#CUSTOMER)

...

 IN_FILE(CUSMST)

...

 
                       VAL_ERROR(*LASTDIS)
              ENDIF
              IF_

...

MODE IS(*DELETE)
              DELETE  FROM_FILE(CUSMST)

...

 VAL_ERROR(*LASTDIS)
              ENDIF
           ELSE
           MESSAGE    MSGTXT('

...

No customer exists with this number')
           ENDIF
     END_LOOP