sqlparser/cobol.cpp
// WORKING-STORAGE SECTION. of DATA DIVISION - program static data
WORKING-STORAGE SECTION. of DATA DIVISION - program static data
WORKING - STORAGE SECTION . of DATA DIVISION - program static data
bool Cobol::ParseDataWorkingStorageSection(Token *working_storage)
{
	if(working_storage == NULL)
		return false;
	Token *section = TOKEN_GETNEXTW("SECTION");
	Token *dot = TOKEN_GETNEXT('.'); 
	if(_target_app != APP_COBOL)
		Token::Remove(working_storage, Nvl(dot, section));
	ParseDataSection();
	return true;
}
bool Cobol :: ParseDataWorkingStorageSection ( Token * working_storage ) { if ( working_storage == NULL ) return false ; Token * section = TOKEN_GETNEXTW ( " " ) ; Token * dot = TOKEN_GETNEXT ( ' ' ) ; if ( _target_app != APP_COBOL ) Token :: Remove ( working_storage , Nvl ( dot , section ) ) ; ParseDataSection ( ) ; return true ; }
WORKING-STORAGE SECTION.
WORKING - STORAGE SECTION .