FM917 Program

**********00010917 * FORTRAN 77 00020917 FM917 00030917 * INQU4 - (433) 00040917 00050917 **********00060917 * GENERAL PURPOSE ANS REF 00070917 TEST INQUIRE BY UNIT ON DIRECT, UNFORMATTED FILE 12.10.3 00080917 * 00090917 THE TESTS IN THE UNIT ARE ONLY PERFORMED ON A 00100917 * UNIT THAT IS CONNECTED FOR DIRECT, UNFORMATTED ACCESS 00110917 (ANS REF. 12.2.4.2 AND 12.9.5.1) 00120917 * THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130917 A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140917 * THIS SEGMENT TESTS THAT AN INQUIRE IS PERFORMED CORRECTLY 00150917 BEFORE READING OR WRITING TO THE FILE, AFTER WRITING TO 00160917 * THE FILE, AND AFTER READING FROM THE FILE. 00170917 00180917 * NOTE: 00190917 AN INQUIRE STATEMENT IS NEEDED TO TEST THE READ AND 00200917 * WRITE OF MORE THAN A SINGLE RECORD AT A TIME, IN ORDER TO 00210917 DETERMINE THAT THE RECORD NUMBER IS ADVANCED THE CORRECT 00220917 * NUMBER (ONE MORE THAN THE RECORD NUMBER LAST READ OR WRITTEN).00230917 THIS TEST WILL BE PERFORMED IN THE SEGMENTS WHICH TEST 00240917 * DIRECT ACCESS FILES - SEGMENT DIRAF3 (412). 00250917 **********00260917 00270917 BB *** BBCCOMNT ******00280917 00290917 1978 FORTRAN COMPILER VALIDATION SYSTEM 00300917 VERSION 2.1 00310917 00320917 00330917 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00340917 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00350917 SOFTWARE STANDARDS VALIDATION GROUP 00360917 BUILDING 225 RM A266 00370917 GAITHERSBURG, MD 20899 00380917 00390917 00400917 00410917 BE *** BBCCOMNT ******00420917 00430917 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00620917 FOR IDENTIFYING THE TEST ENVIRONMENT 00630917 00640917 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00650917 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00660917 Z03 ZPROG = 'PROGRAM NAME' 00670917 Z04 ZDATE = 'DATE OF TEST' 00680917 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00690917 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00700917 Z07 ZNAME = 'NAME OF USER' 00710917 Z08 ZTAPE = 'TAPE OWNER/ID' 00720917 Z09 ZTAPED = 'DATE TAPE COPIED' 00730917 00740917 00990917 * THE FOLLOWING STATEMENT MUST BE CHANGED IF 01000917 THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 01010917 * DIRECT, UNFORMATTED FILE. 01020917 01030917 I12 CONTAINS THE UNIT NUMBER FOR A DIRECT, UNFORMATTED FILE. 01040917 * 01080917 THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01090917 * GIVEN IS NOT A VALID FILE SPECIFIER FOR A DIRECT, 01100917 UNFORMATTED FILE. 01110917 * 01120917 01130917 * THE FOLLOWING STATEMENT MUST BE CHANGED IF 40 IS 01140917 NOT A VALID RECORD LENGTH. 01150917 * 01170917 01230917 WRITE REPORT TITLE 01240917 01250917 * 01330917 WRITE DETAIL REPORT HEADERS 01390917 01400917 01470917 * OPEN FILE 01480917 01500917 T001 TEST 1 - FIRST INQUIRE (AFTER OPEN) 01510917 * 01560917 01940917 * WRITE A RECORD TO FILE 01950917 01970917 T002 TEST 2 - SECOND INQUIRE (AFTER WRITE) 01980917 * THIS INQUIRE ONLY TESTS THE DIRECT, RECL, AND NEXTREC 02000917 AS THE OTHER SPECIFIERS HAVE BEEN PREVIOUSLY TESTED 02010917 * 02040917 02290917 * READ A RECORD FROM FILE 02300917 02310917 * 02330917 T003 TEST 3 - THIRD INQUIRE (AFTER READ) 02340917 THIS INQUIRE ONLY TESTS THE DIRECT, RECL, AND NEXTREC 02360917 * AS THE OTHER SPECIFIERS HAVE BEEN PREVIOUSLY TESTED 02370917 02400917 * 02650917 02670917 BB *** BBCSUM0 ******02680917 WRITE OUT TEST SUMMARY 02690917 02700917 WRITE OUT REPORT FOOTINGS 02820917 02830917 FORMATS FOR TEST DETAIL LINES 02890917 02900917 FORMAT STATEMENTS FOR PAGE HEADERS 03100917 03110917 03240917 FORMAT STATEMENTS FOR REPORT FOOTINGS 03250917 03260917 03310917 FORMAT STATEMENTS FOR RUN SUMMARY 03320917 03330917 * 03400917 * END OF TEST SEGMENT 433 03410917