Google
 

Trailing-Edge - PDP-10 Archives - k20v7d - uetp/lib/cobold.ver
There is 1 other file named cobold.ver in the archive. Click here to see a list.
!This software is furnished under a license and may only be used
!   or copied in accordance with the terms of such license.
!
!Copyright (C) 1978 by Digital Equipment Corporation, Maynard MA
!
!Cobol-DBMS test
!
!
@Take PS:<UETP.LIB>Sys.Cmd
@Define Dsk: <Uetp.Cobold>,PS:<Uetp.Lib>
@Define Sys: Dsk:,Sys:
!
! This test requires ENQ-DEQ capability and runs enabled
!
@Enable (Capabilities)
!
!	Message:  Start of COBOLD test
!
@Run PS:<UETP.LIB>Sender
*Type START
*Blabel BEGIN:
*Test COBOLD
*Send Start of COBOLD test
*Exit


@Noerror
@Delete <Uetp.Cobold>*.*
@Expunge <Uetp.Cobold>
@Error
!
!	Test for the existence of the compiler and DBMS
!
@Get Sys:Cobol
@Get Sys:Schema

@If (Noerror) @Goto Cont0::
!
!	Message:  Cobol or DBMS not available
!
@Run PS:<UETP.LIB>Sender
*Type ERROR
*Blabel BEGIN:
*Test COBOLD
*Send COBOL or DBMS not available
*Exit
@Goto End::


Cont0::

@Define JRN: DSK:
@Define INFILE: DSK:
@Define U: PS:<UETP.LIB>

@R Sys:Schema
*SPDAVE=U:SPDAVE


@Take Online
@Take Report
@Take Batch.CMD

@Run Sys:Cobol
*,-=Batch/R
*,-=Spdbms/R

@Link
*Batch/Save=Batch
*Spdbms
*Sys:Libol/Search
*/Go

@If (Noerror) @Goto Compok::

!	Message:  Error in compiling programs
!
@Run PS:<UETP.LIB>Sender
*Type ERROR
*Blabel Comp:
*Test COBOLD
*Send Error in compiling programs
*Exit
@Goto End::

Compok::

@Run Sys:Schema
*Spdave=U:Spdave


@Run Batch
*MYID
*PBLOADFIL


@Run Online
*MYID
*OP
*01
*1,1,1
*01
*2,2,1
*01
*3,3,2
*01
*4,4,2
*01
*5,5,3
*01
*6,6,4
*03
*1,1
*03
*2,1
*03
*3,1
*03
*4,2
*03
*5,2
*EX


@Run Report
*01
*
*12
*MYID


@Type Postal.Rpt

@If (Noerror) @Goto End::
!
!	Message:  Error in running programs
!
@Run PS:<UETP.LIB>Sender
*Type ERROR
*Blabel Comp:
*Test COBOLD
*Send Error in running programs
*Exit

@Goto End::




%Terr::
!
!	Message:  Time out error in COBOLD test
!
@Run PS:<UETP.LIB>Sender
*Type ERROR
*Blabel Terr:
*Test COBOLD
*Send Time out error in COBOLD test
*Exit
@Goto End::

%Err::
!
!	Message:  Unknown error in COBOLD test
!
@Run PS:<UETP.LIB>Sender
*Type ERROR
*Blabel Err:
*Test COBOLD
*Send Unknown error in COBOLD test
*Exit
@Goto End::

End::
!
!	Message:  End of COBOLD test
!
@Run PS:<UETP.LIB>Sender
*Type END
*Blabel End:
*Test COBOLD
*Send End of COBOLD test
*Exit