home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / ispf.lx < prev    next >
Text File  |  1998-02-24  |  789b  |  28 lines
  1. /* ispf.lx - ISPF key behaviour   */
  2.  
  3. 'SET ACTION.PREFIX.ENTER MACRO penter'
  4. 'SET ACCELERATOR.LP_NEWVIEW F2'
  5. 'SET ACTION.F4 QUIT'
  6. 'SET ACCELERATOR.LP_FINDNEXT F5'
  7. 'SET ACCELERATOR.LP_FINDCHANGE F6'
  8. 'SET ACTION.F7 SCROLL SCREEN UP'
  9. 'SET ACTION.F8 SCROLL SCREEN DOWN'
  10. 'SET ACTION.F9 GODOC NEXT'
  11. 'SET ACTION.F11 SCROLL SCREEN RIGHT'
  12. 'SET ACTION.F12 QQUIT'
  13. 'MACRO ispfprf'                           /* run the profile */
  14.  
  15. 'EXTRACT VIEWNUM'
  16. 'EXTRACT VIEWLIST'
  17. do while(viewlist \= '')
  18.    'GOVIEW NOACT VIEWNUM 'subword(viewlist,1,1)
  19.    'EXTRACT PREFIXDISPLAYFORMAT'
  20.    if PREFIXDISPLAYFORMAT = '' then
  21.       'SET PREFIXDISPLAYFORMAT 99999'
  22.    'SET PREFIXSHOW NUMBERS ON'
  23.    viewlist = delword(viewlist,1,1)
  24. end
  25. 'GOVIEW NOACT VIEWNUM 'VIEWNUM
  26.  
  27. 'SET GLOBAL.KEYS ispf'
  28.