products/sources/formale sprachen/Cobol/Test-Suite/SQL P image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: dml043.cob   Sprache: SQL

-- ***************************************************************
-- ******           This file should be run under           ******
-- ******    AUTHORIZATION ID HU after running program REPORTA ***
-- ***************************************************************

-- This is a file of interactive SQL commands used for exception reporting
--    for Embedded COBOL

-- List failures for Embedded COBOL:

   SELECT DISTINCT * FROM TESTREPORT
     WHERE TESTTYPE = 'PCO' AND RESULT = 'fail'
   ORDER BY TESTNO;

-- List missing test numbers for Embedded COBOL:

   SELECT PROG,TESTNO FROM T_REQ
     WHERE BINDING1 = 'PCO' 
     AND REQOPTNA IN ('REQ','OPT')
     AND TESTNO NOT IN
         (SELECT TESTNO FROM TESTREPORT WHERE TESTTYPE = 'PCO')
   ORDER BY TESTNO;

-- List mixed pass/fail results in TESTREPORT for Embedded COBOL:

   SELECT DISTINCT * FROM TESTREPORT X, TESTREPORT Y
     WHERE X.TESTTYPE = 'PCO' AND Y.TESTTYPE = 'PCO'
     AND   X.TESTNO = Y.TESTNO
     AND   X.RESULT < Y.RESULT
   ORDER BY 1;

[ Dauer der Verarbeitung: 0.39 Sekunden  (vorverarbeitet)  ]