If you want to completely remove all traces, then use this.  change "yourfmid" 
to the FMID(s) you want to remove:

//SMPPTFIN     DD   *                 
++ FUNCTION(DELFUNC) REWORK(2013150). 
++ VER(Z038) DELETE(YOURFMID) .       
/*                                    
//SMPCNTL      DD   *                 
  SET BDY(GLOBAL).                    
   RECEIVE  S(DELFUNC).               
  SET BDY(MVSTZN).                    
    APPLY REDO CHECK  S(DELFUNC).     
    APPLY REDO   S(DELFUNC).          
  SET BDY(MVSDZN).                    
    ACCEPT CHECK S(DELFUNC).          
    ACCEPT S(DELFUNC).                
  SET BDY(MVSTZN).                    
   UCLIN.                             
    DEL  SYSMOD(DELFUNC).             
    DEL  SYSMOD(YOURFMID).            
   ENDUCL.                            
  SET BDY(MVSDZN).                    
   UCLIN.                             
    DEL  SYSMOD(DELFUNC).             
    DEL  SYSMOD(YOURFMID).            
   ENDUCL.                            
  SET BDY(GLOBAL) .                          
   REJECT HOLDDATA NOFMID                    
   PRODUCT DELETEFMID (DELFUNC YOURFMID) .   
/*                                           
//                                           

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Skeldum, William
Sent: Tuesday, December 17, 2013 9:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: "Deinstall" software, for example BDT

In the past I've written a function sysmod that deletes the FMID(s) I want to 
delete (DELETE operand on ++VER).  I have not had to do this for a long, so 
there may be a newer/better way.

Bill Skeldum
Systems Programmer
303-231-2561

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Miklos Szigetvari
Sent: Tuesday, December 17, 2013 7:30 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: "Deinstall" software, for example BDT

     Hi

How would you "deinstall" (if it is the proper expression) software, for 
example BDT (Bulk Data Transfer) ?

--
Kind regards, / Mit freundlichen Grüßen
Miklos Szigetvari

Research&  Development
ISIS Papyrus Europe AG
Alter Wienerweg 12, A-2344 Maria Enzersdorf, Austria
T: +43(2236) 27551 333, F: +43(2236)21081
E-mail: miklos.szigetv...@isis-papyrus.com
Info: i...@isis-papyrus.com Hotline: +43-2236-27551-111 Visit our brand new 
extended Website at www.isis-papyrus.com
---------------------------------------------------------------
This e-mail is only intended for the recipient and not legally binding. 
Unauthorised use, publication, reproduction or disclosure of the content of 
this e-mail is not permitted.
This email has been checked for known viruses, but ISIS Papyrus accepts no 
responsibility for malicious or inappropriate content.
---------------------------------------------------------------

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

The information contained in this electronic communication and any document 
attached hereto or transmitted herewith is confidential and intended for the 
exclusive use of the individual or entity named above. If the reader of this 
message is not the intended recipient or the employee or agent responsible for 
delivering it to the intended recipient, you are hereby notified that any 
examination, use, dissemination, distribution or copying of this communication 
or any part thereof is strictly prohibited. If you have received this 
communication in error, please immediately notify the sender by reply e-mail 
and destroy this communication. Thank you.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to