>VCP CON SW:[KITS]DTR33A/TAP/RO/DRV:MU/MOU:FOR VCP - Device VF0: (MU1:) has been assigned. >CHD 222 200 >NFT =CTAKAH::LB:[222,200]*.* >CHD 1 1 >BRU /NOI/UFD/NEW MU1: DU: BRU - Starting Tape 1 on MU1: BRU - End of Tape 1 on MU1: BRU - Completed >@[367,367]AUTOIN RSX-11M/M-PLUS Auto-Install Procedure V1.1 10-MAR-21 02:42:53 Type "?" for help; CTRL/Z to end; or valid input. Which product(s) do you want to install? DTR Type "?" for help; CTRL/Z to exit Auto-Install; or valid input. Where are the update files located ? Type "?" for help; CTRL/Z to skip this product; or valid input. Which device are the distribution files for DTR (DTR) located on (include colon)? MU1: BRU - Starting Tape 1 on MU1: BRU - End of Tape 1 on MU1: BRU - Completed Products being installed: Device Product Task name ------ ------- --------- MU1: DTR (DTR) Determining system configuration. BRU - Starting Tape 1 on MU1: BRU - End of Tape 1 on MU1: BRU - Completed WARNING -- no updates found for configuration data file; procedure continuing. Do you want to customize DTR (DTR) (Y/N) ? Y Target device ? Final holding area for kit files after instal ? Which directory do you want the DTR-11 task assigned to ([g,m]) <[1,54]>? [3,54] Name and location of dictionary ? Name and location of message file ? Name and location of startup command file ? Name and location of DDMF.LOG ? Issue error messages for record too short <1=yes,0=no> <1>? Interpret input date<1= 1/6 as Jan 6, 0= 1/6 as Jun 1> <1>? Control spooling <0=send directly to LP:, 1=spool output> <1>? Divided by 0 warning <-1=yes, 0=no warning given> <-1>? Terminal type <0=ask terminal at runtime, 1=VT52, 2=VT100> <0>? Controls ADT <0=ADT enabled, 1=ADT disabled> <0>? Set the default COLUMNS-PAGE <80>? Message file organization <0=Fixed, 1=Variable> <0>? Default size of dictionaries <200>? Default protection <-1 [*,*], 0 [grp,*], 1 [grp,prgm]> <0>? Stack size <256>? Link against Supervisor Mode library ? YES Is DECnet available (YES/NO) ? 1=Flt_pt Softw, 2=FPP Hardw, 3=Machine hardware decides at instal <3>? 2 Allow future customization of this file ? Print release notes automatically ? Print the installation log automatically ? Do you want to customize DTR (DTR) again (Y/N) ? Installation of DTR (DTR) beginning at 10-MAR-21 02:45:49 Reading DTRDTR.CFG. Transferring kit files to work area. BRU - Starting Tape 1 on MU1: BRU - End of Tape 1 on MU1: BRU - Completed BRU - Starting Tape 1 on MU1: BRU - End of Tape 1 on MU1: BRU - Completed DMO -- TT62: dismounted from MU1: *** Final dismount initiated *** Updating kit files. Applying updates to DTR-11 ... Copy all files from the update area to the work area Module "CP " replaced Module "EX " replaced Module "FN " replaced Module "IN " replaced Module "IO " replaced Module "ME " replaced Module "NUMTIM" replaced Module "PF " replaced Module "QD " replaced Module "RM " replaced Module "RU " replaced Module "RW " replaced Module "SH " replaced Module "TE " replaced Building product DTR (DTR). Building product DATATRIEVE-11 It will take approximately 30 minutes to build product DATATRIEVE Module "QD " replaced Now build the Datatrieve-11 utilities CREATING QUERY DICTIONARY CREATING MESSAGE FILE POPULATING MESSAGE FILE SUCCESSFUL COMPLETION Task-build Datatrieve-11 Copy task and library to correct accounts Build local call interface Install Datatrieve-11 task PIP -- No such file(s) LB:[1,2]FAMILY.DAT;* PIP -- No such file(s) LB:[1,2]OWNER.SEQ;* PIP -- No such file(s) LB:[1,2]PERSON.SEQ;* PIP -- No such file(s) LB:[1,2]SETUP.DTR;* PIP -- No such file(s) LB:[1,2]YACHT.SEQ;* Build the remote terminal interface Build DDMF Now copy appropriate files Install the tasks and make DDMF DECnet object 30. DATATRIEVE-11 installation procedure ended Transferring files from work area. Running IVP command procedure DTRIVP.CMD. ! ! Start of DATATRIEVE-11 V3.3 Installation Test ! ! ! ****************************** N O T E *************************************** ! * ! * This verification procedure will scroll on the screen for about 7 minutes. * ! * ( No input is required from you during this time. ) ! * ! ****************************************************************************** ! ! PRINT TODAY'S DATE ! PRINT "TODAY" USING DD-MMM-YYYYBBW(9) 10-Mar-2021 Wednesday ! ! CLEAN UP FROM POSSIBLE PREVIOUS RUNS OF TEST ! DELETE FAMILIES; "FAMILIES" has not been defined in the dictionary DELETE FAMILY-REC; "FAMILY_REC" has not been defined in the dictionary DELETE KETCHES; "KETCHES" has not been defined in the dictionary DELETE OWNERS-SEQUENTIAL; "OWNERS_SEQUENTIAL" has not been defined in the dictionary DELETE OWNERS; "OWNERS" has not been defined in the dictionary DELETE OWNER-RECORD; "OWNER_RECORD" has not been defined in the dictionary DELETE SAILBOATS; "SAILBOATS" has not been defined in the dictionary DELETE YACHTS-SEQUENTIAL; "YACHTS_SEQUENTIAL" has not been defined in the dictionary DELETE YACHTS; "YACHTS" has not been defined in the dictionary DELETE YACHT; "YACHT" has not been defined in the dictionary DELETE PRICE-PER-POUND; "PRICE_PER_POUND" has not been defined in the dictionary DELETE VERIFY; "VERIFY" has not been defined in the dictionary DELETE VRFY; "VRFY" has not been defined in the dictionary DELETE LOA-REPORT; "LOA_REPORT" has not been defined in the dictionary DELETE RIG-TABLE; "RIG_TABLE" has not been defined in the dictionary DELETE PERSONNEL; "PERSONNEL" has not been defined in the dictionary DELETE PERSONNEL_SEQ; "PERSONNEL_SEQ" has not been defined in the dictionary DELETE PERSONNEL_REC; "PERSONNEL_REC" has not been defined in the dictionary DELETE PERSONNEL_SEQ_REC; "PERSONNEL_SEQ_REC" has not been defined in the dictionary ! ! DEFINE RECORD ! DEFINE RECORD YACHT USING 01 BOAT. 03 TYPE. 06 MANUFACTURER PIC X(10) QUERY-NAME IS BUILDER. 06 MODEL PIC 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 DISP. 06 BEAM PIC 99. 06 PRICE PIC 99999 VALID IF PRICE>DISP*1.3 OR PRICE EQ 0 EDIT-STRING IS $$$,$$$. ; [Record YACHT is 41 bytes long] ! ! DEFINE DOMAINS ! DEFINE DOMAIN YACHTS-SEQUENTIAL USING YACHT ON LB:[1,2]YACHT.SEQ ; DEFINE DOMAIN YACHTS USING YACHT ON YACHT.DAT; ! ! DEFINE THE ACTUAL FILE FOR YACHTS ! DEFINE FILE YACHTS KEY=TYPE(NO DUP),KEY=MODEL(DUP,NO CHANGE), ALLOCATION=30, SUPERSEDE ! ! MAKE YACHTS ACCESSABLE BY OTHERS ! DEFINEP YACHTS 2,PW,"SHHHH",W ! PASSWORD FOR WRITE DEFINEP YACHTS 3,UIC,[*,*],R ! EVERYONE ELSE GETS READ DEFINEP YACHT 2,UIC,[*,*],RE ! GIVE ACCESS TO RECORD DEFINITION, TOO SHOWP YACHTS 1,UIC, [1,*], "RWMEC" 2,PW, "SHHHH", "W" 3,UIC, [*,*], "R" ! ! DEFINE PROCEDURES ! DEFINE PROCEDURE PRICE-PER-POUND PRICE/DISP ("PRICE"/"PER"/"POUND") USING $$.99 END-PROCEDURE DEFINEP PRICE-PER-POUND 2,UIC,[*,*],RE ! DEFINE PROCEDURE VRFY VERIFY USING BEGIN PRINT DISPLAY "CONFIRM WITH Y IF OK" IF *.CONFIRM NOT CONTAINING "Y" THEN ABORT "UPDATE ABORTED" END END-PROCEDURE DEFINEP VRFY 2,UIC,[*,*],RE ! ! COPY DATA FROM SEQUENTIAL TO INDEXED FILE ! READY YACHTS WRITE SHOW FIELDS YACHTS BOAT TYPE [Indexed field] MANUFACTURER (BUILDER) [Character string, indexed key] MODEL [Character string, indexed key] SPECIFICATIONS (SPECS) RIG [Character string] LENGTH_OVER_ALL (LOA) [Character string] DISPLACEMENT (DISP) [Number] BEAM [Number] PRICE [Number] READY YACHTS-SEQUENTIAL SHOW READY Ready domains: YACHTS_SEQUENTIAL: RMS SEQUENTIAL, PROTECTED READ YACHTS: RMS INDEXED, PROTECTED WRITE ! ! ************ NOTE *********** ! *** The following STORE will take 1 - 2 minutes. *** ! ******************************* ! FOR YACHTS-SEQUENTIAL STORE YACHTS USING BOAT=BOAT ! FINISH YACHTS-SEQUENTIAL; ! ! TEST STORE ! ! PLEASE SUPPLY THE FOLLOWING VALUES: ! MANUFACTURER: HINKLEY ! MODEL: BERMUDA 40 ! RIG: YAWL ! LENGTH-OVER-ALL: 140 ! LENGTH-OVER-ALL: 40 ! DISPLACEMENT: 20000 ! BEAM: 12 ! PRICE: 82000 AND XX/100 ! PRICE: $82,000 ! CONFIRM: N ! STORE YACHTS USING BEGIN MANUFACTURER= "HINKLEY" MODEL = "BERMUDA 40" RIG = "YAWL" LENGTH-OVER-ALL = 40 DISPLACEMENT= 20000 BEAM = 12 PRICE = 82000 END ! ! ! CHANGE READY MODE FOR READ ACCESS ! READY YACHTS FIND YACHTS WITH PRICE NE 0 [51 records found] SORT BY LOA,DESC DISPLACEMENT SHOW ALL Domains: YACHTS YACHTS_SEQUENTIAL Records: YACHT Procedures: PRICE_PER_POUND VRFY Tables: The current dictionary is DU:[1,2]QUERY.DIC;1 Collections: CURRENT Ready domains: YACHTS: RMS INDEXED, PROTECTED READ SHOW CURRENT Collection CURRENT Domain: YACHTS Number of records: 51 No selected record Sort order: LENGTH_OVER_ALL,DISPLACEMENT .. PRINT ALL LENGTH OVER MANUFACTURER MODEL RIG ALL WEIGHT BEAM PRICE WINDPOWER IMPULSE SLOOP 16 650 07 $3,500 CAPE DORY TYPHOON SLOOP 19 1,900 06 $4,295 VENTURE 21 SLOOP 21 1,500 07 $2,823 VENTURE 222 SLOOP 22 2,000 07 $3,564 EASTWARD HO MS 24 7,000 09 $15,900 ISLANDER BAHAMA SLOOP 24 4,200 08 $6,500 IRWIN 25 SLOOP 25 5,400 12 $10,950 CAPE DORY 25 SLOOP 25 4,000 07 $8,995 SALT 19 SLOOP 25 2,600 07 $6,590 WESTERLY CENTAUR SLOOP 26 6,700 08 $15,245 GRAMPIAN 26 SLOOP 26 5,600 08 $11,495 AMERICAN 26-MS MS 26 5,500 08 $18,895 TANZER 26 SLOOP 26 4,350 09 $11,750 ALBIN 79 SLOOP 26 4,200 10 $17,900 AMERICAN 26 SLOOP 26 4,000 08 $9,895 HUNTER 27 SLOOP 27 6,500 09 $14,999 ALBIN VEGA SLOOP 27 5,070 08 $18,600 CAPE DORY 28 SLOOP 28 9,000 09 $21,990 SABRE 28 SLOOP 28 7,400 09 $22,000 GRAMPIAN 28 SLOOP 28 6,900 10 $14,475 TANZER 28 SLOOP 28 6,800 10 $17,500 ISLANDER 28 SLOOP 28 5,994 10 $15,908 NORTHERN 29 SLOOP 29 7,250 09 $20,975 IRWIN 30 SLOOP 30 10,000 10 $19,950 HUNTER 30 SLOOP 30 9,500 10 $21,500 GRAMPIAN 30 SLOOP 30 8,600 09 $17,775 ISLANDER 30 SLOOP 30 8,600 10 $20,990 ALBIN BALLAD SLOOP 30 7,276 10 $27,500 RYDER S. CROSS SLOOP 31 13,600 00 $32,500 BOMBAY CLIPPER SLOOP 31 9,400 11 $23,950 WRIGHT SEAWIND II SLOOP 32 14,900 00 $34,480 CHALLENGER 32 SLOOP 32 12,800 11 $31,835 O'DAY 32 SLOOP 32 11,000 00 $29,500 BAYFIELD 30/32 SLOOP 32 9,500 10 $32,875 GRAMPIAN 34 KETCH 33 12,000 10 $29,675 GRAMPIAN 2-34 SLOOP 34 11,800 10 $29,675 CARIBBEAN 35 SLOOP 35 18,000 11 $37,850 CHRIS-CRAF CARIBBEAN SLOOP 35 18,000 11 $37,850 CHALLENGER 35 SLOOP 35 14,800 12 $39,215 I. TRADER 37 KETCH 36 18,600 12 $39,500 ISLANDER 36 SLOOP 36 13,450 11 $31,730 ALBERG 37 MK II KETCH 37 20,000 12 $36,951 IRWIN 37 MARK II KETCH 37 20,000 11 $36,950 NORTHERN 37 KETCH 37 14,000 11 $50,000 LINDSEY 39 MS 39 14,500 12 $35,900 HINKLEY BERMUDA 40 YAWL 40 20,000 12 $82,000 CHALLENGER 41 KETCH 41 26,700 13 $51,228 GULFSTAR 41 KETCH 41 22,000 12 $41,350 ISLANDER FREEPORT KETCH 41 22,000 13 $54,970 COLUMBIA 41 SLOOP 41 20,700 11 $48,490 OLYMPIC ADVENTURE KETCH 42 24,250 13 $80,500 SELECT FIRST PRINT LENGTH OVER MANUFACTURER MODEL RIG ALL WEIGHT BEAM PRICE WINDPOWER IMPULSE SLOOP 16 650 07 $3,500 SELECT PRINT BOAT,:PRICE-PER-POUND LENGTH PRICE OVER PER MANUFACTURER MODEL RIG ALL WEIGHT BEAM PRICE POUND CAPE DORY TYPHOON SLOOP 19 1,900 06 $4,295 $2.26 ! ! ! DEFINE REPORT PROCEDURE ! DEFINE PROCEDURE LOA-REPORT REPORT ON TI: SET REPORT-NAME="JIM'S VERY OWN LISTING"/"OF"/"INTERESTING SAILBOATS"/ "(BY LENGTH)" SET LINES-PAGE=55, COLUMNS-PAGE=72 AT TOP OF LOA PRINT LOA("LENGTH") PRINT TYPE, RIG, DISP, BEAM USING Z9 , PRICE AT BOTTOM OF LOA PRINT SKIP, COL 32, "*** AVERAGE ***", AVERAGE DISP, AVERAGE BEAM, AVERAGE PRICE AT BOTTOM OF REPORT PRINT SKIP, "REPORT AVERAGES", AVERAGE DISP, AVERAGE BEAM, AVERAGE PRICE AT BOTTOM OF PAGE PRINT SKIP, COL 20, """ANOTHER SERVICE OF QUERY ENTERPRISES""" END-REPORT END-PROCEDURE ! ! INVOKE REPORT (SUGGEST OUTPUT ON TI:) ! :LOA-REPORT JIM'S VERY OWN LISTING OF INTERESTING SAILBOATS 10-Mar-21 (BY LENGTH) Page 1 LENGTH MANUFACTURER MODEL RIG WEIGHT BEAM PRICE 16 WINDPOWER IMPULSE SLOOP 650 7 $3,500 *** AVERAGE *** 650 07 $3,500 19 CAPE DORY TYPHOON SLOOP 1,900 6 $4,295 *** AVERAGE *** 1,900 06 $4,295 21 VENTURE 21 SLOOP 1,500 7 $2,823 *** AVERAGE *** 1,500 07 $2,823 22 VENTURE 222 SLOOP 2,000 7 $3,564 *** AVERAGE *** 2,000 07 $3,564 24 EASTWARD HO MS 7,000 9 $15,900 ISLANDER BAHAMA SLOOP 4,200 8 $6,500 *** AVERAGE *** 5,600 08 $11,200 25 IRWIN 25 SLOOP 5,400 12 $10,950 CAPE DORY 25 SLOOP 4,000 7 $8,995 SALT 19 SLOOP 2,600 7 $6,590 *** AVERAGE *** 4,000 08 $8,845 26 WESTERLY CENTAUR SLOOP 6,700 8 $15,245 GRAMPIAN 26 SLOOP 5,600 8 $11,495 AMERICAN 26-MS MS 5,500 8 $18,895 TANZER 26 SLOOP 4,350 9 $11,750 ALBIN 79 SLOOP 4,200 10 $17,900 AMERICAN 26 SLOOP 4,000 8 $9,895 *** AVERAGE *** 5,058 08 $14,196 27 HUNTER 27 SLOOP 6,500 9 $14,999 ALBIN VEGA SLOOP 5,070 8 $18,600 *** AVERAGE *** 5,785 08 $16,799 28 CAPE DORY 28 SLOOP 9,000 9 $21,990 SABRE 28 SLOOP 7,400 9 $22,000 GRAMPIAN 28 SLOOP 6,900 10 $14,475 TANZER 28 SLOOP 6,800 10 $17,500 ISLANDER 28 SLOOP 5,994 10 $15,908 *** AVERAGE *** 7,218 09 $18,374 29 NORTHERN 29 SLOOP 7,250 9 $20,975 *** AVERAGE *** 7,250 09 $20,975 30 IRWIN 30 SLOOP 10,000 10 $19,950 HUNTER 30 SLOOP 9,500 10 $21,500 GRAMPIAN 30 SLOOP 8,600 9 $17,775 "ANOTHER SERVICE OF QUERY ENTERPRISES" JIM'S VERY OWN LISTING OF INTERESTING SAILBOATS 10-Mar-21 (BY LENGTH) Page 2 LENGTH MANUFACTURER MODEL RIG WEIGHT BEAM PRICE ISLANDER 30 SLOOP 8,600 10 $20,990 ALBIN BALLAD SLOOP 7,276 10 $27,500 *** AVERAGE *** 8,795 09 $21,543 31 RYDER S. CROSS SLOOP 13,600 0 $32,500 BOMBAY CLIPPER SLOOP 9,400 11 $23,950 *** AVERAGE *** 11,500 05 $28,225 32 WRIGHT SEAWIND II SLOOP 14,900 0 $34,480 CHALLENGER 32 SLOOP 12,800 11 $31,835 O'DAY 32 SLOOP 11,000 0 $29,500 BAYFIELD 30/32 SLOOP 9,500 10 $32,875 *** AVERAGE *** 12,050 05 $32,172 33 GRAMPIAN 34 KETCH 12,000 10 $29,675 *** AVERAGE *** 12,000 10 $29,675 34 GRAMPIAN 2-34 SLOOP 11,800 10 $29,675 *** AVERAGE *** 11,800 10 $29,675 35 CARIBBEAN 35 SLOOP 18,000 11 $37,850 CHRIS-CRAF CARIBBEAN SLOOP 18,000 11 $37,850 CHALLENGER 35 SLOOP 14,800 12 $39,215 *** AVERAGE *** 16,933 11 $38,305 36 I. TRADER 37 KETCH 18,600 12 $39,500 ISLANDER 36 SLOOP 13,450 11 $31,730 *** AVERAGE *** 16,025 11 $35,615 37 ALBERG 37 MK II KETCH 20,000 12 $36,951 IRWIN 37 MARK II KETCH 20,000 11 $36,950 NORTHERN 37 KETCH 14,000 11 $50,000 *** AVERAGE *** 18,000 11 $41,300 39 LINDSEY 39 MS 14,500 12 $35,900 *** AVERAGE *** 14,500 12 $35,900 40 HINKLEY BERMUDA 40 YAWL 20,000 12 $82,000 *** AVERAGE *** 20,000 12 $82,000 41 CHALLENGER 41 KETCH 26,700 13 $51,228 GULFSTAR 41 KETCH 22,000 12 $41,350 ISLANDER FREEPORT KETCH 22,000 13 $54,970 COLUMBIA 41 SLOOP 20,700 11 $48,490 *** AVERAGE *** 22,850 12 $49,009 JIM'S VERY OWN LISTING OF INTERESTING SAILBOATS 10-Mar-21 (BY LENGTH) Page 3 LENGTH MANUFACTURER MODEL RIG WEIGHT BEAM PRICE 42 OLYMPIC ADVENTURE KETCH 24,250 13 $80,500 *** AVERAGE *** 24,250 13 $80,500 REPORT AVERAGES 10,597 09 $26,498 "ANOTHER SERVICE OF QUERY ENTERPRISES" ! ! RATTLE UPDATE ! FIND YACHTS WITH BEAM=0 [5 records found] PRINT ALL LENGTH OVER MANUFACTURER MODEL RIG ALL WEIGHT BEAM PRICE METALMAST GALAXY SLOOP 32 9,500 00 O'DAY 32 SLOOP 32 11,000 00 $29,500 RYDER S. CROSS SLOOP 31 13,600 00 $32,500 TA CHIAO FANTASIA SLOOP 35 23,200 00 WRIGHT SEAWIND II SLOOP 32 14,900 00 $34,480 SELECT FIRST;PRINT LENGTH OVER MANUFACTURER MODEL RIG ALL WEIGHT BEAM PRICE METALMAST GALAXY SLOOP 32 9,500 00 READY YACHTS MODIFY ! ! RESPOND WITH 47 (OR SOMETHING) ! MODIFY USING BEAM = 47 PRINT TYPE,BEAM MANUFACTURER MODEL BEAM METALMAST GALAXY 47 ! ! RESPOND WITH 48 (OR SOMETHING) ! MODIFY ALL USING BEAM = 48 ! PRINT ALL BEAM BEAM 48 48 48 48 48 ! ! RESPOND EACH TIME WITH 0 (PLEASE) ! FOR CURRENT PRINT TYPE THEN MODIFY USING BEAM = 0 MANUFACTURER MODEL METALMAST GALAXY O'DAY 32 RYDER S. CROSS TA CHIAO FANTASIA WRIGHT SEAWIND II READY YACHTS READ PRINT ALL LENGTH OVER MANUFACTURER MODEL RIG ALL WEIGHT BEAM PRICE METALMAST GALAXY SLOOP 32 9,500 00 O'DAY 32 SLOOP 32 11,000 00 $29,500 RYDER S. CROSS SLOOP 31 13,600 00 $32,500 TA CHIAO FANTASIA SLOOP 35 23,200 00 WRIGHT SEAWIND II SLOOP 32 14,900 00 $34,480 ! ! CHECK MULTIPLE COLLECTIONS AND STATISTICAL FUNCTIONS ! FIND SMALLS IN YACHTS WITH LOA<24 AND PRICE NE 0 [4 records found] ! FIND BIGGIES IN YACHTS WITH LOA>40 AND PRICE NE 0 [5 records found] ! SHOW COLLECTIONS Collections: BIGGIES (also CURRENT) SMALLS ! PRINT AVERAGE DISP WEIGHT 23,130 ! PRINT MAX DISP WEIGHT 26,700 ! PRINT AVERAGE PRICE OF BIGGIES,AVERAGE PRICE OF SMALLS PRICE PRICE $55,307 $3,545 ! SORT SMALLS BY LOA,DISP SORT BIGGIES BY LOA,DISP SELECT FIRST SMALLS SELECT LAST BIGGIES PRINT SMALLS.BOAT,SKIP,BIGGIES.BOAT LENGTH OVER MANUFACTURER MODEL RIG ALL WEIGHT BEAM PRICE WINDPOWER IMPULSE SLOOP 16 650 07 $3,500 OLYMPIC ADVENTURE KETCH 42 24,250 13 $80,500 ! ! PRINT YACHTS WITH LOA EQ MAX LOA OF YACHTS LENGTH OVER MANUFACTURER MODEL RIG ALL WEIGHT BEAM PRICE OLYMPIC ADVENTURE KETCH 42 24,250 13 $80,500 PEARSON 419 KETCH 42 21,000 13 ! ! TEST OF HIERARCHIES AND VIEW ! DEFINE DOMAIN FAMILIES USING FAMILY-REC ON LB:[1,2]FAMILY.DAT; DEFINE RECORD FAMILY-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 AGE PIC 99 EDIT-STRING IS Z9. ; [Record FAMILY_REC is 142 bytes long] ! ! PERFORM A FEW NIFTY OPERATIONS ON FAMILIES ! READY FAMILIES SHOW FIELDS FOR FAMILIES FAMILY PARENTS FATHER [Character string] MOTHER [Character string] NUMBER_KIDS [Number] KIDS [List] EACH_KID KID_NAME (KID) [Character string] AGE [Number] PRINT FAMILIES NUMBER KID FATHER MOTHER KIDS NAME AGE JIM ANN 2 URSULA 7 RALPH 3 JIM LOUISE 5 ANNE 31 JIM 29 ELLEN 26 DAVID 24 ROBERT 16 JOHN JULIE 2 ANN 29 JEAN 26 JOHN ELLEN 1 CHRISTOPHR 0 ARNIE ANNE 2 SCOTT 2 BRIAN 0 SHEARMAN SARAH 1 DAVID 0 TOM ANNE 2 PATRICK 4 SUZIE 6 BASIL MERIDETH 6 BEAU 28 BROOKS 26 ROBIN 24 JAY 22 WREN 17 JILL 20 ROB DIDI 0 JEROME RUTH 4 ERIC 32 CISSY 24 NANCY 22 MICHAEL 20 TOM BETTY 2 MARTHA 30 TOM 27 GEORGE LOIS 3 JEFF 23 FRED 26 LAURA 21 HAROLD SARAH 3 CHARLIE 31 HAROLD 35 SARAH 27 EDWIN TRINITA 2 ERIC 16 SCOTT 11 FIND FAMILIES WITH ANY KIDS WITH AGE>25 [7 records found] PRINT ALL SKIP, PARENTS, ALL KIDS SORTED BY AGE KID FATHER MOTHER NAME AGE JIM LOUISE ROBERT 16 DAVID 24 ELLEN 26 JIM 29 ANNE 31 JOHN JULIE JEAN 26 ANN 29 BASIL MERIDETH WREN 17 JILL 20 JAY 22 ROBIN 24 BROOKS 26 BEAU 28 JEROME RUTH MICHAEL 20 NANCY 22 CISSY 24 ERIC 32 TOM BETTY TOM 27 MARTHA 30 GEORGE LOIS LAURA 21 JEFF 23 FRED 26 HAROLD SARAH SARAH 27 CHARLIE 31 HAROLD 35 FINISH ! ! DEFINE A VIEW OF THE DOMAIN YACHTS ! DEFINE DOMAIN KETCHES OF YACHTS BY 01 KETCH OCCURS FOR YACHTS WITH RIG EQ "KETCH". 03 TYPE FROM YACHTS. 03 LOA FROM YACHTS. 03 PRICE FROM YACHTS. ; ! ! SHOW OFF KETCHES ! READY KETCHES PRINT KETCHES LENGTH OVER MANUFACTURER MODEL ALL PRICE ALBERG 37 MK II 37 $36,951 CHALLENGER 41 41 $51,228 FISHER 30 30 FISHER 37 37 GRAMPIAN 34 33 $29,675 GULFSTAR 41 41 $41,350 I. TRADER 37 36 $39,500 IRWIN 37 MARK II 37 $36,950 ISLANDER FREEPORT 41 $54,970 NORTHERN 37 37 $50,000 OLYMPIC ADVENTURE 42 $80,500 PEARSON 365 36 PEARSON 419 42 FINISH ! ! DEFINE A DOMAIN AND FILE OF SAILBOAT OWNERS ! DEFINE DOMAIN OWNERS USING OWNER-RECORD ON OWNER.DAT; DEFINE RECORD OWNER-RECORD 01 OWNER. 03 NAME PIC X(10) QUERY-HEADER IS "OWNER"/"NAME" EDIT-STRING IS X(5). 03 BOAT-NAME PIC X(17) QUERY-HEADER IS "BOAT NAME". 03 TYPE. 06 BUILDER PIC X(10). 06 MODEL PIC X(10). ; [Record OWNER_RECORD is 47 bytes long] DEFINE DOMAIN OWNERS-SEQUENTIAL USING OWNER-RECORD ON LB:[1,2]OWNER.SEQ; DEFINE FILE FOR OWNERS KEY=TYPE(DUP), SUPERSEDE READY OWNERS WRITE READY OWNERS-SEQUENTIAL ! ! ************ NOTE *********** ! *** The following STORE will take about 1/2 minute. *** ! ******************************* ! FOR OWNERS-SEQUENTIAL STORE OWNERS USING OWNER=OWNER FINISH OWNERS-SEQUENTIAL ! ! PRINT OUT THE OWNERS FILE ! PRINT OWNERS OWNER NAME BOAT NAME BUILDER MODEL SHERM MILLENNIUM FALCON ALBERG 35 STEVE DELIVERANCE ALBIN VEGA HUGH IMPULSE ALBIN VEGA JIM EGRET C&C CORVETTE ANN EGRET C&C CORVETTE BOB FIESTA CAL 28 JIM REGRET CHEAP DINK NEIL JARGES PRIDE CROCKER 33 GERAR KESTREL ERICSON 39 ARNE CHIMERA HINKLEY BERMUDA 40 JIM POTEMKIN ISLANDER BAHAMA ANN POTEMKIN ISLANDER BAHAMA STEVE POTEMKIN ISLANDER BAHAMA HARVE MANANA ISLANDER BAHAMA TOM LONE TRAVELLER PEARSON 10M DICK PURSUIT PEARSON 26 CHRIS VANITY PEARSON ARIEL JOHN STRIDER RHODES SWIFTSURE FINISH ! ! DEFINE THE MIGHTY, MULTIPLE FILE VIEW OF YACHTS AND OWNERS ! DEFINE DOMAIN SAILBOATS OF YACHTS, OWNERS BY 01 SAILBOAT OCCURS FOR YACHTS. 03 BOAT FROM YACHTS. 03 SKIPPERS OCCURS FOR OWNERS WITH TYPE EQ BOAT.TYPE. 05 NAME FROM OWNERS. ; ! ! EXERCISE SAILBOATS A LITTLE ! READY SAILBOATS SHOW FIELDS SAILBOATS SAILBOAT BOAT TYPE [Indexed field] MANUFACTURER (BUILDER) [Character string, indexed key] MODEL [Character string, indexed key] SPECIFICATIONS (SPECS) RIG [Character string] LENGTH_OVER_ALL (LOA) [Character string] DISPLACEMENT (DISP) [Number] BEAM [Number] PRICE [Number] SKIPPERS [List] NAME [Character string] PRINT FIRST 5 SAILBOATS LENGTH OVER OWNER MANUFACTURER MODEL RIG ALL WEIGHT BEAM PRICE NAME ALBERG 37 MK II KETCH 37 20,000 12 $36,951 ALBIN 79 SLOOP 26 4,200 10 $17,900 ALBIN BALLAD SLOOP 30 7,276 10 $27,500 ALBIN VEGA SLOOP 27 5,070 08 $18,600 STEVE HUGH AMERICAN 26 SLOOP 26 4,000 08 $9,895 FIND SAILBOATS WITH ANY SKIPPERS [7 records found] PRINT ALL LENGTH OVER OWNER MANUFACTURER MODEL RIG ALL WEIGHT BEAM PRICE NAME ALBIN VEGA SLOOP 27 5,070 08 $18,600 STEVE HUGH C&C CORVETTE SLOOP 31 8,650 09 JIM ANN HINKLEY BERMUDA 40 YAWL 40 20,000 12 $82,000 ARNE ISLANDER BAHAMA SLOOP 24 4,200 08 $6,500 JIM ANN STEVE HARVE PEARSON 10M SLOOP 33 12,441 11 TOM PEARSON 26 SLOOP 26 5,400 08 DICK RHODES SWIFTSURE SLOOP 33 14,000 10 JOHN ! ! CHECK OUT TABLES ! DEFINE TABLE RIG-TABLE "SLOOP" : "ONE MAST", "KETCH" : "TWO MASTS, BIG ONE IN FRONT", "YAWL" : "SIMILAR TO KETCH", "M/S" : "SAILS AND BIG MOTOR", ELSE "SOMETHING ELSE" END-TABLE ! READY YACHTS FIND YACHTS WITH RIG IN RIG-TABLE [109 records found] PRINT ALL TYPE, RIG, RIG VIA RIG-TABLE USING X(30) MANUFACTURER MODEL RIG RIG ALBERG 37 MK II KETCH TWO MASTS, BIG ONE IN FRONT ALBIN 79 SLOOP ONE MAST ALBIN BALLAD SLOOP ONE MAST ALBIN VEGA SLOOP ONE MAST AMERICAN 26 SLOOP ONE MAST BAYFIELD 30/32 SLOOP ONE MAST BLOCK I. 40 SLOOP ONE MAST BOMBAY CLIPPER SLOOP ONE MAST BUCCANEER 270 SLOOP ONE MAST BUCCANEER 320 SLOOP ONE MAST C&C CORVETTE SLOOP ONE MAST CABOT 36 SLOOP ONE MAST CAL 2-27 SLOOP ONE MAST CAL 2-34 SLOOP ONE MAST CAL 29 SLOOP ONE MAST CAL 3-30 SLOOP ONE MAST CAL 35 SLOOP ONE MAST CAPE DORY 25 SLOOP ONE MAST CAPE DORY 28 SLOOP ONE MAST CAPE DORY TYPHOON SLOOP ONE MAST CAPITAL NEWPORT SLOOP ONE MAST CARIBBEAN 35 SLOOP ONE MAST CHALLENGER 32 SLOOP ONE MAST CHALLENGER 35 SLOOP ONE MAST CHALLENGER 41 KETCH TWO MASTS, BIG ONE IN FRONT CHRIS-CRAF CARIBBEAN SLOOP ONE MAST COLUMBIA 35 SLOOP ONE MAST COLUMBIA 41 SLOOP ONE MAST COLUMBIA PAYNE 9.6 SLOOP ONE MAST DOUGLAS 32 SLOOP ONE MAST DOWN EAST 32 SLOOP ONE MAST DOWN EAST 38 SLOOP ONE MAST DUFOUR 25 SLOOP ONE MAST ENCHILADA 20 SLOOP ONE MAST ENDEAVOUR 32 SLOOP ONE MAST ERICSON 23/ SPECIA SLOOP ONE MAST ERICSON CRUISING/3 SLOOP ONE MAST FISHER 30 KETCH TWO MASTS, BIG ONE IN FRONT FISHER 37 KETCH TWO MASTS, BIG ONE IN FRONT GRAMPIAN 2-34 SLOOP ONE MAST GRAMPIAN 26 SLOOP ONE MAST GRAMPIAN 28 SLOOP ONE MAST GRAMPIAN 30 SLOOP ONE MAST GRAMPIAN 34 KETCH TWO MASTS, BIG ONE IN FRONT GULFSTAR 41 KETCH TWO MASTS, BIG ONE IN FRONT HINKLEY BERMUDA 40 YAWL SIMILAR TO KETCH HUNTER 27 SLOOP ONE MAST HUNTER 30 SLOOP ONE MAST I. TRADER 37 KETCH TWO MASTS, BIG ONE IN FRONT IRWIN 25 SLOOP ONE MAST IRWIN 30 SLOOP ONE MAST IRWIN 37 MARK II KETCH TWO MASTS, BIG ONE IN FRONT IRWIN HALF TON SLOOP ONE MAST ISLANDER 28 SLOOP ONE MAST ISLANDER 30 SLOOP ONE MAST ISLANDER 36 SLOOP ONE MAST ISLANDER BAHAMA SLOOP ONE MAST ISLANDER FREEPORT KETCH TWO MASTS, BIG ONE IN FRONT MARIEHOLD 32 SLOOP ONE MAST METALMAST GALAXY SLOOP ONE MAST MOODY 33 SLOOP ONE MAST NAUTOR SWAN 41 SLOOP ONE MAST NEWPORT 27S SLOOP ONE MAST NEWPORT 30 II SLOOP ONE MAST NEWPORT 41 S SLOOP ONE MAST NICHOLSON 33 SLOOP ONE MAST NORTHERN 29 SLOOP ONE MAST NORTHERN 37 KETCH TWO MASTS, BIG ONE IN FRONT O'DAY 27 SLOOP ONE MAST O'DAY 32 SLOOP ONE MAST OLYMPIC ADVENTURE KETCH TWO MASTS, BIG ONE IN FRONT ONTARIO 32 SLOOP ONE MAST ONTARIO VIKING SLOOP ONE MAST PACESHIP PY26 SLOOP ONE MAST PEARSON 10M SLOOP ONE MAST PEARSON 26 SLOOP ONE MAST PEARSON 26W SLOOP ONE MAST PEARSON 28 SLOOP ONE MAST PEARSON 30 SLOOP ONE MAST PEARSON 35 SLOOP ONE MAST PEARSON 36 SLOOP ONE MAST PEARSON 365 KETCH TWO MASTS, BIG ONE IN FRONT PEARSON 39 SLOOP ONE MAST PEARSON 419 KETCH TWO MASTS, BIG ONE IN FRONT RANGER 26 SLOOP ONE MAST RANGER 28 SLOOP ONE MAST RANGER 29 SLOOP ONE MAST RANGER 33 SLOOP ONE MAST RHODES SWIFTSURE SLOOP ONE MAST ROBERTS 29 SLOOP ONE MAST ROBERTS 36 SLOOP ONE MAST RYDER S. CROSS SLOOP ONE MAST S2 8M AFT SLOOP ONE MAST S2 8M MID SLOOP ONE MAST SABRE 28 SLOOP ONE MAST SALT 19 SLOOP ONE MAST SAN JUAN 21 SLOOP ONE MAST SAN JUAN 26 SLOOP ONE MAST SCAMPI 30 SLOOP ONE MAST SOLNA CORP SCAMPI SLOOP ONE MAST TA CHIAO FANTASIA SLOOP ONE MAST TANZER 26 SLOOP ONE MAST TANZER 28 SLOOP ONE MAST VENTURE 21 SLOOP ONE MAST VENTURE 222 SLOOP ONE MAST WESTERLY CENTAUR SLOOP ONE MAST WESTSAIL 32 SLOOP ONE MAST WINDPOWER IMPULSE SLOOP ONE MAST WRIGHT SEAWIND II SLOOP ONE MAST SHOW TABLES Tables loaded: RIG_TABLE Tables: RIG_TABLE ! ! DECLARE A GLOBAL VARIABLE TO SIMPLIFY TABLE LOOK UP ! DECLARE RIG-DESCRIPTION COMPUTED BY RIG VIA RIG-TABLE EDIT-STRING IS X(30). ! PRINT TYPE, RIG-DESCRIPTION OF FIRST 10 YACHTS RIG MANUFACTURER MODEL DESCRIPTION ALBERG 37 MK II TWO MASTS, BIG ONE IN FRONT ALBIN 79 ONE MAST ALBIN BALLAD ONE MAST ALBIN VEGA ONE MAST AMERICAN 26 ONE MAST AMERICAN 26-MS SOMETHING ELSE BAYFIELD 30/32 ONE MAST BLOCK I. 40 ONE MAST BOMBAY CLIPPER ONE MAST BUCCANEER 270 ONE MAST ! ! RELEASE TABLE AND GLOBAL COMPUTED BY VARIABLE FROM MEMORY ! RELEASE RIG-TABLE FINISH ! ! Define Record for PERSONNEL ! DEFINE RECORD PERSONNEL_REC USING 01 PERSON. 05 ID PIC IS 9(5). 05 EMPLOYEE_STATUS PIC IS X(11) QUERY_NAME IS STATUS QUERY_HEADER IS "STATUS" VALID IF STATUS EQ "TRAINEE","EXPERIENCED". 05 EMPLOYEE_NAME QUERY_NAME IS NAME. 10 FIRST_NAME PIC IS X(10) QUERY_NAME IS F_NAME. 10 LAST_NAME PIC IS X(10) QUERY_NAME IS L_NAME. 05 DEPT PIC IS XXX. 05 START_DATE USAGE IS DATE. 05 SALARY PIC IS 9(5) EDIT_STRING IS $$$,$$$. 05 SUP_ID PIC IS 9(5). ; [Record PERSONNEL_REC is 58 bytes long] ! ! Define Record for PERSONNEL_SEQ ! DEFINE RECORD PERSONNEL_SEQ_REC USING 01 PERSON. 05 ID PIC IS 9(5). 05 EMPLOYEE_STATUS PIC IS X(11) QUERY_NAME IS STATUS QUERY_HEADER IS "STATUS" VALID IF STATUS EQ "TRAINEE","EXPERIENCED". 05 EMPLOYEE_NAME QUERY_NAME IS NAME. 10 FIRST_NAME PIC IS X(10) QUERY_NAME IS F_NAME. 10 LAST_NAME PIC IS X(10) QUERY_NAME IS L_NAME. 05 DEPT PIC IS XXX. 05 START_DATE PIC IS X(11). 05 SALARY PIC IS 9(5) EDIT_STRING IS $$$,$$$. 05 SUP_ID PIC IS 9(5). ; [Record PERSONNEL_SEQ_REC is 60 bytes long] ! ! Define Domain for PERSONNEL ! DEFINE DOMAIN PERSONNEL USING PERSONNEL_REC ON PERSON.DAT; ! ! Define Domain for PERSONNEL_SEQ ! DEFINE DOMAIN PERSONNEL_SEQ USING PERSONNEL_SEQ_REC ON LB:[1,2]PERSON.SEQ; ! ! Define File for PERSONNEL ! DEFINE FILE FOR PERSONNEL KEY=ID, SUPERCEDE; ! ! Copy Data from Sequential to Indexed File. ! READY PERSONNEL WRITE SHOW FIELDS PERSONNEL PERSON ID [Number, indexed key] EMPLOYEE_STATUS (STATUS) [Character string] EMPLOYEE_NAME (NAME) FIRST_NAME (F_NAME) [Character string] LAST_NAME (L_NAME) [Character string] DEPT [Character string] START_DATE [Date] SALARY [Number] SUP_ID [Number] Global variables: RIG_DESCRIPTION [Computed value] READY PERSONNEL_SEQ SHOW READY Ready domains: PERSONNEL_SEQ: RMS SEQUENTIAL, PROTECTED READ PERSONNEL: RMS INDEXED, PROTECTED WRITE ! ! ! ************ NOTE *********** ! *** The following STORE will take about 1/2 minute. *** ! ******************************* ! FOR PERSONNEL_SEQ STORE PERSONNEL USING PERSON=PERSON ! FINISH PERSONNEL_SEQ; ! ! Check out PERSONNEL ! READY PERSONNEL FIND PERSONNEL [23 records found] PRINT No record selected, printing whole collection FIRST LAST START SUP ID STATUS NAME NAME DEPT DATE SALARY ID 00012 EXPERIENCED CHARLOTTE SPIVA TOP 12-Sep-1972 $75,892 00012 00891 EXPERIENCED FRED HOWL F11 9-Apr-1976 $59,594 00012 02943 EXPERIENCED CASS TERRY D98 2-Jan-1980 $29,908 39485 12643 TRAINEE JEFF TASHKENT C82 4-Apr-1981 $32,918 87465 32432 TRAINEE THOMAS SCHWEIK F11 7-Nov-1981 $26,723 00891 34456 TRAINEE HANK MORRISON T32 1-Mar-1982 $30,000 87289 38462 EXPERIENCED BILL SWAY T32 5-May-1980 $54,000 00012 38465 EXPERIENCED JOANNE FREIBURG E46 20-Feb-1980 $23,908 48475 39485 EXPERIENCED DEE TERRICK D98 2-May-1977 $55,829 00012 48475 EXPERIENCED GAIL CASSIDY E46 2-May-1978 $55,407 00012 48573 TRAINEE SY KELLER T32 2-Aug-1981 $31,546 87289 49001 EXPERIENCED DAN ROBERTS C82 7-Jul-1979 $41,395 87465 49843 TRAINEE BART HAMMER D98 4-Aug-1981 $26,392 39485 78923 EXPERIENCED LYDIA HARRISON F11 19-Jun-1979 $40,747 00891 83764 EXPERIENCED JIM MEADER T32 4-Apr-1980 $41,029 87289 84375 EXPERIENCED MARY NALEVO D98 3-Jan-1976 $56,847 39485 87289 EXPERIENCED LOUISE DEPALMA G20 28-Feb-1979 $57,598 00012 87465 EXPERIENCED ANTHONY IACOBONE C82 2-Jan-1973 $58,462 00012 87701 TRAINEE NATHANIEL CHONTZ F11 28-Jan-1982 $24,502 00891 88001 EXPERIENCED DAVID LITELLA G20 11-Nov-1980 $34,933 87289 90342 EXPERIENCED BRUNO DONCHIKOV C82 9-Aug-1978 $35,952 87465 91023 TRAINEE STAN WITTGEN G20 23-Dec-1981 $25,023 87289 99029 EXPERIENCED RANDY PODERESIAN C82 24-May-1979 $33,738 87465 FINISH ! ! AS A KIND GESTURE, MAKE ALL OF THE EXAMPLES SHARABLE ! DEFINEP RIG-TABLE 2,UIC,[*,*],RE DEFINEP FAMILIES 2,UIC,[*,*],R DEFINEP FAMILY-REC 2,UIC,[*,*],RE DEFINEP KETCHES 2,UIC,[*,*],R DEFINEP OWNERS 2,UIC,[*,*],R DEFINEP OWNER-RECORD 2,UIC,[*,*],RE DEFINEP LOA-REPORT 2,UIC,[*,*],RE DEFINEP SAILBOATS 2,UIC,[*,*],R DEFINEP PERSONNEL 2,UIC,[*,*],R DEFINEP PERSONNEL_REC 2,UIC,[*,*],RE ! ! Completion of DATATRIEVE-11 V3.3 Installation Test ! EXIT End of Datatrieve-11 Installation Verification Installation of DTR (DTR) ending at 10-MAR-21 02:50:32. Installation of DTR (DTR) successful. Auto-Install ended on 10-MAR-21 at 02:50:33. >