home *** CD-ROM | disk | FTP | other *** search
/ Power GUI Programming with VisualAge C++ / powergui.iso / trialva / ibmcppw / macros / ispf.lx < prev    next >
Encoding:
Text File  |  1996-02-22  |  1.1 KB  |  38 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 ACTION.F9 GODOC NEXT'
  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_BRIEFKEYS   OFF'
  23.    'SET MENUCHECK.LP_EPMKEYS   OFF'
  24.    'SET MENUCHECK.LP_SEUKEYS   OFF'
  25.    'SET MENUCHECK.LP_XEDITKEYS OFF'
  26.    'SET MENUCHECK.LP_ISPFKEYS  ON'
  27.    'SET MENUCHECK.LP_CUSTOMIZE OFF'
  28.    'EXTRACT PREFIXDISPLAYFORMAT'
  29.    if PREFIXDISPLAYFORMAT = '' then
  30.       'SET PREFIXDISPLAYFORMAT 99999'
  31.    'SET PREFIXSHOW ON'
  32.    viewlist = delword(viewlist,1,1)
  33. end
  34. 'GOVIEW NOACT VIEWNUM 'VIEWNUM
  35.  
  36. 'EXTRACT DOCNUM INTO DOCNUM'
  37. "SET GLOBAL.DOC" || DOCNUM || " 'MACRO ISPF'"
  38.