home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / jcl.lxl < prev    next >
Text File  |  1998-02-24  |  3KB  |  75 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 JCL ALL'
  9. 'SET PARSER    JCL 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.  
  40. /* update action bar */
  41. 'SET ACTIONBAR.LP_OPTIONS.~Language_editing. 4'
  42. 'SET HELP. 16099'
  43. 'SET ACTIONBAR.LP_OPTIONS.~Language_editing.~Token_highlighting JCL TOKOPT'
  44. 'SET HELP. 16100'
  45. 'EXTRACT ACTIONBARID.LP_OPTIONS.~Language_editing.~Token_highlighting INTO MENUID'
  46.  
  47. 'SET GLOBAL.JCL_TOKEN_HILITE 1'
  48.  
  49. /* initialize LS component: JCL INIT menuid [JES2 | JES3] [ESA | XA] */
  50. 'JCL INIT' MENUID 'JES3 ESA'
  51.  
  52. /* view options */
  53. 'SET ACTIONBAR.LP_VIEW.SEPARATOR 2 ;'
  54. 'SET ACTIONBAR.LP_VIEW.~JOB_statements 3 ;SET INCLUDE JOB;SET EXCLUDE'
  55. 'SET GROUP. JOB PARSED'
  56. 'SET HELP. 16059'
  57. 'SET ACTIONBAR.LP_VIEW.E~XEC_statements 4 ;SET INCLUDE EXEC;SET EXCLUDE'
  58. 'SET GROUP. EXEC PARSED'
  59. 'SET HELP. 16059'
  60. 'SET ACTIONBAR.LP_VIEW.DD_stat~ements 5 ;SET INCLUDE DD;SET EXCLUDE'
  61. 'SET GROUP. DD PARSED'
  62. 'SET HELP. 16059'
  63. 'SET ACTIONBAR.LP_VIEW.PRO~C_statements 6 ;SET INCLUDE PROC;SET EXCLUDE'
  64. 'SET GROUP. PROC PARSED'
  65. 'SET HELP. 16059'
  66. 'SET ACTIONBAR.LP_VIEW.Err~ors 7 ;SET INCLUDE ERROR;SET EXCLUDE'
  67. 'SET GROUP. ERROR PARSED'
  68. 'SET HELP. 16059'
  69.  
  70. /* set tabs, insert off, do a full parse */
  71. 'SET TABS 3 11 16 20 30 40 50 60 72 EVERY 3'
  72. 'SET INSERTING OFF'
  73.  
  74. 'TRIGGER FULLPARSE'
  75.