*
      *=====================================================================
      *
     D SetPgmName      pr
     D  I_PgmName                    20    const
      *
     D SelectedForDebug...
     D                 pr              n
     D  I_PgmName                    20    const
      *
      *=====================================================================