Google
 

Trailing-Edge - PDP-10 Archives - BB-H580C-SB_1981 - cblsrt.ver
There are 18 other files named cblsrt.ver in the archive. Click here to see a list.
;<UETP.LIB>CBLSRT.SUP.14,  2-Jun-78 10:05:46, Edit by ENGEL
;<UETP.RUN>CBLSRT.SUP.36, 22-Mar-78 15:03:10, Edit by ENGEL
!COBOL SORT TEST
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
!COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

.R SETSRC
*CP [5,33,CBLSRT]
*LIB:[5,33]
*

.Set default prot <000>


!FILES NEEDED:
!		XTBL09.CBL
!		XTBL9S.CBL
		! ***** message START OF COBOL SORT TEST
.RUN UTP:SENDER
*TYPE START
*BLABEL BEGIN:
*TEST CBLSRT
*SEND Start of cobol SORT TEST
*EXIT

.NOERROR
.DELETE *.*
.ERROR




!TEST FOR EXISTENCE OF COBOL COMPILER ON THIS SYSTEM.
.GET SYS:COBOL.EXE
.IF (NOERROR) .GOTO COB::

		! ***** message:COBOL not available will use .EXE files
.RUN UTP:SENDER
*TYPE MINOR
*BLABEL BEGIN:
*TEST CBLSRT
*SEND COBOL not available will use .EXE files
*EXIT

.GOTO NOCOB::

COB::
!
!COBOL WARNING MESSAGES ARE NORMAL HERE
!
.GET SYS:COBOL
.VERSIO
.LOAD XTBL09.CBL/COMP,XTBL9S.CBL/COMP
IF (NOERROR) @GOTO SAVE::

		! ***** message: ERROR compiling XTBL09 or XTBL9S WILL USE .EXE files
.RUN UTP:SENDER
*TYPE ERROR
*BLABEL COB:
*TEST CBLSRT
*SEND ERROR compiling XTBL09 or XTBL9S WILL USE .EXE files
*EXIT

.GOTO NOCOB::

SAVE::

.Save CBLSTR.EXE

NOCOB::
.RUN CBLSRT.EXE
*X
*X
*1
*1
.IF (NOERROR) .GOTO FIN::

		! ***** message: ERROR in CBLSRT.EXE
.RUN UTP:SENDER
*TYPE ERROR
*BLABEL NOCOB:
*TEST CBLSRT
*SEND ERROR in CBLSRT.EXE
*EXIT

.GOTO FIN::

END::

%ERR::
		! ***** message: unknon ERROR in COBOL SORT TEST
.RUN UTP:SENDER
*TYPE ERROR
*BLABEL END:
*TEST CBLSRT
*SEND unknown ERROR in COBOL SORT TEST
*EXIT



fin::
%FIN::

.NOERROR
.DELETE XTBL09.REL
.DELETE PRNTFI.LE
.DELETE CBLSRT.EXE
.DELETE XTBL09.DAT
.DELETE XTBL9S.REL

.CHKPNT ADSF::
		! ***** message: END OF COBOL SORT TEST
.RUN UTP:SENDER
*TYPE END
*BLABEL END:
*TEST CBLSRT
*SEND END OF COBOL SORT TEST
*EXIT