NST OFST4ND&TECHR.I.C. NISI Special KuDiication o0u-2U3 1 A111Q3 aiHDsa Computer Systems Conformance Test Specification: Technology COBOL for Intrinsic U.S. DEPARTMENTOF COMMERCE Function Module TechnologyAdministration National Instituteof Standards£indTechnology Carmelo Montanez-Rivera Nisr L. Arnold Johnson NIST PUBLICATIONS m -QC 100 ILU57 500-203 [ 1992 I C.2 ! 7 he National Institute of Standards and Technology was established in 1988 by Congress to "assist industry in the development of technology . , . needed to improve product quality, to modernize manufacturing processes, to ensure product reliability . . . and to facilitate rapid commercialization ... of products based on new scientific discoveries." NIST, originally founded as the National Bureau of Standards in 1901, works to strengthen U.S. industry's competitiveness; advance science and engineering; and improve public health, safety, and the environment. One ofthe agency's basic functions is to develop, maintain, and retain custodyofthe national standards of measurement, and provide the means and methods for comparing standards used in science, engineering, manufacturing, commerce, industry, and education with the standards adopted or recognized by the Federal Government. As an agency of the U.S. Commerce Department's Technology Administration, NIST conducts basic and applied research in the physical sciences and engineering and performs related services. The Institute does generic and precompetitive work on new and advanced technologies. NIST's research facilities are located at Gaithersburg, MD 20899, and at Boulder, CO 80303. Major technical operating units and their principal activities are listed below. For more information contact the Public Inquiries Desk, 301-975-3058. Technology Services Manufacturing Engineering Laboratory • Manufacturing Technology Centers Program • Precision Engineering • Standards Services • Automated Production Technology • Technology Commercialization • Robot Systems • Measurement Services • Factory Automation • Technology Evaluation and Assessment • Fabrication Technology • Information Services Materials Science and Engineering Electronics and Electrical Engineering Laboratory Laboratory • Intelligent Processing of Materials • Microelectronics • Ceramics • Law Enforcement Standards • Materials Reliability* • Electricity • Polymers • Semiconductor Electronics • Metallurgy • Electromagnetic Fields^ • Reactor Radiation • Electromagnetic Technology^ Building and Fire Research Laboratory Chemical Science and Technology • Structures Laboratory • Building Materials • Biotechnology • Building Environment • Chemical Engineering' • Fire Science and Engineering • Chemical Kinetics and Thermodynamics • Fire Measurement and Research • Inorganic Analytical Research • Organic Analytical Research Computer Systems Laboratory • Process Measurements • Information Systems Engineering • Surface and Microanalysis Science • Systems and Software Technology • Thermophysics^ • Computer Security • Systems and Network Architecture Physics Laboratory • Advanced Systems • Electron and Optical Physics • Atomic Physics Computing and Applied Mathematics • Molecular Physics Laboratory • Radiometric Physics • Applied and Computational Mathematics^ • Quantum Metrology • Statistical Engineering^ • Ionizing Radiation • Scientific Computing Environments^ • Time and Frequency* • Computer Services^ • Quantum Physics* • Computer Systems and Conununications^ • Information Systems »At Boulder, CO 80303. ^Some elements at Boulder, CO 80303. QCIOO Conformance Test Specifications COBOL for Intrinsic Function Module Carmelo Montanez-Rivera L. Arnold Johnson Computer Systems Laboratory National Institute of Standards and Technology Technology Administration Gaithersburg, MD 20899 July 1992 DEPARTMENT OF COMMERCE U.S. Barbara Hackman Franklin, Secretary TECHNOLOGY ADMINISTRATION Robert M. White, Under Secretary for Technology NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY John W. Lyons, Director Reports on Computer Systems Technology The National Institute of Standards and Technology (NIST) has a unique responsibility for computer systems technology within the Federal government. NIST's Computer Systems Laboratory (CSL) devel- ops standards and guidelines, provides technical assistance, and conducts research for computers and related telecommunications systems to achieve more effective utilization of Federal information technol- ogy resources. CSL's responsibilities include development of technical, management, physical, and ad- ministrative standards and guidelines for the cost-effective security and privacy of sensitive unclassified information processed in Federal computers. CSL assists agencies in developing security plans and in improving computer security awareness training. This Special Publication 500 series reports CSL re- search and guidelines to Federal agencies as well as to organizations in industry, government, and academia. National Institute of Standards and Technology Special Publication 500-203 Natl. Inst. Stand. Technol. Spec. Publ. 500-203, 111 pages (July 1992) CODEN: NSPUE2 U.S. GOVERNMENT PRINTING OFFICE WASHINGTON: 1992 For sale by the Superintendent of Documents, U.S. Government Printing Office, Washington, DC 20402 Table of Contents 1 INTRODUCTION 1 1 . 1 Background 1 1.2 Purpose 1 2 GLOSSARY of TERMS 3 2.1 Function 3 2.2 Variable 3 2.3 Literal 3 2.4 Numeric Literal 3 2 . 5 Nonnumeric Literal 3 2 . 6 Domain 3 2.7 Range 3 2.8 Integer 4 2.9 Noninteger 4 2.10 FXN 4 2.11 Verb 4 2.12 Standard Position 4 3 CONVENTIONS 4 3.1 Numbering System 4 3.2 Number of tests 5 3.3 References 5 4 REQUIREMENTS . 5 4.1 Functionality Tests 5 4.2 Intermediate Values 6 4.3 Expected Value 6 4.4 Error Margin 6 4.5 Angles Measurement 8 4.6 Statements Structure 8 4.7 Collating Sequence 8 4.8 Additional Information 8 5 TESTS DESCRIPTION 8 5.1 IFIOIA 8 5.2 IF102A 11 5.3 IF103A 13 5.4 IF104A 16 5.5 IF105A 19 5.6 IF106A 20 5.7 IF107A 23 5.8 IF108A 24 5.9 IF109A 26 5.10 IFllOA 28 5.11 IFlllA 29 5.12 IF112A 31 5.13 IF113A 33 5.14 IF114A 35 5.15 IF115A 37 5.16 IF116A 39 iii 5.17 IF117A 41 ...... 5.18 IF118A 44 5.19 IF119A 46 5.20 IF120A 49 5.21 IF121A 52 5.22 IF122A 54 5.23 IF123A 57 5.24 IF124A 60 5.25 IF125A 62 5.26 IF126A 64 5.27 IF127A 68 5.28 IF128A 69 5.29 IF129A 71 5.30 IF130A 73 5.31 IF131A 76 5.32 IF132A 78 5.33 IF133A 80 5.34 IF134A 82 5.35 IF135A 84 , 5.36 IF136A 87 5.37 IF137A 90 5.38 IF138A 93 5.39 IF139A 95 ' 5.40 IF140A 98 5.41 IF141A 100 5.42 IF142A 102 6 ACKNOWLEDGMENTS 104 7 REFERENCES 105 iv : . . . 1 INTRODUCTION 1 1 Background . This document contains test specifications for the COBOL Intrinsic Functions Module of the Federal Information Processing Standard (FIPS) Programming Language COBOL, FIPS PUB 21-3 (ANSI X3. 23-1985, and Addendum ANSI X3.23A-1989) The testing of language processors to determine the degree to which they conform to FIPS may be required by the Government departments and agencies in accordance with the FIPS the Federal Information Resources Management , Regulation (FIRMR) 201.13 and 201.39, and the associated Federal ADP and Telecommunications Standards Index. As part of its mission, the Computer Systems Laboratory (CSL) is responsible for providing language processor validations for FIPS in support of Government departments' and agencies' procurement requirements A validation service has been established in fulfillment of this responsibility. Results of validations, or validation certificates from other validation organizations may be accepted as the basis for CSL Certificate of Validation provided that all CSL requirements are met. For Ada validations, CSL coordinates its validation responsibility with the Department of Defense, Ada Joint Program Office (AJPO) The CSL presently provides validation services for the following languages Ada . C . COBOL . Fortran . MUMPS . Pascal . SQL . CSL is also working on future validation services for: BASIC . 1.2 Purpose This document serves as a reference manual and as a user's guide for the COBOL Intrinsic Function Module Tests in the 1985 COBOL Compiler Validation System (CCVS) The tests are used by the National Institute . of Standards and Technology (NIST) to test COBOL implementations for conformance to FIPS PUB 21-3, COBOL (ANSI X3. 23-1985, and Addendvim ANSI X3.23A-1989) 1 ANSI document number X3.23A-1989, "INTRINSIC FUNCTION ADDENDUM TO AMERICAN NATIONAL STANDARD COBOL X3. 23-1985" proposed the incorporation of 42 new library functions into the standard. The functions are: 1) ACOS ANNUITY 2) 3) ASIN 4) ATAN 5) CHAR 6) COS 7) CURRENT-DATE 8) DATE-OF-INTEGER 9) DAY-OF-INTEGER 10) FACTORIAL 11) INTEGER 12) INTEGER-OF-DATE 13) INTEGER-OF-DAY 14) INTEGER-FART 15) LENGTH 16) LOG 17) LOGIC 18) LOWER-CASE 19) MAX 20) MEAN 21) MEDIAN 22) MIDRANGE 23) MIN 24) MOD 25) NUMVAL 26) NUMVAL-C 27) ORD 28) ORD-MAX 29) ORD-MIN 30) PRESENT-VALUE 31) RANDOM 32) RANGE 33) REM 34) REVERSE 35) SIN 36) SQRT 37) STANDARD-DEVIATION 38) SUM 39) TAN 40) UPPER-CASE 41) VARIANCE 42) WHEN-COMPILED This document is based on FIPS PUB 21-3. About 99% of the specifications have been translated into COBOL code by the National Computer Center (NCC) in England. 2 . . . Tests are divided into two major categories' Simple Tests and Complex Tests A Simple test uses a single entity as the argument, i.e. a . , constant or a literal by itself. Complex tests take as an argument entities such as expressions or other Intrinsic Functions. The nature of arguments for the Complex tests will most likely have an effect on the accuracy of the expected value. This effect may be compensated by allowing a greater error margin for such tests. GLOSSARY of TERMS Following is a list of terms used throughout the specifications 2 1 Ftmction A temporary data item whose value is , determined by invoking a mechanism provided by the implementor at the time the function is referenced during the execution of the statement 2 2 Variable A data item whose value may be changed by . execution of the object program. A variable used in an arithmetic-expression must be a numeric elementary item. 2 3 Literal A Character-string whose value is implied . by an ordered set of characters of which the literal is composed or by specification of a reserved word which references a figurative constant. 2.4 Numeric Literal A Character-string whose characters are selected from the digits '0' through '9', the plus sign, the minus sign, and the decimal point. 2.5 Nonnumeric Literal A Character-string delimited at the beginning and at the end by the separator quotation mark. 2 6 Domain The set of values that the function uses as . input 2 7 Range The set of values that the function returns . based on the domain values 3 : 2 8 Integer A numeric literal or a numeric data item . that does not include any digit position to the right of the assumed decimal point. When the term 'integer' appears in general formats, integer must not be a numeric data item, and must not be signed, nor zero unless explicitly allowed by the rules of that format. 2 9 Noninteger A numeric literal or numeric data item that . includes one or more digits to the right of the assumed decimal point. 2.10 FXN Function Name 2 11 Verb A word that expresses an action to be taken . by a COBOL compiler or object program. 2.12 Standard Position The position of an angle with its vertex at the origin of a rectangular-coordinate system and its initial side coinciding with the positive x-axes. CONVENTIONS 3.1 Numbering System Naming conventions in these specifications follow the conventions used in the CCVS A routine name consists of 6 characters whose meaning is as . follows First two Characters "IF" which identifies the Intrinsic Functions module. Third Character 1 which identifies level 1 of the IF module. Fourth & Fifth Characters XX, A unique sequential number that identifies each one of the test programs. Sixth Character "A" which indicates that this , is an Automatic test. For example IF102A is the second of a series of several programs which tests level 1 of the Intrinsic Functions module. 4