home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / seu.lx < prev    next >
Text File  |  1998-02-24  |  5KB  |  91 lines
  1. /*****************************************************************
  2. * seu.lx - SEU/LPEX editor profile.                              *
  3. *                                                                *
  4. * This profile is called whenever the SEU key behavior option is *
  5. * selected.  It sets up any defaults (including key definitions  *
  6. * and mouse actions) required to make your editor session behave *
  7. * like an SEU session.                                           *
  8. *                                                                *
  9. *           (C) Copyright IBM Corporation 1989, 1997             *
  10. *****************************************************************/
  11.  
  12.                                              /* F1 = Help already            */
  13.                                              /* F2 = Not used in SEU         */
  14. 'SET ACCELERATOR.LP_CLOSEVIEW F3'            /* F3 = Exit                    */
  15.                                              /* F4 = Set below               */
  16. 'SET ACTION.F5 ;ALL SET PREFIXENTRY ;MSG  '  /* F5 = Clear msgs, prefix area */
  17.                                              /* F6 = Not used in SEU         */
  18. 'SET ACTION.F7 SCROLL SCREEN UP'             /* F7 = Page Up                 */
  19. 'SET ACTION.F8 SCROLL SCREEN DOWN'           /* F8 = Page Down               */
  20. /* F9 = Retrieve in SEU, but used for Command Log in CODE and LPEX */
  21. /* F10 = Cursor in SEU, but CODE & system go to menubar */
  22.                                              /* F11 = Set below              */
  23. 'SET ACTION.F12 QUITVIEW'                    /* F12 = End Split/Browse       */
  24. 'SET ACTION.S-F1 DIALOG OPTIONS'             /* F13 = Editor Options dialog  */
  25. 'SET ACTION.S-F2 DIALOG FINDCHANGE'          /* F14 = Editor Find/Replace    */
  26. 'SET ACTION.S-F3 DIALOG OPEN'                /* F15 = Editor Open dialog     */
  27. /* When editing RPG, S-F4 used to be Prompted-Insert */
  28. 'SET ACCELERATOR.LP_FINDNEXT S-F4'           /* F16 = Find next              */
  29. 'SET ACTION.C-N LP_FINDNEXT'                 /* Also keep Ctrl+N valid       */
  30. 'SET ACTION.S-F5 DIALOG FINDCHANGE'          /* F17 = Editor Find/Replace    */
  31.                                              /* F18 = DBCS cnv in SEU        */
  32. 'SET ACTION.S-F7 SCROLL SCREEN LEFT'         /* F19 = Page left              */
  33. 'SET ACTION.S-F8 SCROLL SCREEN RIGHT'        /* F20 = Page right             */
  34. /* F21 = CmdLine in SEU, but used for Issue Edit Command in CODE */
  35.                                              /* F22 = Set below              */
  36.                                              /* F23 = Set below              */
  37. 'SET ACTION.S-F12 DIALOG ACTION'             /* F24 = Show key assignments   */
  38. 'SET ACTION.PREFIX.ENTER MACRO penter'
  39.  
  40. /* ------------------------------------------------------------------------- */
  41. /* RPG and CL unique settings (now done in the RPG and CL profiles)...       */
  42. /* ------------------------------------------------------------------------- */
  43. /*
  44. ** F4 = Prompt current line in SEU, when editing RPG or CL **
  45. 'EXTRACT SYNONYM.PROMPTID INTO PID'
  46. if (PID <> "") then do
  47.   parse var PID nbr promptid                 **  Parse out leading number    **
  48.   'SET ACCELERATOR.'promptid 'F4'            **  Set F4 to be accelerator    **
  49.   end
  50. ** F11 = Prompt previous line in SEU, when editing RPG or CL **
  51. 'EXTRACT SYNONYM.PROMPTPREV INTO PROMPTPREV'
  52. if (PROMPTPREV <> "") then do
  53.   parse var PROMPTPREV nbr pmtprev           **  Parse out leading number    **
  54.   'SET ACTION.F11 'pmtprev                   **  Assign action key           **
  55.   end
  56. ** Ctrl+F4 = Insert Prompt for RPG (reassign, since Shift+F4 is find next) **
  57. 'EXTRACT SYNONYM.IPROMPTID INTO IPID'
  58. if (IPID <> "") then do
  59.   parse var IPID nbr ipromptid
  60.   'SET ACCELERATOR.'ipromptid 'C-F4'
  61.   end
  62. ** F22 = Not used in SEU, set to Select Format Line for CODE for RPG **
  63. 'EXTRACT SYNONYM.SELFORMAT INTO SFORMAT'
  64. if (SFORMAT <> "") then do
  65.   parse var SFORMAT nbr selfmt
  66.   'SET ACCELERATOR.'selfmt    'S-F10'
  67.   end
  68. ** F23 = Select Prompt in SEU, when editing RPG **
  69. 'EXTRACT SYNONYM.SELPROMPT INTO SPROMPT'
  70. if (SPROMPT <> "") then do
  71.   parse var SPROMPT nbr selpmt
  72.   'SET ACTION.S-F11 'selpmt
  73.   end
  74. */
  75.  
  76. 'MACRO seuprf'
  77.  
  78. 'EXTRACT VIEWNUM'
  79. 'EXTRACT VIEWLIST'
  80. do while(viewlist \= '')
  81.    'GOVIEW NOACT VIEWNUM 'subword(viewlist,1,1)
  82.    'EXTRACT PREFIXDISPLAYFORMAT'
  83.    if PREFIXDISPLAYFORMAT = '' then
  84.       'SET PREFIXDISPLAYFORMAT 99999'
  85.    'SET PREFIXSHOW NUMBERS ON'
  86.    viewlist = delword(viewlist,1,1)
  87. end
  88. 'GOVIEW NOACT VIEWNUM 'VIEWNUM
  89.  
  90. 'SET GLOBAL.KEYS seu'
  91.