/* RPG400.LXL - IBM LPEX language-sensitive editor profile for OPM RPG/400. */
TRACE OFF

/* default AS/400 profile */
'MACRO DFT400.LXL'

/* OPM RPG document */
'SET DOCTYPE RPG'

/* initial fonts settings */
'SET FONT.A BLACK/WHITE              "Page"'
'SET FONT.B GREY/WHITE               "Line"'
'SET FONT.C RED/WHITE                "Spec"'
'SET FONT.D BLUE/WHITE               "Indicator"'
'SET FONT.E BRIGHT PINK/WHITE        "Indicator2"'
'SET FONT.F BRIGHT RED/WHITE         "Keyword"'
'SET FONT.G RED/WHITE                "Keyword2"'
'SET FONT.H BLACK/WHITE              "User Symbol"'
'SET FONT.I GRAY/WHITE               "User Symbol2"'
'SET FONT.J BRIGHT BLUE/WHITE        "Numeric"'
'SET FONT.K GREEN/WHITE              "Numeric2"'
'SET FONT.L BRIGHT RED/WHITE         "Operation"'
'SET FONT.M CYAN/WHITE               "Comment"'
'SET FONT.N CYAN/WHITE               "Optional Comment"'
'SET FONT.O CYAN/WHITE               "Program Name"'
'SET FONT.P BLUE/WHITE               "Macro Keyword"'
'SET FONT.Q BLACK/WHITE              "Macro Statement"'
'SET FONT.X BLACK/WHITE              "SQL Statement"'
'SET FONT.R GREEN/WHITE              "Data"'
'SET FONT.S PINK/WHITE               "Reserved"'
'SET FONT.T RED/WHITE                "Error"'
'SET FONT._  BLACK/WHITE             "Layout Space"'

/* set up full & incremental parse */
'SET FULLPARSE SUBMIT READ STOP "Parsing file" EVFERPG ALL'
'SET PARSER EVFERPG'

/* update action bar */
'SET ACTIONBAR.~Help.~RPG/400_help 6 EVFERPG L'
'SET HELP. 16137'

'SET ACTIONBAR.~Edit.SEPARATOR 6 ;'
'SET ACTIONBAR.~Edit.Pro~mpt\tF4 7 EVFERPG PROMPT'
'SET GROUP. WRITEABLE'
'SET HELP. 16036'
'SET ACTIONBAR.~Edit.~Insert_prompt\tShift+F4 8 EVFERPG IPROMPT'
'SET GROUP. WRITEABLE'
'SET HELP. 16037'
'SET ACTION.F4 EVFERPG PROMPT'
'SET ACTION.S-F4 EVFERPG IPROMPT'

'SET ACTIONBAR.~Actions.SEPARATOR 1 ;'
'SET ACTIONBAR.~Actions.~Syntax_check_selection 2 SUBMIT READ STOP "Syntax check selection" EVFERPG S'
'SET HELP. 16081'
'SET ACTIONBAR.~Actions.Syntax_check_~file 3 SUBMIT READ STOP "Syntax check file" EVFERPG F'
'SET HELP. 16082'
'SET ACTIONBAR.~Actions.~Verify_program. 4'
'SET HELP. 16083'
'SET ACTIONBAR.~Actions.~Verify_program.~Prompt... EVFRCOC RPGOD ',
'SUBMIT READ STOP "Verifying" EVFRCOC RPGPV'
'SET HELP. 16083'
'SET ACTIONBAR.~Actions.~Verify_program.~No_prompt\tCtrl+V ',
'SUBMIT READ STOP "Verifying" EVFRCOC RPGPV'
'SET HELP. 16083'
'SET ACTIONBAR.~Actions.SEPARATOR 5'
'SET ACTIONBAR.~Actions.C~ompile. 6'
'SET HELP. 16084'
'SET ACTIONBAR.~Actions.C~ompile.~Prompt... SAVEALL PROMPT START EVFLCLES "%FILENAME%"'
'SET HELP. 16084'
'SET ACTIONBAR.~Actions.C~ompile.~No_prompt\tCtrl+C SAVEALL PROMPT START EVFLCLES "%FILENAME%" /P N'
'SET GROUP. REMOTE'
'SET HELP. 16084'
'SET ACTIONBAR.~Actions.~Debug. 7'
'SET HELP. 16086'
'SET ACTIONBAR.~Actions.~Debug.~Prompt... START CODEDT /EQACCMDLE /P "%FILENAME%"'
'SET HELP. 16086'
'SET ACTIONBAR.~Actions.~Debug.~No_prompt\tCtrl+D START CODEDT /EQACCMDLE /N /P "%FILENAME%"'
'SET GROUP. REMOTE'
'SET HELP. 16086'
'SET ACTION.C-V SUBMIT READ STOP "Verifying" EVFRCOC RPGPV'
'SET ACTION.C-C SAVEALL PROMPT START EVFLCLES "%FILENAME%" /P N'
'SET ACTION.C-D START CODEDT /EQACCMDLE /N /P "%FILENAME%"'

'SET ACTIONBAR.~Options.~Language_editing. 7'
'SET HELP. 16099'
'SET ACTIONBAR.~Options.~Language_editing.~Token_highlighting EVFERPG Z'
'SET HELP. 16100'
'SET ACTIONBAR.~Options.~Language_editing.~Syntax_checking EVFERPG CHECKSYNTAXTOGGLE'
'SET HELP. 16102'
'SET ACTIONBAR.~Options.~Language_editing.~Auto_uppercasing EVFERPG U'
'SET GROUP. WRITEABLE'
'SET HELP. 16103'

'EXTRACT ACTIONBARID.~Options.~Language_editing.~Token_highlighting INTO ID_TH'
'SET GLOBAL.RPG_TOK_MENU_ID' ID_TH
'EXTRACT ACTIONBARID.~Options.~Language_editing.~Syntax_checking INTO ID_SC'
'SET GLOBAL.RPG_SYN_MENU_ID' ID_SC
'EXTRACT ACTIONBARID.~Options.~Language_editing.~Auto_uppercasing INTO ID_UP'
'SET GLOBAL.RPG_UPPER_MENU_ID' ID_UP

'SET GLOBAL.RPG_TOKEN_HILITE 1'
'SET GLOBAL.RPG_AUTO_SYNTAX 1'
'SET GLOBAL.RPG_AUTO_UPPER 1'

/* additional RPG keys, data area tabs, insert off */
'SET ACTION.F1 EVFERPG HELP'
'SET ACTION.TAB EVFERPG TAB'
'SET ACTION.BACKTAB EVFERPG BACKTAB'
'SET TABS 5 EVERY 5'
'SET INSERTING OFF'

/* initialize LS component */
'EVFERPG 1'

/* view options */
'SET ACTIONBAR.~View.SEPARATOR 3'
'SET ACTIONBAR.~View.~Control 4 ;SET INCLUDE CONTROL;SET EXCLUDE'
'SET GROUP. CONTROL'
'SET HELP. 16054'
'SET ACTIONBAR.~View.Comm~ents 5 ;SET INCLUDE COMMENTS;SET EXCLUDE'
'SET GROUP. COMMENTS'
'SET HELP. 16054'
'SET ACTIONBAR.~View.Su~broutines 6 ;SET INCLUDE SUBROUTINE;SET EXCLUDE'
'SET GROUP. SUBROUTINE'
'SET HELP. 16054'
'SET ACTIONBAR.~View.S~QL_statements 7 ;SET INCLUDE SQL;SET EXCLUDE'
'SET GROUP. SQL'
'SET HELP. 16054'
'SET ACTIONBAR.~View.SEPARATOR 8'
'SET ACTIONBAR.~View.Select_f~ormat_line... 9 EVFERPG O'
'SET HELP. 16062'
'SET ACTIONBAR.~View.~Refresh_format_line\tCtrl+R 10 EVFERPG Q'
'SET HELP. 16063'
'SET ACTIONBAR.~View.SEPARATOR 11'
'SET ACTION.C-R EVFERPG Q'

/* RPG specific prefix commands */
'SET ACTIONPREFIX.F ;SET PREFIXENTRY;EVFERPG Q'
'SET ACTIONPREFIX.F? ;SET PREFIXENTRY;EVFERPG O'
'SET ACTIONPREFIX.P ;SET PREFIXENTRY;EVFERPG PROMPT'
'SET ACTIONPREFIX.IP ;SET PREFIXENTRY;EVFERPG IPROMPT'

/* extra tools */
'MACRO NAVIG.LX'
'MACRO INDENT.LX'

/* trigger full parse */
'TRIGGER FULLPARSE'
