RE: will v6r1 RPG support main procedure recursion? -- RPG400-L

Thanks Pete, I must have overlooked it.

Here is the full source.
http://code.midrange.com/3fdd57c9f0.html

Duane Christen

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Pete Helgren
Sent: Tuesday, October 09, 2007 12:16 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: will v6r1 RPG support main procedure recursion?

It is in the FAQ's but here is the link

http://code.midrange.com/

Pete Helgren

Christen, Duane J. wrote:

Adam;

This is a code snippit from my XML Dom to String

procedures. (I couldn't

find the URL for the midrange.com "file upload" area so I

won't post the

whole thing)

I could include the code in the two subroutines in-line but

to me this makes

it more strait forward, JMO.

I could have the subroutines as procedures, and honestly I

would have no

objection in this case. But the code in these subroutines

is not, can not,

and will not be used elsewhere so what is the point of

creating a procedure

where a subroutine works just fine.

In otherwords why use a hammer when a fly swatter works

perfectly fine.

Duane Christen

P.S. I will post the whole source if somone can point me to

the URL for file

uploads.

/Free

elementLength = concatenateConstant(string : '<');
bytesProvided = stringLength - elementLength;

QxmlTransCode(QxmlDOMNode_getNodeName(element) :
Qxml_UniCode :
string + elementLength :
%Addr(bytesProvided) :
%Addr(bytesAvailable) :
stringCCSID);

elementLength = strlen(string);

ExSr elementAttributes;

elementLength += concatenateConstant(string : '>');

ExSr elementBody;

elementLength += concatenateConstant(string : '</');
bytesProvided = stringLength - elementLength;

QxmlTransCode(QxmlDOMNode_getNodeName(element) :
Qxml_UniCode :
string + elementLength :
%Addr(bytesProvided) :
%Addr(bytesAvailable) :
stringCCSID);

elementLength = strlen(string);

elementLength += concatenateConstant(string : '>');

Return elementLength;

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
AGlauser@xxxxxxxxxxxx
Sent: Tuesday, October 09, 2007 11:03 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: will v6r1 RPG support main procedure recursion?

Duane Christen wrote on 09/10/2007 11:55:36:

I've coded C for almost 30 years (Next April will be 30).

When RPGIV
added

procedures with the capability of having subroutines within the

procedure I

rejoyced. 90% of my procedures contain at least two subroutines,
Initialize/EndProcedure

I find this somewhat surprising and intriguing. I've never
found the need
to create a local subroutine within a subprocedure. Perhaps
it's just a
matter of style?

Would you be willing to share a sample? I'm interested to
see how you use
this.

- Adam

Attention:

The information contained in this message and or attachments is
intended only for the person or entity to which it is
addressed and may contain
confidential and/or privileged material. Any review,

retransmission,

dissemination or other use of, or taking of any action in
reliance upon, this
information by persons or entities other than the intended
recipient is
prohibited. If you received this message in error, please
contact the sender and
delete the material from any system and destroy any copies.
Thank you for your
time and consideration.

Attention:

Le contenu de ce message et(ou) les fichiers ci-joints s'adressent
exclusivement a la personne ou -entite a laquelle ils sont
destines. Ils peuvent
contenir de l'information confidentielle, protegee et(ou)
classifiee. Il est
strictement interdit a toute personne ou entite autre que
le(la) destinataire
prevu(e) de ce message d'examiner, de reviser, de
retransmettre ou de diffuser
cette information, de prendre une quelconque action en
fonction ou sur la base
de celle-ci, ou d'en faire tout autre usage. Si vous avez
recu ce message par
erreur, veuillez communiquer avec l'expediteur(trice),
supprimer ce message et
les fichiers ci-inclus de tout systeme, et en detruire toutes
copies, qu'elles
soient electroniques ou imprimees. Nous vous remercions de
votre entiere
collaboration.

______________________________________________________________________

This email has been scanned by the MessageLabs Email

Security System.

For more information please visit http://www.messagelabs.com/email

______________________________________________________________________

NOTICE: This electronic mail transmission may contain confidential
information and is intended only for the person(s) named.

Any use, copying

or disclosure by any other person is strictly prohibited.

If you have

received this transmission in error, please notify the

sender via e-mail.

--
This is the RPG programming on the AS400 / iSeries (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 email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________

NOTICE: This electronic mail transmission may contain confidential
information and is intended only for the person(s) named. Any use, copying
or disclosure by any other person is strictly prohibited. If you have
received this transmission in error, please notify the sender via e-mail.