home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv7.zip / VACPP / IBMCPP / macros / JCL.LXL < prev    next >
Text File  |  1995-05-11  |  3KB  |  76 lines
  1. /* JCL.LXL - IBM LPEX language-sensitive editor profile for JCL. */
  2. TRACE OFF
  3.  
  4. /* JCL document */
  5. 'SET DOCTYPE JCL'
  6.  
  7. /* set up full & incremental parse */
  8. 'SET FULLPARSE EVFEJCL ALL'
  9. 'SET PARSER    EVFEJCL PARSE'
  10.  
  11. /* initial fonts settings */
  12. 'SET FONT.!  BLACK/WHITE                  "Default style"'
  13. 'SET FONT._  BLACK/WHITE                  "Blank or unparsed characters"'
  14. 'SET FONT./  BRIGHT GREY/WHITE            "JCL statement prefix"'
  15. 'SET FONT.C  CYAN/WHITE                   "Comment"'
  16. 'SET FONT.Z  BLACK/WHITE                  "Sequence numbers"'
  17. 'SET FONT.J  BLACK/WHITE                  "Job name"'
  18. 'SET FONT.S  BLACK/WHITE                  "Step name"'
  19. 'SET FONT.R  BLACK/WHITE                  "Proc name"'
  20. 'SET FONT.P  BLACK/WHITE                  "Proc step name"'
  21. 'SET FONT.D  BLACK/WHITE                  "DD name"'
  22. 'SET FONT.O  RED/WHITE                    "Operation field"'
  23. 'SET FONT.K  BRIGHT BLUE/WHITE            "Keyword"'
  24. 'SET FONT.B  BRIGHT BLUE/WHITE            "Subkeyword"'
  25. 'SET FONT.Y  BRIGHT BLUE/WHITE            "Keyword - symbolic"'
  26. 'SET FONT.X  BLACK/WHITE                  "Symbolic value"'
  27. 'SET FONT.V  BLACK/WHITE                  "Parameter value"'
  28. 'SET FONT.I  BLACK/WHITE                  "In-stream data"'
  29. 'SET FONT.M  RED/WHITE                    "Command statement"'
  30. 'SET FONT.L  PINK/WHITE                   "Control statement"'
  31. 'SET FONT.Q  BLACK/WHITE                  "Quoted string"'
  32. 'SET FONT.*  BLACK/WHITE                  "Delimiter"'
  33. 'SET FONT.(  BLACK/WHITE                  "First level parenthesis"'
  34. 'SET FONT.)  BLACK/WHITE                  "Second level parenthesis"'
  35. 'SET FONT.,  BLACK/WHITE                  "Comma"'
  36. 'SET FONT.=  BLACK/WHITE                  "Equal sign"'
  37. 'SET FONT..  BLACK/WHITE                  "Period"'
  38. 'SET FONT.E  REVERSE BRIGHT RED/WHITE     "Error"'
  39. 'SET BASEFONT !'                          /* default style */
  40.  
  41. /* update action bar */
  42. 'SET ACTIONBAR.~Options.~Language_editing. 4'
  43. 'SET HELP. 16099'
  44. 'SET ACTIONBAR.~Options.~Language_editing.~Token_highlighting EVFEJCL TOKOPT'
  45. 'SET HELP. 16100'
  46. 'EXTRACT ACTIONBARID.~Options.~Language_editing.~Token_highlighting INTO MENUID'
  47.  
  48. 'SET GLOBAL.JCL_TOKEN_HILITE 1'
  49.  
  50. /* initialize LS component: EVFEJCL INIT menuid [JES2 | JES3] [ESA | XA] */
  51. 'EVFEJCL INIT' MENUID 'JES3 ESA'
  52.  
  53. /* view options */
  54. 'SET ACTIONBAR.~View.SEPARATOR 2 ;'
  55. 'SET ACTIONBAR.~View.~JOB_statements 3 ;SET INCLUDE JOB;SET EXCLUDE'
  56. 'SET GROUP. JOB'
  57. 'SET HELP. 16059'
  58. 'SET ACTIONBAR.~View.E~XEC_statements 4 ;SET INCLUDE EXEC;SET EXCLUDE'
  59. 'SET GROUP. EXEC'
  60. 'SET HELP. 16059'
  61. 'SET ACTIONBAR.~View.DD_stat~ements 5 ;SET INCLUDE DD;SET EXCLUDE'
  62. 'SET GROUP. DD'
  63. 'SET HELP. 16059'
  64. 'SET ACTIONBAR.~View.~PROC_statements 6 ;SET INCLUDE PROC;SET EXCLUDE'
  65. 'SET GROUP. PROC'
  66. 'SET HELP. 16059'
  67. 'SET ACTIONBAR.~View.E~rrors 7 ;SET INCLUDE ERROR;SET EXCLUDE'
  68. 'SET GROUP. ERROR'
  69. 'SET HELP. 16059'
  70.  
  71. /* set tabs, insert off, do a full parse */
  72. 'SET TABS 3 11 16 20 30 40 50 60 72 EVERY 3'
  73. 'SET INSERTING OFF'
  74.  
  75. 'TRIGGER FULLPARSE'
  76.