**********************************************************************
      * To Compile:
      *
      *  1. CRTRPGMOD MODULE(XXX/CSTOPS) SRCFILE(xxx/QRPGLESRC)
      *  2. CRTSRVPGM SRVPGM(XXX/CSTOPS) EXPORT(*ALL)
      *
      **********************************************************************
     H NoMain

     FCustomer  UF   E           K Disk

      /copy *LibL/QRpgLeSrc,CstOpsPR

      **********************************************************************
      * Check customer subprocedure
      **********************************************************************

     P checkCust       B                   Export
     D checkCust       PI              N
     D   custID                       8A   Const

      /free

           SetLL custID Customer;
           Return %Equal;

      /end-free
     P checkCust       E

      **********************************************************************
      * Delete customer subprocedure
      **********************************************************************

     P deleteCust      B                   Export
     D deleteCust      PI              N
     D   custID                       8A   Const

      /free

           Delete custID Customer;
           Return %Error;

      /end-free
     P deleteCust      E