Figure 9: Controller logic to bind it together

     D success         s              1N

     D add             s              1N

     D exit            s              1N



      /free



         dou success;



            CustView_AskCust( CustNo: Add: Exit);

            if (Exit);

               return *OFF;

            endif;



            if (Add);

               success = Cust_New(CustNo);

            else;

               success = Cust_Load(CustNo);

            endif;



            if (not success);

               CustView_ErrMsg( Cust_Error() );

            endif;



         enddo;