Program TSXTST
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c
c	Dr. Klaus P. Schneider				May 1988
c
c This Program tests the TSXLIB Routines: ITRTYP = terminal type
c                                         ITSLIC = licence number
c                                         ISPBLK = free spool blocks 
c                                         ITSLIN = TSX line number
c                                         STDTJB = start detached job
c                                         ISTDJ  = status of detached job
c                                         KLDTJB = kill detached job
c
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c

	LOGICAL*1 JOBNAM(15)


c..... test Terminal Typ 
	CALL ITRTYP (IRET)
	IF(IRET.EQ.9) TYPE 109
109	FORMAT(/,' Terminal         = VT200 ')


c..... TSX LIZENZ Nummer 
	CALL ITSLIC (IRET)
	TYPE 101,IRET
101	FORMAT(/,' TSX LICENSE #    = ',I6)


c..... test spool blocks 
	CALL ISPBLK (IRET)
	TYPE 102,IRET
102	FORMAT(/,' Free Spoolblocks = ',I6)


c..... test line Nr. 
	CALL ITSLIN (ILINE)
	TYPE 103,ILINE
103	FORMAT(/,' TSX Line #       = ',I6,/)


c..... start eines detached jobs 
	CALL SCOPY('DK:MSWRCV.COM',JOBNAM,13)
	JOBNAM(14) = 0
	CALL STDTJB (JOBNAM,JOBN,IERR)
	TYPE *,'Detached Job number = ',JOBN
	Type *,'Error flag          = ',IERR

c..... test status, detached job 
	JOBNUM = JOBN
	CALL ISTDJ (JOBNUM,ISTAT)
	TYPE 104,ISTAT
104	FORMAT(/,' STATUS des Detached JOB ',I6,'  0 ... not activ ',/
	1,       '                                 1 ... job activ ',/)

	PAUSE ' check running Jobs with SHOW JOB command on a Subprocess'

c..... kill detached job 
	JOBNUM = JOBN
	CALL KLDTJB (JOBNUM,IERR)
	TYPE *,' Error flag  = ',IERR

	pause ' Detached Job killed, check with SHOW JOB on a Subprocess'


c..... test status, detached job 
	JOBNUM = JOBN
	CALL ISTDJ (JOBNUM,ISTAT)
	TYPE 104,ISTAT

	STOP
	END