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

This is supposedly a new program - what on earth are you coding it in a style deprecated 20+ years ago?

I converted it to free-form to be able to read it without pain - but am (of course) missing your files. I notice that you also have a lot of calls commented out - if you don't want them - remove them.

I'm happy to try and help but you're making it really hard.

If you want more help just reduce the code to the bare minimum e.g. No files! No read loop. Just start with a simple character field and run it through the process. That's all you need. Get the calls to the encryption/decryption routines working and once that is working THEN add it to your regular program.

On Nov 11, 2019, at 10:56 AM, Rishi Seth <rishiseth99@xxxxxxxxx> wrote:

Ok,but it still gives runtime error when i have commented all callp except
decrypt as i have key and encoded data both just want to test whether this
decryption part works or not using this
program example so far it does not seem to work please refer below link for
modified program example and associated runtime error for the same>/

*https://code.midrange.com/eee3fda054.html
<https://code.midrange.com/eee3fda054.html>*

On Mon, Nov 11, 2019 at 4:47 PM Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

Level 0 messages are not errors - they are warnings. Ignore them they
merely tell you things like FieldX was not referenced.

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

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