Trailing-Edge
-
PDP-10 Archives
-
BB-AI48A-BM
-
datatrieve/demo/pet_rec.cdd-record
There are no other files named pet_rec.cdd-record in the archive.
? B B| C
Eb FAMILY
B( B* BR PARENTS
B| B6 B8 FATHER X(10)
B| P B_ B` MOTHER X(10)
Eo C C C3 NUMBER_KIDS 99 Z9
Eo 0 4 CZ C[ C^ ET KIDS P C
Cb NUMBER KIDS Cr D EF EACHKID
ET D C D KID_NAME KID X(10)
ET P D* D+ DF KIDAGE 99 Z9
Dn Do Dr E PET `
EF D E PET_NAME X(10)
EF P E) E* PET_AGE 99 DEFINE RECORD PET_REC
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 KID_AGE PIC 99 EDIT_STRING IS Z9.
TIMES.
13 PET_NAME PIC X(10).
13 PET_AGE PIC 99.
;