Re: Program Example in ILE RPG: Reading encrypted data from a file does not compile

On Nov 10, 2019, at 1:32 PM, Rishi Seth <rishiseth99@xxxxxxxxx> wrote:

even though after these corrections and removing that nomain from h spec
and using option 14 and default activation group (*no), i tried to compile
it and ended up in these 0 level errors i tried to put below data in cuspi
and cusdta files and then tried to compile updated program mentioned in
below scratchpad link:-

CUSDTA:-
Report width . . . . . :
135
Position to line . . . . . Shift to column . . . . . .

Line
....+....1....+....2....+....3....+....4....+....5....+....6....+....7..
CUSNUM IV ARBAL CUSDTA

000001 12,312,232 nmbbjk 65.44
u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4MyW0ghflt9dNQNDpCcgMZiG/kXPE4vv2CHL93B4iKiODHxxdVA==


****** ******** End of report ********

CUSPI:-

Report width . . . . . :
29
Position to line . . . . . Shift to column . . . . . .

Line ....+....1....+....2....+....

KEY LASTCUS

000001 661e275OIM1ULYLJ 556

****** ******** End of report ********








Scratchpad link for spool file after compilation of program example:-

*https://code.midrange.com/70eee94cca.html
<https://code.midrange.com/70eee94cca.html>*











On Fri, Nov 8, 2019 at 8:18 PM Barbara Morris <bmorris@xxxxxxxxxx> wrote:

On 2019-11-08 5:05 a.m., Rishi Seth wrote:

It would be more helpful if you showed where the errors appeared in your
compiler listing.

Here is one of the errors:

584 C callp Print('Open of Customer Processing -
585 * Information File (CUSPI) failed')
*RNF0267 20 584 009500 Character literal has missing trailing
apostrophe; apostrophe assumed.

*RNF0312 20 584 009500 A right parenthesis is expected but is not
found.
586 C return error


The cause of the error is easier to see in the actual code:

C callp Print('Open of Customer Processing -
* Information File (CUSPI) failed')
C return error

The line with the second part of the literal is commented out.

About the errors for this callp statement:
C callp CrtKeyCtx( KEY :keySize :keyFormat +
c :keytype :keyform :KEKctx +
c AESctx :FKctx :QUSEC)

Look at this similar callp statement which does not get any errors:
C callp CrtKeyCtx( QC3D040000 :keySize :'4'
C :keyType :keyForm :*omit
c :*omit :kekctx :QUSEC)

There are many other errors, but if you study the messages from the
compiler and then study your code, I think you will be able to figure
them out.

--
Barbara

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