/* CopyRight 2001 EndUser4gl */ /* Ph Bergougnoux */ "#DEFINE-CHAR-SEPARATE * ++ + -- - / [ ] . ( ) { } & | ; , \" => <= != := : > < = ", // --------------------->indice<--.....", "#DEFINE-FORMAT-TABLE [ ] .", // --------------------->.....", "#DEFINE-FORMAT-RECORD .", // -----------------------><--start--->---<--end----->", "#DEFINE-BLOC-PROGRAM BEGIN_MAIN END_MAIN", "#DEFINE-DECLARE-PROC PROC END_PROCEDURE ", "#DEFINE-DECLARE-FUNCTION FUNC END_FUNCTION ", "#DEFINE-RELATION-BLOC IF END_IF ", "#DEFINE-RELATION-BLOC WHILE END_WHILE ", "#DEFINE-RELATION-BLOC FILESCAN END_SCAN ", "#DEFINE-RELATION-BLOC DO END_DO", "#DEFINE-RELATION-BLOC WHEN END_WHEN", "#DEFINE-RELATION-BLOC BEGIN_DOWHILE DOWHILE ", "#DEFINE-RELATION-BLOC BEGIN_REPORT END_REPORT ", "#DEFINE-RELATION-BLOC BEGIN_DIALOG END_DIALOG", "#DEFINE-RELATION-BLOC BEGIN_SPLASH END_SPLASH ", "#DEFINE-RELATION-BLOC BEGIN_INITIALIZE END_INITIALIZE ", "#DEFINE-RELATION-BLOC BEGIN_TRANSACTION END_TRANSACTION ", "#DEFINE-RELATION-BLOC BEGIN_MESSAGE_DIALOG END_MESSAGE_DIALOG", "#DEFINE-RELATION-BLOC FOREACHROWFIND END_FOREACHROW ", "#DEFINE-RELATION-BLOC FOREACHFILEFIND END_FOREACHFILE ", "#DEFINE-RELATION-BLOC HEADER_REPORT END_HEADER_REPORT ", "#DEFINE-RELATION-BLOC HEADER_LEVEL END_HEADER_LEVEL ", "#DEFINE-RELATION-BLOC BREAK_END_LEVEL END_BREAK_END_LEVEL ", "#DEFINE-RELATION-BLOC DETAIL END_DETAIL ", "#DEFINE-RELATION-BLOC HEADER_END END_HEADER_END ", // ---------------------><--return action>-<--after Return-->", "#DEFINE-RELATION-RETURN RETURN RETURNING ", "#DEFINE-BLOC-IF-ELSE ELSE", //"#DEFINE-RELATION-BLOCTOBLOC WHEN WHEN", //"#DEFINE-RELATION-BLOCTOBLOC WHEN OTHERWISE", "#DEFINE-RELATION-BLOCTOBLOC OTHERWISE END_CASE", "#DEFINE-RELATION-FOR FOR BEGIN_FOR END_FOR", } ;