Quelle  dml056.mco

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

MODULE DML056
LANGUAGE COBOL
AUTHORIZATION HU



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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM T100;

PROCEDURE SUB2 SQLCODE
    :R1 CHAR(2)
    :S1 CHAR(2)
    :T1 CHAR(2)
    :R2 CHAR(2)
    :S2 CHAR(2)
    :T2 CHAR(2)
    :R3 CHAR(2)
    :S3 CHAR(2)
    :T3 CHAR(2)
    :R4 CHAR(2)
    :S4 CHAR(2)
    :T4 CHAR(2)
    :R5 CHAR(2)
    :S5 CHAR(2)
    :T5 CHAR(2)
    :R6 CHAR(2)
    :S6 CHAR(2)
    :T6 CHAR(2)
    :R7 CHAR(2)
    :S7 CHAR(2)
    :T7 CHAR(2)
    :R8 CHAR(2)
    :S8 CHAR(2)
    :T8 CHAR(2)
    :R9 CHAR(2)
    :S9 CHAR(2)
    :T9 CHAR(2)
    :R0 CHAR(2)
    :S0 CHAR(2)
    :T0 CHAR(2);
      INSERT INTO T100
                  VALUES('ZA','ZB', :R1,'ZC','ZD', :S1,'ZE','ZF', :T1,'ZG',
                  'YA','YB', :R2,'YC','YD', :S2,'YE','YF', :T2,'YG',
                  'XA','XB', :R3,'XC','XD', :S3,'XE','XF', :T3,'XG',
                  'UA','UB', :R4,'UC','UD', :S4,'UE','UF', :T4,'UG',
                  'VA','VB', :R5,'VC','VD', :S5,'VE','VF', :T5,'VG',
                  'WA','WB', :R6,'WC','WD', :S6,'WE','WF', :T6,'WG',
                  'LA','LB', :R7,'LC','LD', :S7,'LE','LF', :T7,'LG',
                  'MA','MB', :R8,'MC','MD', :S8,'ME','MF', :T8,'MG',
                  'NA','NB', :R9,'NC','ND', :S9,'NE','NF', :T9,'NG',
                  'OA','OB', :R0,'OC','OD', :S0,'OE','OF', :T0,'OG');

PROCEDURE SUB3 SQLCODE
    :T1 CHAR(2)
    :T2 CHAR(2)
    :T3 CHAR(2)
    :T4 CHAR(2)
    :T5 CHAR(2)
    :T6 CHAR(2)
    :T7 CHAR(2)
    :T8 CHAR(2)
    :T9 CHAR(2)
    :T0 CHAR(2)
    :S1 CHAR(2);
      SELECT C6,C16,C26,C36,C46,C56,
                  C66,C76,C86,C96,C100
                  INTO  :T1, :T2, :T3, :T4, :T5, :T6, :T7, :T8, :T9,
                   :T0, :S1
                  FROM T100
                  WHERE C1 = 'ZA' AND C2 = 'ZB';

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0246','pass','MCO');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0246','fail','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      DELETE FROM T100;

PROCEDURE SUB9 SQLCODE
    :S1 CHAR(2)
    :T1 CHAR(2)
    :S2 CHAR(2)
    :T2 CHAR(2)
    :S3 CHAR(2)
    :T3 CHAR(2)
    :S4 CHAR(2)
    :T4 CHAR(2)
    :S5 CHAR(2)
    :T5 CHAR(2)
    :S6 CHAR(2)
    :T6 CHAR(2)
    :S7 CHAR(2)
    :T7 CHAR(2)
    :S8 CHAR(2)
    :T8 CHAR(2)
    :S9 CHAR(2)
    :T9 CHAR(2)
    :S0 CHAR(2)
    :T0 CHAR(2);
      INSERT INTO T100
                  VALUES('ZA','ZB','CA','ZC','ZD', :S1,'ZE','ZF', :T1,'ZG',
                  'YA','YB','CB','YC','YD', :S2,'YE','YF', :T2,'YG',
                  'XA','XB','CC','XC','XD', :S3,'XE','XF', :T3,'XG',
                  'UA','UB','CD','UC','UD', :S4,'UE','UF', :T4,'UG',
                  'VA','VB','CE','VC','VD', :S5,'VE','VF', :T5,'VG',
                  'WA','WB','CF','WC','WD', :S6,'WE','WF', :T6,'WG',
                  'LA','LB','CG','LC','LD', :S7,'LE','LF', :T7,'LG',
                  'MA','MB','CH','MC','MD', :S8,'ME','MF', :T8,'MG',
                  'NA','NB','CJ','NC','ND', :S9,'NE','NF', :T9,'NG',
                  'OA','OB','CK','OC','OD', :S0,'OE','OF', :T0,'OG');

PROCEDURE SUB10 SQLCODE
    :T1 CHAR(2)
    :T2 CHAR(2)
    :T3 CHAR(2)
    :T4 CHAR(2)
    :T5 CHAR(2)
    :T6 CHAR(2)
    :T7 CHAR(2)
    :T8 CHAR(2)
    :T9 CHAR(2)
    :T0 CHAR(2);
      UPDATE T100
                  SET C5 =   :T1,
                  C10 = 'ZP',
                  C15 =  :T2,
                  C20 = 'YP',
                  C25 =  :T3,
                  C30 = 'XP',
                  C35 =  :T4,
                  C40 = 'UP',
                  C45 =  :T5,
                  C50 = 'VP',
                  C55 =  :T6,
                  C60 = 'WP',
                  C65 =  :T7,
                  C70 = 'LP',
                  C75 =  :T8,
                  C80 = 'MP',
                  C85 =  :T9,
                  C90 = 'NP',
                  C95 =  :T0,
                  C100 = 'OP';

PROCEDURE SUB11 SQLCODE
    :S1 CHAR(2)
    :S2 CHAR(2)
    :S3 CHAR(2)
    :S4 CHAR(2)
    :S5 CHAR(2)
    :S6 CHAR(2)
    :S7 CHAR(2)
    :S8 CHAR(2)
    :S9 CHAR(2)
    :S0 CHAR(2)
    :T1 CHAR(2);
      SELECT C5,C20,C35,C40,C55,C60,
                  C75,C80,C90,C95,C100
                  INTO  :S1, :S2, :S3, :S4, :S5, :S6, :S7, :S8, :S9,
                   :S0, :T1
                  FROM T100
                  WHERE C1 = 'ZA' AND C2 = 'ZB';

PROCEDURE SUB12 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0247','pass','MCO');

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0247','fail','MCO');

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;