| products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ |
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei: xts713.cob Sprache: Unknown
|
rahmenlose Ansicht.ted DruckansichtText {Text[112] SQL[211] Ada[229]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen] ! ---------------------------------------------------------------------- ! IDENTIFICATION SECTION ! Embedded COBOL ! ---------------------------------------------------------------------- ! sub *.* /59-byte ID/ /59-byte ID/___________________________________________________________/ ! ! Document version of TEd used, for audit purposes. ! sub *.* /TEd Version #/ -m "TEd Version #"TEd Version $ver" ! ! ! ---------------------------------------------------------------------- ! MAINTENANCE SECTION ! ---------------------------------------------------------------------- ! ! Use the -t option on TEd to apply the official maintenance file. ! Then use a second -t option on TEd to apply this file. ! OR ! Insert the entire maintenance file in this position. ! ! ---------------------------------------------------------------------- ! LOGIN SECTION ! ---------------------------------------------------------------------- ! ! The login problem is solved here: ! If passwords are system-login passwords, then no changes are necessary. ! For other implementations, changes may be needed. ! ! The call to AUTHID may be replaced with some implementor-defined syntax. ! For example, you may choose to code: ! rep *.pco /CALL "AUTHID"/ ! EXEC SQL CONNECT :uid IDENTIFIED BY :uid END-EXEC ! ! Other changes to establish the ANSI-standard environment would be coded here. ! ! ! ---------------------------------------------------------------------- ! IMPLEMENTOR-DEFINED SECTION ! ---------------------------------------------------------------------- ! ! Install implementor-defined precision of SQLCODE ! For example, to change precision from 9 to 4, code: ! sub *.pco /SQLCODE/ ! /S9(9)/S9(4)/ ! ! Install implementor-defined data type for indicator variable ! For example, to change data type to COMP, code: ! sub *.pco /indic/ ! /DISPLAY SIGN LEADING SEPARATE/COMP/ ! ! Modify dml063 to declare vendor-reserved key words ! For example, to declare UPDATE a vendor-reserved key word, code: ! del *dml063.pco /01 UPDATE / ! del *dml063.pco /:UPDATE/MOVE UPDATE TO/ ! ! ! Install vendor-supplied extensions to demonstrate FIPS Flagging: ! (Replace the underscores with vendor-supplied extensions.) ! sub *{flg005,xop709}.pco // /SUBSTR(EMPNAME,1,3) = 'Ali'/____________________/ /ABS(GRADE) = 12/________________/ ! ! Change 18-character AUTHORIZATION ID to max supported in this DBMS/OS: ! sub *.* /CANWEPARSELENGTH18/ ! /CANWEPARSELENGTH18/WECANPARSE12/ ! ! Change COBOL programs to specify correct source and object computers sub *.[ps]co /COMPUTER/ /xyz/_______________/ ! ! ---------------------------------------------------------------------- ! APPROVED CHANGES SECTION ! ---------------------------------------------------------------------- ! ! Include here any changes approved by NIST for this validation: ! ! For example, to lengthen concurrency test #0230 (according to documentation), ! to allow interleaving for a DBMS using "burst" mode CPU allocation: ! sub *mp?001.[ps]* /keymax/ -i ! /50/300/ ! ! ! ---------------------------------------------------------------------- ! SYNTAX DEFICIENCIES SECTION ! ---------------------------------------------------------------------- ! ! ! If a program cannot be executed because the precompiler issues ! a fatal syntax error message for a minor deficiency which is not ! the purpose of the test case, propose a change to NIST. ! A syntax change should be made to allow an SQL implementation ! to demonstrate functionality, i.e. semantic conformance. ! A global change will be counted as a single deficiency. ! ! ---------------------------------------------------------------------- ! DELETED TESTS SECTION ! ---------------------------------------------------------------------- ! ! If a program cannot be executed because the precompiler issues ! a fatal syntax error message for one of the tests, either propose a ! change to NIST or delete the entire test so that the rest of the tests ! in the program may execute. If this test is required, and not a FIPS ! Flagger test, it will appear as a deficiency on REPORT 4. ! For COBOL, a performed paragraph is found at the end of the program. ! So a separate delete command is needed for a performed paragraph. ! ! For example, to remove test number 278, code ! del *dml061.pco /BEGIN TEST0278/END TEST0278/ ! ! [ Verzeichnis aufwärts0.126unsichere Verbindung ] |