**********00010914 * FM914 00020914 INQU1 - (430) 00030914 * 00040914 **********00050914 GENERAL PURPOSE ANS REF 00060914 * TEST INQUIRE BY UNIT ON SEQUENTIAL, FORMATTED FILES 12.10.3 00070914 00080914 * THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A 00090914 UNIT THAT IS CONNECTED FOR SEQUENTIAL, FORMATTED ACCESS 00100914 * (ANS REF. 12.2.4.1 AND 12.9.5.2) 00110914 THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00120914 * A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00130914 **********00140914 BB* **** BBCCOMNT *****00150914 00160914 1978 FORTRAN COMPILER VALIDATION SYSTEM 00170914 VERSION 2.1 00180914 00190914 00200914 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00210914 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00220914 SOFTWARE STANDARDS VALIDATION GROUP 00230914 BUILDING 225 RM A266 00240914 GAITHERSBURG, MD 20899 00250914 00260914 00270914 00280914 BE *** BBCCOMNT ******00290914 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470914 FOR IDENTIFYING THE TEST ENVIRONMENT 00480914 00490914 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500914 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510914 Z03 ZPROG = 'PROGRAM NAME' 00520914 Z04 ZDATE = 'DATE OF TEST' 00530914 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00540914 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00550914 Z07 ZNAME = 'NAME OF USER' 00560914 Z08 ZTAPE = 'TAPE OWNER/ID' 00570914 Z09 ZTAPED = 'DATE TAPE COPIED' 00580914 00590914 * 00840914 I08 CONTAINS THE UNIT NUMBER FOR A SEQUENTIAL FORMATTED FILE. 00850914 00890914 * THE FOLLOWING STATEMENT MUST BE CHANGED IF 00900914 THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00910914 * SEQUENTIAL, FORMATTED FILE. 00920914 00930914 00990914 WRITE REPORT TITLE 01000914 01010914 01090914 WRITE DETAIL REPORT HEADERS 01150914 01160914 * 01230914 OPEN FILE 01240914 * 01250914 01280914 T001 TEST 1 - FIRST INQUIRE (AFTER OPEN) 01290914 * 01690914 WRITE OUT TEST SUMMARY 01730914 01740914 WRITE OUT REPORT FOOTINGS 01860914 01870914 FORMATS FOR TEST DETAIL LINES 01930914 01940914 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02140914 02150914 FORMAT STATEMENTS FOR PAGE HEADERS 02290914 02300914 02430914 FORMAT STATEMENTS FOR REPORT FOOTINGS 02440914 02450914 02500914 FORMAT STATEMENTS FOR RUN SUMMARY 02510914 02520914 02590914 * END OF TEST SEGMENT 914 02600914
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| logical | :: | AVB | ||||
| character(len=10) | :: | B10VK | SPECIFICATION STATEMENTS 00330914 00340914 |
|||
| logical | :: | BVB | ||||
| character(len=10) | :: | C10VK | SPECIFICATION STATEMENTS 00330914 00340914 |
|||
| character(len=10) | :: | E11VK*11 | SPECIFICATION STATEMENTS 00330914 00340914 |
|||
| character(len=10) | :: | F10VK | SPECIFICATION STATEMENTS 00330914 00340914 |
|||
| character(len=10) | :: | H10VK | SPECIFICATION STATEMENTS 00330914 00340914 |
|||
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00390914 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00390914 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00390914 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00390914 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00390914 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00390914 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00390914 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00390914 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00390914 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00390914 |