C*****************************************************************************
C
C	            Channel-Oriented Function Test Controller
C
C-----------------------------------------------------------------------------
C
C Program	: Test Channel-Oriented/ TChanO.For
C Author	: John Malcolmson
C Date		: June 1986
C Language	: Fortran 77
C Notes		: The program is chained to by the Libtst program.
C
C*****************************************************************************

	Program TChanO

C--------------------------------- IMPORT -----------------------------------)
C
C	FROM ChanO IMPORT AS
		Integer*4	TstIabtio, TstIcdfn, TstIchcpy, TstIcstat
		Integer*4	TstIfreec, TstIgetc, TstIlun,   TstReopn
		Integer*4	TstIsaves, TstIwait, TstMwait,  TstPurge
C	END IMPORT
C
C----------------------------------------------------------------------------)

		Character*80	st
		Integer*4	AStat(12)
		Character*6     Alabl(12)
		Include 'SRC:Tbegin.for'
		IF (page) Call SetPage( 'Channel-Oriented Operations\', Pnum )

		Astat(01) = TstIabtio()
		ALabl(01) = 'IABTIO'
		Astat(02) = TstIcdfn()
		Alabl(02) = 'ICDFN '
		Astat(03) = TstIchcpy()
		Alabl(03) = 'ICHCPY'
		Astat(04) = TstIcstat()
		Alabl(04) = 'ICSTAT'
		Astat(05) = TstIfreec()
		Alabl(05) = 'IFREEC'
		Astat(06) = TstIgetc()
		Alabl(06) = 'IGETC'
		Astat(07) = TstIlun()
		Alabl(07) = 'ILUN'
		Astat(08) = TstReopn()
		Alabl(08) = 'IREOPN'
		Astat(09) = TstIsaves()
		ALabl(09) = 'ISAVES'
		Astat(10) = TstIwait()
		ALabl(10) = 'IWAIT'
		Astat(11) = TstMwait()
		ALabl(11) = 'MWAIT'
		Astat(12) = TstPurge()
		ALabl(12) = 'PURGE'

100		st = '===== Channel-Oriented Operation Error Report Summary =====\'
		Call CenterString( st )
		Call WriteLn
		Rprt = Report( Astat, Alabl, 12 )
		st = '===== End of Channel-Oriented Operation Report =====\'
		Call CenterString( st )
		Call WriteLn
		Call WriteLn

		Include 'SRC:Tend.for'