Writing an Add/Change/Delete/Inquiry maintenance program

This is the DDS for the Display Program named CUSTD01

     A                                      REF(CUST)                  
     A                                      CA03(03 'F3=EXIT')         
     A          R SCR1                                                 
     A                                  1  2USER                       
     A                               O  1 28'ADD/UPDATE/DELETE/INQUIRE'
     A                                      DSPATR(HI)                 
     A                                  1 72