FM921 Program

**********00010921 * FORTRAN 77 00020921 FM921 00030921 * INQF4 - (441) 00040921 00050921 **********00060921 * GENERAL PURPOSE ANS REF 00070921 TEST INQUIRE BY FILE ON DIRECT, UNFORMATTED FILE 12.10.3 00080921 * 00090921 THE TESTS IN THE UNIT ARE ONLY PERFORMED ON A 00100921 * FILE THAT IS CONNECTED FOR DIRECT, UNFORMATTED ACCESS 00110921 (ANS REF. 12.2.4.2 AND 12.9.5.1) 00120921 * THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130921 A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140921 * THIS SEGMENT TESTS THAT AN INQUIRE IS PERFORMED CORRECTLY 00150921 BEFORE READING OR WRITING TO THE FILE, AFTER WRITING TO 00160921 * THE FILE, AND AFTER READING FROM THE FILE. 00170921 00180921 * NOTE: 00190921 AN INQUIRE STATEMENT IS NEEDED TO TEST THE READ AND 00200921 * WRITE OF MORE THAN A SINGLE RECORD AT A TIME, IN ORDER TO 00210921 DETERMINE THAT THE RECORD NUMBER IS ADVANCED THE CORRECT 00220921 * NUMBER (ONE MORE THAN THE RECORD NUMBER LAST READ OR WRITTEN).00230921 THIS TEST WILL BE PERFORMED IN THE SEGMENTS WHICH TEST 00240921 * DIRECT ACCESS FILES - DIRAF3 (412). 00250921 **********00260921 BB* **** BBCCOMNT *****00270921 00280921 1978 FORTRAN COMPILER VALIDATION SYSTEM 00290921 VERSION 2.1 00300921 00310921 00320921 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00330921 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00340921 SOFTWARE STANDARDS VALIDATION GROUP 00350921 BUILDING 225 RM A266 00360921 GAITHERSBURG, MD 20899 00370921 00380921 00390921 00400921 BE **** BBCCOMNT ******00410921 00420921 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00650921 FOR IDENTIFYING THE TEST ENVIRONMENT 00660921 00670921 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00680921 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00690921 Z03 ZPROG = 'PROGRAM NAME' 00700921 Z04 ZDATE = 'DATE OF TEST' 00710921 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00720921 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00730921 Z07 ZNAME = 'NAME OF USER' 00740921 Z08 ZTAPE = 'TAPE OWNER/ID' 00750921 Z09 ZTAPED = 'DATE TAPE COPIED' 00760921 00770921 01020921 * THE FOLLOWING STATEMENT MUST BE CHANGED IF 01030921 THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 01040921 * DIRECT, UNFORMATTED FILE. 01050921 01060921 I10 CONTAINS THE UNIT NUMBER FOR A DIRECT, UNFORMATTED FILE. 01070921 * 01110921 THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01120921 * GIVEN IS NOT A VALID FILE SPECIFIER FOR A DIRECT, 01130921 UNFORMATTED FILE. 01140921 * 01150921 CDIR CONTAINS THE FILE NAME FOR UNIT I10. 01160921 01220921 * THE FOLLOWING STATEMENT MUST BE CHANGED IF 40 IS 01230921 NOT A VALID RECORD LENGTH. 01240921 * 01260921 01320921 WRITE REPORT TITLE 01330921 01340921 * 01420921 WRITE DETAIL REPORT HEADERS 01480921 01490921 01560921 * OPEN FILE 01570921 01600921 T001 TEST 1 - FIRST INQUIRE (AFTER OPEN) 01610921 * 01660921 02040921 * WRITE A RECORD TO FILE 02050921 02070921 T002 TEST 2 - SECOND INQUIRE (AFTER WRITE) 02080921 * THIS INQUIRE ONLY TESTS THE DIRECT, RECL, AND NEXTREC 02100921 AS THE OTHER SPECIFIERS HAVE BEEN PREVIOUSLY TESTED 02110921 * 02140921 02390921 * READ A RECORD FROM FILE 02400921 02420921 T003 TEST 3 - THIRD INQUIRE (AFTER READ) 02430921 * THIS INQUIRE ONLY TESTS THE DIRECT, RECL, AND NEXTREC 02450921 AS THE OTHER SPECIFIERS HAVE BEEN PREVIOUSLY TESTED 02460921 * 02490921 02740921 * 02760921 BB* **** BBCSUM0 *****02770921 WRITE OUT TEST SUMMARY 02780921 02790921 WRITE OUT REPORT FOOTINGS 02910921 02920921 FORMATS FOR TEST DETAIL LINES 02980921 02990921 FORMAT STATEMENTS FOR PAGE HEADERS 03190921 03200921 03330921 FORMAT STATEMENTS FOR REPORT FOOTINGS 03340921 03350921 03400921 FORMAT STATEMENTS FOR RUN SUMMARY 03410921 03420921 03490921 *** END OF TEST SEGMENT 441 03500921