home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / xedit.lx < prev    next >
Text File  |  1998-02-24  |  460b  |  20 lines
  1. /* xedit.lx - XEDIT key behaviour */
  2.  
  3. 'SET ACTION.PREFIX.ENTER MACRO penter'
  4. 'MACRO xeditprf'
  5.  
  6. 'EXTRACT VIEWNUM'
  7. 'EXTRACT VIEWLIST'
  8. do while(viewlist \= '')
  9.    'GOVIEW NOACT VIEWNUM 'subword(viewlist,1,1)
  10.  
  11.    'EXTRACT PREFIXDISPLAYFORMAT'
  12.    if PREFIXDISPLAYFORMAT = '' then
  13.       'SET PREFIXDISPLAYFORMAT 99999'
  14.    'SET PREFIXSHOW NUMBERS ON'
  15.    viewlist = delword(viewlist,1,1)
  16. end
  17. 'GOVIEW NOACT VIEWNUM 'VIEWNUM
  18.  
  19. 'SET GLOBAL.KEYS xedit'
  20.