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:[email protected]] On Behalf
Of Skeldum, William
Sent: Tuesday, December 17, 2013 9:38 AM
To: [email protected]
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:[email protected]] On Behalf
Of Miklos Szigetvari
Sent: Tuesday, December 17, 2013 7:30 AM
To: [email protected]
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: [email protected]
Info: [email protected] 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
[email protected] 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
[email protected] 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 [email protected] with the message: INFO IBM-MAIN
