DATATRIEVE-11 это база данных со своим языком запросов и встроенной системой отчётов.
Так как рабочая версия есть только в сети HECnet, то смонтировать образ в simh не получится. И поэтому скачаем образ ленты с узла CTAKAH, а затем с помощью VCP смонтируем образ сразу в системе и с него через Auto-Install установим базу данных.
VCP - это утилита позволяющая в системе RSX11M+ монтировать образы лент и дисков.
Я скачал образ с узла CTAKAH сразу на RL02 диск, чтобы в будущем можно было ставить с него и не зависеть от подключения к HECnet. Поэтому покажу установку сразу с RL02 без копирования по сети.
[skip]
>MOU DL0: DTR33A
>VCP CREATE /UNIT=3/ALT
>VCP CON DL0:[DTR33A]DTR33A.TAP/TAP/DRV:MS:/RO/MOU:FOR
VCP - Device VF0: (MS1:) has been assigned.
>INS $BRU
>BRU /DIR MS1:
VOL1. AUT101.A USER1 18-DEC-89 19:44:06
VOL1. AUTVER.BCK USER1 18-DEC-89 19:44:23
VOL1. DTRDTR.BCK USER1 18-DEC-89 19:44:33
VOL1. DTRREL.BCK USER1 18-DEC-89 19:44:43
VOL1. DTR303.A USER1 18-DEC-89 19:44:54
BRU - Completed
>@[367,367]autoin
SET -- Invalid UIC
RSX-11M/M-PLUS Auto-Install Procedure V1.1
01-FEB-16 19:50:19
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 ? MS1:
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)
? MS1:
BRU - Starting Tape 1 on MS1:
BRU - End of Tape 1 on MS1:
BRU - Completed
Products being installed:
Device Product Task name
------ ------- ---------
MS1: DTR (DTR)
Determining system configuration.
SET -- Invalid UIC
SET -- Invalid UIC
Do you want to customize DTR (DTR) (Y/N) ? N
SET -- Invalid UIC
Installation of DTR (DTR) beginning at 01-FEB-16 19:50:40
Reading DTRDTR.CFG.
Transferring kit files to work area.
BRU - Starting Tape 1 on MS1:
BRU - End of Tape 1 on MS1:
BRU - Completed
BRU - Starting Tape 1 on MS1:
BRU - End of Tape 1 on MS1:
BRU - Completed
19:50:40 *** MS1: -- Dismount complete
DMO -- TT0: dismounted from MS1: *** Final dismount initiated ***
Building product DTR (DTR).
SET -- Invalid UIC
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.
INS -- File not found
FATAL ERROR -- Error installing NCP
DATATRIEVE-11 installation procedure ended
SET -- Invalid UIC
Transferring files from work area.
Running IVP command procedure DTRIVP.CMD.
SET -- Invalid UIC
!
! 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)
Conversion error from date string "TODAY"
31-Jan-2016 Monday
!
! 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 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 VERIFY
VERIFY USING
BEGIN
PRINT
DISPLAY "CONFIRM WITH Y IF OK"
IF *.CONFIRM NOT CONTAINING "Y" THEN ABORT "UPDATE ABORTED"
END
END-PROCEDURE
DEFINEP VERIFY 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 VERIFY
Tables:
The current dictionary is DB:[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 1-Feb-116
(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 1-Feb-116
(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
"ANOTHER SERVICE OF QUERY ENTERPRISES"
JIM'S VERY OWN LISTING
OF
INTERESTING SAILBOATS 1-Feb-116
(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 LOA40 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
SET -- Invalid UIC
SET -- Invalid UIC
Installation of DTR (DTR) ending at 01-FEB-16 19:51:11.
SET -- Invalid UIC PIP -- Not a directory device
MS1:[222,200]DTRUPD.DON;*
Installation of DTR (DTR) successful.
SET -- Invalid UIC
Auto-Install ended on 01-FEB-16 at 19:51:11.
>DTR
DATATRIEVE-11, DEC Query and Report System
Version: V03.03-07, 1-DEC-89
Type HELP for help
DTR> EXIT
>RUN $SHUTUP