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