Quelle  xts701.mco   Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module xts701.mco
-- 59-byte ID
-- 
MODULE XTS701
LANGUAGE COBOL
AUTHORIZATION CTS1



PROCEDURE SUB1 (SQLCODE, SQLSTATE,
    :UIDX CHAR(18));
      SELECT USER INTO :UIDX FROM CTS1.ECCO;

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      INSERT INTO T4
                    VALUES('This is the first compound character
                  literal.',1,NULL,NULL);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      INSERT INTO T4
                    VALUES('Second character literal.',2,NULL,NULL);

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO T4
                    VALUES('Third character literal.',3,NULL,NULL);

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT NUM6
                    INTO   :NUM
                    FROM   T4
                    WHERE  STR110 = 'This is the compound '
                    'character literal.';

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   T4
                    WHERE  STR110 <> 'This is the first compound '
                    'character literal.';

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT NUM6
                    INTO   :NUM
                    FROM   T4
                    WHERE  NUM6 = 2 AND STR110 <= 'Second character
                  '--Comments here
                    'literal.';

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT NUM6
                    INTO   :NUM
                    FROM   T4
                    WHERE  STR110 = 'Third character literal.'--Comments here
                    'second fragment'
                    'third fragment.';

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT NUM6
                    INTO   :NUM
                    FROM   T4
                    WHERE  STR110 = 'First fragment'
                    'another fragment'--Comments    
                    'Second character literal.'--Comments here
                    'fourth fragment.';

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT NUM6
                    INTO   :NUM
                    FROM   T4
                    WHERE  STR110 <= 'Second '    
                    'chara'--Comments    
                    'cter liter'--Comments here
                    'al.'
                    '     ';

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :NUM
                    FROM   T4
                    WHERE  STR110 < 'An indifferent'--Comments
                    ' charac'    
                    'ter literal.';

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :NUM1 NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :NUM1
                    FROM   T4
                    WHERE  STR110 >= 'An indifferent'--Comments
                    ' charac'     
                    'ter literal.';

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT NUM6
                    INTO   :NUM
                    FROM   T4
                    WHERE  STR110 = 'Second '    
                    'chara'--Comments    
                    'cter liter'--Comments here
                    'al.'
                    '     '--Comments
                    '      ';

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT NUM6
                    INTO   :NUM
                    FROM   T4
                    WHERE  NUM6 = 2 AND STR110 < 'Second '    
                    'chara'--Comments    
                    'cter literal.';

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7004','pass','MCO');

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7004','fail','MCO');

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      INSERT INTO T4
                    VALUES('This is the first fragment of a compound
                  character literal,' --Comments
                    ' and this is the second part.',11,NULL,'Compound '  
                    
                    --Comments   
                    
                    'literal.');

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      INSERT INTO T4
                    VALUES('This is a comp'
                    'ound character literal,'       
                    ' in the second table row.',12,NULL,NULL);

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      INSERT INTO T4
                    VALUES('This is '
                    'a comp'      
                    'ound '
                    'char'
                    'acter lit' -- Comments
                    'eral, ' 
                    -- Comments        
                    
                    'in the th'
                    'ird '
                    'table '
                    'row.',13,NULL,NULL);

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :CCL1 CHAR(215),
    :CCL2 CHAR(209));
      SELECT STR110, COL4 INTO :CCL1, :CCL2 FROM T4
                  WHERE NUM6 = 11;

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :CCL1 CHAR(215));
      SELECT STR110 INTO :CCL1 FROM T4 WHERE  NUM6 = 12
                 ;

PROCEDURE SUB25 (SQLCODE, SQLSTATE,
    :CCL1 CHAR(215));
      SELECT STR110
                    INTO   :CCL1
                    FROM   T4
                    WHERE  NUM6 = 13;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7005','pass','MCO');

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7005','fail','MCO');

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB30 (SQLCODE, SQLSTATE,
    :CCL1 CHAR(215),
    :CCL2 CHAR(209));
      SELECT 'First fragment of a compound character
                  literal, '
                    --Comment1   
                    
                    
                    --Comment2
                    'and second part.',
                    'This is the first fragment of a compound character
                  literal,'--...
                    ' this is the second,'
                    
                    
                    ' and this is the third part.'
                    INTO   :CCL1, :CCL2
                    FROM   CTS1.ECCO;

PROCEDURE SUB31 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7006','pass','MCO');

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7006','fail','MCO');

PROCEDURE SUB34 (SQLCODE, SQLSTATE);
      COMMIT WORK;