bool parserCls::block(EinstructionWord &ews12 , int & ii18 )
{EinstructionWord est;bool etlnoc , bb1 = true ;int ii12 = 0 ;
for(;;){
statement(etlnoc , est) ;// return can addLine ;
if(etlnoc == false ) bb1 = false ;
if(errorReportCls::unrecoverAbleError)
{out1<<"unrecover able error occurred "<<"\n";bb1=false;break;}
if((est==EndOfFileInstr)||(est==LabelInstr)||(est==NoInstr)) break;
if(++ii12 >=MAX_LINE_IN_PROCEDURE )
{bb1 = false ;est = EndOfFileInstr;blockError(0) ;break;}
}
if(bb1)
if(!ii12) blockError(1);
else if(est==LabelInstr)
bb1=getLabel();
ews12 = est ; ii18 = ii12+2 ;addEndLineToProc();
return bb1 ;
}
inline void blockSyntaxError(RexxInstruction *i) { blockError(i); }
