Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;<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>

@DEFINE UTP: PS:<UETP.LIB>		!.none

!FILES NEEDED:
!		XTBL09.CBL
!		XTBL9S.CBL
@TAKE PS:<UETP.LIB>SYS.CMD	!.none
@DEF DSK: <UETP.CBLSRT>,PS:<UETP.LIB>	!.none
		! ***** message START OF COBOL SORT TEST
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE START
*BLABEL BEGIN:
*TEST CBLSRT
*SEND Start of cobol SORT TEST
*EXIT

@NOERROR	!.NOERROR
@DELETE *.*
@EXPUNGE <UETP.CBLSRT>	!.none
@ERROR	!.ERROR


@I DIS <UETP.CBLSRT>	!.none
@I  LOG ALL	!.none


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

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

@GOTO NOCOB::	!.GOTO NOCOB::

COB::
!
!COBOL WARNING MESSAGES ARE NORMAL HERE
!
@GET SYS:COBOL	!.GET SYS:COBOL
@INF VER	!.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	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL COB:
*TEST CBLSRT
*SEND ERROR compiling XTBL09 or XTBL9S WILL USE .EXE files
*EXIT

@GOTO NOCOB::	!.GOTO NOCOB::

SAVE::

@SAVE CBLSRT.EXE	!.Save CBLSTR.EXE

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

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

@GOTO FIN::	!.GOTO FIN::

END::

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



fin::
%FIN::

@NOERROR	!.NOERROR
@RESET	!.none
@DELETE XTBL09.REL
@DELETE PRNTFI.LE
@DELETE CBLSRT.EXE
@DELETE XTBL09.DAT
@DELETE XTBL9S.REL
@EXPUNGE <UETP.CBLSRT>	!.none

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