Quelle  sdl026.mco

-- SQL Test Suite, V6.0, SQL Module sdl026.mco
-- 59-byte ID

MODULE SDL026BYADDING12CH
LANGUAGE COBOL
AUTHORIZATION CANWEPARSELENGTH18

DECLARE CURSOR18LONGCURSOR CURSOR FOR
             SELECT CORRELATIONNAMES18.CHARS18NAME18CHARS
             FROM CHARACTER18TABLE18 CORRELATIONNAMES18
             WHERE CORRELATIONNAMES18.CHARS18NAME18CHARS 
             = 'VAL4'


PROCEDURE AUTHCK SQLCODE
  :UIDX CHAR(18);
      SELECT USER INTO :UIDX FROM HU.ECCO;

PROCEDURE SUB1 SQLCODE;
      DELETE FROM CHARACTER18TABLE18;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO CHARACTERS18VIEW18 (LONGNAME18LONGNAME)
                  VALUES ('VALU');

PROCEDURE SUB3 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB4 SQLCODE;
      UPDATE CHARACTER18TABLE18 SET CHARS18NAME18CHARS = 
                  'VAL4' WHERE CHARS18NAME18CHARS = 'VALU';

PROCEDURE SUB5 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB6IS18CHARLENGTH SQLCODE
    :MAKE18BYADDING12CH CHAR(4)
    :INDIC1BYADDING12CH NUMERIC (4);
      SELECT * INTO  :MAKE18BYADDING12CH  :INDIC1BYADDING12CH  FROM
                  CANWEPARSELENGTH18.CHARACTERS18VIEW18;

PROCEDURE SUB7 SQLCODE;
    OPEN CURSOR18LONGCURSOR;

PROCEDURE SUB8 SQLCODE
    :TOBE18BYADDING12CH CHAR(4)
    :INDIC1BYADDING12CH NUMERIC (4);
      FETCH CURSOR18LONGCURSOR INTO  
            :TOBE18BYADDING12CH  :INDIC1BYADDING12CH
                 ;

PROCEDURE SUB9 SQLCODE;
      CLOSE CURSOR18LONGCURSOR;

PROCEDURE SUB10 SQLCODE;
      DELETE FROM CHARACTER18TABLE18;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO HU.TESTREPORT
                    VALUES('0237','pass','MCO');

PROCEDURE SUB12 SQLCODE;
      INSERT INTO HU.TESTREPORT
                    VALUES('0237','fail','MCO');

PROCEDURE SUB13 SQLCODE;
      COMMIT WORK;