home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / shl.lxl < prev    next >
Text File  |  1998-02-24  |  1KB  |  36 lines
  1. /* shl.lxl - LPEX Command shell (monitor) window profile. */
  2.  
  3. 'MACRO profile.lx'
  4. 'EXTRACT PROFILES'
  5. PARSE UPPER VAR PROFILES PROFILES 'USER' REST
  6. PROFILES = PROFILES REST
  7. 'SET PROFILES 'PROFILES
  8.  
  9. 'SET RULER OFF'
  10. 'SET STATUSLINE OFF'
  11.  
  12. 'EXTRACT ENVIRONMENT'
  13. PARSE VAR environment pre 'PERSONALITY='personality post
  14. if personality \= 'CODE' then
  15.    'MACRO mfo.lxl'
  16. 'SET CLASSES DATA MESSAGE COMMAND LOG'
  17. 'SET PROTECT LOG'
  18.  
  19. 'SET FONT.L BLACK/WHITE              "Log line"'
  20. 'SET FONT.C BRIGHT BLUE/WHITE        "Command"'
  21.  
  22. 'SET ACTION.ENTER CMD RUN'
  23.  
  24. 'SET ACTIONBAR.LP_VIEW.SEPARATOR ;'
  25. 'SET ACTIONBAR.LP_VIEW.~Commands ;SET EXCLUDE; SET INCLUDE COMMAND; SET VIEWNAME Commands'
  26. 'SET ACCELERATOR. C-UP'
  27. 'SET ACTIONBAR.LP_ACTIONS.SEPARATOR ;'
  28. 'SET ACTIONBAR.LP_ACTIONS.~Stop_command CMD STOP'
  29. 'SET ACCELERATOR. C-C'
  30. 'SET ACTIONBAR.LP_OPTIONS.~Automatic_scrolling CMD AUTO INVERSE'
  31. 'SET TOOLBAR.Stop_command BITMAP _26 HELP "Stop command" CMD STOP'
  32.  
  33. 'EXTRACT ACTIONBARID.LP_OPTIONS.~Automatic_scrolling INTO ID_AS'
  34. 'CMD INIT 'ID_AS
  35. 'CMD AUTO ON'
  36.