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

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: yts798.mco   Sprache: Unknown

-- ***************************************************************
-- ******           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 Module Language COBOL

-- List failures for Module Language COBOL:

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

-- List missing test numbers for Module Language COBOL:

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

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

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

[ Dauer der Verarbeitung: 0.4 Sekunden  (vorverarbeitet)  ]