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

!COBOL-74 AND 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>

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

!FILES NEEDED:
!		XT7409.CBL
!		XT749S.CBL
@take PS:<UETP.LIB>sys.cmd
@def dsk: <uetp.CBL74>,PS:<uetp.lib>
		! ***** message START OF COBOL SORT TEST
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE START
*BLABEL BEGIN:
*TEST CBL74
*SEND Start of cobol-74 W/ SORT TEST
*EXIT

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


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


!TEST FOR EXISTENCE OF COBOL COMPILER ON THIS SYSTEM.
@GET SYS:CBL74.EXE	!.GET SYS:CBL74.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 CBL74
*SEND COBOL-74 not available will use .EXE files
*EXIT

@GOTO NOCOB::	!.GOTO NOCOB::

COB::
!
!COBOL WARNING MESSAGES ARE NORMAL HERE
!
@GET SYS:CBL74	!.GET SYS:COBOL
@INF VER	!.VERSIO
@START
*=XT7409
*=XT749S
@IF (ERROR) @GOTO CERR
@LOAD XT7409.REL,XT749S.REL
@IF (NOERROR) @GOTO SAVE::

CERR::
! ***** message: ERROR compiling XTBL09 or XTBL9S WILL USE .EXE files
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL COB:
*TEST CBL74
*SEND ERROR compiling XT7409 or XT749S WILL USE .EXE files
*EXIT

@GOTO NOCOB::	!.GOTO NOCOB::

SAVE::

@SAVE CBL74T.EXE	!.Save CBL74T.EXE

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

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

@GOTO FIN::	!.GOTO FIN::

END::

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



fin::
%FIN::

@NOERROR	!.NOERROR
@RESET	!.none
@DELETE XT7409.REL
@DELETE PRNTFI.LE
@DELETE CBL74T.EXE
@DELETE XT7409.DAT
@DELETE XT749S.REL
@EXPUNGE <UETP.CBL74>	!.none

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