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



below is the input xml file pasted with this email which is having
encodedtxchangetoken in it:-

<?xml version="1.0" encoding="UTF-8" standalone="true"?>

-<TokenExchangeResponse xmlns:ns2="http://schemas.nav.gov.hu/OSA/1.0/data";
xmlns="http://schemas.nav.gov.hu/OSA/1.0/api";>


-<header>

<requestId>XXXXXXX6614</requestId>

<timestamp>2019-10-22T09:53:40.541Z</timestamp>

<requestVersion>1.1</requestVersion>

<headerVersion>1.0</headerVersion>

</header>


-<result>

<funcCode>OK</funcCode>

</result>


-<software>

<softwareId>R1RL002AAAAAAAAAAA</softwareId>

<softwareName>string</softwareName>

<softwareOperation>LOCAL_SOFTWARE</softwareOperation>

<softwareMainVersion>string</softwareMainVersion>

<softwareDevName>string</softwareDevName>

<softwareDevContact>string</softwareDevContact>

<softwareDevCountryCode>HU</softwareDevCountryCode>

<softwareDevTaxNumber>string</softwareDevTaxNumber>

</software>

<encodedExchangeToken>u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4MyW0ghflt9dNQNDpCcgMZiG/kXPE4vv2CHL93B4iKiODHxxdVA==</encodedExchangeToken>

<tokenValidityFrom>2019-10-22T11:57:16.646+02:00</tokenValidityFrom>

<tokenValidityTo>2019-10-22T12:02:16.646+02:00</tokenValidityTo>

</TokenExchangeResponse>

On Thu, Oct 31, 2019 at 5:19 PM 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 * * * * *



















' ' ' '



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.