Re: What does this code mean?

At 20:47 07/28/98 -0400, Booth Martin wrote:
>I just copied this code from a Help section, and I can not figure out the
>layout of the data.  I'd appreciate help with it.  Thanks in advance.
>
>           
>*...1....+....2....+....3....+....4....+....5....+....6....+....7....+.
>           
>DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++
>           D NewRecord
>           D   RecordID              1      6
>           D   FileName              8     64
>           D   Parent                1      6    INZ(0)
>           D   Text                  8     20    INZ('Next record')
>            *
>
>At first look I thought that "Parent" and "RecordID" were the same data
>but I believe that isn't the case in the application being described.  

Booth,

Unless you had intended to put a DS in columns 24 and 25 of NewRecord, it 
appears to be an invalid definition. If it is a data structure, than I believe 
your original thought was correct, however, It looks as though Parent is a 
character subfield being initialized with a numeric value. Is it defined as 
numeric somewhere else in the program? In any case, the initialization values 
will only be applied at program initialization time unless you execute a reset 
of NewRecord, so you might not ever see them. Is this for combined primary 
display file initialization? It's a curious piece of code. What's it supposed 
to do?

Pete


Pete Hall
peteh@inwave.com 
http://www.inwave.com/~peteh/

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---