sqlparser/cobol.cpp
// FILE-CONTROL. section of INPUT-OUTPUT section
FILE-CONTROL. section of INPUT-OUTPUT section
FILE - CONTROL . section of INPUT - OUTPUT section
bool Cobol::ParseEnvironmentInputOutputSectionFileControl(Token *filecontrol)
{
	if(filecontrol == NULL)
		return false;
	Token *dot = TOKEN_GETNEXT('.'); 
	if(_target_app != APP_COBOL)
		Token::Remove(filecontrol, dot);
	return true;
}
bool Cobol :: ParseEnvironmentInputOutputSectionFileControl ( Token * filecontrol ) { if ( filecontrol == NULL ) return false ; Token * dot = TOKEN_GETNEXT ( ' ' ) ; if ( _target_app != APP_COBOL ) Token :: Remove ( filecontrol , dot ) ; return true ; }
FILE-CONTROL.
FILE - CONTROL .