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