× 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 Dieter...I'll look into QMHSNDPM.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of dieter.bender@xxxxxxxxxxxx
Sent: Tuesday, September 28, 2010 10:04 AM
To: RPG programming on the IBM i / System i
Subject: Re: Convert from free to fixed

... getting SQL error conditions, you could "throw an exception" (sending an
escape message via QMHSNDPM) to fire your condition handler...

D*B

--------------------------------------------------
From: "Needles,Stephen J" <SNEEDLES@xxxxxxxxxxxxx>
Sent: Tuesday, September 28, 2010 4:51 PM
To: "RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
Subject: RE: Convert from free to fixed

I'll put in a preference for the condition handler solution. We recently
wrote a Condition Handler that has proven itself in user experience and
resource management. Rather than having the job fail out to the system
operator's message queue, we allow un-foreseen conditions to be handled by
this function. But it uses the *PSSR as well. The current hole in this
function is the re-action to imbedded SQL that might fail...we need to add
the SQL Communication Area to the Handler Logic.

The beauty of this handler-style response to un-foreseen conditions is
that it is completely customizable to your particular theories on error
management.

steve

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Vern Hamberg
Sent: Tuesday, September 28, 2010 9:27 AM
To: RPG programming on the IBM i / System i
Subject: Re: Convert from free to fixed

Nothing wrong with it - some think tried and true techniques should
never be used, just because they aren't their hottest new thing.

Now PSSR is just one method of handling errors - it does have some
limitations. If you recognize those, use it. But monitor-endmon can be
better, various registering of error handlers can be useful, etc.

Verb

On 9/28/2010 8:55 AM, hockchai Lim wrote:
what is wrong with *PSSR? It is very useful when writing RPG program
that
can be called from a web application. I wouldn't think it would be a
good
idea for this type of program to go into MSGW status.




<dieter.bender@xxxxxxxxxxxx> wrote in message
news:mailman.2355.1285660484.2702.rpg400-l@xxxxxxxxxxxxxxx
... just to fool the russians!

D*B

BTW: why should anybody use overlay, OVRDBF, *PSSR...

--------------------------------------------------
From: "David FOXWELL"<David.FOXWELL@xxxxxxxxx>
Sent: Tuesday, September 28, 2010 9:08 AM
To: "RPG programming on the IBM i / System i"<rpg400-l@xxxxxxxxxxxx>
Subject: RE: Convert from free to fixed

Would someone please say why one would want to do this?


-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Harman, Roger
Envoyé : mardi 28 septembre 2010 01:02
À : 'RPG programming on the IBM i / System i'
Objet : RE: Convert from free to fixed

It hurts just to look at it in fixed format.......


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Barbara Morris
Sent: Monday, September 27, 2010 3:51 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Convert from free to fixed

On 2010/9/27 5:26 PM, Gary Kuznitz wrote:
Ok, I know everyone is going to cringe on this one.

I'm having trouble converting from RPGLE free to fixed
format with this statement:
/free
fnd = %lookup(%subst(bighunkdata:gt:len) : xmlfield ); /end-free

I can't resist a challenge ...

Steve Needles already posted this solution that is guaranteed
to be equivalent to the original:
c eval fnd =
c %lookup(%subst(bighunkdata:gt:len):xmlfield)

In case that's still too free, here's another (untested)
version that I believe is also equivalent.
C *like define xmlfield temp
C len subst(p) bighunkdata:gttemp
C z-add 1 fnd
C temp lookup xmlfield(fnd)
10
C *in10 ifeq *off
C z-add 0 fnd
C endif
--
This is the RPG programming on the IBM i / System i
(RPG400-L) mailing list To post a message email:
RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change
list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the IBM i / System i
(RPG400-L) mailing list To post a message email:
RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change
list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



==============================================================================
This communication, including attachments, is confidential, may be subject
to legal privileges, and is intended for the sole use of the addressee.
Any use, duplication, disclosure or dissemination of this communication,
other than by the addressee, is prohibited. If you have received this
communication in error, please notify the sender immediately and delete or
destroy this communication and all copies.

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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.