**********************************************************************
      * To Compile:
      *
      *  1. CRTBNDRPG PGM(XXX/CUSTCHECK) SRCFILE(xxx/QRPGLESRC)
      *  
      **********************************************************************
     FCstMst    IF   E           K Disk

     D  custID         s              8A
     D  found          s               n

     C     *Entry        PList
     C                   Parm                    custID
     C                   Parm                    found

     C     custID        SetLL     CstMst
     C                   Eval      found = %equal

     C                   Eval      *InLr = *On