Google
 

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/demo/family_rec.cdd-record
There are no other files named family_rec.cdd-record in the archive.
GBB|C
DoFAMILY
B(B*BRPARENTS
B|B6B8FATHERX(10)
B|PB_B`MOTHERX(10)
D| CCC3NUMBER_KIDS99Z9
D|0<CZC[C^DaKIDS`PC
CbNUMBERKIDSCrDEACHKID
DaDCDKID_NAMEKIDX(10)
DaPD*D+DEAGE99Z9
01 FAMILY.
   03 PARENTS.
      06 FATHER PIC X(10).
      06 MOTHER PIC X(10).
   03 NUMBER_KIDS PIC 99 EDIT_STRING IS Z9.
   03 KIDS OCCURS 0 TO 10 TIMES DEPENDING ON NUMBER_KIDS.

      06 EACH_KID.
         09 KID_NAME PIC X(10) QUERY_NAME IS KID.
         09 AGE PIC 99 EDIT_STRING IS Z9.
 ;