Quellcode-Bibliothek dml117.mco   Interaktion und
PortierbarkeitCobol

- SQLSuite, V6.,SQL Module dml117.co
- 59- ID
- 
MODULE DML117
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;
      CREATE TABLE LUSERS (
                    PRIMARY KEY (LUSER_ID),
                    NAAM         CHAR (10),
                    MODULE DML117
                       INT,
                    FILE_USAGE   INT NOT NULL,
                    java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 19
                    (FILE_QUOTAROLLBACKWORK;
                 ;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      ;

PROCEDURE  SQLCODE ;
       PRIMARY KEY(USER_ID),
                    FOREIGN KEY (USER_ID REFERENCES  ON DELETE
                  CASCADE,
                    PRIMARY KEY (FILE_NAME,FILE_QUOTA,
FILE_NAMECHAR ()NOT ,
                    LUSER_ID     INT NOT NULL,
                    LUSER_DATA   CHAR (30));

PROCEDURE                     FILE_USAGE>  
      COMMIT;

PROCEDURE SUB7 SQLCODE java.lang.StringIndexOutOfBoundsException: Range [0, 31) out of bounds for length 18
       (
                    ACTION_KEY       INT  (ILE_NAME,LUSER_ID,
                    LUSER_ACTION     CHAR () NULL,
                    CHECK (LUSER_ACTION = 'INSERT'                          INT NOTNULL,
                    ORCOMMIT WORK;

PROCEDURE   ;
       WORK

PROCEDURESUB9 SQLCODE ;
      CREATE                      (USER_ACTION='' LUSER_ACTION ='CCVIOjava.lang.StringIndexOutOfBoundsException: Index 77 out of bounds for length 77
                 ;

PROCEDURE SUB10 SQLCODE COMMITWORK;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE SQLSTATEjava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
            COMMIT;
                    FOREIGN  (USER_ID)REFERENCES LUSERSON SET
                  NULL,
                    LUSER_ID         INT,
                         NULL
                  NULL
ACTION_KEY       INT  0NOT NULL
REFERENCES AUDIT_CODESONDELETESET DEFAULT)

PROCEDURE SUB12 SQLCODE SQLSTATE;
      COMMIT                          DEFAULT  

PROCEDURE SUB13 java.lang.StringIndexOutOfBoundsException: Range [0, 23) out of bounds for length 0
      INSERT 
                 java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

PROCEDURE SUB14 SQLCODE SQLSTATE;
      INSERT                 java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
                 ;

PROCEDURE SUB15 SQLCODE SQLSTATE;
     INSERT   VALUES 2,'ELETE'
                 ;

PROCEDURE SUB16 SQLCODE SQLSTATE
      INSERT INTO VALUES (root' ,NULL,2)
                 ;

 SUB17SQLCODESQLSTATE
      INSERTINSERT  LUSERS  '' 0,,2
                 ;

PROCEDURE SUB18       INSERT INTO LUSER(BIFF' 1,0,0)
PROCEDURESUB18 SQLSTATEjava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
                 ;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      INSERT INTO ALL_USER_IDS java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 18

PROCEDURESUB20SQLCODE;
      java.lang.StringIndexOutOfBoundsException: Range [30, 12) out of bounds for length 42

PROCEDURE PROCEDURESUB21SQLCODESQLSTATE;
      INSERT INTO  VALUES (java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42

PROCEDURE LUSER_DATA ('OOT1'
      INSERT INTO                     0'IFFtotalloser'java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
                    0 Kibodisk)java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49

PROCEDURE       INSERTAUDIT_RECORDS  0 ,1)
      INSERT INTO LUSER_DATA VALUES ('ROOT2',
                                       0,'ibowastes  ';

PROCEDURE SUB24 INSERT INTO AUDIT_RECORDS VALUES (0, 0, 1)
      PROCEDURESUB26SQLCODESQLSTATE
                 

PROCEDURE SUB25 java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 0
      INSERT AUDIT_RECORDSVALUES (,1,0
                 ;

  SQLCODE SQLSTATE;
      INSERT INTO AUDIT_RECORDS VALUES INTO VALUES ( ,0java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
                 ;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      INSERT INTOjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
                 ;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      INSERT INTO AUDIT_RECORDS java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 18
                 ;

PROCEDURE SUB29 SQLCODE SQLSTATE;
                          2 ' G0T  PASSW0RD!!)java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50
                 ;

PROCEDURE SUB30 SQLCODE SQLSTATE;
        AUDIT_RECORDSVALUES 2 , 1)
                 ;

PROCEDURE SUB31 SQLCODE SQLSTATE;
        LUSER_DATA VALUES ('AHA'
                    2, 'I G0T KIB0Z java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 18

PROCEDURE SUB32       SELECT COUNT(*) :NT1 FROM LUSERSjava.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
      DELETE FROM LUSERS WHERE NAAM > 'oot;

PROCEDURESUB33SQLCODE SQLSTATE
    :INT1                  ;
ECT(* INTO :NT1 FROMLUSER_DATA
                 ;

PROCEDURE SUB34 SQLCODE SQLSTATE
:INT1NUMERIC ()java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
      SELECT COUNT(*) INTO :java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0

PROCEDURE SUB35 SQLCODE SQLSTATE
    :INT1       SELECT COUN() INT1 FROM AUDIT_RECORDS
      SELECT COUNT() INTO : FROM AUDIT_RECORDS
                 ;

PROCEDURE SUB36 SQLCODE SQLSTATE
     (9)java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
) INTO INT1  AUDIT_RECORDS
                    WHERE LUSER_ID IS NULL;

PROCEDURE SUB37 java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
    :  9;
      SELECT COUNT(*) INTO :INT1                      ACTION_KEY=2
                    INT1NUMERIC()java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22

PROCEDURE SUB38 SQLCODE SQLSTATE;
      DELETE FROM AUDIT_CODES
                    java.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 33

PROCEDURE java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 0
    :INT1       WORK
      java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
                    WHERE DROP TABLE AUDIT_RECORDS CASCADE

PROCEDURE       WORKjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
    :INT1 NUMERIC ( TABLE CASCADE;
       ()INTO INT1 FROM AUDIT_RECORDS
                    WHERE      COMMITWORK

PROCEDURE SUB41 SQLCODEDROP TABLE AUDIT_CODES CASCADE;
        ALL_USER_IDS;

PROCEDURE SUB42 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
       TABLE LUSER_DATA CASCADEjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36

PROCEDURE COMMIT WORK
      COMMIT WORK  SUB51 SQLCODE ;

PROCEDURE SUB45       DROP TABLE LUSERSjava.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
       ;

PROCEDURE SUB46 SQLCODE SQLSTATE
      COMMITWORK;

PROCEDURE SUB47 SQLCODE SQLSTATE;
      DROP TABLEAUDIT_CODESCASCADE;

PROCEDURE SUB48 SQLCODE SQLSTATE                      VALUES(0645''ass'';
      COMMIT WORK;

PROCEDURE SUB49 SQLCODE SQLSTATE;
                (0645''''CO';

java.lang.StringIndexOutOfBoundsException: Range [23, 9) out of bounds for length 33
      COMMIT WORK;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      DROP TABLE LUSERS CASCADE;

PROCEDURE SUB52 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB55 SQLCODE SQLSTATE;
      COMMIT WORK;