home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / sm2try.zip / EHSINUCB.CMD < prev    next >
OS/2 REXX Batch file  |  1994-11-11  |  3KB  |  73 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. inffile.=""
  26. res = SysFileTree(filepath'\EHSA7MST.INF',inffile,'FO')
  27. if res=0 & inffile.1\="" then do
  28.    objset = 'EXENAME=VIEW.EXE;PARAMETERS='filepath'\EHSA7MST.INF;OBJECTID=<EHS_BOOK>'
  29.    if SysCreateObject(WPProgram,"Retrieval and Indexing",'<EHS_PROD>',objset,'r') then
  30.      say '.'
  31.    else
  32.      nop /* signal END */
  33. end
  34.  
  35. samppath=filepath'\HowToUse.DOC'
  36.  
  37. /* build ea value  -  add long name to sample directories   */
  38. /* 0xfdffxxxx' where xxxx is a USHORT containing the length */
  39.  
  40. longname='How to use the Try-Out version...'
  41. test='fdff'D2X(LENGTH(longname) + 4 + LENGTH(samppath),2)'00'
  42. longname=x2c(test)longname''x2c('0d0a')'('samppath')'
  43. res = SysPutEA(samppath,'.LONGNAME',longname)
  44. /*if res \== 0 then                                           */
  45. /*   say 'Warning: Longname processing failed - continue....' */
  46.  
  47. objset = 'SHADOWID='samppath';OBJECTID=<EHS_DEMO>'
  48. if SysCreateObject(WPShadow, "How to use the Try-Out version...", '<EHS_PROD>',objset,'r') then
  49.   say '.'
  50. else
  51.   nop /*  signal END */
  52.  
  53. samppath=filepath'\ORDERING.TXT'
  54.  
  55. /* build ea value  -  add long name to sample directories   */
  56. /* 0xfdffxxxx' where xxxx is a USHORT containing the length */
  57.  
  58. longname='Ordering the original product'
  59. test='fdff'D2X(LENGTH(longname) + 4 + LENGTH(samppath),2)'00'
  60. longname=x2c(test)longname''x2c('0d0a')'('samppath')'
  61. res = SysPutEA(samppath,'.LONGNAME',longname)
  62. /*if res \== 0 then                                           */
  63. /*   say 'Warning: Longname processing failed - continue....' */
  64.  
  65. objset = 'SHADOWID='samppath';OBJECTID=<EHS_ORDER>'
  66. if SysCreateObject(WPShadow, 'Ordering the original product', '<EHS_PROD>',objset,'r') then
  67.   say '.'
  68. else
  69.   nop /*  signal END */
  70.  
  71. END:
  72. return
  73.