Выдает код ошибки: Error C2065 str_l: необъявленный идентификатор

/**********************************************************************
* l_calibr_cm.cpp                                                                                                     *
**********************************************************************/
 
#include "stdafx.h"
#include "Liana.h"
#include "meas.h"
#include "L_WorkStream.h"
 
#include "..\..\Include\LRES\Liana.h"
#include "..\..\Include\LRES\ListObrDlg.h"
#include "..\..\Include\LRES\ListIzlDlg.h"
#include "..\..\Include\LRES\ListElDlg.h"
#include "..\..\Include\LRES\ContrPltDlg.h"
#include "..\..\Include\LRES\ContrComDlg.h"
 
#include "ucd.h"
#include "lres.h"
#include "pramsys.h"
 
int l_contr_cm_comm   (ROOT* root); // Контроль по командам
 
/**********************************************************************
* Контроль по командам                                                *
**********************************************************************/
int l_contr_cm_comm(ROOT* root)
 {
  int l_contr(ROOT* root, char* value, nm* text, CContrComDlg* pContrDlg);
  
  nm text (NULL, "cmlist", NULL, 1l, 0l, 500l);
  
  int key, kz, N;
  
  CString Str;
  
  CContrComDlg ContrDlg(63, root -> IntType? TRUE:FALSE);
  
  kz = text.Gm();
  
  if (kz)
   goto END;
  
  text.k = 1;
  kz     = l_str_new(root, 0, "КОНТРОЛЬ КОМАНД:");
  
  if (kz)
   goto END;
  
  while (1)
   {
    if ((key = ContrDlg.DoModal()) == IDOK)
     {
      N = atoi((char*)(LPCTSTR) ContrDlg.m_num_loop);
      
      if (N < 0)
       N = 1;
      
      for (int i = 0; i < N; i++)
       {
        Str = (char*)(LPCTSTR)ContrDlg.m_value;
        kz  = l_contr(root, (char*)(LPCTSTR)Str, &text, &ContrDlg);
        
        if (kz)
         goto END;
       } // exit for (int i = 0; ...
     } // exit if ((key = ContrDlg.DoModal()) == IDOK)
    else
     if (key == IDCANCEL)
      break;
   } // exit while (1)
  
 END:
  
  return kz;
 } // exit int l_contr_cm_comm

/********************************************************************
* L_WorkStream.h                                                    *
********************************************************************/
// Работа с выходным потоком
#define S_OPEN  0 // открыть выходной поток
#define S_CLOSE 1 // закрыть выходной поток
#define S_NEW   2 // писать с новой строки
#define S_OLD   3 // писать в строку
#define S_SKEEP 4 // пропустить строку
#define S_SAVE  5 // сохранить выходной поток в ВАД
 
#define l_strem_open (root, str_l)      l_strem(S_OPEN,  root, str_l, 0)
#define l_strem_close(root)             l_strem(S_CLOSE, root, 0,     0)
#define l_str_skeep  (root)             l_strem(S_SKEEP, root, 0,     0)
#define l_strem_save (root)             l_strem(S_SAVE,  root, 0,     0)
#define l_str_new    (root, str_l, str) l_strem(S_NEW,   root, str_l, str)
#define l_str_old    (root, str_l, str) l_strem(S_OLD,   root, str_l, str)

#define l_strem_open(root, str_l)   l_strem(S_OPEN, root, str_l, 0)
#define l_strem_close(root)         l_strem(S_CLOSE, root, 0, 0)
#define l_str_skeep(root)           l_strem(S_SKEEP, root, 0, 0)
#define l_strem_save(root)          l_strem(S_SAVE, root, 0, 0)
#define l_str_new(root, str_l, str) l_strem(S_NEW, root, str_l, str)
#define l_str_old(root, str_l, str) l_strem(S_OLD, root, str_l, str)