home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv7.zip / VACPP / IBMCPP / macros / ISPF.LX < prev    next >
Text File  |  1995-05-11  |  1KB  |  35 lines
  1. /* ISPF key behaviour   */
  2. 'MACRO LPEX'
  3.  
  4. 'SET ACTION.ENTER ;PREFIXPROCESS ;PRIMITIVE PREVIOUSTAB'
  5. 'SET ACCELERATOR.LP_NEWVIEW F2'
  6. 'SET ACTION.F4 QUIT'
  7. 'SET ACCELERATOR.LP_FINDNEXT F5'
  8. 'SET ACCELERATOR.LP_FINDCHANGE F6'
  9. 'SET ACTION.F7 SCROLL SCREEN UP'
  10. 'SET ACTION.F8 SCROLL SCREEN DOWN'
  11. 'SET ACCELERATOR.LP_NEXTFILE F9'
  12. 'SET ACTION.F11 SCROLL SCREEN RIGHT'
  13. 'SET ACTION.F12 QQUIT'
  14. 'MACRO ISPFPRF'                           /* run the profile */
  15.  
  16. 'EXTRACT VIEWNUM'
  17. 'EXTRACT VIEWLIST'
  18. do while(viewlist \= '')
  19.    'GOVIEW NOACT VIEWNUM 'subword(viewlist,1,1)
  20.  
  21.    'SET MENUCHECK.LP_LPEXKEYS  OFF'
  22.    'SET MENUCHECK.LP_EPMKEYS   OFF'
  23.    'SET MENUCHECK.LP_SEUKEYS   OFF'
  24.    'SET MENUCHECK.LP_XEDITKEYS OFF'
  25.    'SET MENUCHECK.LP_ISPFKEYS  ON'
  26.    'SET MENUCHECK.LP_CUSTOMIZE OFF'
  27.    'SET PREFIXDISPLAYFORMAT 99999'
  28.    'SET PREFIXSHOW ON'
  29.    viewlist = delword(viewlist,1,1)
  30. end
  31. 'GOVIEW NOACT VIEWNUM 'VIEWNUM
  32.  
  33. 'EXTRACT DOCNUM INTO DOCNUM'
  34. "SET GLOBAL.DOC" || DOCNUM || " 'MACRO ISPF'"
  35.