Re: SEU Editor error

[Rishi Seth <rishiseth99@xxxxxxxxx>]

also this is the program code which was genearting above record's value:-

     FUNIX      IF   F 1000        SPECIAL PGMNAME('UNIXCMD')
     F                                     PLIST(UNIXPARM) USROPN
     FQSYSPRT   O    F  132        PRINTER

     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
          cmd = 'echo "u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4My+
          W0ghflt9dNQNDpCcgMZiG/kXPE4vv2CHL93B4iKiODHxxdVA=="+
       "!" openssl enc -d -aes-128-ecb -K 363631653237354f494d+
        31554c594c4a -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

On Sat, Nov 2, 2019 at 2:29 PM Rishi Seth <rishiseth99@xxxxxxxxx> wrote:

> Hi,
> after putting double quotes " " somehow value is started getting written
> in record but it's not the decrypted value which i am expecting
> because decrypted value ideally should be "*707fbe32-0dbc-41e0-888f-5bc40de8c20d2P9AMPCTQ4CZ
>                ¢    *  "
> but it's coming like:-
>                              Evaluate Expression
>
>
>
> Previous debug expressions
>
>
>
> > 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 -K'
>
>      121   ' 363631653237354f494d31554c594c4a -nopad -nosalt -base64 -A '
>
>      181   '-out record                                                 '
>
>      241   '                                                            '
>
>      301   '                                                            '
>
>      361   '                                                            '
>
>      421   '                                                            '
>
>      481   '                                                            '
>
>      541   '                                                            '
>
>      601   '                                                            '
>
>
>  More...
> Debug . . .
>
>
>
> F3=Exit   F9=Retrieve   F12=Cancel   F16=Repeat find   F19=Left
> F20=Right
>
>
>
> On Sat, Nov 2, 2019 at 12:57 PM Birgitta Hauser <Hauser@xxxxxxxxxxxxxxx>
> wrote:
>
> > Count the number of quotes in your string.
> > If you want to include a single quote in a string, you have to double it,
> > i.e.
> > Cmd = 'echo '' u3.... ==''
> >
> > Mit freundlichen Grüßen / Best regards
> >
> > Birgitta Hauser
> >
> > "Shoot for the moon, even if you miss, you'll land among the stars." (Les
> > Brown)
> > "If you think education is expensive, try ignorance." (Derek Bok)
> > "What is worse than training your staff and losing them? Not training them
> > and keeping them!"
> > „Train people well enough so they can leave, treat them well enough so
> > they
> > don't want to.“ (Richard Branson)
> >
> >
> > -----Original Message-----
> > From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Rishi
> > Seth
> > Sent: Samstag, 2. November 2019 08:48
> > To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
> > Subject: Fwd: SEU Editor error
> >
> > ---------- Forwarded message ---------
> > From: Rishi Seth <rishiseth99@xxxxxxxxx>
> > Date: Sat, Nov 2, 2019 at 8:44 AM
> > Subject: SEU Editor error
> > To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
> >
> >
> > Hi,
> > while trying to code below program i am getting below error:-
> >
> >      FUNIX      IF   F 1000        SPECIAL PGMNAME('UNIXCMD')
> >      F                                     PLIST(UNIXPARM) USROPN
> >      FQSYSPRT   O    F  132        PRINTER
> >
> >      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
> >           cmd = 'echo 'u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4MyW0ghflt9dNQ+
> >           NDpCcgMZiG/kXPE4vv2CHL93B4iKiODHxxdVA=='+
> >           | openssl enc -d -aes-128-ecb -K 363631653237354f494d31554+
> >           c594c4a -nopad -nosalt -base64 -A -out string.txt';
> >           read UNIX record;
> >           dow not %eof(UNIX);
> >              outrec = record;
> >              write QSYSPRT outrec;
> >              read UNIX record;
> >           enddo;
> >
> >           close UNIX;
> >           *inlr = *on;
> >       /end-free
> >
> > Error:-                         Additional Message Information
> >
> >
> >
> >  Message ID . . . . . . :   RNF5377       Severity . . . . . . . :   20
> >
> >  Message type . . . . . :   Diagnostic
> >
> >
> >
> >  Message . . . . :   The end of the expression is expected.
> >
> >  Cause . . . . . :   A token is encountered in the expression in the
> >
> >    Extended-Factor-2 entry, but none is expected. The remainder of the
> >
> >    expression is ignored. This diagnostic message may be issued due to an
> >
> >    omitted operator in the expression.
> >
> >  Recovery  . . . :   Omit all tokens at the end of the expression, or
> > insert a
> >    valid operator. Compile again.
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >  Bottom
> >  Press Enter to continue.
> > --
> > 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