Debugging info added

git-svn-id: svn://10.65.10.50/trunk@112 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1994-09-01 09:03:21 +00:00
parent b504527c96
commit e2ff4ac1fe

View File

@ -232,7 +232,8 @@ bool CG4300_App::look_pla(const char* a, bool create)
bool CG4300_App::look_reg(const char* reg)
{
_reg_r->zero();
_reg_r->put("CODTAB",format("%4s%-3s",(const char*)_year, reg));
TString s(12); s << _year; s << format("%-3s",reg);
_reg_r->put("CODTAB",(const char*)s);
_reg->read();
return _reg->good();
}