Google
 

Trailing-Edge - PDP-10 Archives - DBMS-20_V6_BIN_19811001 - sources/thefor.ctl
There are 2 other files named thefor.ctl in the archive. Click here to see a list.
@;		FILES NEEDED:
@;
@;SYS: FORDML.EXE
@;     FORLIB.REL
@;     SCHEMA.EXE, DBINFO.EXE, DBMEND.EXE, LINK.EXE
@;
@;DSK: THEFOR.FML,THEFOI.FML
@;
@;
@;  Delete (possibly) old copies of test data base, schema, journal, and log
@;

@ENABLE
@DELETE HEAD.DBS,INDEX.DBS,INVTRY.DBS,MANFCT.DBS,ORDER.DBS,OWNERS.DBS,PEOPLE.DBS,TEMP.DBS,THEMES.JRN,THEME.LOK,THEME.SCH,THEFOR.FOR,THEINI.FOR,THEFOR.REL,THEINI.REL,THEFOR.EXE,THEFOI.EXE

@TAKE DSK:SETUP.CMD
@I LOG
@GET SYS:SCHEMA
@I VER

@START
*THEME/CREATE

@GET SYS:FORDML
@I VER
@START
THEFOR
THEFOI
@GET SYS:FORTRA
@I VER
@;TEST USAGE OF FORLIB.REL
@START
THEFOI=THEFOI
@LINK
THEFOI,SYS:FORLIB/S/G
@SAVE THEFOI
@;TEST USAGE OF DBMSF.EXE
@LOAD THEFOR
@SAVE THEFOR.EXE
@;
@;
@;INITIALIZE THE DBS FILES (STORING HEADER RECORDS FOR FOLLOWING PROGRAM)
@;
@RUN THEFOI
@;
@;
@RUN THEFOR
*Y
*HELP
*cl
*ad
*Supervisor
*Works too hard
*cl
*ad
*Project Leader
*Doesn't have enough time
*cl
*ad
*Engineer
*Works hard or hardly works
*cl
*ad
*Manager
*Empire builder
*DE
*AD
*341
*LSG Software Engineering
*341
*200 Forest Street
*Marlboro
*Mass.
*01752
*9999999
*de
*ad
*322
*Technical Support Group
*322
*200 Forest Street
*Marlboro
*Mass.
*01752
*9999999
*EM
*ad
*66666
*Harrelson
*William
*B.
*NNNNN
*1
*Boston
*Mass.
*77777
*4
*341
*Supervisor
*em
*ad
*77777
*Berenson
*Hal
*
*nnnn
*nn
*Marlboro
*Mass.
*88888
*4
*341
*Project Leader
*em
*ad
*88888
*Fries
*Joe
*
*nnn
*
*Stirling
*Mass
*99999
*4
*341
*Engineer
*em
*li
*pa
*ad
*1
*Widget
*2000
*100
*0
*2
*14.57
*pa
*ad
*2
*Blivet
*100
*95
*0
*1
*73.95
*pa
*ad
*3
*Framus
*5
*1
*22
*4
*5.25
*pa
*ad
*4
*Couch
*1
*0
*1
*90
*357.69
*pa
*li
*pa
*ad
*5
*Desk
*43
*2
*105
*90
*125.00
*pa
*sh
*5
*ex
@IF (ERROR) @GOTO ERR1
@;
@;
@; Now try the recovery utility
@;
@;---first break something
@RUN THEFOR
*Y
*PA
*ad
*6
*Desk2
*432
*^C
@IF (ERROR) @GOTO ERR1
@;
@;-SHOULD NOW BE BROKEN, TRY
@RUN THEFOR
*Y
*EX
@IF (ERROR) @GOTO ERR1
@;IF HERE (SUCCESSFUL RUN OF THEME, IT IS ACTUALLY AN ERROR)
@PLEASE -DBMS INSTALLATION UNSUCCESSFUL
@GOTO FIN
ERR1::
@;
@;IT'S OK TO BE HERE
@;
@IF (ERROR) @GOTO ERR2
@GET SYS:DBMEND
@I VER
@START
*SCH THEME
*DELETE TRANSACTION
*EXIT
@RUN THEFOR
*Y
*EX
@;
@; Now try the Info utility
@;
@GET SYS:DBINFO
@I VER
@;
@START
*SCH THEME
*SS COBSYS:ACEDB
*SU TTY:
*OPEN ALL:MAXINE
*DIS CREF
*DIS FREE
*DIS CALC
*DIS DATA
*DIS KEY
*EXIT
@PLEASE - DBMS INSTALLATION SUCCESSFUL
@GOTO FIN
@ERR2::
@PLEASE - DBMS INSTALLATION UNSUCCESSFUL
FIN::