home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
viscobv7.zip
/
vac22os2
/
ibmcobol
/
macros
/
cbl.lxl
< prev
next >
Wrap
Text File
|
1998-02-24
|
7KB
|
201 lines
/***************************************************************************/
/* CBL.LXL - LANGUAGE SENSITIVE EDITOR PROFILE FOR COBOL/370 */
/***************************************************************************/
TRACE OFF
/* this is a COBOL file */
'SET DOCTYPE cbl'
'SET PROFILE cbl'
/* Cobol classes - DO NOT MODIFY!! */
'SET CLASSES CODE FWDLINK BWDLINK SKIPLINK BLANK ERROR COMMENT ',
'DIRECTIVE DIVISION SECTION AREAA AREAB PREPROCESSOR'
'SET RULERTEXT ----+-*A-1-B--+----2----+----3----+----4----+----5' ||,
'----+----6----+----7--|-+----8'
'SET RULER ON'
/* MENU ITEMS CREATION */
MENU.1 = "LP_OPTIONS.Automatic_~indenting..."
MENU.2 = "LP_OPTIONS.~Language_editing."
MENU.3 = "LP_OPTIONS.~Language_editing.~Token_highlighting"
MENU.4 = "LP_OPTIONS.~Language_editing.Automatic_~indenting"
MENU.5 = "LP_OPTIONS.~Language_editing.~Lexical_errors"
MENU.6 = "LP_VIEW." || 'SEPARATOR'
MENU.7 = "LP_VIEW.~Comments"
MENU.8 = "LP_VIEW.Di~visions"
MENU.9 = "LP_VIEW.Data_Divisio~n"
MENU.10 = "LP_VIEW.~Outline"
MENU.11 = "LP_VIEW.S~QL_and_CICS"
MENU.12 = "LP_HELP.COBO~L_help"
MENUITEMS = 12
MENUCMD.1 = '2 CBLPAR AIDLG'
MENUCMD.2 = '7'
MENUCMD.3 = 'CBLPAR TOKOPT'
MENUCMD.4 = 'CBLPAR AIOPT'
MENUCMD.5 = 'CBLPAR LEOPT'
MENUCMD.6 = '2'
MENUCMD.7 = '3 ;INCLUDE COMMENT ;SET EXCLUDE'
MENUCMD.8 = '4 ;INCLUDE DIVISION SECTION ;SET EXCLUDE'
MENUCMD.9 = '5 ;MACRO datadiv'
MENUCMD.10 = '6 ;INCLUDE AREAA ;SET EXCLUDE'
MENUCMD.11 = '7 ;INCLUDE PREPROCESSOR ;SET EXCLUDE'
MENUCMD.12 = '6 CBLPAR LANGHELP'
HELPID. = 0
HELPID.1 = 16093
HELPID.2 = 16099
HELPID.3 = 16100
HELPID.4 = 16101
HELPID.5 = 16109
HELPID.7 = 16073
HELPID.8 = 16073
HELPID.9 = 0
HELPID.10 = 16073
HELPID.11 = 16073
HELPID.12 = 16137
GROUPS. = ''
GROUPS.7 = 'COMMENT PARSED'
GROUPS.8 = 'DIVISION SECTION PARSED'
GROUPS.9 = 'PARSED'
GROUPS.10 = 'AREAA PARSED'
GROUPS.11 = 'PREPROCESSOR PARSED'
/********************************************************************/
/* Conditionally add Menu items for data and transaction assistants */
/********************************************************************/
nextitem = 12;
nextpos = 5;
/* Determine if running under VisualAge for COBOL product */
'extract messages into messages';
'extract beeplength into beeplength';
'set messages off';
'set beeplength 0';
'macroload cbv.lxl';
macroload_rc = rc;
was_cbv = macroload_rc;
'set messages' messages;
'set beeplength' beeplength;
if macroload_rc = 0 then
do;
'macrodrop cbv.lxl';
file_name = 'LZIWZADA'
'CHKDLL' file_name
da_rc = rc;
file_name = 'LZIWZATA'
'CHKDLL' file_name
ta_rc = rc;
end;
else
do;
da_rc = 4;
ta_rc = 4;
end;
if da_rc = 0 | ta_rc = 0 then
do;
nextitem = nextitem + 1;
nextpos = nextpos + 1;
MENU.nextitem = "LP_EDIT." || 'SEPARATOR'
MENUCMD.nextitem = nextpos;
nextitem = nextitem + 1;
nextpos = nextpos + 1;
MENU.nextitem = "LP_EDIT.~Insert_Code."
MENUCMD.nextitem = nextpos;
if da_rc = 0 then
do;
nextitem = nextitem + 1;
nextpos = nextpos + 1;
MENU.nextitem = "LP_EDIT.~Insert_Code.~SQL_..."
MENUCMD.nextitem = nextpos 'IWZADA'
'SET TOOLBAR.Insert_SQL BITMAP LZIWZADA_8999 HELP "Insert SQL Logic" IWZADA'
end;
if ta_rc = 0 then
do;
nextitem = nextitem + 1;
nextpos = nextpos + 1;
MENU.nextitem = "LP_EDIT.~Insert_Code.~CICS_ECI_..."
MENUCMD.nextitem = nextpos 'IWZATA'
'SET TOOLBAR.Insert_CICS_ECI BITMAP LZIWZATA_1247 HELP "Insert CICS ECI Logic" IWZATA'
end;
MENUITEMS = nextitem;
end;
DO I = 1 TO MENUITEMS
'SET ACTIONBAR.' || MENU.I MENUCMD.I
IF HELPID.I > 0 THEN
'SET HELP.' HELPID.I
IF GROUPS.I <> '' THEN
'SET GROUP.' GROUPS.I
END
/* GET MENU IDS FOR OPTIONS*/
MENUIDSTR = ' ACTIONBARID.' || MENU.3 'INTO ID3',
' ACTIONBARID.' || MENU.4 'INTO ID4',
' ACTIONBARID.' || MENU.5 'INTO ID5',
' ACTIONBARID.' || MENU.12 'INTO ID12'
'EXTRACT' MENUIDSTR
MENUIDSTR = ID3 ID4 ID5 ID12
DROP MENU. MENUCMD. HELPID. MENUITEMS I /* RELEASE EXCESS MEMORY */
DROP ID3 ID4 ID5 ID12
/* SETUP FULL PARSE COMMAND*/
'SET FULLPARSE CBLPAR ALL'
'SET PARSER CBLPAR PARSE' /* SETUP INCREMENTAL PARSE */
/* AUTOINDENT NEW LINE */
'SET SYNONYM.OPENLINE MULT ;PRIMITIVE ENDLINE;SPLITJOIN SPLIT;PRIMITIVE NEWLINE;CBLPAR AINEW'
'SET SYNONYM.SPLITLINE MULT ;SPLITJOIN SPLIT;PRIMITIVE NEWLINE;CBLPAR AINEW'
'SET SYNONYM.NEWLINE CBLPAR AIEXIST' /* AUTOINDENT EXISTING LINE*/
'SET ACTION.F1 CBLPAR HELP' /* HELP ON TOKEN AT CURSOR */
/* INITIAL FONTS SETTINGS */
'SET FONT.! BLACK/WHITE "Default style"'
'SET FONT._ BLACK/WHITE "Layout spaces"'
'SET FONT.E BRIGHT RED/WHITE "Error token"'
'SET FONT.S BLACK/LIGHT GREY "Sequence number"'
'SET FONT.I CYAN/WHITE "Indicator area"'
'SET FONT.D UNDERLINE BRIGHT BLUE/WHITE "Compiler directive"'
'SET FONT.C CYAN/WHITE "Comment"'
'SET FONT.B BLACK/WHITE "Separator"'
'SET FONT.U BLACK/WHITE "User defined"'
'SET FONT.T CYAN/WHITE "Pseudo-text"'
'SET FONT.N PINK/WHITE "Numeric literal"'
'SET FONT.L PINK/WHITE "Nonnumeric literal"'
'SET FONT.P PINK/WHITE "Picture string"'
'SET FONT.H GREEN/WHITE "Preprocessor string"'
'SET FONT.R BRIGHT BLUE/WHITE "Reserved word"'
'SET FONT.F BRIGHT BLUE/WHITE "Function name"'
'SET TABS 7 8 12 EVERY 4' /* INITIAL TAB SETTINGS */
'CBLPAR INIT' MENUIDSTR /* INITILIAZE LS COMPONENT */
'SET INSERTING OFF' /* REPLACE MODE */
'TRIGGER FULLPARSE' /* INITIAL FULL PARSE */
'LXR NAVIG.LX'
if was_cbv = 0 then /* test if running under COBOL product */
do;
macroload_rc = 4;
'extract classes into classes';
if wordpos('CPYFILE',classes) > 0 then /* needed parser support */
do;
'extract loadedmacros into loadedmacros';
if wordpos('COPYFILE.LX',translate(loadedmacros)) = 0 then
do;
'macroload copyfile.lx';
macroload_rc = rc;
end;
else
macroload_rc = 0;
end;
if macroload_rc = 0 then
'macro copyfile.lx init short nostale base fast';
else
do;
'msg Internal error, copy file expansion facility not available';
'alarm';
end;
end;