FM919 Program

**********00010919 * FORTRAN 77 00020919 FM919 00030919 * INQF1 - (438) 00040919 00050919 **********00060919 * GENERAL PURPOSE ANS REF 00070919 TEST INQUIRE BY FILE ON SEQUENTIAL, FORMATTED FILES 12.10.3 00080919 * 00090919 THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A 00100919 * FILE THAT IS CONNECTED FOR SEQUENTIAL, FORMATTED ACCESS 00110919 (ANS REF. 12.2.4.1 AND 12.9.5.2) 00120919 * THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130919 A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140919 **********00150919 BB *** BBCCOMNT ******00160919 00170919 1978 FORTRAN COMPILER VALIDATION SYSTEM 00180919 VERSION 2.1 00190919 00200919 00210919 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00220919 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00230919 SOFTWARE STANDARDS VALIDATION GROUP 00240919 BUILDING 225 RM A266 00250919 GAITHERSBURG, MD 20899 00260919 00270919 00280919 00290919 BE *** BBCCOMNT ******00300919 00310919 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00540919 FOR IDENTIFYING THE TEST ENVIRONMENT 00550919 00560919 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00570919 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00580919 Z03 ZPROG = 'PROGRAM NAME' 00590919 Z04 ZDATE = 'DATE OF TEST' 00600919 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00610919 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00620919 Z07 ZNAME = 'NAME OF USER' 00630919 Z08 ZTAPE = 'TAPE OWNER/ID' 00640919 Z09 ZTAPED = 'DATE TAPE COPIED' 00650919 00660919 00910919 * THE FOLLOWING STATEMENT MUST BE CHANGED IF 00920919 THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00930919 * SEQUENTIAL, FORMATTED FILE. 00940919 00950919 * 00990919 THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01000919 * GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 01010919 FORMATTED FILE. 01020919 * 01030919 01040919 * THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01050919 GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 01060919 * FORMATTED FILE. 01070919 01080919 CSEQ CONTAINS THE FILE NAME FOR UNIT I09. 01090919 * 01150919 01210919 WRITE REPORT TITLE 01220919 01230919 * 01310919 WRITE DETAIL REPORT HEADERS 01370919 01380919 01450919 * OPEN FILE 01460919 01490919 T001 TEST 1 - FIRST INQUIRE (AFTER OPEN) 01500919 * 01900919 01920919 BB *** BBCSUM0 ******01930919 WRITE OUT TEST SUMMARY 01940919 01950919 WRITE OUT REPORT FOOTINGS 02070919 02080919 FORMATS FOR TEST DETAIL LINES 02140919 02150919 FORMAT STATEMENTS FOR PAGE HEADERS 02350919 02360919 02490919 FORMAT STATEMENTS FOR REPORT FOOTINGS 02500919 02510919 02560919 FORMAT STATEMENTS FOR RUN SUMMARY 02570919 02580919 02650919 **** END OF TEST SEGMENT 438 02660919