*
      *PARMS CRTRPGMOD
      *PARMS DBGVIEW(*SOURCE)
      *
     H NoMain
     H Indent('| ') Option(*Nodebugio:*Noxref:*Srcstmt)
      *
     D G_PgmName       s             20
      *
      *=====================================================================
     D/COPY QRPGSRC,TRC010M00
     D/COPY QRPGSRC,TRC012M00
      *=====================================================================
     P SetPgmName      B                   Export
     D SetPgmName      pi
     D  I_PgmName                          const like(G_PgmName)
      *
     C                   Eval      G_PgmName = I_PgmName
      *
     P                 E
      *=====================================================================
     P SelectedForDebug...
     P                 B                   Export
     D SelectedForDebug...
     D                 pi              n
     D  I_PgmName                          const like(G_PgmName)
      *
     C                   return    G_PgmName = I_PgmName
      *
     P                 E
      *=====================================================================