Quellcode-Bibliothek mpa011.mco   Sprache: Cobol

 ,.mco
-- 59-byte ID
-- 
MODULE MPA011
LANGUAGE COBOL
AUTHORIZATION FLATER



PROCEDURE SUB1-59byte ID
    :IDX CHAR(8)
   SELECTUSERINTO :IDX FROM HU.CCO;

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :PROGNO NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM HU.TOKENS WHERE PROG_NO = :PROGNO;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE
    :PROGNOjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      DELETE  HU.TOKENS PROG_NO =:PROGNO
                 ;

PROCEDURE SUB6 SQLCODE java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
WORK

PROCEDURE SUB7 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE SQLSTATE;
ACK WORK;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      COMMIT       COMMIT WORKFROMHUTOKENS PROG_NO  :PROGNO;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTEPROCEDURE  java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 32

PROCEDURE SUB11 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB12 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE    PROGNONUMERIC ()java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24

PROCEDURE SUB13 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB15 SQLCODE PROCEDURESUB6  SQLSTATE;
      COMMIT WORK;

PROCEDURE        WORK;
MERIC 9);
      INSERT INTOCOMMIT WORK

PROCEDURE SUB17 SQLCODE SQLSTATE;
      ROLLBACK ;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      COMMIT WORK;java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

PROCEDURE SUB19 SQLCODE SQLSTATE;
      ROLLBACK WORK;

java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
PROCEDURE  SQLCODE SQLSTATE
:PROGNONUMERIC ()java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
:INT1 .TOKENS
                    WHERE PROG_NO = :PROGNO;

       WORK
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
      WORK

PROCEDURE PROCEDURE SUB23
    SUB16
 :;

PROCEDURE INTO HU.OKENS VALUES (PROGNO,1)
      COMMIT ;

PROCEDURE SUB25 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 20

PROCEDURE
      COMMITjava.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 18

PROCEDURE                    WHERE PROG_NO = :PROGNO;
    :PROGNO NUMERIC (9);
      UPDATE HU.      
 =:ROGNO;

PROCEDURE SUB28 SQLCODE PROCEDURE SUB28 SQLCODE SQLSTATE
      ROLLBACK ;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      COMMIT WORK;WORK;

PROCEDURE SQLCODE 
      WORKjava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20

PROCEDURE SUB31 SQLCODE SQLSTATE
    
       FROM HU.OKENS WHERE PROG_NO  ;
                 ;

PROCEDURE SUB32 SQLCODE SQLSTATE;
      :DSTMT CHAR)

PROCEDUREjava.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 33
      INSERT INTOjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                      VALUES('0629','java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 32

PROCEDURE SUB34 SQLCODE SQLSTATE;
       INTO HU.ESTREPORT
                      VALUES

PROCEDURE SUB35 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURESUB29SQLCODE SQLSTATE;
    :INT1 NUMERIC (9)
    :PROGNO 
PROCEDURESUB30SQLCODE SQLSTATE;
         FROM HU.TOKENS WHERE PROG_NO =:ROGNO;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB38 SQLCODE SQLSTATE
    :           java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
       FROMHUTOKENS   =:ROGNO


   ;
      ROLLBACK WORK;

PROCEDURE SUB40 SQLCODE SQLSTATE;
COMMITWORK;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB42java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 FROMCONCATBUF;

PROCEDUREVALUES'629',fail'CO')
      INSERT INTO
VOKE SELECT,UPDATE java.lang.StringIndexOutOfBoundsException: Range [51, 50) out of bounds for length 66
                    ' FROM HU CASCADE'
                   

   SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ     INT1NUMERIC()

PROCEDURE SUB45 SQLCODE   (* INTO INT1
                  FROM HU.OKENS  =:ROGNOjava.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59

PROCEDURE SUB46 SQLCODE SQLSTATE
    :
      EXECUTEIMMEDIATE LONGSTjava.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32

                 ;
PROCEDURESUB39SQLCODE SQLSTATEjava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33

PROCEDURE SUB48  java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
    :java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 0
      INSERT INTOROLLBACK ;

PROCEDURE SUB49java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
      INTOVALUES

java.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 33
                   HU CASCADE'

    LONGST(;
ROLLBACKWORK;

java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   :INT1 9
    :PROGNO NUMERICCOMMIT;
     SELECTTOKEN_NO INTO:INT1 FROMHU
                    : CHAR240;

PROCEDURE SUB53 SQLCODE SQLSTATE;
      ROLLBACK       EXECUTE IMMEDIIMMEDIATELjava.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32

PROCEDURE SQLSTATE
          PROGNO()

PROCEDURE HUTVALUES:
    :java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 0
      EXECUTE java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 0

PROCEDURE
      COMMIT;

    WORK
    :PROGNO
     HU. TOKEN_NO = TOKEN_NO +1
                    INT1 9java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21

PROCEDURE SUB58 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB59 SQLCODE java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
      COMMIT WORKjava.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 0

PROCEDURE SUB60 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB61 SQLCODE SQLSTATE
    DSTMT ()java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
       java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
                 ;  

PROCEDURE SUB62 SQLCODE SQLSTATE;
      UPDATEHUTOKENSSETTOKEN_NO= +1

PROCEDURE SUB63 SQLCODE SQLSTATE;
      INTO HU.TESTREPORT
                      

PROCEDURE SUB64 SQLCODE SQLSTATEjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
      INSERT INTO HU.TESTREPORT
   VALUES'630''ail''');

PROCEDURE SUB65 SQLCODE SQLSTATEHU P
                  

PROCEDURE SUB66 SQLCODE SQLSTATE;
    :java.lang.StringIndexOutOfBoundsException: Range [15, 9) out of bounds for length 33
                            (0630'''MCO);
                 ;

PROCEDURE                      VALUES'''',MCO'java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50
      COMMIT 

PROCEDURE SUB68 SQLCODE SQLSTATE;
      COMMIT WORK:ROGNONUMERIC()java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24

PROCEDURE SUB69 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      UPDATE HU.
                    SET java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 18