RE: will v6r1 RPG support main procedure recursion?

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.