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


  1.  Home
  2. RPG400-L
  3. November 2019

Re: Parsing a field from xml file and passing it to openssl

tried below code still it\s not passing that variable\s encodedexchange
token value in record field so that i could write it to some other xml
file's 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 36363165'

61 '3237354f494d31554c594c4a -nopad -nosalt -base64 -A -out reco'

121 'rd '

181 ' '

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


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
On Thu, Oct 31, 2019 at 5:28 PM Jim Oberholtzer <midrangel@xxxxxxxxxxxxxxxxx>
wrote:

You do claim to know RPG right?
The error messages show you where to look in your code.

Try it this way: I tried to resolve this compile error with this: "
whateveritis" but I don't understand why it's not working.

Then we see you actually tried to clear the errors before you ask.
Invest some time in yourself to learn......



Jim Oberholtzer
Chief Technical Architect
Agile Technology Architects


On Thu, Oct 31, 2019 at 11:22 AM Rishi Seth <rishiseth99@xxxxxxxxx> wrote:

Hi,
I tested below code which could store encodedExchange field in it and I
want to pass it's value to openssl command but when trying to pass it
it's
giving me multiple compilation errors could someone please tell me how to
correct these errors

**free
dcl-s encodedExchangeToken varchar(88);
XML-INTO encodedExchangeToken %XML('/home/I0RS01HU/INPUT.+
xml':'doc=file case=any path=+
TokenExchangeResponse/encodedExchangeToken');
*inLr = *on;

*************
compilattion errors & Source code is attached
pasted source code with this email as well:-

**free
dcl-s encodedExchangeToken varchar(88);
dcl-s string char(45);
DCL-f UNIX usage(*input) special(1000) PGMNAME('UNIXCMD')
PLIST(UNIXPARM) USROPN;
DCL-F QSYSPRT usage(*output);

dcl-s cmd char(5000);
dcl-s mode char(1) inz('P');
dcl-ds record(1000);
dcl-ds outrec(132);

C UNIXPARM PLIST
C PARM CMD
C PARM MODE
XML-INTO encodedExchangeToken %XML('/home/I0RS01HU/INPUT.+
xml':'doc=file case=any path=+
TokenExchangeResponse/encodedExchangeToken');
cmd = 'encodedExchangeToken'! openssl enc -d -aes-+ Q+
128-ecb -d -aes-128-ecb-k 363631653237354f494d31554c594c4+ Q+
a -nopad -nosalt -base64 -A -OUT string; Q+
read UNIX record;
dow not %eof(UNIX);
outrec = record;
write QSYSPRT outrec;
read UNIX record;
enddo;

close UNIX;
*inlr = *on;

**************
compilation errors:-

5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX7
' ' 19-10-31 14:49:20 Page 1

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

Source Member . . . . . . . . . : EX7
Source File . . . . . . . . . . : RS1
Library . . . . . . . . . . . : RISHI
CCSID . . . . . . . . . . . . : 870
Text 'description' . . . . . . . :
Last Change . . . . . . . . . . : 19-10-31 14:49:16

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 . . . . . . . . : *NO
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/EX7
' ' 19-10-31 14:49:20 Page 3

Line <---------------------- Source Specifications
-----------------------------------------------------> DO CHANGE SRC
SEQ
Number


....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10
NUM DATE ID NUMBER

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

1 **free
191031 000100


2 dcl-s encodedExchangeToken varchar(88);
191031 000200
3 dcl-s string char(45);
191031 000300


4 DCL-f UNIX usage(*input) special(1000) PGMNAME('UNIXCMD')
191031 000400
======> aaaaaaa bbbbbbb
*RNF2401 20 a 000400 Keyword is not allowed for a DISK file;
keyword
is ignored.
*RNF2401 20 b 000400 Keyword is not allowed for a DISK file;
keyword
is ignored.
5 PLIST(UNIXPARM) USROPN;
191031 000500
======> aaaaa
*RNF2401 20 a 000500 Keyword is not allowed for a DISK file;
keyword
is ignored.
*RNF2120 40 4 000400 External descriptions for file UNIX not found;
file is
ignored.
6 DCL-F QSYSPRT usage(*output);
191031 000600
======> aaaaaaa
======> bbbbbbb
*RNF2121 30 a 000600 Record format QSYSPRT in file QSYSPRT already
defined;
record format is ignored.
*RNF2109 40 b 000600 All Record Formats for externally-described
file
QSYSPRT
ignored or dropped due to error; file ignored.



*--------------------------------------------------------------------------------------------*
* RPG name External name
*
* File name. . . . . . . . . : QSYSPRT QSYS2924/QSYSPRT
*
* Record format(s) . . . . . : (Not used) QSYSPRT
*



*--------------------------------------------------------------------------------------------*
7
000000 000700


8 dcl-s cmd char(5000);
191031 000800
9 dcl-s mode char(1) inz('P');
191031 000900
10 dcl-ds record(1000);
191031 001000
======> abbbbc

' ' ' '
5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX7
' ' 19-10-31 14:49:20 Page 3

Line <---------------------- Source Specifications
-----------------------------------------------------> DO CHANGE SRC
SEQ
Number


....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10
NUM DATE ID NUMBER
*RNF3308 20 a 001000 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 b 001000 Keyword name is not valid; the keyword is
ignored.
*RNF0633 20 c 001000 An unexpected right parenthesis was
encountered;
right
parenthesis is ignored.
11 dcl-ds outrec(132);
191031 001100
======> abbbc
*RNF0203 30 10 001000 NESTED DATA STRUCTURE ONLY VALID IF PARENT
DATA
STRUCTURE
IS QUALIFIED; END-DS ASSUMED FOR RECORD.
*RNF3530 00 10 001000 Data structure RECORD has no valid subfields.
*RNF3308 20 a 001100 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 b 001100 Keyword name is not valid; the keyword is
ignored.
*RNF0633 20 c 001100 An unexpected right parenthesis was
encountered;
right
parenthesis is ignored.
12
000000 001200
13 C UNIXPARM PLIST
000000 001300
======> aaaaaaaa bbbbb
*RNF3308 20 a 001300 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 b 001300 Keyword name is not valid; the keyword is
ignored.
14 C PARM CMD
000000 001400
======> a bbbb ccc
*RNF3308 20 a 001400 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 b 001400 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 c 001400 Keyword name is not valid; the keyword is
ignored.
15 C PARM MODE
000000 001500
======> a bbbb cccc
*RNF3308 20 a 001500 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 b 001500 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 c 001500 Keyword name is not valid; the keyword is
ignored.
16 XML-INTO encodedExchangeToken %XML('/home/I0RS01HU/INPUT.+
191031 001600
======> aaaaaaaa bbbbbbbbbbbbbbbbbbbb cccc
*RNF3308 20 a 001600 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 b 001600 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 c 001600 Keyword name is not valid; the keyword is
ignored.
17 xml':'doc=file case=any path=+
191031 001700
======> aaabbbcccdeeee ffffghhh iiiij
*RNF0312 20 a 001700 A right parenthesis is expected but is not
found.
*RNF0607 00 b 001700 Text is skipped to recover from the previous
error.
*RNF3308 20 c 001700 Keyword name is not valid; the keyword is
ignored.

' ' ' '
5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX7
' ' 19-10-31 14:49:20 Page 4

Line <---------------------- Source Specifications
-----------------------------------------------------> DO CHANGE SRC
SEQ
Number


....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10
NUM DATE ID NUMBER
*RNF3308 20 d 001700 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 e 001700 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 f 001700 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 g 001700 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 h 001700 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 i 001700 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 j 001700 Keyword name is not valid; the keyword is
ignored.
18 TokenExchangeResponse/encodedExchangeToken');
191031 001800
======> aaaaaaaaaaaaaaaaaaaaabcccccccccccccccccccc d
*RNF3308 20 17 001700 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 a 001800 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 b 001800 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 c 001800 Keyword name is not valid; the keyword is
ignored.
*RNF0267 20 d 001800 Character literal has missing trailing
apostrophe; trailing
apostrophe assumed.
*RNF3308 20 18 001800 Keyword name is not valid; the keyword is
ignored.
19 cmd = 'encodedExchangeToken'! openssl enc -d -aes-+
Q+ 191031 001900
======> aaa b ccccccccccccccccccccccd eeeeeee fff gh ijjjjk
l
*RNF3308 20 a 001900 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 b 001900 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 c 001900 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 d 001900 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 e 001900 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 f 001900 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 g 001900 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 h 001900 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 i 001900 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 j 001900 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 k 001900 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 l 001900 Keyword name is not valid; the keyword is
ignored.
20 128-ecb -d -aes-128-ecb-k 363631653237354f494d31554c594c4+
Q+ 191031 002000
======> aaabccc de fggggggggggggg hhhhhhhhhhhhhhhiiiiiiiiiiiiiiiij
k
*RNF3308 20 19 001900 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 a 002000 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 b 002000 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 c 002000 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 d 002000 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 e 002000 Keyword name is not valid; the keyword is
ignored.

' ' ' '
5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX7
' ' 19-10-31 14:49:20 Page 5

Line <---------------------- Source Specifications
-----------------------------------------------------> DO CHANGE SRC
SEQ
Number


....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10
NUM DATE ID NUMBER
*RNF3308 20 f 002000 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 g 002000 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 h 002000 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 i 002000 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 j 002000 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 k 002000 Keyword name is not valid; the keyword is
ignored.
21 a -nopad -nosalt -base64 -A -OUT string;
Q+ 191031 002100
======> a bccccc deeeeee fgggggg hi jkkk llllll
m
*RNF3308 20 20 002000 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 a 002100 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 b 002100 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 c 002100 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 d 002100 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 e 002100 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 f 002100 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 g 002100 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 h 002100 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 i 002100 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 j 002100 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 k 002100 Keyword name is not valid; the keyword is
ignored.
*RNF3308 20 l 002100 Keyword name is not valid; the keyword is
ignored.
*RNF5508 30 m 002100 End of free-format statement is not blank.
*RNF3556 20 11 001100 END-DS statement missing for a group
containing
free-form
statements.


22 read UNIX record;
000000 002200
23 dow not %eof(UNIX);
B01 000000 002300
24 outrec = record;
01 000000 002400
25 write QSYSPRT outrec;
01 000000 002500
26 read UNIX record;
01 000000 002600
27 enddo;
E01 000000 002700
28
000000 002800
29 close UNIX;
000000 002900
30 *inlr = *on;
000000 003000
*RNF7030 30 13 001300 The name or indicator C is not defined.

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

' ' ' '
5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX7
' ' 19-10-31 14:49:20 Page 6

Line <---------------------- Source Specifications
-----------------------------------------------------> DO CHANGE SRC
SEQ
Number


....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10
NUM DATE ID NUMBER







































' ' ' '
5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX7
' ' 19-10-31 14:49:20 Page 7

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
*RNF7503 30 22 002200 Expression contains an operand that is not
defined.
*RNF7503 30 25 002500 Expression contains an operand that is not
defined.
*RNF7503 30 26 002600 Expression contains an operand that 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/EX7
' ' 19-10-31 14:49:20 Page 8

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 DISK 6D 6D 25
UNIX DISK 4D 22 23
26
29

Global Field References:

Field Attributes References (D=Defined
M=Modified)
*INLR N(1) 30M
*RNF7030 C **UNDEF** 13D
*RNF7031 CMD A(5000) 8D
*RNF7031 ENCODEDEXCHANGETOKEN...
A(88) 2D
VARYING(2)
*RNF7031 MODE A(1) 9D
OUTREC DS(1) 11D 24M 25
RECORD DS(1) 10D 22M 24
26M
*RNF7031 STRING A(45) 3D

Indicator References:

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

* * * * * 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/EX7
' ' 19-10-31 14:49:20 Page 9

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/EX7
' ' 19-10-31 14:49:20 Page 10

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

Msg id Sv Number Message text
*RNF0607 00 1 Text is skipped to recover from the previous error.
*RNF3530 00 1 Data structure has no valid subfields.
*RNF7031 00 4 The name or indicator is not referenced.
*RNF0267 20 1 Character literal has missing trailing apostrophe;
trailing
apostrophe assumed.
*RNF0312 20 1 A right parenthesis is expected but is not found.
*RNF0633 20 2 An unexpected right parenthesis was encountered; right
parenthesis is ignored.
*RNF2401 20 3 Keyword is not allowed for a DISK file; keyword is
ignored.
*RNF3308 20 65 Keyword name is not valid; the keyword is ignored.
*RNF3556 20 1 END-XX statement missing for a group containing
free-form
statements.
*RNF0203 30 1 Refer to the compiler listing where this message was
first
issued.
*RNF2121 30 1 Record-format name in externally-described file
already
defined; record format ignored.
*RNF5508 30 1 End of free-format statement is not blank.
*RNF7030 30 1 The name or indicator is not defined.
*RNF7503 30 3 Expression contains an operand that is not defined.
*RNF2109 40 1 All Record Formats for externally-described file
ignored
or
dropped due to error; File ignored.
*RNF2120 40 1 External description not found for file specified as
externally described; file ignored.

* * * * * E N D O F M E S S A G E S U M M A R Y * * * *
*













' ' ' '
5770WDS V7R3M0 160422 RN IBM ILE RPG RISHI/EX7
' ' 19-10-31 14:49:20 Page 11

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

Message Totals:

Information (00) . . . . . . . : 6
Warning (10) . . . . . . . : 0
Error (20) . . . . . . . : 73
Severe Error (30+) . . . . . . : 9
--------------------------------- -------
Total . . . . . . . . . . . . . : 88


Source Totals:

Records . . . . . . . . . . . . : 30
Specifications . . . . . . . . : 26
Data records . . . . . . . . . : 0
Comments . . . . . . . . . . . : 3

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



















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