sqlparser/cobol.cpp
// INPUT-OUTPUT section of ENVIRONMENT DIVISION
INPUT-OUTPUT section of ENVIRONMENT DIVISION
INPUT - OUTPUT section of ENVIRONMENT DIVISION
bool Cobol::ParseEnvironmentInputOutputSection(Token *inputoutput)
{
	if(inputoutput == NULL)
		return false;
	Token *section = TOKEN_GETNEXTW("SECTION");
	Token *dot = TOKEN_GETNEXT('.'); 
	if(_target_app != APP_COBOL)
		Token::Remove(inputoutput, Nvl(dot, section));
	while(true)
	{
		Token *next = GetNextToken();
		if(next == NULL)
			break;
		if(TOKEN_CMP(next, "FILE-CONTROL"))
		{
			ParseEnvironmentInputOutputSectionFileControl(next);
			continue;
		}
		PushBack(next);
		break;
	}
	return true;
}
bool Cobol :: ParseEnvironmentInputOutputSection ( Token * inputoutput ) { if ( inputoutput == NULL ) return false ; Token * section = TOKEN_GETNEXTW ( " " ) ; Token * dot = TOKEN_GETNEXT ( ' ' ) ; if ( _target_app != APP_COBOL ) Token :: Remove ( inputoutput , Nvl ( dot , section ) ) ; while ( true ) { Token * next = GetNextToken ( ) ; if ( next == NULL ) break ; if ( TOKEN_CMP ( next , " " ) ) { ParseEnvironmentInputOutputSectionFileControl ( next ) ; continue ; } PushBack ( next ) ; break ; } return true ; }
INPUT-OUTPUT section of ENVIRONMENT DIVISION
INPUT - OUTPUT section of ENVIRONMENT DIVISION
// Parse INPUT-OUTPUT section paragraphs // FILE-CONTROL. // Not a division paragraph