× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.