|
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
As an Amazon Associate we earn from qualifying purchases.
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.
midrange.com
