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

!COBOL-74 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) 1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

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

.Set default prot <000>


!FILES NEEDED:
!		XT7409.CBL
!		XT749S.CBL
		! ***** message START OF COBOL SORT TEST
.RUN UTP:SENDER
*TYPE START
*BLABEL BEGIN:
*TEST CBL74
*SEND Start of cobol-74 SORT TEST
*EXIT

.NOERROR
.DELETE *.*
.ERROR




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

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

.GOTO NOCOB::

COB::
!
!COBOL WARNING MESSAGES ARE NORMAL HERE
!
.GET SYS:CBL74
.VERSIO
.R CBL74
*=XT7409
*=XT749S
.IF (NOERROR) @GOTO SAVE::

	! ***** message: ERROR compiling XTBL09 or XTBL9S WILL USE .EXE files
.RUN UTP:SENDER
*TYPE ERROR
*BLABEL COB:
*TEST CBL74
*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 CBL74
*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 CBL74
*SEND unknown ERROR in COBOL-74 SORT TEST
*EXIT



fin::
%FIN::

.NOERROR
.DELETE XT7409.REL,XT7409.LST
.DELETE PRNTFI.LE
.DELETE CBLSRT.EXE
.DELETE XTBL09.DAT
.DELETE XT749S.REL,XT749S.LST

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