Figure 3: Business logic routine that loads a customer

     D InCust          ds                  likerec(RCUST:*INPUT)

       .

       .

     P Cust_load       B                   export

     D Cust_load       PI             1N

     D   Cust                              like(Cust_CustNo_t) const

     D err             s             10i 0

      /free


      

         cust_init();
A
         



         chain(n) Cust RCUST InCust;



         if not %found;


         

            SetError(CUST_ENOTFND: 'Customer Not Found');
B
            

            return *OFF;

         endif;



         return *ON;

      /end-free

     P                 E