Re: SEU Editor error

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