Re: Sorting a DS with no overlay

[Bill Wragg <bill_wragg@xxxxxxxx>]

Why are you opposed to overlays? It would work just fine as:

d                   Ds
d s7Data         900            Dim(1000)   * 900 would represent the total 
length of all the fields defined below
d s7MIFLAG Like(IOV3MIFLAG ) Overlay(s7data : 1)
d s7Date Like(IOV3EDATE ) Overlay(s7data : *Next)
d s7Time Like(IOV3ETIMEN ) Overlay(s7data : *Next)
d s7HSDATE Like(IOV3HSDATE ) Overlay(s7data : *Next)
d s7HSTIMEN Like(IOV3HSTIMEN) Overlay(s7data : *Next)
d s7Seq Like(IOV3SEQ ) Overlay(s7data : *Next)
d s7Code Like(IOV3CODE ) Overlay(s7data : *Next)
d s7Value Like(IOV3VALUE ) Overlay(s7data : *Next)
d s7Note Like(IOV3CHDRCMT) Overlay(s7data : *Next)
d s7iNote Like(IOV3DTLCMT ) Overlay(s7data : *Next)
d s7MIREAS Like(IOV3MIREAS ) Overlay(s7data : *Next)
d s7MICOMM Like(IOV3MICOMM ) Overlay(s7data : *Next)
d s7RscCd Like(IOV3EUSER ) Overlay(s7data : *Next)
d s7EUSER Like(IOV3EUSER ) Overlay(s7data : *Next)
d s7MIDTTme           z Overlay(s7data : *Next)
// only thing you would need to do is combine fields OV3MIDATE & IOV3MITIME into 
a valid date/time stamp) 



Sorta s7MIDTTme
Good Luck
Bill
(All in favour of saving gas, raise your right foot!) 




________________________________
From: Richard Reeve <richreeve@xxxxxxxxx>
To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Sent: Fri, July 15, 2011 7:07:55 AM
Subject: Sorting a DS with no overlay

I have this program that prints three columns of data with notes at the bottom 
after all column data has been printed.  The notes need to come out in sequence 
by date/time....Problem is that due to the way I have to load and process the DS 
in order to make the columns come out right, the notes get out of sequence (ie - 
a note for col. 1 may print then one for column 2 then another for column 1 and 
so on).  What I need to do is sort the DS by date/time before printing the 
notes.  I'm having trouble with this. (probably has something to do with lack of 
sleep!)

Any suggestions?  BTW - this DS is loaded with a fetch (embedded SQL).  Here's a 
snippet of the DS.

Thanks for any help.  ( currently on V5R4)

d s7Data          ds                  Occurs(1000)        
d  s7MIFLAG                           Like(IOV3MIFLAG )   
d  s7Date                                  Like(IOV3EDATE  )   
d  s7Time                                 Like(IOV3ETIMEN )   
d  s7HSDATE                          Like(IOV3HSDATE )   
d  s7HSTIMEN                        Like(IOV3HSTIMEN)   
d  s7Seq                                  Like(IOV3SEQ    )   
d  s7Code                                Like(IOV3CODE   )   
d  s7Value                               Like(IOV3VALUE  )   
d  s7Note                                Like(IOV3CHDRCMT)   
d  s7iNote                               Like(IOV3DTLCMT )   
d  s7MIREAS                         Like(IOV3MIREAS )   
d  s7MICOMM                       Like(IOV3MICOMM )   
d  s7RscCd                            Like(IOV3EUSER  )   
d  s7EUSER                           Like(IOV3EUSER  )   
d  s7MIDATE                         Like(IOV3MIDATE )   
d  s7MITIME                         Like(IOV3MITIME )   
 
 
Warmest Regards, 

Richard Reeve