*
      *=====================================================================
      *
     D StartSourceDebug...
     D                 pr
      *
     D EndSourceDebug...
     D                 pr
      *
     D RegisterDebugView...
     D                 pr            10i 0
     D  PgmQlfy                      20a   const
     D  PgmType                      10a   const
     D  MdlName                      10a   const
     D  ViewNumber                   10i 0 const
      *
     D SubmitDebugCommand...
     D                 pr
     D  ViewID                       10i 0 const
     D  CompilerID                   20a   const
     D  InpBfrDta                   128a
      *
     D MapViewPosition...
     D                 pr            10i 0
     D  FmViewID                     10i 0 const
     D  FmLine                       10i 0 const
     D  ToViewID                     10i 0 const
      *
     D Step            pr
     D  ViewID                       10i 0 const
      *
     D GetViewInfo     pr            10i 0
     D  PgmQlfy                      20a   const
     D  PgmType                      10a   const
     D  MdlName                      10a   const
     D  Search                       50a   const
     ***Search                       50a   value varying
      *
     D RetrieveModuleViews...
     D                 pr          1024
     D  PgmQlfy                      20a   const
     D  PgmType                      10a   const
     D  MdlName                      10a   const
      *
     D RetrieveViewText...
     D                 pr          1024
     D  ViewID                       10i 0 const
     D  Startline                    10i 0 const
      *
     D MessageBox...
     D                 pr
     D  MessageTxt                 4096a   const
      *
      *=====================================================================