,, dml131mco
-- 59-byte ID* INTO FROMTABLES
-- 
      TABLE_SCHEM''AND  VISCHANGE'
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
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.TABLES
 WHERETABLE_SCHEM='LATER TABLE_NAME='ISCHANGE'
                 ;

PROCEDURE SUB4 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
SELECT(* :  C
                   WHERE TABLE_SCHEM = 'FLATER'      COUNT* :NT1 INFO_SCHEMCOLUMNS


PROCEDURE SUB5 SQLCODE SQLSTATE;
      ROLLBACK java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 0

PROCEDURE SUB6 SQLCODE SQLSTATE;
       TABLE  C1INT  FLOAT;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB8java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    :INT1 NUMERIC (9);
      SELECT COUNT(*) VALUES'683''ail''MCO')java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50
                   WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME = 'VISCHANGE'
                   AND TABLE_TYPE = 'BASE TABLE';

PROCEDURE     :INT1 NUME(9)
    :INT1  ()java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
     SELECTCOUNT()INTO:FROM .
                   WHERE                      TABLE_TYPE =BTABLE;
                 ;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      ROLLBACKWORKjava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20

PROCEDURE SUB11 SQLCODE SQLSTATE;
      ALTER TABLE VISCHANGE DROPWHERETABLE_SCHEM='U    WORKS'

PROCEDURE SUB12 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB13
 NUMERIC9;
SELECT ()INTO :INT1 INFO_SCHEMCOLUMNS
                   WHERE TABLE_SCHEM       COUNT()INTO :INT1  .
                 ;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO                        VIEW'
                    =F'ANDTABLE_NAME  VISCHANGE'
                   AND COLUMN_NAME = 'C2';

PROCEDURE SUB15 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB16 SQLCODEWHERE  H'AND =T'
      DROP;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURESUB28  
    : INT1 NUMERIC ()
      SELECT COUNT(*  INT1 INFO_SCHEM.
                   WHERE TABLE_SCHEM =                     TABLE_SCHEM = HU   ='ESTREPORTjava.lang.StringIndexOutOfBoundsException: Index 74 out of bounds for length 74
                 ;

PROCEDURE SUB19 SQLCODE SQLSTATE
    :INT1 NUMERIC (9java.lang.StringIndexOutOfBoundsException: Range [41, 25) out of bounds for length 70
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM                     TABLE_TYPE = 'BASE TABLE';
                   WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME = '
                 ;

PROCEDURE       SELECT COUNT ()  :INT1 FROM .COLUMNS
       WORK;

PROCEDURE                 ;
         HU.java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
                            SELECT COUNT(*) INTO  .ABLES

PROCEDURE SUB22 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUESPROCEDURE SUB32  SQLSTATE

PROCEDURE SUB23  SQLSTATE
                 ='U'AND TABLE_NAME  FF'java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67

java.lang.StringIndexOutOfBoundsException: Range [15, 9) out of bounds for length 32
    :INT1 NUMERIC (9);
      ()INTO INT1  INFO_SCHEMTABLES
                    WHERE TABLE_SCHEM       INTO .TESTREPORT
                     TABLE_TYPE='ASETABLE'java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50

PROCEDURE SUB25 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*)java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                    WHERE TABLE_SCHEM =H  TABLE_NAME  'ORKS'
                 ;

VALUES0684,fail,MCO)
    :INT1 NUMERIC (9);
      SELECT PROCEDURE SQLCODESQLSTATEjava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
 SUB37SQLCODESQLSTATE
                    AND    INT1  ()

PROCEDURE SUB27 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO : FROM .TABLE_PRIVILEGES
WHERE TABLE_SCHEM =''  TABLE_NAME 'TESTREPORTjava.lang.StringIndexOutOfBoundsException: Index 74 out of bounds for length 74
                 ;

PROCEDURE SUB28 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      PROCEDURE SU SQLCODE SQLSTATE
                 TABLE_SCHEM='U'ANDTABLE_NAME=''
                 ;

PROCEDURE SUB29 SQLCODE       COUNT*  I
                         INFO_SCHEM.
      SELECT COUNT()INTO INT1  INFO_SCHEMTABLES
                    WHERE TABLE_SCHEMATER;
                    AND TABLE_TYPE = 'BASE TABLE';

PROCEDURE SUB30 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM    :INT1 NUMERIC (9);
                    WHERE java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 32
                 ;

PROCEDURE SUB31 SQLCODE SQLSTATE
    :NT1 NUMERIC ();
      SELECT COUNT(*)                     GRANTOR='' AND GRANTEE ='CHANZLE'
                    WHERE TABLE_SCHEM = '

PROCEDURE SUB32 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
   COUNT(*)INTO I FROM INFO_SCHEM.
       ()INTO INT1

PROCEDURE SUB33 SQLCODE WHERE TABLE_S ='LATER'AND   'VS1'
ROLLBACK ;

PROCEDURE SUB34 SQLCODE SQLSTATE ='';
      INSERT INTO HU.TESTREPORT
                      java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0

PROCEDURE SUB35 SQLCODE SQLSTATE;
      INSERT INTO (*INTO:
                      '0684,fail',MCO)java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50

PROCEDURE SUB36 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :INT1 NUMERIC                     IS_GRANTABLE  NO;
      SELECT COUNT(*) INTO java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
FROMTABLE_PRIVILEGES
                    WHERE TABLE_SCHEM = '      COUNT()INTO :NT1
                     GRANTEE  FLATER;

PROCEDURE SUB38 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT  WHERE  H'AND TABLE_NAME ='ROJ'
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERETABLE_SCHEM ='   >'SYSTEMjava.lang.StringIndexOutOfBoundsException: Index 73 out of bounds for length 73
                    ANDIS_GRANTABLE=NOjava.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44

PROCEDURE SUB39 SQLCODE SQLSTATE
    :NT1 NUMERIC ();
      SELECT COUNT(*) INTO                     INFO_SCHEM.ABLE_PRIVILEGES
                    FROM INFO_SCHEM.ABLE_PRIVILEGES
                    WHERE TABLE_SCHEM = 'FLATER' AND                     AND GRANTOR = 'HU' AND GRANTEE = 'PUBLIC 'U'AND GRANTEE=''
                    AND GRANTOR = 'FLATER' AND GRANTEE =                 java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
                    AND       SELECTCOUNT()INTO INT1

PROCEDURE SUB40 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :                     ='U'ANDGRANTEE='UBLICjava.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
                    FROM INFO_SCHEM.java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 18
                    WHERE TABLE_SCHEM =    INT1NUMERIC();
                    AND GRANTOR = 'FLATER' AND GRANTEE       COUNT*  :
                    AND IS_GRANTABLE = '                    TABLE_SCHEM='U    T'

PROCEDURE SUB41 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM INFO_SCHEM.TABLE_PRIVILEGES
                    WHERE TABLE_SCHEM = 'HU' AND TABLE_NAME = 'PROJ'
                    ANDGRANTOR=''  GRANTEE >'UBLICjava.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
                    IS_GRANTABLE NO;

PROCEDURE SUB42 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM .
                    java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 22
= ''AND  =''
                    AND IS_GRANTABLE = 'NO';

PROCEDURE SUB43 SQLCODE SQLSTATE
    : NUMERIC ()java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
      SELECT COUNT(*) INTO :INT1
                    FROM INFO_SCHEM.TABLE_PRIVILEGES
                    WHERE TABLE_SCHEM';
                    AND GRANTOR = 'HU' AND GRANTEE = 'PUBLIC'
                    AND IS_GRANTABLE = 'ES' AND PRIVILEGE_TYPE = 'INSERT'
                 *) INTO :INT1

PROCEDURE SUB44 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE TABLE_SCHEM                    WHERE TABLE_SCHEM= 'HU' AND TABLE_NAME ='VTABLE'
                    AND GRANTOR = 'HU' AND GRANTEE = 'PUBLIC'
                    AND IS_GRANTABLE = 'YES
  ;

 SUB45 SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*)INTO:INT1
                    FROM                     FROM INFO_SCHEMCOLUMN_PRIVILEGES
                    java.lang.StringIndexOutOfBoundsException: Range [37, 25) out of bounds for length 74
                    AND                     AND PRIVILE  ''AND
                     >' java.lang.StringIndexOutOfBoundsException: Range [63, 62) out of bounds for length 75
                 ;

java.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 32
    :INT1 
      SELECT COUNT                     =HUANDTABLE_NAME''java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
 INFO_SCHEM
                    WHERE TABLE_SCHEM*:NT1
                    AND GRANTOR H'java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39

PROCEDURE SUB47 SQLCODE SQLSTATE
    :INT1 NUMERIC
SELECT COUNT* :
                    java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 22
                    WHEREFROMINFO_SCHEMTABLE_PRIVILEGES
                    ANDGRANTOR='U;

PROCEDURE SUB48 SQLCODE SQLSTATE
   INT1java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 22
      SELECT
FROM INFO_SCHEM.
                    WHERE     INT1NUMERIC()
= 'HU'AND COLUMN_NAME'
                    AND PRIVILEGE_TYPE = 'UPDATE' AND
                     ''ANDGRANTEE='LATER'

PROCEDURE                      = 'LATER  TABLE_NAME=java.lang.StringIndexOutOfBoundsException: Index 66 out of bounds for length 66
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM INFO_SCHEM                   ;
                    WHERE TABLE_SCHEM='U  TABLE_NAME  FF;

PROCEDURE SUB50       ROLLBACK WORK WORK;
    :PROCEDURE  SQLCODE ;
      SELECT COUNT(*) INTO :INT1
                    .COLUMN_PRIVILEGES
                    WHERE java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 0

PROCEDURE SQLCODE SQLSTATE
:NT1 NUMERIC ()java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
      SELECT COUNT(*) INTO :INT1
                    FROM INFO_SCHEM.TABLE_PRIVILEGES
                    WHERE TABLE_SCHEM='LATER    
                    'BASE_WCOV' AND GRANTOR =                    AND   FLATERAND  ='UGINIjava.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
                   ;

PROCEDURE SUB52  
    :INT1 NUMERIC    I NUMERIC 9;
      SELECT COUNT(*) INTO :INT1
                   INFO_SCHEM
                    WHERE FROM INFO_SCHEM
                    'WHERE TABLE_SCHEM FLATER'ANDTABLE_NAME=
                   ;

PROCEDURE SUB53 SQLCODE SQLSTATE;
               

java.lang.StringIndexOutOfBoundsException: Range [15, 9) out of bounds for length 33
      GRANT DELETE      COUNT*INT1

java.lang.StringIndexOutOfBoundsException: Range [20, 2) out of bounds for length 66
;

PROCEDURE SUB56 SQLCODE SQLSTATE
)
      SELECT                     =''
                    FROM INFO_SCHEM:NUMERIC9;
                    WHERESELECT*  
                    AND GRANTOR = 'FLATERWHERETABLE_SCHEM FLATER TABLE_NAME=
ANDPRIVILEGE_TYPE D IS_GRANTABLE''
                 ;

PROCEDURE SUB57 SQLCODE SQLSTATE
    :INT1 java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 0
      SELECT COUNT(*) INTO java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                     .
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME = 
                    'BASE_WCOV' ANDCOMMIT;
                   ;

SELECT* :
    :INT1 NUMERIC                    FROMINFO_SCHEMT
      COUNT()INTO INT1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE TABLE_SCHEM = 'FLATER' AND  'ASE_WCOV  GRANTOR  FLATER' GRANTEE=
                    'BASE_WCOV' AND java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 0
                    'CUGINI       (* INTO :
''java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40

PROCEDURE SUB59 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*  INT1
                    FROM INFO_SCHEM.java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 20
                    WHERE TABLE_SCHEM ;
                    ''  GRANTOR='LATER'ANDGRANTEE=java.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69
                    'CUGINI';

PROCEDURE SUB60 SQLCODE SQLSTATE;
      ROLLBACK

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

PROCEDURE SUB62 SQLCODE SQLSTATE;
      WORKjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

PROCEDURE SUB63 SQLCODE SQLSTATE
    INT1NUMERIC()java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
SELECTCOUNT(* :NT1
                    FROM     NUMERIC()java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
WHERE TABLE_SCHEM=''  =
                    'BASE_WCOV' AND GRANTOR =  ANDTABLE_NAME=''AND COLUMN_NAME = 'EMPNUM'
                    'CUGINI                      = NO'

:INT1()
      (  :NT1
      SELECT COUNT(*FROM INFO_SCHEM WHERE TABLE_SCHEM='LATER'
                     INFO_SCHEMCOLUMN_PRIVILEGES
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME = 
R='LATER GRANTEE =' 
                   ;

PROCEDURE SUB65 PROCEDURE SQLCODESQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB66      DROP TABLEFEAT16;
      PROCEDURE   ;
    (0685,pass'';

PROCEDURE SUB67 SQLCODE
      INSERTINTOHUTESTREPORT
                      VALUES      INTOHUTESTREPORT

PROCEDURE SUB68 SQLCODE 
      ;

java.lang.StringIndexOutOfBoundsException: Range [15, 9) out of bounds for length 33
      CREATE TABLE FEAT16 (
                    EMPNUM PROCEDURESUB78SQLCODESQLSTATEjava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
PROCEDURE  SQLSTATE

PROCEDURE SUB70 SQLCODE SQLSTATE;
      COMMIT WORK       *INTO:NT1

PROCEDURE SUB71 SQLCODE SQLSTATE
:  9;
      SELECT COUNT(*) INTO :INT1
                     . WHERETABLE_SCHEM =''
                    AND TABLE_NAME = 'FEAT16' AND java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 0
                    AND IS_NULLABLE = 'NO';

PROCEDURE SUB72UNT(*)INTO :INT1
:NT1NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM INFO_SCHEM.COLUMNS WHERE TABLE_SCHEM = 'FLATER'
AND TABLE_NAME = ''ANDCOLUMN_NAME=''
                    AND IS_NULLABLE = 'YES';

PROCEDURE SUB73 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE PROCEDURE SUB81 SQLSTATE;
      DROP TABLE FEAT16 CASCADE;

PROCEDURE SUB75 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB76 SQLCODE SQLSTATE
      INSERT INTO HU.ESTREPORT
                      VALUES('0686',

PROCEDURE SUB77       INSERT INTOTESTREPORT
      INSERT INTO HU.TESTREPORT
                      VALUES('0686','fail','MCO');

PROCEDURE SUB78      COMMIT ;
      COMMIT WORK;

PROCEDURE SUB79 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM INFO_SCHEM.SCHEMATA
                    WHERE SCHEM_NAME = 'SHIRLEY_HURWITZ' AND
                    SCHEM_OWNER = 'FLATER';

PROCEDURE SUB80 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM INFO_SCHEM.SCHEMATA
                    WHERE SCHEM_NAME = 'LEN_GALLAGHER' AND
                    SCHEM_OWNER = 'FLATER';

PROCEDURE SUB81 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB84 SQLCODE SQLSTATE;
      COMMIT WORK;