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

[Rishi Seth <rishiseth99@xxxxxxxxx>]

now even after perfect corrections value in cmd looks like below in debug
mode>/

EVAL cmd

CMD =

          ....5...10...15...20...25...30...35...40...45...50...55...60

     1   'echo 'u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4MyW0ghflt9dNQNDpCc'

    61   'gMZiG/kXPE4vv2CHL93B4iKiODHxxdVA==' ¦ openssl  enc -d -aes-1'

   121   '28-ecb -K 363631653237354f494d31554c594c4a -nopad -nosalt-ba'

   181   'se64 -A -out record                                         '

   241   '                                                            '

   301   '                                                            '

   361   '                                                            '

   421   '                                                            '

   481   '                                                            '

   541   '                                                            '

   601   '                                                            '


 More...
bug . . .


and value getting popluated in record field in debug mode is like :--
 EVAL record
 RECORD =
           ....5...10...15...20...25...30...35...40...45...50...55...60
      1   'u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4MyW0ghflt9dNQNDpCcgMZiG/'
     61   'kXPE4vv2CHL93B4iKiODHxxdVA== ¦ openssl enc -d -aes-128-ecb -'
    121   'K 363631653237354f494d31554c594c4a -nopad -nosalt-base64 -A '
    181   '-out record                                                 '
    241   '                                                            '
    301   '                                                            '


On Thu, Oct 31, 2019, 10:45 Rishi Seth <rishiseth99@xxxxxxxxx> wrote:

> As advised ,coded like below to extract that '*encodedExchangeToken*'
> value but it's ending up in multiple compilation errors like as shown in
> below screen shot:
>
> [image: image.png]
>
> [image: image.png]
>
>
> On Wed, Oct 30, 2019 at 3:20 PM Jon Paris <jon.paris@xxxxxxxxxxxxxx>
> wrote:
>
> > In response to question on Midrange-L as requested by David
> >
> > This code will extract the value you want if that is the only field
> > required. I coded it as varchar based on the OP's original subject line but
> > in the text he said that he wanted to extract a fixed length entry so I'm
> > confused. char or march - either will work.
> >
> > dcl-s  encodedExchangeToken  varchar(50);
> > // end-ds;
> > //
> > xml-into encodedExchangeToken
> >          %xml('/home/paris/xmlstuff/samplexml.xml': 'doc=file case=any -
> >                path=TokenExchangeResponse/encodedExchangeToken');
> > dsply encodedExchangeToken;
> >
> > *InLr = *On;
> >
> >
> > Jon Paris
> > --
> > 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