Thanks everyone
Sorry rob about the bad subject line before. Just forgot to change it I
guess.
I probably should have said before what I was trying to do.
Every time I replace a source member, I want to make a copy to a stream
file in the ifs.
I am doing this now when I copy test libraries into production libraries,
but would like to do if for my "ad hoc" changes also.
Simon's option to create a pdm option to call strseu then call a cpytostmf
should work just fine. It would be handy, but not necessary, if it only
copied if the Change/create member 'Y' was specified. Remembering not to
use '2' could take some time.
I suppose the easiest thing could be to do a rtvmbrd before the cpytostmf
and compare the srcchgdate to within 1 or 2 seconds of the current
date/time, and if yes then write the streamfile.
I looked into
QIBM_QSU_LCMD EXTP0100 *YES EXIT POINT FOR SEU USER
DEFIN
it seemed to be used for things like splitting a line of text into 2
lines. couldn't find a way to add things at source member replacement
time.
Will probably have to find out later how to add it to wdsc.
Thanks
Jim Horn
This email is intended only for the person or entity
to which it is addressed and may contain information
that is privileged, confidential or otherwise protected
from disclosure. If you are not the named addressee
or an employee or agent responsible for delivering
this message to the named addressee, you are not
authorized to read, print, retain copy, and disseminate
this message or any part of it. If you have received this
message in error please notify us immediately by email,
discard any paper copies and delete all electronic files
of this message.
------------------------------
message: 2
date: Thu, 2 Oct 2008 09:14:57 -0400
from: rob@xxxxxxxxx
subject: Re: MIDRANGE-L Digest, Vol 7, Issue 1938
First a little slapping...
Do NOT reply to an existing message to start a new thread. Take five
seconds and add midrange-l@xxxxxxxxxxxx into your frigging contacts
list.
Second, that subject line is quite informative.
http://archive.midrange.com/midrange-l/200810/threads.html
Now for some resolution.
Creating a user option to first edit the member and then call the action
is quite easy. The problem is disciplining yourself (and everyone else)
to use the user option and not '2'. Or not to use EDTF, or WDSC, or ...
Not being able to use WDSC will not put you into "How to Win Friends and
Influence People". I suppose you could secure the developers out of the
source files and then the user option could adopt authority. Providing
you're not one of those shops that routinely pass out *ALLOBJ to
developers.
Wonder if you can fire off a table level trigger?
http://publib.boulder.ibm.com/infocenter/systems/scope/i5os/topic/db2/rbafzhctrigger.htm
Or just how time sensitive it has to be? In other words, would auditing
and/or journalling your source files be a benefit?
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
JDHorn@xxxxxxxxxxxxxx
Sent by: midrange-l-bounces@xxxxxxxxxxxx
10/01/2008 05:51 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
To
midrange-l@xxxxxxxxxxxx
cc
Subject
Re: MIDRANGE-L Digest, Vol 7, Issue 1938
I know I shouldn't still be using pdm, but -
after using option 2 to enter/change a member,
when I take option -y- to change/create member
I would like to call a program and pass it the library/file/member.
I there an exit program?
can I create a user option to first edit a member and then call the
program?
Jim Horn
This email is intended only for the person or entity
to which it is addressed and may contain information
that is privileged, confidential or otherwise protected
from disclosure. If you are not the named addressee
or an employee or agent responsible for delivering
this message to the named addressee, you are not
authorized to read, print, retain copy, and disseminate
this message or any part of it. If you have received this
message in error please notify us immediately by email,
discard any paper copies and delete all electronic files
of this message.
This email is intended only for the person or entity
to which it is addressed and may contain information
that is privileged, confidential or otherwise protected
from disclosure. If you are not the named addressee
or an employee or agent responsible for delivering
this message to the named addressee, you are not
authorized to read, print, retain copy, and disseminate
this message or any part of it. If you have received this
message in error please notify us immediately by email,
discard any paper copies and delete all electronic files
of this message.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/midrange-l.
------------------------------
message: 3
date: Thu, 2 Oct 2008 08:16:46 -0500
from: "Wintermute, Sharon" <Sharon.Wintermute@xxxxxxxxxxxxxxxx>
subject: RE: MIDRANGE-L Digest, Vol 7, Issue 1938
JD,
Have you looked at the exit program for SEU?
QIBM_QSU_LCMD EXTP0100 *YES EXIT POINT FOR SEU USER
DEFIN
This will probably do what you want.
Sharon
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Simon Coulter
Sent: Wednesday, October 01, 2008 6:22 PM
To: Midrange Systems Technical Discussion
Subject: Re: MIDRANGE-L Digest, Vol 7, Issue 1938
On 02/10/2008, at 7:30 AM, JDHorn@xxxxxxxxxxxxxx wrote:
> I know I shouldn't still be using pdm, but -
Why not?
>
> after using option 2 to enter/change a member,
> when I take option -y- to change/create member
> I would like to call a program and pass it the library/file/member.
>
> I there an exit program?
Not on the SEU exit panel.
> can I create a user option to first edit a member and then call the
> program?
Yes. Essentially: accept parameters from PDM, invoke SEU, check for
member changed message, call "other" program.
Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists
http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------
This email is intended only for the person or entity
to which it is addressed and may contain information
that is privileged, confidential or otherwise protected
from disclosure. If you are not the named addressee
or an employee or agent responsible for delivering
this message to the named addressee, you are not
authorized to read, print, retain copy, and disseminate
this message or any part of it. If you have received this
message in error please notify us immediately by email,
discard any paper copies and delete all electronic files
of this message.
midrange.com
