Google
 

Trailing-Edge - PDP-10 Archives - BB-D867E-BM - uetp/lib/cobold.app
There are 9 other files named cobold.app 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
!
!
@Define Dsk: <Uetp.Cobold>, Dsk:<Uetp.Lib>
@Take Sys.Cmd
@Define Sys: Dsk:,Sys:
!
! This test requires ENQ-DEQ capability and runs enabled
!
@Enable (Capabilities)
!
!	Message:  Start of COBOLD test
!
@Run <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 <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: <Uetp.Lib>

@R Sys:Schema
*SPDAVE=U:SPDAVE


@Take Online
@Take Report
@Take Batch

!!@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 <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 <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 <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 <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 <Uetp.Lib>Sender
*Type END
*Blabel End:
*Test COBOLD
*Send End of COBOLD test
*Exit