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