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