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



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

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.