< SUBROUTINE REBLK(LFIN,LFOUT,IBUF,JBUF,ILEN,JLEN,IBLK,JBLK)/ JBLK RETURNS WITH # BLOCKS WRITTEN OR 0 PARM ERROR OR -1 DISK RD ERR SUBROUTINE CHREAD(IQ,IR)C IR IS RETURN CODE: >=0 OK (IR IS # GOOD SETS RETURNED)3 IF 0 <= IR < NSETS, CHAIN END REACHED -1 ILLEGAL CHAIN -2 I/O ERROR -3 EOF/ -4 INCONSISTENT CHAIN * ALARM */ -5 CHAIN OUT OF ORDER * ALARM *( -6 CHAIN FILE OPEN ERROR PROGRAM CNTRIT STOPS: 0 NORMAL" 85 DISK READ ERROR+ 86 INPUT ERROR (BATCH ONLY)6 SUBROUTINE DSOPEN(IFU,LUN,FNAME,LRECX,ISIZE,IACC,IR) IR IS RETURN CODE:, -2: PARAMETER ERROR (DSOPEN)/ -1: END OF FILE (DSREAD,DSWRIT) 0: NORMAL& >0: FORTRAN ERROR CODEL SUBROUTINE DSOPEN(IFU,LUN,FNAME,LRECX,ISIZE,IACC,IR)--OPTICAL DISK VERSION IR IS RETURN CODE:1 -2: OPEN PARAMETER ERROR (DSOPEN)/ -1: END OF FILE (DSREAD,DSWRIT) 0: NORMAL> 2: WHEN USING OPTICAL DISK, ERROR IN DISKSIDE+ or, dvread status was 0& >0: FORTRAN ERROR CODEA SUBROUTINE GPAR(MODE,LUN,NAME,IDEF,IDA,IROW1,IROW2,IWORK,IA,IR) IR IS RETURN CODE 0 OK % >0 FORTRAN ERROR CODE -1 EOF -2 ILLEGAL ROW# -3 ILLEGAL ARRAY ID5 -4 WRONG DIMENSION (PUT REPLACE MODE)" -5 PARAMETER ERRORB SUBROUTINE GPAX(MODE,IFU,LUN,NAME,IDEF,IDA,IROW1,IROW2,IB,IA,IR) IR IS RETURN CODE 0 OK % >0 FORTRAN ERROR CODE -1 EOF -2 ILLEGAL ROW# -3 ILLEGAL ARRAY ID5 -4 WRONG DIMENSION (PUT REPLACE MODE)" -5 PARAMETER ERROR' SUBROUTINE LIMIT(ITEST,LIM,IRESET,IR) IR IS RETURN CODE: FUNCTION NRWD(LTAPE,UNLOAD)< FUNCTION RETURNS ERROR CODE FROM QIO OR ASSIGN. FUNCTION NSKIPF< FUNCTION RETURNS -(# FILES ACTUALLY SKIPPED) OR" ERROR CODE FROM QIOW./ SUBROUTINE TPOPEN(IFU,LUN,FNAME,LREC,LBUF,IR) IR IS RETURN CODE TPOPEN,TPCLOS: 0 OK% >0 FORTRAN ERROR CODE TPREAD: 0 OK -1 EOF7 >0 FORTRAN ERROR CODE (SEE PGMRS GUIDE) TPSKPF: 0 OK -1 EOT6 >0 SYSTEM ERROR CODE (SEE SSDEF CODES) TPRWND: 0 OK0 ERRORS PRESENTLY NOT DETECTED PROGRAM VIEWIT STOPS: 0 NORMAL" 85 DISK READ ERROR5 SUBROUTINE XXCSET(IDDB,IDSUB,IDPRIM,IC,IW,IB,LS,IR)# IR IS THE RETURN CODE:A 0 NORMAL: FILE ON-LINE AND READY FOR XXGP INIT.3 >0 SYSTEM I/O ERROR CODE FROM XXGP* -1 TO -20 XXGP ERROR CODE/ -31 PRIMARY ID NOT IN ANY CHUNK- -32 NON-EXISTENT SUB-DATABASE. -33 FILE NOT A CHUNK DIRECTORY. -34 UNEXPECTED CHUNK DIRECTORY* -35 UNEXPECTED SECTOR SIZE? -36 USER REQUEST FOR EARLY TERMINATION OF RANGE* -37 USER REQUEST FOR ABORT> SUBROUTINE XXDSET(IDDB,IDSUB,IDPRIM,IDSEC,IB,INDEX,IP,IS,IR) IR IS RETURN CODE:? 0 OK - READY TO PROCESS DATA IN SECONDARY UNIT7 >0 SYSTEM I/O ERROR CODE PASSED BY XXGP, -1 TO -20 XXGP ERRORS (Q.V.)& -21 END OF PRIMARY UNIT: -22 REQUESTED SECONDARY UNIT DOES NOT EXIST> -23 REQUESTED PRIMARY UNIT OUT OF RANGE OF FILEE -24 REQUESTED PRIMARY UNIT IN RANGE BUT DOES NOT EXIST* -25 FILE HAS NO DIRECTORIES6 -26 UNEXPECTED DATABASE OR SUB-DATABASE- SUBROUTINE XXGMUL(IB,ISTART,NSECT,IA,LS,IR) IR IS RETURN CODE 0 OK$ >0 SYSTEM ERROR CODE# <0 XXGP ERROR CODE)+ SUBROUTINE XXGP(IMODE,IB,ICOL,IROW,IA,IR) IR IS RETURN CODE:% >0 SYSTEM ERROR CODE 0 OK7 -1 END OF FILE OR SEQUENCE IN GET MODE -2 ILLEGAL MODE% -3 ILLEGAL FILE TYPE* -4 UNEXPECTED SECTOR SIZE0 -5 UNAUTHORIZED READ (NEED KEY)# -6 FILE NOT OPENED1 -7 ILLEGAL ROW OR LOGICAL RECORD$ -8 ILLEGAL COLUMN > -9 UNAUTHORIZED WRITE (NEED KEY) OR READ-ONLY SUBROUTINE XXGSET(IR) INPUT ERROR CODES: 0 FORMAT ERROR 1 UNDEF COLUMN! 2 UNDEF FUNCTION 3 TOO MANY COLS% 4 TOO MANY FUNCTIONS 5 USER QUIT! SUBROUTINE XXFSET(KFUN,KPTR,IR) IR IS RETURN CODE: 0 OK% 2 UNDEFINED FUNCTION% 4 TOO MANY FUNCTIONS% 5 USER CHICKENED OUT XXCPTR FUNCTION ERROR CODE: 0 ZERO COL -1 UNDEFINED COL -3 TOO MANY COLS% SUBROUTINE XXBRK(FNAME,KK,i,nnn,IR) IR =6 -2 If FNAME is not of the correct form! 0 any other case