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.