RE: V5R2 Compiler Bug

[MWalter@xxxxxxxxxxxxxxx]

That was a typo in the email. I had already changed the code, copied from
Jlpex and just modified the email to what it was.

The code compiled but I got an internal failure error on the job. A pointer
problem I think.

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


|--------+------------------------------------>
|        |          "Peter Connell"           |
|        |          <Peter.Connell@BaycorpAdva|
|        |          ntage.com>                |
|        |          Sent by:                  |
|        |          rpg400-l-bounces@midrange.|
|        |          com                       |
|        |                                    |
|        |                                    |
|        |          10/07/2003 03:53 AM       |
|        |          Please respond to RPG     |
|        |          programming on the AS400 /|
|        |          iSeries                   |
|        |                                    |
|--------+------------------------------------>
  
>-----------------------------------------------------------------------------------------------------------|
  |                                                                             
                              |
  |       To:     "RPG programming on the AS400 / iSeries" 
<rpg400-l@xxxxxxxxxxxx>                            |
  |       cc:                                                                   
                              |
  |       Subject:     RE: V5R2 Compiler Bug                                    
                              |
  
>-----------------------------------------------------------------------------------------------------------|




What's with the missing semicolon on the original update Sysctl statement?

-----Original Message-----
From: MWalter@xxxxxxxxxxxxxxx [mailto:MWalter@xxxxxxxxxxxxxxx]
Sent: Tuesday, October 07, 2003 3:32 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: V5R2 Compiler Bug


Last week I posted a question about the compiler failing on a compile.

Here is the code that caused the fail:

     PgetNextOrdno     B
     DgetNextOrdno     PI             6  0
     D key             S              6    inz('STATI1')

      /free
        chain key Sysctl;
        lorno += 10;
        update Sysctl
        return lorno;
      /end-free
     P                 E

Sysctl is a program described file. I had to change the code to this (with
corresponding O-Specs):

     PgetNextOrdno     B
     DgetNextOrdno     PI             6  0
     D key             S              6    inz('STATI1')

      /free
        chain key Sysctl;
        lorno += 10;
        except sysctlupd;
        return lorno;
      /end-free
     P                 E

Now it compiles.




Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

This correspondence is for the named person's use only.  It may contain
confidential or legally privileged information, or both. No confidentiality
or privilege is waived or lost by any mistransmission. If you receive this
correspondence in error, please immediately delete it from your system and
notify the sender. You must not disclose, copy or rely on any part of this
correspondence if you are not the intended recipient. Any views expressed
in this message are those of the individual sender, except where the sender
expressly, and with authority, states them to be the views of Baycorp
Advantage.If you need assistance, please contact Baycorp Advantage on
either :-
           Australia 133124 or New Zealand +64 9 356 5800

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.