sqlparser/cobol.cpp
// FILE SECTION. of DATA DIVISION
FILE SECTION. of DATA DIVISION
FILE SECTION . of DATA DIVISION
bool Cobol::ParseDataFileSection(Token *file)
{
	if(file == NULL)
		return false;
	Token *section = TOKEN_GETNEXTW("SECTION");
	Token *dot = TOKEN_GETNEXT('.'); 
	if(_target_app != APP_COBOL)
		Token::Remove(file, Nvl(dot, section));
	return true;
}
bool Cobol :: ParseDataFileSection ( Token * file ) { if ( file == NULL ) return false ; Token * section = TOKEN_GETNEXTW ( " " ) ; Token * dot = TOKEN_GETNEXT ( ' ' ) ; if ( _target_app != APP_COBOL ) Token :: Remove ( file , Nvl ( dot , section ) ) ; return true ; }
FILE SECTION.
FILE SECTION .