Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/demo/yacht.cdd-record
There are no other files named yacht.cdd-record in the archive.
FF|JBOAT
F'F(FSTYPE

F|8F5FQF7MANUFACTURERBUILDERX(10)

F|PF_F`MODELX(10)Ir 
(GG(GGdH$HmISPECIFICATIONSSPECS

J G&G'G`GARIGX(6),2 RIG EQ "SLOOP","KETCH","MS","YAWL".

JPGqH#HG}GsLENGTH_OVER_ALLLOAXXX2



 LOA BETWEEN 15 AND 50


Jh0H1HlH3HRHODISPLACEMENTD_P99999ZZ,ZZ92*;HMWEIGHT

JHzH{IBEAM99I I

J 8I&I'JIbIBIFPRICE99999$$$,$$$ID IE,2; PRICE > D_P * 1.3 OR PRICE EQ 0
ACHT USING
01 BOAT.
  03 TYPE.
     06 MANUFACTURER PIC X(10)
        QUERY_NAME IS BUILDER.
 X(10).

  03 SPECIFICATIONS


     QUERY_NAME SPECS.
     06 RIG PIC X(6)
        VALID IF RIG EQ "SLOOP","KETCH","MS","YAWL".
     06 LENGTH_OVER_ALL PIC XXX
        VALID IF LOA BETWEEN 15 AND 50
        QUERY_NAME IS LOA.
     06 DISPLACEMENT PIC 99999
        QUERY_HEADER IS "WEIGHT"
        EDIT_STRING IS ZZ,ZZ9
        QUERY_NAME IS D_P.
     06 BEAM PIC 99 MISSING VALUE IS 0 .


     06 PRICE PIC 99999
        MISSING VALUE IS 0
        VALID IF PRICE > D_P * 1.3 OR PRICE EQ 0
        EDIT_STRING IS $$$,$$$.
 ;