C PROGRAM: ERRMES.SUB FTP ERROR MESSAGES C SUBROUTINE ERRMES(UNIT,CODE,CMDPTR) C INTEGER UNIT,CODE,CMDPTR BYTE ERROR(7) CALL SCOPY(ERROR,'ERROR:',IERR) ERROR(7)=' ' C C PRINT A STAR UNDER THE OFFENDING SWITCH ...... C IF(CMDPTR .GE. 1) WRITE(UNIT,101) (' ',I=1,CMDPTR), '*' 101 FORMAT(4X,80A1) C IF THE ERROR CODE IS NEGATIVE, THEN IT IS A TAPE ERROR. CALL A C SPECIAL ROUTINE TO INTERPRET. IF IT IS POSITIVE, PROCESS THE C ERROR CODE HERE. IF(CODE .GT. 0)GOTO 102 CALL QIOERR(UNIT,CODE) RETURN 102 CONTINUE C THERE ARE SO MANY ERRORS, PROCESS THEM IN GROUPS OF 10. IF(CODE .GT. 10)GOTO 105 GOTO(110,120,130,140,150,160,170,180,190,200), CODE 105 GOTO(210,220,230,240,250,260,270,280,290),CODE-10 C C 110 WRITE(UNIT,111) ERROR 111 FORMAT(1X,7A1,' Unknown switch') RETURN C 120 WRITE(UNIT,121) ERROR 121 FORMAT(1X,7A1,' Switch previously defined') RETURN C 130 WRITE(UNIT,131) ERROR 131 FORMAT(1X,7A1,' Non-numeric subswitch') RETURN C 140 WRITE(UNIT,141) ERROR 141 FORMAT(1X,7A1,' Output switch only') RETURN C 150 WRITE(UNIT,151) ERROR 151 FORMAT(1X,7A1,' Unknown device type') C 160 WRITE(UNIT,161) ERROR 161 FORMAT(1X,7A1,'Must have subswitch') RETURN C 170 WRITE(UNIT,171) ERROR 171 FORMAT(1X,7A1,'Unknown subswitch') RETURN C 180 WRITE(UNIT,181) ERROR 181 FORMAT(1X,7A1,'Input switch only') RETURN C 190 WRITE(UNIT,191) ERROR 191 FORMAT(1X,7A1,'Switch illegal without tape device') RETURN C 200 WRITE(UNIT,201) ERROR 201 FORMAT(1X,7A1,'Tape copy specification error') RETURN 210 WRITE(UNIT,211) ERROR 211 FORMAT(1X,7A1,'Blocksize must be multiple of recsize') RETURN C 220 WRITE(UNIT,221) ERROR 221 FORMAT(1X,7A1,'Recsize or Blocksize exceeds 16384') RETURN C 230 WRITE(UNIT,231) ERROR 231 FORMAT(1X,7A1,'cannot dump BInary to TI:') RETURN C 240 WRITE(UNIT,241) ERROR 241 FORMAT(1X,7A1,'No output specs allowed') RETURN C 250 WRITE(UNIT,251) ERROR 251 FORMAT(1X,7A1,'Confused.') RETURN 260 WRITE(UNIT,261) ERROR 261 FORMAT(1X,7A1,'Illegal tape unit. Must be 0-3') RETURN C 270 WRITE(UNIT,271) ERROR 271 FORMAT(1X,7A1,'File spec must be tape unit.') 280 WRITE(UNIT,281) ERROR RETURN C 281 FORMAT(1X,7A1,'Disk file open error') RETURN C 290 WRITE(UNIT,291) ERROR 291 FORMAT(1X,7A1,'Output file write error') RETURN C END