Re: What does this code mean?

[boothm@xxxxxxx]

Whew... now I feel better Pete.  I was afraid I'd completely misunderstood
>From and To.

It's copied/pasted directly from an IBM help page.  It's purpose is to
show how to code a record description for a VaRPG Container Part.  I
suspect in the end I will learn that the From columns are wrong and the
definition is supposed to be 6 + ' ' + 64 + ' ' + 6 + ' ' + 20. 


In <199807290335.WAA30621@iria.inwave.com>, on 07/28/98 
   at 10:33 PM, Pete Hall <peteh@inwave.com> said:

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


-- 
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------

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