**********************************************************************
      * To Compile:
      *
      *  CRTBNDRPG PGM(YOUR_LIB/Test_Cust) SRCFILE(YOUR_LIB/QRPGLESRC)
      *
      **********************************************************************
     H DftActGrp(*NO) ActGrp(*CALLER) BndDir('MYBNDDIR')

      /copy *LibL/QRpgLeSrc,CstDataPR
      /copy *LibL/QRpgLeSrc,CstOpsPR

     D custID          s              8A
     D found           s               N
     D error           s               N
     D delete          s              1A
     D FullName        s             32A

     C     *Entry        Plist
     C                   Parm                    custID
     C                   Parm                    delete

     C                   Eval      found = checkCust(custID)
     C     found         Dsply

     C                   If        found and (delete = 'Y')
     C                   Eval      error = deleteCust(custID)
     C     error         Dsply

     C                   ElseIf    found

     C                   Eval      FullName = formatName('Kevin         ':
     C                                                   'Vandever      ')
     C     FullName      Dsply
     C                   EndIf

     C                   Eval      *InLr = *on