home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv7.zip / VACPP / IBMCPP / macros / ASSISTPL.LX < prev    next >
Text File  |  1995-05-11  |  2KB  |  38 lines
  1. /********************************************************
  2. * ASSISTPL- macro to set up syntax assist for PL/I progs*
  3. *                                                       *
  4. *                                                       *
  5. ********************************************************/
  6.  
  7. 'SET ACTIONBAR.~Options.~Syntax_assist. ;'
  8. 'SET HELP. 16088'
  9. 'SET ACTIONBAR.~Options.~Syntax_assist.~On  ;UNCHECK SYN ;MNUCHECK ~Options.~Syntax_assist.~On   ; SET ACTION.C-X PROTO P'
  10. 'SET HELP. 16088'
  11. 'SET ACTIONBAR.~Options.~Syntax_assist.O~ff ;UNCHECK SYN ;MNUCHECK ~Options.~Syntax_assist.O~ff  ; SET ACTION.C-X'
  12. 'SET HELP. 16088'
  13.  
  14. /* Now extract the menu-id's for all those things and save them in a global related to the docnum. */
  15. /* The UNCHECK macro will use them to uncheck all of the view menu items. */
  16. /* Again the names MUST EXACTLY match the set actionbar value. OR IT WON'T WORK. */
  17.  
  18. MENU_IDS = '' ; 
  19. 'EXTRACT actionbarid.~Options.~Syntax_assist.~On   INTO ID'
  20. MENU_IDS = MENU_IDS || ' ' || ID ; 
  21. 'EXTRACT actionbarid.~Options.~Syntax_assist.O~ff  INTO ID'
  22. MENU_IDS = MENU_IDS || ' ' || ID ; 
  23.  
  24. 'EXTRACT DOCNUM INTO DOCNUM' 
  25. 'SET GLOBAL.SYN' || DOCNUM || '.MENU_IDS' MENU_IDS ;
  26.  
  27.  
  28. 'SET ACTION.C-X PROTO P' 
  29. 'MNUCHECK ~Options.~Syntax_assist.~On'
  30.                                   
  31. 'GLOBAL.PIF /If ? /Then/   Do ;//   End ;/Else/   Do ;//   End ;'
  32. 'GLOBAL.PDO /Do ? ;/   /End;'
  33. 'GLOBAL.PSELECT /Select ( ? ) ;//When ( ? )/   Do ;/   /   End ;//Otherwise/   Do ;/   /   End ;//End ;'
  34.  
  35. /* Assistance for some specific routines. */
  36. 'GLOBAL.PXN11 \XN11SDTE = Start_Date ;\XN11EDTE = End_Date ;\XN11SPAN = The_period ;\XN11UNIT = ''Y'' ;\CALL XN11 ( XN11PARAM ) ;\IF XN11UNIT = '' ''\THEN CALL XN202 ( ''FAILURE IN DATE ARITHMETIC'' ) ;\'
  37. 'GLOBAL.PXN151 \CALL XN151 ( ''Valid_Status'' , GU   , PcbPtr , ADDR( Ioarea )\           , ADDR ( Ssa1 )\           , ADDR ( Ssa2 )\           ) ;\'
  38.