*DECK NAME                         26MAY81
    PROC NAME(NAM); 
      BEGIN 
  
      ITEM NAM C(10);              # INPUT PARAMETER #
  
      $BEGIN                       # DEBUG CODE # 
  
      XREF
        BEGIN 
        PROC MESSAGE; 
        END 
  
      ARRAY NAMSG S(2); 
        BEGIN 
        ITEM NAMSG1 C(00,00,10);
        ITEM NAMSG2 U(01,00,60) = [0];
        END 
  
  
      NAMSG1[0] = NAM;             # PUT NAME IN DEBUG MESSAGE #
      MESSAGE (NAMSG,3);           # SEND DEBUG MESSAGE TO DAYFILE #
      $END                         # END DEBUG CODE # 
      END  # NAME # 
    TERM
