Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/SQL P/dml1-99/     Datei vom 4.1.2008 mit Größe 5 kB image not shown  

Quellcode-Bibliothek sq215a.cob   Sprache: Cobol

 
 DIVISIONSQ2154
000200 PROGRAM-ID0020 .                                                      .2
000300     SQ215A000400***********000500*                                                              *  SQ2154.2
000400****************************************************************  SQ2154.2
000500*                                                              *  SQ2154.2
000600*    VALIDATION FOR:-                                          *  SQ2154.2
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ2154.2
000800*    USING CCVS85 VERSION 3.0.                                 *  SQ2154.2
000900*                                                              *  SQ2154.2
001000*    CREATION DATE     /     VALIDATION DATE                   *  SQ2154.2
001100*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ2154.2
001200*                                                              *  SQ2154.2
001300****************************************************************  SQ2154.2
001400*                                                              *  SQ2154.2
001500*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  SQ2154.2
001600*                                                              *  SQ2154.2
001700*            X-14   SEQUENTIAL MASS STORAGE                    *  SQ2154.2
001800*            X-55   SYSTEM PRINTER                             *  SQ2154.2
001900*            X-82   SOURCE-COMPUTER                            *  SQ2154.2
002000*            X-83   OBJECT-COMPUTER                            *  SQ2154.2
002100*            X-84   LABEL RECORDS OPTION                       *  SQ2154.2
002200*                                                              *  SQ2154.2
002300****************************************************************  SQ2154.2
002400*                                                              *  SQ2154.2
002500*    SQ215A TESTS THE CLOSE STATEMENT WITH THE WITH LOCK PHRASE*  SQ2154.2
002600*    A MASS STORAGE FILE IS CREATED, ONE RECORD IS WRITTEN     *  SQ2154.2
002700*    TO IT, AND IT IS CLOSED WITH LOCK.  AN ATTEMPT IS THEN    *  SQ2154.2
002800*    MADE TO REOPEN THE FILE.  I-O STATUS 38 IS EXPECTED AND   *  SQ2154.2
002900*    TESTED IN THE DECLARATIVES.                               *  SQ2154.2
003000*                                                              *  SQ2154.2
003100*    THIS PROGRAM HAS BEEN SPLIT FROM V2.0 ONWARDS.            *  SQ2154.2
003200*    THE NEW PROGRAMS ARE SQ229A AND SQ230A.                   *  SQ2154.2
003300****************************************************************  SQ2154.2
003400*                                                              *  SQ2154.2
003500*                                                                 SQ2154.2
6 DIVISIONSQ2154
003700 CONFIGURATION SECTION090Card0130.2
003800 SOURCE-COMPUTER000700*    "ON-SITE000OBJECT-COMPUTER SQ2154.2
01     .                                                    **  SQ2154
004000 OBJECT-COMPUTER0010    COBOL Apr0020                                                              
0410Card0131001600*  .2
004200*                                                                 SQ2154.2
004300 INPUT-OUTPUT001900*            X-82   SOURCE-COMPUTER                            002000*            X-83   OBJECT-COMPUTER                            *  SQ2154002100*            X-84   LABEL RECORDS OPTION002200*                                                              *  SQ2154.2
004400 040     0320*     NEWAND.*SQ2154003300****0470003400*        .2
004500     SELECT080""                                                      .00300ENVIRONMENT.                                            2
004600     "020DATA DIVISION .2
40SELECT TO.2
004800     "C0020"                                                      SQ2154.2
000             STATUSSQ-FS1-STATUS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005000*                                                                 SQ2154.2
005100*                                                                 SQ2154.2
00DATA                                                    
03 SECTION
005400 FD  PRINT-FILE                                                   SQ2154.2
050 RECORDS20 FDSQ2154
005600     Card0132                                                     SQ2154.040"" .                                                    2
005700     DATA RECORD60WORKING-STORAGE.                                         .2
0058007000*                                                             *   SQ2154.2
0500 1PRINT-REC     X0*   WORKING-STORAGE  ITEMS TO TEST0                                                             .2
006000005000  .                                               SQ215400FDSQ2154
006100*                                                                 SQ2154.2
0020FD                                                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006300     LABEL008000*                                                             *   SQ2154.2
0000200*                                                            *   SQ2154
006500600001  DUMMY-RECORD X(1200850 1  REC-SKEL-SUB.SQ2154
006600*                                                                 SQ2154.2
060 WORKING-STORAGE SECTION.2
006800*                                                                 SQ2154.2
006900***************************************************************   SQ2154.2
007000*                                                             *   SQ2154.2
007100*    WORKING-STORAGE DATA ITEMS SPECIFIC TO THIS TEST SUITE   *   SQ2154.2
007200*                                                             *   SQ2154.2
007300***************************************************************   SQ2154.2
007400*                                                                 SQ2154.2
005060                SQ2154.2
00600                                        
7 3     X.                                      2
007800*                                                                 SQ2154.2
007900***************************************************************   SQ2154.2
008000*                                                             *   SQ2154.2
008100*    WORKING-STORAGE DATA ITEMS USED BY THE CCVS              *   SQ2154.2
008200*                                                             *   SQ2154.2
008300***************************************************************   SQ2154.2
008400*                                                                 SQ2154.2
008500 01  REC-SKEL-SUB   PIC 99.                                       007200040             "LFIL0000ORG LBLR "                        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008600*                                                                 SQ2154.2
0070 1.                                 .2
0FILE-RECORD-INFO-SKELETON
008007800*                                                                 SQ215400790008000*                                                             *   SQ2154.2
009000             "001REC-SKEL-SUB 99 .2
009100        05 09                                  .2
02 "ODO00PGM=,=000BLKSIZ=00. .2
009300        05 FILLER                 PICTURE        5FILLER                  X4)VALUE2
040"LFIL000,RG ,="                        
05                           X(7              SQ2154
009600             ",.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
07        FILLER X(38)       VALUE.2
009800             ",ALTKEY1= ".            0970                         X8       SQ2154
009900009900        FILLER X3)VALUE.2
10             , "SQ21542
010100        05 FILLER                 PICTURE5PICTURE .SQ215409005                  PICTURE           OCCURS.              .
000 PIC                       
15                 X) ..2
00000  PICSQ2154
08                                          
                X                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010700                    PIC.23        9( .
010800 FILLER 100              X                       .2
010900           0705                      (SQ2154
011000           07 FILLERPIC)SQ2154 5.
00       PIC.2
0010           7011900           07 XRECORD-LENGTH      2
102100           07 CHARS-OR-RECORDS2
011400           07 FILLER              PIC X(5).                       SQ2154.01200           7 FILLERPIC()                       .2
011500           07 ODO-NUMBER020           7 PIC.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10           7XFILE-ORGANIZATION2                       .2
0020           7FILLERPIC.SQ2154
0118100PIC                      .
011030         FILE-RECORD-INFO-P121-240.                             20                          PIC                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
100          0                X(100FILLERPICSQ2154
1100     PIC SQ2154
012200           07 FILLER              PIC X(1).                       00               PIC.SQ2154
3           00PIC2
0140                          030           7              PIC                       
012500           07 RECORDS-IN-FILE     PIC09           7XLABEL-TYPE X()                       .2
012600           0013800*                                                                 SQ2154        5FILE-RECORD-INFO-P121-240.2
0127007000          X(.SQ2154
0              (.2
012900           07 XLABEL-TYPE10           7      PIC11002FEATURE (4   SPACE.2
01005 FILE-RECORD-INFO-P121-240                             .2
107              X(.2
00 PICSQ2154
013300           07 FILLER              PIC X(9).                       SQ2154.2
ERNATE-KEY1 X(29).SQ2154
013500           07 FILLER              PIC X(9).                       SQ2154.2
0600           07 ALTERNATE-KEY2PIC(2).SQ2154
03700           7FILLERPIC(7).SQ2154XVALUE.2
013800*                                                                 SQ2154.2
190 1  .                                                .2
0                    X SPACESQ2154
014100     02 FEATURE             PIC X(2)   SPACE               .2
01420                    SPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014300     02 P-OR-F002       X3)VALUE                             
                    X SPACE2
15400              99      ZERO
01600    2              PIC()VALUE               .2
170       3 PARDOT-X X      VALUE             .2
0148000 DOTVALUE 99      ZERO.2
014900     02 FILLER              PIC X(9)   0500   PIC3COMPUTED-A()94       2
5000 E-MARK1.SQ2154
015100 0000        REDEFINES  COMPUTED-XSQ2154
015200   02 FILLER  PIC10                    15      PIC2  SPACE.2
502   (7       COMPUTED2
015400   02 COMPUTED-X60       PIC(0  SPACE                             .2
5COMPUTED-A SPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015600     03 COMPUTED-N    REDEFINES   COMPUTED-A4java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050     0100                  PIC SPACE
000                           ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
19     java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 80
0600 REDEFINESSQ2154
604COMPUTED-18V0-1.SQ2154
016200        04 FILLER                          PIC70     3CORRECT-14V4 06002FILLER (7)VALUE" 2
160     0 FILLERPIC5).                             SQ2154
600  .                                                .2
60       PIC)VALUE .                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0600     02  PICVALUE                .2
016700     02 CORRECT-X03  REDEFINES     PIC 9(.(4.SQ2154
01800                    (0 VALUE.2
016900     03 CORRECT-N0171700      java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 80
017000     03 CORRECT-0V18 REDEFINES CORRECT-A4004CORRECT-18V0 -(8          .2
017100     05                                      X               .2070   .                                                    .
7   10    SS
017300     03      CR-18V00FILLERX8VALUE               PASQ2154
704CORRECT-18V0(8.SQ2154
017500         04 FILLER120                                                         
017600     03 FILLER PIC150     0 FILLER           PIC XXXX SPACE.SQ2154
01700     3 COR-ANSI-REFERENCE X(48) VALUE.2
1801.                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
java.lang.StringIndexOutOfBoundsException: Range [20, 15) out of bounds for length 80
 " PASQ21542
018100-    "SS PARAGRAPH-NAME SQ2154.2
01200-           REMARKSSQ2154.2
         PIC1     SPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018400 01  CCVS-C-2      PIC990 0      PIC 999VALUE.SQ21542
018500     0 FILLER0130 1  RROR-COUNTER99      VALUESQ2154
01860002FILLER 0140 1     PIC 99       .                   SQ2154
01870     2           PIC()     SPACE.                SQ2154
018800     02FILLERPIC()      "FAIL".               SQ2154
0890     02FILLERX(9)    VALUE.                SQ2154.2
1   PIC .                   .2
019100 10 1RECORD-COUNT 09 1RECORD-COUNT5java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019200 01  DELETE-COUNTER    PIC 120       PIC (8VALUE                 .2
01002FILLER (9     SPACES.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019400 01  INSPECT-COUNTER04   ".2
10 0             (9    SPACES
20            X   " . .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019700 01  ERROR-HOLD        PIC 999      VALUE ZERO.42"SQ2154025 2FILLERPICX3) SPACES. SQ21542
01980 0  DUMMY-HOLD0102FILLERX(8                          .2
900RECORD-COUNT(VALUESQ2154
2000      PIC)VALUESQ2154
020100 01  CCVS-H-1021400*                                                                 SQ21540   2FILLER             XXXX                         SQ2154java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20102             PICX9.SQ2154
020300     02  FILLER          20   2FILLER X(    " IN"                 .2
 SYSTEM2
020500     02  FILLER          PIC10   0              PIC(1  VALUE.                  SQ2154
020600 01  CCVS-H-2A.                                                   SQ2154.2
0   2FILLER (0)VALUE                  SQ2154
02082602 (5)VALUE .SQ2154
2000   0  FILLER XXXX                         SQ21542
000000    SQ215ASQ2154
011002FILLER X(28)  0010   2TEST-ID9.                                .00050*                                                              .2
021200            " COPY - NOT021900 PIC 1 VALUE SQ2154.2
02020            "FOR USE 0200"HIGH.SQ2154
021400*                                                                 SQ2154.2
021500 01  CCVS-H-2B.
021600230 FILLER X5 VALUE.2
27002TEST-ID X(001400                                                                   15,8"SQ2154.2
021800   02  FILLER            PIC X(4)023300     02 FILLER           PIC X(52)  .                  .2
29002FILLERX2VALUE2
022000     " HIGH ".                                              270"FOR USE ONLY ".                         SQ2154020               LABEL RECORDSOPTION*SQ2154
0              PIC2                         .2
020  VALIDATION090     INDECLARATIVES                               2
022300   02  FILLERPIC(5)  VALUESQ2154
022400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ2154.2
020 1                                                    .
022600     02  FILLER          PIC X(34)  VALUE                         SQ215403ERROR-TOTAL XXX0ENVIRONMENT                                            SQ21541            COPYRIGHT9  SQ2154
SQ21543 .2
002           X5)                         00ERRORS
94Card0131004200*                                                                 SQ2154.2
040             (2SQ2154
023100            " 0239002FILLERPICX1 SPACE. .2
22004002FILLER() .                  
2300            PIC)VALUE.01         3 PIC     SPACESQ2154
20     2FILLER X1  IS"ENDFTEST- .SQ21542
023500     02 ID-AGAIN         PIC0430         03ENDER-DESC X(44  VALUESQ2154
45)VALUESQ2154
023700 00450 1  CCVS-E-3SQ2154
023800     02  FILLER          PIC X(310240     2           PIC(22  02            PIC  SQ2154
02900CCVS-E-4.
02400500        PIC    VALUE.2
4         E     XXX                .2
042003FILLER XVALUESQ2154
024300         02500     02CCVS-E-4-2     VALUESPACESQ2154
240" ENCOUNTERED"052           PIC)VALUESQ2154
240 1  CCVS-E-3        TESTS ".SQ2154.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024600     060050"COPYRIGHT9596.SQ21542
270             FOROFFICIAL.                             SQ2154
024800     02050002CCVS-E-4-1 XXX    SPACESQ2154
024900     02  FILLER050002FILLER X(4)   VALUEOF                 .2
20ON-SITENATIONAL  &TECH2
025100     02  FILLER          PIC X(8)   02640       0 XXCOMPUTED         PIC(0)                           .2
025200     02  FILLER          PIC X(20)  VALUE                         290                   (0                           
05300              18,196" .2
0240001 .                                                    .2
02550060     2   PIC XVALUE.SQ2154
26002 FILLERPIC () " OF "                 .
25000 CCVS-E-4-2    ****************.                 SQ2154
2260       4PIC(   VALUESQ2154
0259230404           X(2)                           2
20 1XXINFO.
210     2           PICSQ2154
6     2 .                                                .2
026300       04 FILLER2600    0 026900     02 FILLER  SQ2154
6       20SQ-FS1-DECLARATIVE.                                      .2
0650       0 FILLER210   *******************.                 SQ2154
026600       04XXCORRECT X(2).                           SQ2154210OUTPUT-ERROR-PROCESS.2
026700     02 INF-ANSI-REFERENCE02300    **********020IF ="8 SQ2154.2
026800HYPHEN-LINESQ2154
026900     02 FILLER  PIC IS X VALUE IS SPACE.                          SQ21540027500     "SQ215A"SQ2154
027000070PROCEDURE SQ2154
027100-    "****070 . .2
027200     02FILLER  PICIS(4    ALUE20 3"TO .2
027300-    **20  EXCEPTIONON            SQ2154
0    PICIF=3".2
22                                      .2
027600*                                                                 SQ2154.2
027700 PROCEDURE 20              TOSQ2154              "38 .2
02780024*SQ2154
027900 SQ-FS1-DECLARATIVE SECTION090 PASS-DECL080                     RE-MARK.2
0800     USEEXCEPTIONON            .
20OUTPUT-ERROR-PROCESS.2
028200     IF SQ-FS1-STATUS = "38"                                      SQ2154  .                                   .
028300             PERFORM0     END-IF.                                                      .2
028400             000 FAIL-DECL                                                       SQ2154
050ELSESQ2154
0860              "38" TO CORRECT-ASQ2154java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20MOVECOMPUTED-A
028800             MOVE "STATUS AFTER09080"SQ2154
089 RE-MARK
029000             MOVE "VII-3, FILE STATUS" TO ANSI-REFERENCE030400*                                                                 SQ2154029900*                                                                 SQ2154.2
02910             PERFORM FAIL-DECLSQ2154
029200029200             ""T PARDOT-X.2
029300     END-IF08000"*"  P-OR-F2
029400*                                                                 SQ2154.2
090                                                          SQ2154
00 PERFORM.SQ2154
030         WRITE-LINE-DECL
PERFORM.                                   .2
029900*                                                                 SQ2154.2
3 .SQ2154
310MOVE*"TOP-OR-F SQ2154.2
320ADD1 ERROR-COUNTER.2
000MOVE006                                                 0     00 PIC.
006700 WORKING-STORAGE SECTION.                                         SQ2154.2
0000PRINT-DETAIL-DECLSQ2154.2
030MOVE                                                20PERFORM                                  .2
37 MOVE"TOPARDOT-XSQ21542
380MOVE TO.                              7                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
390MOVE TO.                           .
010PERFORM.                                     0020             DUMMY-RECORD.2
10 P-OR-F0800                                                             
0 WRITE-LINE-DECL.2
33          FAIL-ROUTINE-DECL       .2
10ELSESQ2154
031500         PERFORM080 1REC-SKEL-SUB9.030MOVE 30   ZERO             .2
30         080SQ2154
031700     MOVE    SPACE0800 1  FILE-RECORD-INFORMATION-REC.                                 .2
0310020 .                                                 2
03100IF EQUAL  ZERO SPACE4)VALUE
032000     MOVE    SPACE090"FILE=,RECORD= /,RECNO=00000020IF RECORD-COUNT SQ2154.2
032100*                                                                 SQ2154.2
02 .                                                 
03230020         DUMMY-RECORD                   .2
032400     IF RECORD-COUNT 032800         MOVE  CCVS-C-1 TO DUMMY-RECORD390BLANK-LINE-PRINT-DECLSQ2154
350MOVE TO DUMMY-HOLDSQ2154
0260MOVE TO DUMMY-RECORD.2
MY-RECORD ADVANCING PAGE                  SQ2154.2
20             CCVS-C-1PERFORM2
032900         MOVE040Fjava.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80
033000         PERFORM WRT-LN-DECLMOVE TORECORD-COUNT                              SQ2154.2
0310         MOVEHYPHEN-LINE DUMMY-RECORDPERFORM    SQ2154.
0303340     PERFORM90                   X(8              .2
033300MOVE TO RECORD-COUNT.SQ2154
033400     PERFORM WRT-LN-DECL.                                         SQ2154.2
033500*                                                                 SQ2154.2
340MOVEDUMMY-RECORD
033700     WRITE   DUMMY-RECORD AFTER00 .                                         .
033800     MOVE    SPACE TO DUMMY-RECORD0SQ2154
3 ..SQ2154
05  FAIL-ROUTINE-WRITE-DECL.2
0050         ANSI-REFERENCE .                36          TO                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025MOVE.SQ2154
039 004    WRITE-LINE-DECLjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0   TOSQ2154
034500             GO 036200    IF035200 FAIL-ROUTINE-WRITE-DECL.2
0303630     IFCORRECT-A EQUAL0  TO                          .2
03400MOVENOINFORMATION" .SQ21542
034800         XXINFO DUMMY-RECORD.2
034900     PERFORM WRITE-LINE-DECL 2011200           07 FILLER               X(6).                       .2
035000     MOVE    SPACES011400            011400           07 FILLER   TOSQ2154
035100     GO TO   0500MOVE         TO.                SQ2154
0352060 .                                                   07                    X5.SQ2154
03 MOVETO                          .
050      WRITE-LINE-DECL           INF-ANSI-REFERENCEPIC.java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 80
035002     .SQ2154
035600     MOVE    TEST-CORRECT   TO PRINT-REC                          SQ2154.2
050     PERFORM 2 TIMES.SQ2154060MOVEANSI-REFERENCEINF-ANSI-REFERENCE.2
360     TO                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035900 FAIL-ROUTINE-EX-DECL.                                            SQ2154.2
036000     EXIT.                                                        SQ21542
036100 BAIL-OUT-DECL.                                                   9      WRITE-LINE-DECL.                             SQ2154
03620     IF NOTEQUAL SPACE  BAIL-OUT-WRITE-DECL7               ()                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0IF EQUAL SPACE02380TO                              
3 .SQ21542
036500         CORRECT-ATO0MOVE  .                               SQ2154
30MOVE XXCOMPUTED.2
036700     MOVEANSI-REFERENCE INF-ANSI-REFERENCE.                SQ21542ZERO java.lang.StringIndexOutOfBoundsException: Range [40, 39) out of bounds for length 80
036800     MOVE    XXINFOTODUMMY-RECORD.                              SQ2154
036900     PERFORM WRITE-LINE-DECL 2 TIMES.039700     ADD     1 TO REC-SKL-SUB.                                    
3003                  )SQ2154
037100 BAIL-OUT-EX-DECL.                                                00     PIC) SPACE.2
037200     EXIT.                                                        
037300*                                                                 SQ2154.2
03740 ABNORMAL-TERM-DECLSQ21542
3500MOVE DUMMY-RECORD2
037600     PERFORM WRITE-LINE-DECL                                      SQ2154.2
 AT THIS400     CLOSE  PRINT-FILE.2
037800               TO DUMMY-RECORD                                    0 TERMINATE-CCVS.                                                  .2
037900     PERFORM WRITE-LINE-DECL 3040600*                                                                 SQ2154.2
038000*                                                                 SQ2154.2
038100 EXIT-DECL.                                                       04070 INSPTSQ215490ADD  INSPECT-COUNTERSQ2154
0800EXITSQ2154
0330 00     1TO                                SQ2154
038400*                                                                 SQ2154.2
0850CCVS100CORRECT-XSQ2154SQ2154.2
080 .                                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
370440ADD1 PASS-COUNTER2
038800     MOVE    CCVS-PGM-ID TO TEST-ID.                              SQ2154.2
0890     MOVE  ID-AGAIN
039000     MOVE    SPACE .                                        4*SQ2154
030PERFORM THRU.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0010        "FAIL* TO .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
33PERFORM1 .SQ2154
039400     GO020      PRINT-DETAIL.2
039500*                                                                 SQ2154.2
03042100*                                                                  .                                                         SQ2154
0370ADDTO                                    .2
00420        "****"TO.7      (VALUE
3990                  FILE-RECORD-INFO).                 .2
040000*                                                                 SQ2154.2
040100 CLOSE-FILES.                                                             PICX403 " PARDOT-XSQ2154.2
0440        "H-NAMES2
CLOSE.
.SQ2154
                       .2
040600*                                                                 SQ2154.2
40 .                                                           7      44     P-OR-FFAIL-ROUTINE-EX
040800     002FILLER THRU
9ADDTOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
400     PERFORM PRINT-DETAILSQ21540    SPACE01ERROR-COUNTERPIC9VALUE                   2
0110                                                                  04400     MOVE01PIC       ZERO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
420 .SQ2154
041300     MOVE   "PASS " TO 040     MOVESPACETO430MOVE RE-MARK
04044400*                                                                 SQ2154.2
450PERFORM90 1 PIC9)VALUESQ215440MOVECCVS-H-1 DUMMY-RECORD WRITE-LINE.  SQ2154
041600*                                                                 SQ2154.2
47 ..SQ2154.2
0480     40 TOWRITE-LINE.2
490            ERROR-COUNTERSQ2154
.2
042100*                                                                 SQ2154.2
042200 DE-LETE.                                                         FILLER X4)045100     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM2
200     MOVE   "***TEST ****" TOMOVETO  WRITE-LINE2
042400     MOVE   0000   0 FILLER X(0   SPACESQ2154
0420ADD .                                 
042600     PERFORM PRINT-DETAIL.                                        04500PERFORM 5 TIMESSQ2154
042700*                                                                 SQ2154.2
042800 PRINT-DETAIL.                                                    SQ2154.2
04290500102PIC)                         .2
043000MOVE22            COPY " .2
30MOVE  DOTVALUE
04320         TEST-RESULTS0SQ2154
40    CCVS-E-1DUMMY-RECORD.2
440    EQUAL "* 045900 PERFORM WRITE-LINE 2 TIMES. SQ2154.2
043500         PERFORM WRITE-LINE6002  FILLER X(5)VALUE00.2
043600         PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                SQ2154046    TO.                       SQ2154.
043700     ELSE                                                         SQ2154.2
30           java.lang.StringIndexOutOfBoundsException: Range [49, 48) out of bounds for length 80
0      (                           2
40          TO6        PASS-COUNTER                       .
0410     MOVE TO.                                  .2
044200     2240     " ,NATIONALOFSTD&TECH .046800 MOVE CCVS-E-4 TO CCVS-E-2-2. SQ21542
044300     MOVE    022500 01  CCVS-H-3.   .2
044400*                                                                 SQ2154.2
.
CCVS-H-1 . PERFORM   SQ2154
0440      CCVS-H-2A020IFIS  ZERO.2
0400MOVE DUMMY-RECORDWRITE-LINE  SQ2154
044900     MOVE CCVS-H-3  TO7302FILLERX2)VALUE
40 .SQ2154
045100     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM 070     MOVE    CCVS-E-207           .                            .2
04520     70.                                                  00F   )ISENDTEST-2
43 HYPHEN-LINE. PERFORM        .2
INESQ2154
05500         HYPHEN-LINE TO.                         SQ2154
04560     W  .SQ2154
450END-RTN-EXIT.2
4580MOVE TO .                            902FILLER (1   SPACE40DELETE-COUNTER .SQ2154
045900     PERFORM WRITE-LINE 2 TIMES.048300     MOVE   "TEST(S) DELETED     " TO E.                 SQ2154
048200         MOVE    DELETE-COUNTER TO ERROR-TOTAL.                   SQ2154.2
046100 END-ROUTINE-1.                                                   IF024300         03 ENDER-DESC)VALUE
046200     ADD     ERROR-COUNTERELSESQ2154
6                           2
4ADD  TO ERROR-HOLDjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046500     ADD020MOVE  DUMMY-RECORD WRITE-LINE.2
046         TOSQ2154
04670         ERROR-HOLD.                       .2
046800     MOVE    CCVS-E-4        TO CCVS-E-2-2.                       SQ215420    ON-SITENATIONAL .".
046900     800         MOVE TO ERROR-TOTALSQ2154
0400WRITE-LINESQ2154
047100     MOVE   "TEST(S) FAILED" TO049900*        WRITE DUMMY-RECORD90     MOVE TO . PERFORM0 COPYRIGHT9                              2
0420     ERROR-COUNTER TO                            .2
         " TO ERROR-TOTALSQ21542
SQ2154
047500         MOVE0050
047600     MOVE    CCVS-E-22     50SQ2154049600*    IF RECORD-COUNT GREATER 50                                   SQ2154.2
7      .                                          
0000     MOVESPACE  DUMMY-RECORDSQ2154
047900     IF DELETE-COUNTER IS 010 BLANK-LINE-PRINT.SQ21542
0000          CCVS-C-1 PERFORM            SQ2154
08006java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 80
0 .2
048300     MOVE   "TEST50IFCOMPUTED-XNOT TO 00 .2
0  NOT  GO ..2
     .                                          
0486000     2  PIC  .SQ2154 DUMMY-RECORD5        DUMMY-RECORD                   .2
0487010      WRITE-LINE.                                  .2
40                                                         
490             TO00                                                 
4900    "TEST)"TOSQ2154
4100MOVETO  WRITE-LINE
4920         CCVS-E-3 DUMMY-RECORD WRITE-LINE.SQ2154
049300*                                                                 SQ2154.2
049400 WRITE-LINE010IF NOT EQUAL4          TO..070*                                                                 
049500     ADD     1 TO RECORD-COUNT.                                   SQ2154.2
049600*    IF RECORD-COUNT GREATER 50                                   SQ2154.2
049700*        MOVE  DUMMY-RECORD TO DUMMY-HOLD                         SQ2154.2
049800*        MOVE  SPACE TO DUMMY-RECORD                              SQ2154.2
049900*        WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  SQ2154.2
050000*        MOVE  CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN            SQ2154.2
050100*        MOVE  CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    SQ2154.2
050200*        MOVE  HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN         SQ2154.2
050300*        MOVE  DUMMY-HOLD TO DUMMY-RECORD                         SQ2154.2
050400*        MOVE  ZERO TO RECORD-COUNT.                              SQ2154.2
050500     PERFORM WRT-LN.                                              SQ2154530     PERFORM WRITE-LINE030         COMPUTED-A                        .2
050600*                                                                 SQ2154.2
050700 WRT-LN.                                                          80     PERFORM 2 TIMESSQ2154
050800     WRITE         SPACES COR-ANSI-REFERENCE.2
0    SPACE0CCVS1-EXITSQ2154
00 .                                                
510 WRT-LN.2
030IF NOT TO GO BAIL-OUT-WRITE**  SQ2154
051300     IF029400*                                                                 SQ2154.2
051400     IF CORRECT-X20        050**  SQ2154.2
051500     MOVE    ANSI-REFERENCE270     530BAIL-OUT-WRITESQ215450***********SQ2154
051600     MOVE   "NO FURTHER INFORMATION, SEE PROGRAM." TO20               TO                         .2
051700     MOVE    XXINFO TO DUMMY-RECORD.                              SQ2154.2
051800     PERFORM WRITE-LINE 0550300 FAIL-DECLSQ2154.2
051900     MOVE    SPACES TO0310    MOVE"*"TO.SQ215450         TEST SQ-FS1  WITH.   SQ2154
NE-EX.                                    .2
052100 FAIL-ROUTINE-WRITE.                                              00300    MOVESPACES.                        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020         TEST-COMPUTED PRINT-REC2                                               
052300     PERFORM05100     MOVE0TO (1).                         SQ2154054400*                                                                 SQ2154.2
 TO                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
           TOSQ2154
052600     PERFORM30PERFORM.SQ2154
0                                              
052800 FAIL-ROUTINE-EX00         MOVE TO0590         MOVE0" CORRECT-A .2
2                                                        
053000 BAIL-OUT          COR-ANSI-REFERENCE.2
053100     030 FAIL-ROUTINE-EX-DECLSQ2154
5300     IFFAIL.2
05000          TO                                        .2
053400     MOVE    CORRECT-A      TO XXCORRECT.                         SQ2154060700*                                                                 SQ2154.2
053500     MOVE    COMPUTED-A     TO XXCOMPUTED.                       005          TO                                        2
560MOVE TO.                SQ2154
053700     MOVE    XXINFO TO010        "CLOSE-TEST-01 TOPAR-NAME. SQ2154.2
30PERFORM                                  
053900     MOVE    SPACES TO060800*        CLOSE THE FILE WITH LOCK300         XXINFO DUMMY-RECORD.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
054000 BAIL-OUT-EX.                                                     70 BAIL-OUT-EX-DECL10          .                                         
0540     .                                                        
052035         640        *                                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05406200         OVE TO                                 6        SQ-FS1 LOCKSQ2154
054400*                                                                 SQ2154.2
054500****************************************************************  SQ2154.2
054600*                                                              *  SQ2154.2
054700*    THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND *  SQ2154.2
054800*    THE START OF THE TESTS OF SPECIFIC COBOL FEATURES.        *  SQ2154.2
054900*                                                              *  SQ2154.2
055000****************************************************************  SQ2154.2
055100*                                                                 SQ2154.2
05520020END-IFSQ2154
05500WRITE-INIT-GF-01SQ2154
055400*                                                                 SQ2154.2
055500*        THIS TEST CREATES FILE SQ-FS1 AND CLOSES IT WITH LOCK.   SQ2154.2
055600*        FIRST IT SETS UP A SKELETON RECORD IN WORKING STORAGE.   SQ2154.2
055700*                                                                 SQ2154.2
055800     MOVE "062700 END-IF. SQ2154.2
055900     MOVE "R1-F-G" TO0MOVE TOID-AGAINSQ2154
0690         LOCKED FILE 037 .                                                    .2
056100     MOVE 120      TO090      HEAD-ROUTINE00*        APPROPRIATE STATUS IS9         1TOSQ2154
056200     MOVE 063300*        PROGRAM0        "OPEN-TEST-01"                            2
530MOVETO (1).                            .2
50MOVERECORDS-IN-FILEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056500     MOVE "SQ"     TO XFILE-ORGANIZATION (1).                     SQ215463700OPEN-INIT-01SQ2154.2
056600     MOVE040         OUTPUT.                                       .2
056700     MOVE 1        TO XRECORD-NUMBER (1).                         SQ21540380MOVE     TOSQ2154
056800*                                                                 SQ2154.2
056900 WRITE-OPEN-01.                                                   SQ2154.2
057000     MOVE    1 TO REC-CT.                                         SQ2154.2
057100     MOVE   "WRITE-OPEN-01" TO PAR-NAMEPERFORM THRU640        "* SQ-FS1-STATUS.SQ2154SQ2154.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057200     MOVETERMINATE-CCVSSQ2154.
057300     MOVE   "**" 0         RUN.                                                 .2
50         OUTPUT.                                       
057500     IF SQ-FS1-STATUS = "00"                                      SQ2154.2
057600         PERFORM PASS          1  INSPECT-COUNTERSQ2154
050100PERFORMPRINT-DETAIL                                        SQ2154
0780MOVE0  CORRECT-ASQ2154
057900         MOVE    SQ-FS1-STATUS TO010 ASSSQ2154
058010   " "  P-OR-F.2
058100                   TO RE-MARK                                     0            PASS-COUNTERSQ2154
058200         MOVE   "VII-3, VII-40, FILE STATUS" TO ANSI-REFERENCE    SQ2154041600*                                                                 SQ2154.2
3PERFORM                                             SQ2154
80GO   CCVS-EXIT.2
058500     END-IF.                                                      SQ2154.2
058600*                                                                 SQ2154.2
058700*        WRITE A SINGLE RECORD TO THE FILE                        SQ2154.2
058800*                                                                 SQ2154.2
058900 WRITE-INIT-01.                                                   SQ2154.2
0590         1 TO.                                         .2
059100     MOVE   "042400 MOVE "*** SQ21542
090        "SEQUENTIAL WRITE" FEATURE.2
059300 WRITE-TEST-01-01.                                                SQ2154.2
059400     MOVE    FILE-RECORD-INFO-P1-120 (1) TO 042700*                                                                 SQ2154.2
059500     WRITE   SQ-FS1R1-F-G-120.                                    SQ2154.2
059600     IF SQ-FS1-STATUS = "042900 IFREC-CT NOT EQUAL TO ZEROSQ2154.2
059700         PERFORM PASS30            "."TO                                   SQ21542
059800     ELSE                                                         SQ2154.2
059900         MOVE   "00" TO CORRECT-A                                 SQ2154.2
060000         MOVE    SQ-FS1-STATUS060PERFORM THRU                .2
060100         MOVE   "WRITING FAILED, FURTHER TESTS ABANDONED"         SQ2154.2
000                    RE-MARK.2
060300         MOVE   "VII-3, VII-53, FILE STATUS" TO30    SPACE .                                     SQ2154
060400         PERFORM FAIL                                             SQ2154.2
060500         GO TO REC-CT TOZERO SPACE TO PAR-NAMESQ2154
0600     .                                                      2
060700*                                                                 SQ2154.2
060800*        CLOSE THE FILE WITH LOCK, SO IT SHOULD NOT REOPEN        SQ2154.2
060900*                                                                 SQ2154.2
061000 CLOSE-INIT-01.                                                   SQ2154
061100     MOVE    1 TO   TO.  3 .  SQ2154
2   "".java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
630MOVE" SQ21542
061400     MOVE   "**" TO SQ-FS1-STATUS.                                SQ2154.        .
061500 CLOSE-TEST-01    HYPHEN-LINE.SQ2154
061600     CLOSE6      WRITE-LINESQ2154
0  = "0 .2
061800         PERFORM PASS         CCVS-E-1                            .
061900     ELSE                                                         SQ2154.2
062000         MOVE   "00" TO CORRECT-A04100END-ROUTINE-1SQ2154
0620             SQ-FS1-STATUS                      .2
06220MOVEWITH"SQ2154java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
630TO                                     .2
060PASS-COUNTER.                       .2
0                                                       .2
062600         GO TO   CCVS-EXIT046800     MOVE    CCVS-E-4        TO CCVS-E-2-2.                       
040      WRITE-LINESQ2154
062800*                                                                 SQ2154.2
062900*        HAVING LOCKED THE FILE, WE NOW TRY TO REOPEN IT.         SQ2154.2
063000*        THE TEST PASSES IF THE FILE CANNOT BE OPENED AND         SQ2154.2
063100*        THE APPROPRIATE I-O STATUS VALUE IS RETURNED.            SQ2154.2
063200*        AN IMPLEMENTATION MAY TERMINATE EXECUTION OF A           SQ2154.2
063300*        PROGRAM WHICH ATTEMPTS TO REOPEN A LOCKED FILE,          SQ2154.2
063400*        OR MAY RETURN CONTROL TO THE STATEMENT FOLLOWING         SQ2154.2
063500*        THE OPEN STATEMENT.                                      SQ2154.2
063600*                                                                 SQ2154.2
0.                                                    .2
063800*                                                                 SQ2154.2
063900     MOVE    1 TO REC-CT    CCVS-E-2.                            .2
06400     MOVEOPEN-TEST-01 PAR-NAMESQ2154
064100     MOVE   "OPEN04780END-ROUTINE-13 SQ2154.2
064200     MOVE"*"TO                                SQ2154
040OPEN-TEST-01SQ2154
064400     OPEN    OUTPUT SQ-FS1.                                       SQ2154.2
064500*                                                                 SQ2154.2
064600 CCVS-EXIT SECTION40        "TESTSDELETED" ENDER-DESC
0670CCVS-999999.2
064800     GO TO CLOSE-FILES.                                           SQ2154

97%


¤ Dauer der Verarbeitung: 0.23 Sekunden  ¤

*© Formatika GbR, Deutschland




Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.