RE: V5R2 Compiler Bug

["Peter Connell" <Peter.Connell@xxxxxxxxxxxxxxxxxxxx>]

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