CTITLEFOPERR -- PRINT SYNAD I/O ERROR MESSAGE ON FT06F001 00000010 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CA AUTHOR/DESIGNER FRANCIS COLLINS 00000020 CA LANGUAGE S/370 FORTRAN G/H (OR H EXTENDED) 00000030 CA WRITTEN 7-16-76 00000040 C REVISED 8--4-76 FAC. TRACE --> TRACK. 00000050 C REVISED 4-18-80 HHL. ADD REQUESTED DISK ADDRESS 00000060 C TO ERROR MESSAGE. 00000061 C REVISED 10-03-84 REP. CONVERT TO VS FORTRAN. 00000062 CA 00000070 CA 00000080 CA CALL FOPERR (N,M) 00000090 CA INPUT N = BYTES 9 TO 128 OF ERROR MESSAGE PRODUCED 00000100 CA BY IBM I/O ERROR ANALYSIS MACRO SYNADAF. 00000110 CA INPUT M = REQUESTED DISK ADDRESS (RECORD NUMBER). 00000111 CA 00000120 CA 00000130 CA THIS PROGRAM WRITES THE MESSAGE ON FT06F001. 00000140 CA FOR FORMAT OF MESSAGE, SEE SYNADAF MACRO IN 00000150 CA DATA MANAGEMENT MACRO INSTRUCTIONS, GC26-3793. 00000160 CA ADDITIONALLY, THE REQUESTED DISK ADDRESS OR RECORD NUMBER 00000161 CA IS OUTPUT IN THE ERROR MESSAGE. 00000162 CAEND 00000170 C EJECT 00000180 SUBROUTINE FOPERR (N,M) 00000190 C 00000200 IMPLICIT INTEGER (A-Z) 00000210 C 00000220 C 00000230 C ARRAY IN PARAMETER LIST. 00000240 CHARACTER*120 N 00000250 C 00000260 C 00000270 C LOCAL ARRAY (INTERNAL TO PROGRAM). 00000280 INTEGER A (30) 00000290 C 00000300 C 00000310 C LOCAL CONSTANT. 00000320 INTEGER BLANKS /' '/ 00000330 C 00000340 C 00000350 READ (N, 10) A 00000370 IF (A(2) .EQ. BLANKS) A(2) = 0 00000380 WRITE (6, 20) A(18), A(19), 00000390 * (A( I), I = 22, 25), 00000400 * A(20), A(21), 00000410 * A( 2), A( 2), 00000420 * A( 1), 00000430 * A(16), 00000440 * A(17), 00000450 * A(26), 00000460 * A(27), 00000470 * A(28), 00000480 * A(29), A(30), 00000490 * A(12), A(13), 00000500 * A(14), A(15), 00000510 * M, 00000511 * (A( I), I = 3, 11) 00000520 RETURN 00000530 C 00000540 C 00000550 10 FORMAT(A4,A2,8A4,A3,2(1X,2A4),1X,A3,1X,A2,1X,2A4,1X,A4,A2,1X,3A4, 00000560 * A3,5X,2Z4,Z2,1X,A4,A2) 00000570 20 FORMAT('- I/O ERROR DIAGNOSIS BY IBM PROGRAM SYNADAF'/ 00000580 * '0 NAME OF DD-CARD ', 2A4 / 00000590 * ' DESCRIPTION OF ERROR ', 4A4 / 00000600 * ' OPERATION ATTEMPTED ', 2A4 / 00000610 * ' BYTES READ, HEX & DEC ', Z4, I8 / 00000620 * ' INPUT BUFFER ADDRESS ', Z8 / 00000630 * ' UNIT NUMBER ', A4 / 00000640 * ' DEVICE TYPE ', A4 / 00000650 * ' CYLINDER NUMBER ', I3 / 00000660 * ' TRACK NUMBER ', I3 / 00000670 * ' BLOCK NUMBER (ON TRACK) ', I3 / 00000680 * ' ACCESS METHOD ', 2A4 / 00000690 * ' JOB NAME ', 2A4 / 00000700 * ' STEP NAME ', 2A4 / 00000710 * ' DISK ADDRESS(RECORD #) ', I8 / 00000711 * ' ', 9A4 ) 00000720 END 00000730