Re: SEU Editor error

[Rishi Seth <rishiseth99@xxxxxxxxx>]

I was able to save it but  now the problem is no decrypted value is coming
in record field as per below modified program code>/

     FUNIX      IF   F 1000        SPECIAL PGMNAME('UNIXCMD')
     F                                     PLIST(UNIXPARM)   usropn
     FQSYSPRT   O    F  132        PRINTER
     dencodedExcha...
     dngeToken         s             88
     DSTRING1          S            100
     D cmd             s           5000a
     D mode            s              1A   inz('P')
     D record          ds          1000
     D outrec          ds           132

     C     UNIXPARM      PLIST
     C                   PARM                    CMD
     C                   PARM                    MODE
      /free
       XML-INTO encodedExchangeToken %XML('/home/I0RS01HU/+
       /INPUT.xml':'doc=file case=any path=+
       TokenExchangeResponse/encodedExchangeToken');
          cmd = 'echo encodedExchangeToken ö openssl +
          enc -d -aes-128-ecb -K +
          363631653237354f494d31554c594c4a -nopad -nosalt +
          -base64 -A -out record';
          open UNIX;
          read UNIX record;
          dow not %eof(UNIX);
             outrec = record;
             write QSYSPRT outrec;
             read UNIX record;
          enddo;

          close UNIX;
          *inlr = *on;
      /end-free

it just gives below value in record field>/

                             Evaluate Expression



Previous debug expressions



> EVAL record

  RECORD =

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

       1   'encodedExchangeToken ¦ openssl enc -d -aes-128-ecb -K 363631'

      61   '653237354f494d31554c594c4a -nopad -nosalt -base64 -A -out re'

     121   'cord                                                        '

     181   '                                                            '

     241   '                                                            '

     301   '                                                            '

     361   '                                                            '

     421   '                                                            '

     481   '                                                            '

     541   '                                                            '

     601   '                                                            '


 More...
Debug . . .




Ideally when we execute same command interactively it gives below result:-

*707fbe32-0dbc-41e0-888f-5bc40de8c20d2P9AMPCTQ4CZ*

Thanks


On Mon, Nov 4, 2019 at 3:08 PM Tom Deskevich <TDeskevich@xxxxxxxxxxxxxxxxxx>
wrote:

> You should be able to save it without returning to the editor.
> Then see if it will compile.
>
>
>
> Tom Deskevich
> Programmer/Analyst
> P: 814-472-6066 x134
> F: 814-472-5019
> E: TDeskevich@xxxxxxxxxxxxxxxxxx
> 172 Gateway Road PO Box 568
> Ebensburg, Pennsylvania
> 15931
> www.harrislocalgov.com
> This message has been sent on behalf
> of a company that is part of the Harris Operating Group of
> Constellation Software Inc. These companies are listed
> here
> .
> If you prefer not to be contacted by Harris
> Operating Group
> please notify
> us
> .
> This message is intended exclusively for the
> individual or entity to which it is addressed. This communication
> may contain information that is proprietary, privileged or
> confidential or otherwise legally exempt from disclosure. If you are
> not the named addressee, you are not authorized to read, print,
> retain, copy or disseminate this message or any part of it. If you
> have received this message in error, please notify the sender
> immediately by e-mail and delete all copies of the
> message.
> ?
> --
> 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