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

[Rishi Seth <rishiseth99@xxxxxxxxx>]

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