Google
 

Trailing-Edge - PDP-10 Archives - BB-H506E-SM - cobol/source/dsort.mac
There are 5 other files named dsort.mac in the archive. Click here to see a list.
; UPD ID= 3021 on 7/7/80 at 11:01 AM by NIXON                           
TITLE SORT -- DUMMY COBOL SORT
SUBTTL DON LEWINE/DMN

	SEARCH	COPYRT
	SALL

;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1977, 1985
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE.

	SEARCH	LBLPRM

IFN TOPS20,<HISEG>

	.COPYRIGHT		;Put standard copyright statement in REL file

ENTRY	ENDS., MCLOS., MERGE., PMERG., PSORT., RELES., RETRN.

EXTERN	KILL.

V%SORT==:0		;FOR LIBOL ERROR MESSAGE (REAL SORT NOT AVAILABLE).

ENDS.: MCLOS.: MERGE.: PMERG.: PSORT.: RELES.: RETRN.:

IFN TOPS20,<
	SEARCH	MONSYM

	HRROI	1,MSG
	PSOUT%
	JRST	KILL.
 IFN ANS68,<
MSG:	ASCIZ	"
?    This version of COBOL-68 does not include SORT-20. To obtain
     SORT-20  contact  your local Digital office and order option
     QT007.

     After you get SORT-20, update SYS:LIBOL.REL and SYS:LIBO12.EXE.
     See SORT.CTL for details.

"
 >
 IFN ANS74,<
MSG:	ASCIZ	"
?    This version of COBOL-74 does not include SORT-20. To obtain
     SORT-20  contact  your local Digital office and order option
     QT007.

     After you get SORT-20, update SYS:C74LIB.REL and SYS:C74O12.EXE.
     See SORT.CTL for details.

"
 >
>
IFE TOPS20,<
	OUTSTR	MSG
	JRST	KILL.

 IFN ANS68,<
MSG:	ASCIZ	"
?    This version of COBOL-68 does not include SORT-10. To obtain
     SORT-10  contact  your local Digital office and order option
     QH300.

     After you get SORT-10, update SYS:LIBOL.REL
     See SORT.CTL for details.

"

 >
 IFN ANS74,<
MSG:	ASCIZ	"
?    This version of COBOL-74 does not include SORT-10. To obtain
     SORT-10  contact  your local Digital office and order option
     QH300.

     After you get SORT-10, update SYS:C74LIB.REL
     See SORT.CTL for details.

"
 >
>

	END