home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / prodtool / sm2 / ehsindel.cmd < prev    next >
Encoding:
Text File  |  1993-11-19  |  1.9 KB  |  51 lines
  1. /*====================================================================*/
  2. /*  Name:  EHSINDEL.CMD  -  Delete SM objects                         */
  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. /* delete object */
  19. arg obid
  20. if obid = "" then do
  21.   say 'This CMD file will delete SM/2 objects -           '
  22.   say 'Enter:  EHSINDEL A  to delete ALL objects          '
  23.   say 'Enter:  EHSINDEL S  to delete Server object        '
  24.   say 'Enter:  EHSINDEL B  to delete User''s Guide object '
  25.  end
  26. if obid = "A" then
  27.   signal ALL
  28. else
  29.   do
  30.   if obid = "S" then
  31.     signal SERVER
  32.   else
  33.     do
  34.     if obid = "B" then
  35.       signal BOOK
  36.     else
  37.       signal END
  38.     end
  39.  end
  40. ALL:
  41. ehsinwps 's "<EHS_PROD>" NODELETE=NO'
  42. ehsinwps 'd "<EHS_PROD>"'
  43. signal END
  44. SERVER:
  45. ehsinwps 's "<EHS_SERV>"  EHSCOMMAND=DELETE'
  46. signal END
  47. BOOK:
  48. ehsinwps 'd "<EHS_BOOK>"'
  49. END:
  50. exit
  51.