Google
 

Trailing-Edge - PDP-10 Archives - BB-H137D-BM - uetp/lib/sort.app
There are 9 other files named sort.app in the archive. Click here to see a list.
!
!
!	Sort.App
!
!	(C) 1979 by Digital Equipment Corporation
!
!
!	This test file tests the SORT utility and the
!	machine.  
!
!
!	Files required
!
!	Sort.Inp          The input file
!	Sort.Dat          The previous output file
!	Sys:SORT.Exe      The utility
!
!
@Define Dsk: <Uetp.Sort>,Dsk:<Uetp.Lib>
@Take Sys.Cmd
!
!	Message:  Start of Sort test
!
@Run <Uetp.Lib>Sender
*Type START
*Blabel BEGIN:
*Test SORT
*Send Start of SORT test
*Exit

@Noerror
@Delete *.*
@Expunge <Uetp.Sort>
@Error
!
!	Test for the existence of the utility
!
@Get Sys:SORT.Exe
@If (Noerror) Goto SORT::
!
!	Message:  SORT not available
!
@Run <Uetp.Lib>Sender
*Type ERROR
*Blabel BEGIN:
*Test SORT
*Send SORT not available
*Exit

@Goto End::

SORT::

@Start
*Sort /Record-size:190/Key:1,40 Sort.Inp Sort.Out	!*SORT.OUT=SORT.INP/KEY:1:40/RECORD:190
*Exit	!*/EXIT
@If (Noerror) Goto Runok::

!	Message:  Error in running SORT program

@Run <Uetp.Lib>Sender
*Type ERROR
*Blabel COMPOK:
*Test SORT
*Send Error in running SORT progam
*Exit

@Goto End::

Runok::

!	Now compare output file with previous output file

@Error %
@Define UL: <Uetp.Sort>	
@Filcom
*Nul:=Sort.Dat, UL:Sort.Out
@
@If (Noerror) Goto Fcomok::

!	Message:  Output file is incorrect

@Run <Uetp.Lib>Sender
*Type ERROR
*Blabel Runok:
*Test SORT
*Send Error in output file
*Exit

Fcomok::

@Goto End::

%Terr::

!	Message:  Time out error in SORT test

@Run <Uetp.Lib>Sender
*Type ERROR
*Blabel Terr:
*Test SORT
*Send Time out error in SORT test
*Exit

@Goto End::



%Err::
@Chkpnt Dskfd:

!	Message:  Unknown error in SORT test
@Run <Uetp.Lib>Sender
*Type ERROR
*Blabel END:
*Test SORT
*Send Unkown error in SORT test
*Exit
@Goto End::

End::
@Run <Uetp.Lib>Sender
*Type END
*Blabel END:
*Test SORT
*Send End of SORT test
*Exit