Quelle  dml183.mco

-- SQL Test Suite, V6.0, SQL Module dml183.mco
-- 59-byte ID
-- 
MODULE DML183
LANGUAGE COBOL
AUTHORIZATION FLATER



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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :ENUUM CHAR(3),
    :CASGRD NUMERIC(9));
      SELECT EMPNUM,
                    CASE GRADE
                    WHEN 0 THEN 1000
                    WHEN 1 THEN 997
                    WHEN 2 THEN 994
                    WHEN 3 THEN 991
                    WHEN 4 THEN 988
                    WHEN 5 THEN 985
                    WHEN 6 THEN 982
                    WHEN 7 THEN 979
                    WHEN 8 THEN 976
                    WHEN 9 THEN 973
                    WHEN 10 THEN 970
                    WHEN 11 THEN 967
                    WHEN 12 THEN 964
                    WHEN 13 THEN 961
                    WHEN 14 THEN 958
                    WHEN 15 THEN 955
                    WHEN 16 THEN 952
                    WHEN 17 THEN 949
                    WHEN 18 THEN 946
                    WHEN 19 THEN 943
                    WHEN 20 THEN 940
                    WHEN 21 THEN 937
                    WHEN 22 THEN 934
                    WHEN 23 THEN 931
                    WHEN 24 THEN 928
                    WHEN 25 THEN 925
                    WHEN 26 THEN 922
                    WHEN 27 THEN 919
                    WHEN 28 THEN 916
                    WHEN 29 THEN 913
                    WHEN 30 THEN 910
                    WHEN 31 THEN 907
                    WHEN 32 THEN 904
                    WHEN 33 THEN 901
                    WHEN 34 THEN 898
                    WHEN 35 THEN 895
                    WHEN 36 THEN 892
                    WHEN 37 THEN 889
                    WHEN 38 THEN 886
                    WHEN 39 THEN 883
                    WHEN 40 THEN 880
                    WHEN 41 THEN 877
                    WHEN 42 THEN 874
                    WHEN 43 THEN 871
                    WHEN 44 THEN 868
                    WHEN 45 THEN 865
                    WHEN 46 THEN 862
                    WHEN 47 THEN 859
                    WHEN 48 THEN 856
                    WHEN 49 THEN 853
                    END
                    INTO :ENUUM, :CASGRD
                    FROM HU.STAFF
                    WHERE EMPNAME = 'Betty';

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :ENUUM CHAR(3),
    :CASGRD NUMERIC(9));
      SELECT EMPNUM,
                    CASE
                    WHEN GRADE = 0 THEN 1000
                    WHEN GRADE = 1 THEN 997
                    WHEN GRADE = 2 THEN 994
                    WHEN GRADE = 3 THEN 991
                    WHEN GRADE = 4 THEN 988
                    WHEN GRADE = 5 THEN 985
                    WHEN GRADE = 6 THEN 982
                    WHEN GRADE = 7 THEN 979
                    WHEN GRADE = 8 THEN 976
                    WHEN GRADE = 9 THEN 973
                    WHEN GRADE = 11 THEN 967
                    WHEN GRADE = 12 THEN 964
                    WHEN GRADE = 13 THEN 961
                    WHEN GRADE = 14 THEN 958
                    WHEN GRADE = 15 THEN 955
                    WHEN GRADE = 16 THEN 952
                    WHEN GRADE = 17 THEN 949
                    WHEN GRADE = 18 THEN 946
                    WHEN GRADE = 19 THEN 943
                    WHEN GRADE = 20 THEN 940
                    WHEN GRADE = 21 THEN 937
                    WHEN GRADE = 22 THEN 934
                    WHEN GRADE = 23 THEN 931
                    WHEN GRADE = 24 THEN 928
                    WHEN GRADE = 25 THEN 925
                    WHEN GRADE = 26 THEN 922
                    WHEN GRADE = 27 THEN 919
                    WHEN GRADE = 28 THEN 916
                    WHEN GRADE = 29 THEN 913
                    WHEN GRADE = 30 THEN 910
                    WHEN GRADE = 31 THEN 907
                    WHEN GRADE = 32 THEN 904
                    WHEN GRADE = 33 THEN 901
                    WHEN GRADE = 34 THEN 898
                    WHEN GRADE = 35 THEN 895
                    WHEN GRADE = 36 THEN 892
                    WHEN GRADE = 37 THEN 889
                    WHEN GRADE = 38 THEN 886
                    WHEN GRADE = 39 THEN 883
                    WHEN GRADE = 40 THEN 880
                    WHEN GRADE = 41 THEN 877
                    WHEN GRADE = 42 THEN 874
                    WHEN GRADE = 43 THEN 871
                    WHEN GRADE = 44 THEN 868
                    WHEN GRADE = 45 THEN 865
                    WHEN GRADE = 46 THEN 862
                    WHEN GRADE = 47 THEN 859
                    WHEN GRADE = 48 THEN 856
                    WHEN GRADE = 49 THEN 853
                    WHEN GRADE = 10 THEN 970
                    END
                    INTO :ENUUM, :CASGRD
                    FROM HU.STAFF
                    WHERE EMPNAME = 'Betty';

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0896','pass','MCO');

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0896','fail','MCO');

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;