Program Status c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ c c Dr. Klaus P. Schneider May 1988 c c This Program tests the TSXLIB Routines: GTJBMN = Jobnumber c ICONTM = connect time c ICPUTM = cpu time c IEXSTS = exec. status c ILNSTS = line status bit c IPGNAM = program name c IPPNUM = project number c JOBPRI = job priority c MEMPOS = memory position c MEMUSE = memory use c c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ c LOGICAL*1 JOBNAM(12),STRING(8) DIMENSION IBUF(2),IPRI(2),ITIME(2) Linum = 1 Call GTJBNM ( LINUM,JOBNAM,IERR ) IF ( IERR .EQ. 0 ) STOP ' Line not logged on' TYPE 5555, Jobnam 5555 FORMAT(5x,'Jobname.................. ',12a1) Call ICONTM ( LINUM,IRET,IERR ) IF ( IERR .EQ. 0 ) STOP ' Line not logged on' TYPE 5556,IRET 5556 FORMAT(5x,'Connect time in minutes.. ',I6) Call ICPUTM ( LINUM,ITIME,IERR ) IF ( IERR .EQ. 0 ) STOP ' Line not logged on' TYPE 5557,ITIME(1),ITIME(2),ITIME(1)/50,ITIME(2)/50 5557 FORMAT(5x,'CPU Time in clock ticks.. ',I6,I6,/ 1 ,5x,'CPU Time in seconds...... ',I6,I6) Call IEXSTS ( LINUM,ISTAT,IERR ) IF ( IERR .EQ. 0 ) STOP ' Line not logged on' TYPE 5558,ISTAT 5558 FORMAT (5x,'Execution status........ ',I3) Call ILNSTS ( LINUM,IRET,IERR ) IF ( IERR .EQ. 0 ) STOP ' Line not logged on' TYPE 5559,IRET 5559 FORMAT(5x,'Line status bit-flags.... ',O7) Call IPGNAM ( LINUM,PGNAM,IERR ) IF ( IERR .EQ. 0 ) STOP ' Line not logged on' CALL R50ASC ( 6,PGNAM,STRING ) TYPE 5560,(STRING(K),K=1,LEN(STRING) ) 5560 FORMAT(5X,'Program name............. ',8a1) Call IPPNUM ( LINUM,IBUF,IERR ) IF ( IERR .EQ. 0 ) STOP ' Line not logged on' TYPE 5561,IBUF 5561 Format(5x,'Project-programmer number. ',I4,I4) Call JOBPRI ( LINUM,IPRI,IERR ) IF ( IERR .EQ. 0 ) STOP ' Line not logged on' TYPE 5562,IPRI 5562 Format(5x,'Job priority.............. ',I5,I5) Call MEMPOS ( LINUM,IPOS,IERR ) IF ( IERR .EQ. 0 ) STOP ' Line not logged on' TYPE 5563,IPOS/2 5563 Format(5x,'Memory position........... ',I5) Call MEMUSE ( LINUM,MEMSIZ,IERR ) IF ( IERR .EQ. 0 ) STOP ' Line not logged on' TYPE 5564,MEMSIZ/2 5564 FORMAT(5X,'MEMORY SIZE............... ',I5) STOP END