Re: Semantics

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

Thanks all.  I guess with me dealing with Dual format physical files
all the time, it never occurred to me that I don't always need to use
pointers for external data structures.

Thanks again.

Regards,

Jim Langston

booth@martinvt.com wrote:
> 
> Along the KISS line, what i do is this:
> 
>   FINRECX    IF   E                K DISK
> 
>    *** External Data Structure for INRECX Header Record ***
>   D INRecxHd_DS   E DS                  ExtName(INRecx)
>   D SavedRecord     S                   Like(INRecxHD_DS)
>   D NewRecord       S                   Like(INRecxHD_DS)
> 
>   C                   Read      INRecX
>   C                   Eval      SavedRecord = INRecxHd_DS
>   C                   Exfmt     FMT01
>   C                   Eval      NewRecord   = INRecxHD_DS
>   C                   If        SavedRecord <> NewRecord
> ... etc
> 
> Things I like about this solution include:
> the ability to refresh the screen easily,
> the ability to compare the original record to a re-chain for update to see
> if the record was changed at another workstation,
> and the ability to send "SavedRecord" as a hidden field on a subfile so
> the whole record's info is immediately available
> 
> _______________________
> Booth Martin
> Booth@MartinVT.com
> http://www.MartinVT.com
> _______________________
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---