home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv7.zip / VACPP / IBMCPP / macros / CODE / CBLMVS.LXL < prev    next >
Text File  |  1995-05-08  |  5KB  |  137 lines
  1. /***************************************************************************/
  2. /* CBLMVS.LXL -  LANGUAGE SENSITIVE EDITOR PROFILE FOR COBOL/370-MVS       */
  3. /***************************************************************************/
  4. TRACE OFF
  5.  
  6. /* CALL DEFAULT AS/400 PROFILE */
  7. 'LXR DFTMVS.LXL'
  8.  
  9. /* this is a COBOL file */
  10. 'SET DOCTYPE CBL'
  11.  
  12. /* Cobol classes - DO NOT MODIFY!! */
  13. 'SET CLASSES CODE FWDLINK BWDLINK SKIPLINK BLANK ERROR COMMENT ',
  14. 'DIRECTIVE DIVISION SECTION AREAA AREAB PREPROCESSOR'
  15.  
  16. 'SET RULERTEXT ----+-*A-1-B--+----2----+----3----+----4----+----5' ||,
  17.                '----+----6----+----7--|-+----8'
  18. 'SET RULER ON'
  19.  
  20.                                                 /* MENU ITEMS CREATION     */
  21. MENU.1  = "~Options.Automatic_~indenting..."
  22. MENU.2  = "~Options.~Language_editing."
  23. MENU.3  = "~Options.~Language_editing.~Token_highlighting"
  24. MENU.4  = "~Options.~Language_editing.Automatic_~indenting"
  25. MENU.5  = "~Actions." || 'SEPARATOR'
  26. MENU.6  = "~Actions.C~ompile."
  27. MENU.7  = "~Actions.C~ompile.~Prompt..."
  28. MENU.8  = "~Actions.C~ompile.~No_prompt" || '\tCTRL+C'
  29. MENU.9  = "~Actions.~Debug" || '\tCtrl+D'
  30. MENU.10 = "~View." || 'SEPARATOR'
  31. MENU.11 = "~View.~Comments"
  32. MENU.12 = "~View.Di~visions"
  33. MENU.13 = "~View.~Outline"
  34. MENU.14 = "~Help.COBO~L_help"
  35. MENU.15 = "~View.S~QL_and_CICS"
  36. MENU.16 = "~Options.~Language_editing.~Lexical_errors"
  37. MENUITEMS = 16
  38.  
  39. MENUCMD.1  = '2 EVFECBL3 AIDLG'
  40. MENUCMD.2  = '7'
  41. MENUCMD.3  = 'EVFECBL3 TOKOPT'
  42. MENUCMD.4  = 'EVFECBL3 AIOPT'
  43. MENUCMD.5  = '1'
  44. MENUCMD.6  = '2'
  45. MENUCMD.7  = '0 SAVEALL PROMPT START EVFLCLES "%FILENAME%"'
  46. MENUCMD.8  = '1 SAVEALL PROMPT START EVFLCLES "%FILENAME%" /P N'
  47. MENUCMD.9  = '3 START CODEDT'
  48. MENUCMD.10 = '2'
  49. MENUCMD.11 = '3 ;INCLUDE COMMENT ;EXCLUDE'
  50. MENUCMD.12 = '4 ;INCLUDE DIVISION SECTION ;EXCLUDE'
  51. MENUCMD.13 = '5 ;INCLUDE AREAA ;EXCLUDE'
  52. MENUCMD.14 = '6 EVFECBL3 LANGHELP'
  53. MENUCMD.15 = '6 ;INCLUDE PREPROCESSOR ;EXCLUDE'
  54. MENUCMD.16 = 'EVFECBL3 LEOPT'
  55.  
  56. HELPID.   = 0
  57. HELPID.1  = 16093
  58. HELPID.2  = 16099
  59. HELPID.3  = 16100
  60. HELPID.4  = 16101
  61. HELPID.6  = 16084
  62. HELPID.7  = 16084
  63. HELPID.8  = 16084
  64. HELPID.9  = 16086
  65. HELPID.11 = 16073
  66. HELPID.12 = 16073
  67. HELPID.13 = 16073
  68. HELPID.14 = 16137
  69. HELPID.15 = 16073
  70. HELPID.16 = 16108
  71.  
  72. GROUPS. = ''
  73. GROUPS.8  = 'REMOTE'
  74. GROUPS.11 = 'COMMENT'
  75. GROUPS.12 = 'DIVISION SECTION'
  76. GROUPS.13 = 'AREAA'
  77. GROUPS.15 = 'PREPROCESSOR'
  78.  
  79. DO I = 1 TO MENUITEMS
  80.    'SET ACTIONBAR.' || MENU.I MENUCMD.I
  81.    IF HELPID.I > 0 THEN
  82.       'SET HELP.' HELPID.I
  83.    IF GROUPS.I <> '' THEN
  84.       'SET GROUP.' GROUPS.I
  85. END
  86.                                                 /* GET MENU IDS FOR OPTIONS*/
  87. MENUIDSTR = ' ACTIONBARID.' || MENU.3  'INTO ID3',
  88.             ' ACTIONBARID.' || MENU.4  'INTO ID4',
  89.             ' ACTIONBARID.' || MENU.14 'INTO ID14',
  90.             ' ACTIONBARID.' || MENU.16 'INTO ID16'
  91. 'EXTRACT' MENUIDSTR
  92. MENUIDSTR = ID3 ID4 ID16 ID14
  93.  
  94. DROP MENU. MENUCMD. HELPID. MENUITEMS I         /* RELEASE EXCESS MEMORY   */
  95. DROP ID3 ID4 ID14 ID16
  96.  
  97.                                                 /* SETUP FULL PARSE COMMAND*/
  98. 'SET FULLPARSE  SUBMIT READ STOP "Tokenize file" EVFECBL3 ALL'
  99. 'SET PARSER     EVFECBL3 PARSE'                 /* SETUP INCREMENTAL PARSE */
  100.  
  101.                                                 /* AUTOINDENT NEW LINE     */
  102. 'SET SYNONYM.OPENLINE MULT ;PRIMITIVE ENDLINE;SPLITJOIN SPLIT;PRIMITIVE NEWLINE;EVFECBL3 AINEW'
  103.                                                 /* AUTOINDENT EXISTING LINE*/
  104. 'SET SYNONYM.NEWLINE EVFECBL3 AIEXIST'
  105.  
  106. 'SET ACTION.F1 EVFECBL3 HELP'                   /* HELP ON TOKEN AT CURSOR */
  107.  
  108.                                                 /* COMPILE ACCELERATOR KEY */
  109. 'SET ACTION.C-C SAVEALL PROMPT START EVFLCLES "%FILENAME%" /P N'
  110. 'SET ACTION.C-D START CODEDT'
  111.  
  112.                                                 /* INITIAL FONTS SETTINGS  */
  113. 'SET FONT.!  BLACK/WHITE                    "Default style"'
  114. 'SET FONT._  BLACK/WHITE                    "Layout spaces"'
  115. 'SET FONT.E  RED/WHITE                      "Error token"'
  116. 'SET FONT.S  BRIGHT CYAN/WHITE              "Sequence number"'
  117. 'SET FONT.I  BRIGHT GREEN/WHITE             "Indicator area"'
  118. 'SET FONT.D  BRIGHT CYAN/WHITE              "Compiler directive"'
  119. 'SET FONT.C  BRIGHT GREEN/WHITE             "Comment"'
  120. 'SET FONT.B  BLACK/WHITE                    "Separator"'
  121. 'SET FONT.U  BLUE/WHITE                     "User defined"'
  122. 'SET FONT.T  BLUE/WHITE                     "Pseudo-text"'
  123. 'SET FONT.N  BLUE/WHITE                     "Numeric literal"'
  124. 'SET FONT.L  BLUE/WHITE                     "Nonnumeric literal"'
  125. 'SET FONT.P  BLUE/WHITE                     "Picture string"'
  126. 'SET FONT.H  PINK/WHITE                     "Preprocessor string"'
  127. 'SET FONT.R  BLACK/WHITE                    "Reserved word"'
  128. 'SET FONT.F  BLUE/WHITE                     "Function name"'
  129.  
  130. 'SET TABS 7 8 12 EVERY 4'                       /* INITIAL TAB SETTINGS    */
  131.  
  132. 'EVFECBL3 INIT' MENUIDSTR                       /* INITILIAZE LS COMPONENT */
  133. 'SET INSERTING OFF'                             /* REPLACE MODE            */
  134. 'TRIGGER FULLPARSE'                             /* INITIAL FULL PARSE      */
  135.  
  136. 'LXR NAVIG.LX'
  137.