RE: overlay with *next

["Johnson, Duane" <djohnson@xxxxxxxxxxxxx>]

You don't say what the error message is, but my guess is that it's telling
you that CLHR, CLMN and CLSC are out of bounds for CLTIMESTAMP, or something
like that.

The problem is that when you define CLYR as *next, it starts at position 9
instead of position 3.  

It does this because CLFormDate is 8 chars long, so the next available space
is position 9.

When you define it the other way, defining CLFormDate last, then CLYR is
defined at position 3 like you're expecting.

        Duane Johnson
        Information Technology Services
        Programming Manager
        Coleman Powermate Inc.
        4970 Airport Rd.
        Kearney, NE 68847
        djohnson@xxxxxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Lim Hock-Chai
Sent: Thursday, July 22, 2004 11:36 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: overlay with *next

why is this getting compile error: 
D formKeyDS       DS                                             
D  CLBLNO                        7s 0                            
D  CLCUNO                        7s 0                            
D  CLSFNO                        3s 0                            
D  CLTIMESTAMP                  14s 0                            
D  CLFormDate                    8s 0 overlay(CLTimeStamp :1)    
D  CLCY                          2s 0 overlay(CLTimeStamp :1)    
D  CLYR                          2s 0 overlay(CLTimeStamp :*next)
D  CLMO                          2s 0 overlay(CLTimeStamp :*next)
D  CLDY                          2s 0 overlay(CLTimeStamp :*next)
D  CLHR                          2s 0 overlay(CLTimeStamp :*next)
D  CLMN                          2s 0 overlay(CLTimeStamp :*next)
D  CLSC                          2s 0 overlay(CLTimeStamp :*next)


But this is ok:
D formKeyDS       DS                                             
D  CLBLNO                        7s 0                            
D  CLCUNO                        7s 0                            
D  CLSFNO                        3s 0                            
D  CLTIMESTAMP                  14s 0                            
D  CLCY                          2s 0 overlay(CLTimeStamp)       
D  CLYR                          2s 0 overlay(CLTimeStamp :*next)
D  CLMO                          2s 0 overlay(CLTimeStamp :*next)
D  CLDY                          2s 0 overlay(CLTimeStamp :*next)
D  CLHR                          2s 0 overlay(CLTimeStamp :*next)
D  CLMN                          2s 0 overlay(CLTimeStamp :*next)
D  CLSC                          2s 0 overlay(CLTimeStamp :*next)
D  CLFormDate                    8s 0 overlay(CLTimeStamp)  

     

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