Google
 

Trailing-Edge - PDP-10 Archives - DBMS-20_V6_BIN_19811001 - sources/thecbl.ctl
There are 2 other files named thecbl.ctl in the archive. Click here to see a list.
@;		FILES NEEDED:
@;
@;SYS: COBOL.EXE AND/OR CBL74.EXE
@;     LIBOL.REL   "    C74LIB.REL
@;     LIBO12.EXE  "    C74O12.EXE
@;     SCHEMA.EXE, DBINFO.EXE, DBMEND.EXE, LINK.EXE
@;
@;DSK: THECBL.CBL AND/OR THEC74.CBL
@;     THEINI.CBL, THEME.DDL
@;
@;  Delete (possibly) old copies of test data base, schema, journal, and log
@;

@DELETE HEAD.DBS,INDEX.DBS,INVTRY.DBS,MANFCT.DBS,ORDER.DBS,OWNERS.DBS,PEOPLE.DBS,TEMP.DBS,THEMES.JRN,THEME.LOK,THEME.SCH,THECBL.EXE,THECBL.REL,THECBL.LST,THEINI.LST,THEINI.REL

@DELETE HEAD.TMP,INDEX.TMP,INVTRY.TMP,MANFCT.TMP,ORDER.TMP,OWNERS.TMP,PEOPLE.TMP,TEMP.TMP

@ERROR
@TAKE DSK:SETUP
@I LOG

@GET SYS:SCHEMA
@I VER

@START
*THEME/CREATE
@IF (ERROR) @GOTO NOGOOD

@GET SYS:COBOL
@IF (ERROR) @GOTO CBL74
@I VER
@; This will test both LIBO12.EXE and LIBOL.REL
@START
*THECBL=THECBL/R
*THEINI=THEINI
*
@IF (ERROR) @GOTO NOGOOD

@; Now load and test the programs
@LINK
*THECBL,SYS:LIBOL/S/G
@SAVE THECBL
@IF (ERROR) @GOTO NOGOOD
@;
@;
@;INITIALIZE THE DBS FILES (STORING HEADER RECORDS FOR FOLLOWING PROGRAM)
@;
@EXE THEINI
@IF (ERROR) @GOTO NOGOOD
@;
@;
@RUN THECBL
*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
*tr
*ad
*99
*011181
*32
*tr
*ad
*88
*012181
*200
*tr
*li
*or
*1
*Y
*Smith, Fred
*Main Street
*Middletown
*Anystate
*99999
*011181
*012181
*4
*y
*2
*y
*Y
*1
*y
*10
*y
*n
*52.27
*cu
*al
*@
*or
*1
*011181
*012181
*3
*y
*2
*y
*y
*2
*y
*5
*y
*n
*1280.50
*cu
*al
*@
*ex
@IF (ERROR) @GOTO NOGOOD
@;
@;	NOW TRY THE COBOL-74 INSTALLATION
@;
@;
@;
@;
@;

CBL74::

@; test for a cobol-74 before recreating
@GET SYS:CBL74
@IF (ERROR) @GOTO NOC74

@DELETE HEAD.DBS,INDEX.DBS,INVTRY.DBS,MANFCT.DBS,ORDER.DBS,OWNERS.DBS,PEOPLE.DBS,TEMP.DBS,THEMES.JRN,THEME.LOK,THEME.SCH,THEINI.LST,THEINI.REL
@;
@; Re-create the schema and .DBS files
@;
@R SYS:SCHEMA
*THEME/CREATE
@IF (ERROR) @GOTO NOGOOD
@;
@GET SYS:CBL74
@I VER
@; This will test both C74O12.EXE and C74LIB.REL
@START
*THEC74=THEC74/R
*THEINI=THEINI
*
@IF (ERROR) @GOTO NOGOOD

@; Now load and test the programs
@LINK
*THEC74,SYS:C74LIB/S/G
@SAVE THEC74
@IF (ERROR) @GOTO NOGOOD
@;
@;
@;INITIALIZE THE DBS FILES (STORING HEADER RECORDS FOR FOLLOWING PROGRAM)
@;
@EXE THEINI
@IF (ERROR) @GOTO NOGOOD
@;
@;
@RUN THEC74
*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
*tr
*ad
*99
*011181
*32
*tr
*ad
*88
*012181
*200
*tr
*li
*or
*1
*Y
*Smith, Fred
*Main Street
*Middletown
*Anystate
*99999
*011181
*012181
*4
*y
*2
*y
*Y
*1
*y
*10
*y
*n
*52.27
*cu
*al
*@
*or
*1
*011181
*012181
*3
*y
*2
*y
*y
*2
*y
*5
*y
*n
*1280.50
*cu
*al
*@
*ex
@IF (ERROR) @GOTO NOGOOD
@GOTO DBMEND


NOC74::
@;NO CBL74, CHECK IF THERE WAS A COBOL-68
@GET THECBL
@IF (ERROR) @GOTO NOGOOD

DBMEND::
@;
@;
@; Now try the recovery utility
@;
@;---first break something, using thecbl, as it contains transactions
@RUN THECBL
*Y
*PA
*ad
*6
*Desk2
*432
*^C
@IF (ERROR) @GOTO NOGOOD
@;
@;---should now be broken, try
@RUN THECBL
*Y
*EX
@IF (ERROR) @GOTO ERR1
@;
@;if here (successful run of THEME, it is actually an error)
@;
@GOTO NOGOOD
@;
@;

ERR1::
@;
@;it's OK to be here
@;
@GET SYS:DBMEND
@IF (ERROR) @GOTO NOGOOD
@I VER
@START
*SCH THEME
*DELETE TRANSACTION
*EXIT
@IF (ERROR) @GOTO NOGOOD
@;
@;
@RUN THECBL
*Y
*EX
@IF (ERROR) @GOTO NOGOOD
@;
@; Now try the Info utility
@;
@GET SYS:DBINFO
@IF (ERROR) @GOTO NOGOOD
@I VER
@;
@R SYS:DBINFO
*SCH THEME
*SS COBSYS:ACEDB
*SU TTY:
*OPEN ALL:MAXINE
*DIS CREF
*DIS FREE
*DIS CALC
*DIS DATA
*DIS KEY
*EXIT
@IF (ERROR) @GOTO NOGOOD
@PLEASE - DBMS INSTALLATION SUCCESSFUL
@GOTO FIN
NOGOOD::
@PLEASE - DBMS INSTALLATION UNSUCCESSFUL
FIN::