Google
 

Trailing-Edge - PDP-10 Archives - BB-H580C-SB_1981 - 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


;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, 1981 BY DIGITAL EQUIPMENT CORPORATION

	SEARCH	LBLPRM

IFN TOPS20,<HISEG>

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