× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.