IBM-i-RPG-Free-CLP-Code/Copy_Mbrs/SRV_SQL_P.RPGLE

       //============================================================
        Dcl-PR SQLProblem ; // Report SQL Problem
          pDebugMsg      varchar(200) const;
        End-PR;