RE: parsing varying length field from XML file using RPGLE program

You don't. You either move it to a /copy member or use Scotts replace OA handler which is designed for fully free.

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Rishi Seth
Sent: Friday, November 01, 2019 8:01 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>; Mark Waterbury <mark.s.waterbury@xxxxxxxxxxxxx>; jon.paris@xxxxxxxxxxxxxx; bmorris@xxxxxxxxxx
Subject: Re: parsing varying length field from XML file using RPGLE program

so this part how can i code in free format as because of this only my free format code keeps giving compilation error:-


C UNIXPARM PLIST r
C PARM CMD
C PARM MODE
XML-INTO encodedExchangeToken %XML('/home/I0RS01HU/INPUT.+

Thanks

On Fri, Nov 1, 2019 at 1:36 PM Barbara Morris <bmorris@xxxxxxxxxx> wrote:

On 2019-11-01 5:56 a.m., Rishi Seth wrote:

1) But why is below code then compiling well and not giving any
errors,

if

there is problem in the way of declaration of fields and putting
**free

in

below code:-

0001.00 **free
0002.00 dcl-s encodedtokenexchange int(10);
0003.00 for ENCODEDTOKENEXCHANGE = 1 to 3;
0004.00 dsply ('i = ' + %char(encodedtokenexchange));
0005.00 endfor;
0006.00 return;
0007.00 eval *inlr = *on;

This code compiles because it does not have any "fixed-form code". It
is all valid free-form code.

--
Barbara

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

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

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com


[https://www.medtronsoftware.com/img/MedtronMinilogo.bmp] Kevin Bucknum
Senior Programmer Analyst
MEDDATA / MEDTRON
120 Innwood Drive
Covington LA 70433
Local: 985-893-2550
Toll Free: 877-893-2550
https://www.medtronsoftware.com



CONFIDENTIALITY NOTICE

This document and any accompanying this email transmission contain confidential information, belonging to the sender that is legally privileged. This information is intended only for the use of the individual or entity named above. The authorized recipient of this information is prohibited from disclosing this information to any other party and is required to destroy the information after its stated need has been fulfilled. If you are not the intended recipient, or the employee of agent responsible to deliver it to the intended recipient, you are hereby notified that any disclosure, copying, distribution or action taken in reliance on the contents of these documents is STRICTLY PROHIBITED. If you have received this email in error, please notify the sender immediately to arrange for return or destruction of these documents.