× 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.



tried with single quotes then below error:-
5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX6
VF61 19-11-02 11:22:02 Page 1

Command . . . . . . . . . . . . : CRTBNDRPG
Issued by . . . . . . . . . . : I0RS01HU
Program . . . . . . . . . . . . : EX6
Library . . . . . . . . . . . : RISHI
Text 'description' . . . . . . . : *SRCMBRTXT

Source Member . . . . . . . . . : EX6
Source File . . . . . . . . . . : RS1
Library . . . . . . . . . . . : RISHI
CCSID . . . . . . . . . . . . : 870
Text 'description' . . . . . . . :
Last Change . . . . . . . . . . : 19-11-02 11:21:58

Generation severity level . . . : 10
Default activation group . . . . : *YES
Compiler options . . . . . . . . : *XREF *GEN *NOSECLVL
*SHOWCPY
*EXPDDS *EXT *NOSHOWSKP
*NOSRCSTMT
*DEBUGIO *UNREF *NOEVENTF
Debugging views . . . . . . . . : *SOURCE
Debug encryption key . . . . . . : *NONE
Output . . . . . . . . . . . . . : *PRINT
Optimization level . . . . . . . : *NONE
Source listing indentation . . . : *NONE
Type conversion options . . . . : *NONE
Sort sequence . . . . . . . . . : *HEX
Language identifier . . . . . . : *JOBRUN
Replace program . . . . . . . . : *YES
User profile . . . . . . . . . . : *USER
Authority . . . . . . . . . . . : *LIBCRTAUT
Truncate numeric . . . . . . . . : *YES
Fix numeric . . . . . . . . . . : *NONE
Target release . . . . . . . . . : *PRV
Allow null values . . . . . . . : *NO
Define condition names . . . . . : *NONE
Enable performance collection . : *PEP
Profiling data . . . . . . . . . : *NOCOL
Licensed Internal Code options . :
Generate program interface . . . : *NO
Include directory . . . . . . . :
Preprocessor options . . . . . . : *NONE


5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX6
VF61 19-11-02 11:22:02 Page 3

Line <---------------------- Source Specifications
----------------------------><---- Comments ----> Do Page Change Src Seq
Number
....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10
Num Line Date Id Number

S o u r c e L i s t i n g



1 FUNIX IF F 1000 SPECIAL PGMNAME('UNIXCMD')
000000 000100
2 F PLIST(UNIXPARM) USROPN
000000 000200
3 FQSYSPRT O F 132 PRINTER
000000 000300
4
000000 000400


5 D cmd s 5000a
000000 000500
6 D mode s 1A inz('P')
000000 000600
7
000000 000700
8 D record ds 1000
000000 000800
======> aaaaaa
*RNF3530 00 a 000800 Data structure RECORD has no valid subfields.
9 D outrec ds 132
000000 000900
10
000000 001000
*RNF3530 00 9 000900 Data structure OUTREC has no valid subfields.
*RNF2318 00 3 000300 Overflow indicator *INOA is assigned to PRINTER
file
QSYSPRT.


11 C UNIXPARM PLIST
000000 001100
12 C PARM CMD
000000 001200
13 C PARM MODE
000000 001300
14 /free
000000 001400
15 cmd = 'echo 'u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4My'+
191102 001500
======> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
*RNF5377 20 a 001500 The end of the expression is expected.
16 'W0ghflt9dNQNDpCcgMZiG/kXPE4vv2CHL93B4iKiODHxxdVA=='+
191102 001600
17 "!" openssl enc -d -aes-128-ecb -K 363631653237354f494d+
191102 001700
18 31554c594c4a -nopad -nosalt -base64 -A -out record';
191102 001800
19 open UNIX;
191102 001900
20 read UNIX record;
000000 002000
21 dow not %eof(UNIX);
B01 000000 002100
22 outrec = record;
01 000000 002200

VF61 Volvo IT
5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX6
VF61 19-11-02 11:22:02 Page 3

Line <---------------------- Source Specifications
----------------------------><---- Comments ----> Do Page Change Src Seq
Number
....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10
Num Line Date Id Number
23 write QSYSPRT outrec;
01 000000 002300
24 read UNIX record;
01 000000 002400
25 enddo;
E01 000000 002500
26
000000 002600
27 close UNIX;
000000 002700
28 *inlr = *on;
000000 002800
29 /end-free
000000 002900

* * * * * E N D O F S O U R C E * * * * *































5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX6
VF61 19-11-02 11:22:02 Page 4

A d d i t i o n a l D i a g n o s t i c M e s s a g e s

Msg id Sv Number Seq Message text
*RNF7030 30 15 001500 The name or indicator U3VTNGF... is not defined.

* * * * * E N D O F A D D I T I O N A L D I A G N O S T I C M E
S S A G E S * * * * *




































5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX6
VF61 19-11-02 11:22:02 Page 5

C r o s s R e f e r e n c e

File and Record References:

File Device References (D=Defined)
Record
QSYSPRT PRINTER 3D 23
UNIX SPECIAL 1D 19 20 21
24 27

Global Field References:

Field Attributes References (D=Defined
M=Modified)
*INLR N(1) 28M
CMD A(5000) 5D 12M 15M
MODE A(1) 6D 13M
OUTREC DS(132) 9D 22M 23
RECORD DS(1000) 8D 20M 22
24M
UNIXPARM PLIST 2 11D
*RNF7030 U3VTNGFYWU9FAZC3IAA8ZWBE5UZCFMC17YA4MY...
**UNDEF** 15

Indicator References:

Indicator References (D=Defined
M=Modified)
LR 28M

* * * * * E N D O F C R O S S R E F E R E N C E * * * * *














5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX6
VF61 19-11-02 11:22:02 Page 6

E x t e r n a l R e f e r e n c e s

Statically bound procedures:
Procedure References
No references in the source.

Imported fields:
Field Attributes Defined
No references in the source.

Exported fields:
Field Attributes Defined
No references in the source.

* * * * * E N D O F E X T E R N A L R E F E R E N C E S * * *
* *



























5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX6
19-11-02 11:22:02 Page 7

M e s s a g e S u m m a r y

Msg id Sv Number Message text
*RNF2318 00 1 No overflow indicator is specified; indicator assigned
and
automatic skip to 06 generated.
*RNF3530 00 2 Data structure has no valid subfields.
*RNF5377 20 1 The end of the expression is expected.
*RNF7030 30 1 The name or indicator is not defined.

* * * * * E N D O F M E S S A G E S U M M A R Y * * * * *
When I tried with double quotes then though it gets compiled successfully
but openssl doesn't write any thing in record and does not work as expected
as it generally works in a interactive way.


Previous debug expressions



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 -b'

181 'ase64 -A -out record '

241 ' '

301 ' '

361 ' '

421 ' '

481 ' '

541 ' '

601 ' '


More...
Debug . . .



F3=Exit F9=Retrieve F12=Cancel F16=Repeat find F19=Left F20=Right

F21=Command entry F23=Display output


*************** Beginning of data
*************************************
0001.00 FUNIX IF F 1000 SPECIAL PGMNAME('UNIXCMD')

0002.00 F PLIST(UNIXPARM) USROPN

0003.00 FQSYSPRT O F 132 PRINTER

0004.00

0005.00 D cmd s 5000a

0006.00 D mode s 1A inz('P')

0007.00

0008.00 D record ds 1000

0009.00 D outrec ds 132

0010.00

0011.00 C UNIXPARM PLIST

0012.00 C PARM CMD

0013.00 C PARM MODE

0014.00 /free

0015.00 cmd = 'echo "u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4My+

0016.00 W0ghflt9dNQNDpCcgMZiG/kXPE4vv2CHL93B4iKiODHxxdVA=="+

0009.00 D outrec ds 132
0010.00
0011.00 C UNIXPARM PLIST
0012.00 C PARM CMD
0013.00 C PARM MODE
0014.00 /free
0015.00 cmd = 'echo "u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4My+
0016.00 W0ghflt9dNQNDpCcgMZiG/kXPE4vv2CHL93B4iKiODHxxdVA=="+
0017.00 "|" openssl enc -d -aes-128-ecb -K 363631653237354f494d+
0018.00 31554c594c4a -nopad -nosalt -base64 -A -out record';
0019.00 open UNIX;
0020.00 read UNIX record;
0021.00 dow not %eof(UNIX);
0022.00 outrec = record;
0023.00 write QSYSPRT outrec;
0024.00 read UNIX record;
0025.00 enddo;
Columns . . . : 6 76 Edit
RISHI/RS1
SEU==>
EX6
FMT ** ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+.
0018.00 31554c594c4a -nopad -nosalt -base64 -A -out record';

0019.00 open UNIX;

0020.00 read UNIX record;

0021.00 dow not %eof(UNIX);

0022.00 outrec = record;

0023.00 write QSYSPRT outrec;

0024.00 read UNIX record;

0025.00 enddo;

0026.00

0027.00 close UNIX;

0028.00 *inlr = *on;

0029.00 /end-free

****************** End of data
****************************************




































VF61 Volvo IT
5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX6
VF61 19-11-02 11:22:02 Page 8

F i n a l S u m m a r y

Message Totals:

Information (00) . . . . . . . : 3
Warning (10) . . . . . . . : 0
Error (20) . . . . . . . : 1
Severe Error (30+) . . . . . . : 1
--------------------------------- -------
Total . . . . . . . . . . . . . : 5


Source Totals:

Records . . . . . . . . . . . . : 29
Specifications . . . . . . . . : 23
Data records . . . . . . . . . : 0
Comments . . . . . . . . . . . : 0

* * * * * E N D O F F I N A L S U M M A R Y * * * * *
Compilation stopped. Severity 30 errors found in program.
* * * * * E N D O F C O M P I L A T I O N * * * * *




















On Sat, Nov 2, 2019 at 11:04 AM Maria Lucia Stoppa <mlstoppa@xxxxxxxxx>
wrote:

Hi Rishi,
I can't check your code with any RPG editor right now, but as far as I can
see there is an issue with the format of the content you are trying to
assign to the cmd variable.
When the content is a string that contains single apostrophes inside the
whole string mustn't be included in single apostrophes itself, because in
this way the first single one closes with the second one and all the rest
can't be parsed correctly.
I think you should use double apostrophes, like ", at the beginning and at
the end of the assignment, leaving the single apostrophe inside, or the
opposite, meaning single apostrophes at the beginning and at the end and
double apostrophes inside.
Would you give it a try?
Lucia

Il sab 2 nov 2019, 10:32 Rishi Seth <rishiseth99@xxxxxxxxx> ha scritto:

---------- 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.