home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / prodtool / sm2 / ehsinucb.cmd < prev    next >
Encoding:
Text File  |  1993-11-18  |  2.4 KB  |  55 lines
  1. /*====================================================================*/
  2. /*  Name:  EHSINUCB.CMD  -  CMD file for installation                 */
  3. /*====================================================================*/
  4. /*                                                                    */
  5. /*  Licensed Materials - Property of IBM                              */
  6. /*                                                                    */
  7. /*  5621-404 (C) Copyright IBM Corp. 1993                             */
  8. /*  5622-018 (C) Copyright IBM Corp. 1993                             */
  9. /*                                                                    */
  10. /*  All rights reserved.                                              */
  11. /*  US Government Users Restricted Rights -                           */
  12. /*  Use, duplication or disclosure restricted                         */
  13. /*  by GSA ADP Schedule Contract with IBM Corp.                       */
  14. /*                                                                    */
  15. /*  See Copyright Instructions.                                       */
  16. /*                                                                    */
  17. /*====================================================================*/
  18. /* Create User's Guide Object in SearchManager folder  */
  19.  
  20. arg filepath
  21.  
  22. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  23. call SysLoadFuncs
  24.  
  25. objset = 'EXENAME=VIEW.EXE;PARAMETERS='filepath'\EHSA7MST.INF;OBJECTID=<EHS_BOOK>'
  26. if SysCreateObject(WPProgram,"Retrieval and Indexing",'<EHS_PROD>',objset,'r') then
  27.   say '.'
  28. else
  29.   signal END
  30.  
  31. samppath=filepath'\SM2DEMO.DOC'
  32.  
  33. /* build ea value  -  add long name to sample directories   */
  34. /* 0xfdffxxxx' where xxxx is a USHORT containing the length */
  35.  
  36. longname='How to use the demo version...'
  37. test='fdff'D2X(LENGTH(longname) + 4 + LENGTH(samppath),2)'00'
  38. longname=x2c(test)longname''x2c('0d0a')'('samppath')'
  39. res = SysPutEA(samppath,'.LONGNAME',longname)
  40. /*if res \== 0 then                                           */
  41. /*   say 'Warning: Longname processing failed - continue....' */
  42.  
  43. objset = 'SHADOWID='samppath';OBJECTID=<EHS_DEMO>'
  44. if SysCreateObject(WPShadow, "How to use the demo version...", '<EHS_PROD>',objset,'r') then
  45.   say '.'
  46. else
  47.   signal END
  48.  
  49. /* no execution during part 2 */
  50.  
  51. copy filepath'\EHSINDCN.CMD 'filepath'\EHSINUCN.CMD >NUL'
  52.  
  53. END:
  54. return
  55.