Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/SQ/     Datei vom 4.1.2008 mit Größe 72 kB image not shown  

Quelle  sq130a.cob   Sprache: Cobol

 
000100 IDENTIFICATION 001300*                                                              *  SQ1304.2
000200 PROGRAM-ID.                                                      SQ1304.2
0001400*00100 IDENTIFICATION DIVISION.                                         01500*                                                              *  SQ1304
000400****************************************************************  SQ1304.2
000500*                                                              *  SQ1304.2
000600*    VALIDATION FOR:-                                          *  SQ1304.2
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ1304.2
000800*    USING CCVS85 VERSION 1.0 ISSUED IN JANUARY 1986.          *  SQ1304.2
000900*                             REVISED 1986, AUGUST             *  SQ1304.2
001000*                                                              *  SQ1304.2
001100*    CREATION DATE     /     VALIDATION DATE                   *  SQ1304.2
001200*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ1304.2
001300*                                                              *  SQ1304.2
001400****************************************************************  SQ1304.2
001500*                                                              *  SQ1304.2
001600*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  SQ1304.2
001700*                                                              *  SQ1304.2
001800*            X-14   SEQUENTIAL MASS STORAGE FILE               *  SQ1304.2
001900*            X-55   SYSTEM PRINTER                             *  SQ1304.2
002000*            X-82   SOURCE-COMPUTER                            *  SQ1304.2
002100*            X-83   OBJECT-COMPUTER.                           *  SQ1304.2
002200*                                                              *  SQ1304.2
002300*                                                              *  SQ1304.2
002400****************************************************************  SQ1304.2
002500*                                                              *  SQ1304.2
002600*    SQ130A ATTEMPTS TO OPEN FOR INPUT-OUTPUT A MASS STORAGE   *  SQ1304.2
002700*    FILE WHICH IS NOT PRESENT.  THIS SHOULD RESULT IN A       *  SQ1304.2
002800*    PERMANENT ERROR AND AN I-O STATUS OF "35".  THE PROGRAM   *  SQ1304.2
002900*    DOES NOT CONTAIN AN APPLICABLE DECLARATIVE PROCEDURE. IN  *  SQ1304.2
003000*    THESE CIRCUMSTANCES THE STANDARD ALLOWS THE IMPLEMENTOR   *  SQ1304.2
003100*    TO TERMINATE EXECUTION OF THE PROGRAM OR TO CONTINUE.     *  SQ1304.2
003200*                                                              *  SQ1304.2
003300****************************************************************  SQ1304.2
003400*                                                                 SQ1304.2
3 ICHIS PRESENT SHOULD0200     ERROR AND AN002900    DOES  AN003000*   THESE CIRCUMSTANCES0100*TO EXECUTION 00320*                                                              SQ1304
00600 CONFIGURATIONSECTIONSQ1304.2
0370 SOURCE-COMPUTERSQ1304.2
003800     Card013060 CONFIGURATION SECTION.                                           SQ1304.2
0030OBJECT-COMPUTERSQ1304
003800Card0130SQ1304.2
004100*                                                                 SQ1304.2
004200003900OBJECT-COMPUTER                                                 .2
004300 FILE-CONTROL                                                    
004400     SELECT PRINT-FILE000     .                                                    .2
004500     "C0085" .                                                    SQ1304040 INPUT-OUTPUT .                                            SQ13042
004600*                                                                 SQ1304.2
004700     SELECT RAW-DATA   ASSIGN TO                                  SQ1304.2
004800     "C0098"                                                      SQ1304.2
00490004600*                                                                 SQ1304.2
005000           ACCESS MODE04000     Card0131.                                                    SQ1304.2
ECORD   ISRAW-DATA-KEYSQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005200                                                                  .2
00530SELECTSQ-FS1 ASSIGNTOSQ1304
550            MODE                                 2
0500FILE ISSQ-FS1-STATUSQ1304
005600*                                                                 SQ1304.2
005700*                                                                 SQ1304.2
005800 DATA50      SQ-FS1                                       SQ1304004600*                                                                 SQ13040     C0020SQ1304.2
005900 FILE SECTION005600*                                                                 SQ1304.2
006000 FD  PRINT-FILE50 DATADIVISIONSQ1304.2
006100     LABEL RECORDS                                                SQ1304.2
00620     Card0132SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006300     DATA RECORD IS PRINT-REC00500           ACCESSMODEISRANDOM10ABELSQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006400                                                                .2
PRINT-REC X(120).                                 .2
00030     SELECT ASSIGN TOSQ1304.2
006700                                                                  SQ1304.2
06DRAW-DATA                                                   .2
0090 005            FILE ISSQ-FS1-STATUSSQ1304
0040                                                                 .2
000070                                                                  1005800 DATA DIVISION.2
00720060.2
007300     0  NO-OF-TESTS 99.                              SQ1304.2
0     5  C-OK 999                             SQ1304
0075000                                                      .2
07000 PIC9.SQ1304
00630      RECORD PRINT-RECDUMMY-RECORD.2
007800     05  C-INSPECT           PIC 999.                             SQ130406400.                                                  .2
070    0 C-NOTE X(13                           .2
0006000102     5C-TIME98.                            .2
080     0  C-ABORTX8.SQ1304
008200*                                                                 SQ1304.2
008300 FD0400670                                                                  .2
0040     LABEL IS STANDARDSQ13042
008500                .                                                 SQ1304.2
00600     5  -FAIL              PIC9                             SQ130401RAW-DATA-SATZSQ1304
008700*                                                                 SQ1304.2
00WORKING-STORAGE                                         PIC99                             .2
008900*                                                                 SQ1304.2
009000***************************************************************   SQ1304.2
009100*                                                             *   SQ1304.2
009200*    WORKING-STORAGE DATA ITEMS SPECIFIC TO THIS TEST SUITE   *   SQ1304.2
009300*                                                             *   SQ1304.2
009400***************************************************************   SQ1304.2
009500*                                                                 SQ1304.2
009600 01  SQ-FS1-STATUS.                                               SQ1304.2
009700   03  SQ-FS1-KEY-101005C-ABORT X(8)                            .2
009800   008200*                                                                 00740005  C-OK 99.                             SQ1304
009900*                                                                 SQ1304.2
010000*                                                                 SQ1304.2
010100***************************************************************   SQ1304.2
010200*                                                             *   SQ1304.2
010300*    WORKING-STORAGE DATA ITEMS USED BY THE CCVS              *   SQ1304.2
010400*                                                             *   SQ1304.2
010500***************************************************************   SQ1304.2
010600*                                                                 SQ1304.2
010700 01  REC-SKEL-SUB   PIC 99.                                       70       PIC9.SQ1304
010800*                                                                 SQ1304.2
190 0  FILE-RECORD-INFORMATION-REC.SQ1304
011000     03 FILE-RECORD-INFO-SKELETON0     0            PIC X                               .2
011100        05 FILLER                 PICTURE X(48)       VALUE       SQ1304.2
011200             "080050.SQ1304.2
                  0800 PIC(1.                                 .2
011400             ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000".    SQ1304800.                                                 SQ1304
011500        0500860 1  SQ-FS1R1-F-G-120 PIC ***********************090*                                                             *   SQ1304
009300008700*                                                                 SQ1304.2
0009500*                                                                 SQ1304.2
01180"RECKEY= "             SQ1304
011900        05 FILLER                 008900*                                                                 SQ13040003SQ-FS1-KEY-1 X.SQ1304.2
012000             ",ALTKEY1= ".            SQ1304.2
012100        05 FILLER                 PICTURE009300*                                                             *   SQ1304.2
01200",ALTKEY2= ".            096001                                               .
012300        05 FILLER                 PICTURE X(7)        VALUE09800     PIC 0900                                                                 SQ1304
012400     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              SQ1304.2
012500        05                                                        SQ1304.2
012600           07 FILLER              010200*                                                             *   SQ1304010300*    WORKING-STORAGE DATA 010300*    WORKING-STORAGE DATA ITEMS USED0104010500*******************01010500********010600*                                                                 SQ1304.1700000   REC-SKEL-SUBPIC9                                       .2
20            6.2
01100                   X6
010             ,=0=,=000BLKSIZ.2
010        0 FILLERX(6 VALUE.2
013100           0100,=00,=,=.                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01320           0 18             ,=                             .SQ1304
0130           7XRECORD-NUMBER ()                       .2
013400           07 FILLER              PIC 012000             ",ALTKEY1=                SQ1304
013500           07 UPDATE-NUMBER       PIC 9020"ALTKEY2= ".SQ1304
0160           0               PIC5        .SQ1304
01370020     3FILE-RECORD-INFO           X3              SQ1304
Q1304
19007        PICX5)SQ1304
20            PICX6.                       .
141           0  PIC96.SQ1304
014200           07 FILLER              PIC X(7).                       SQ1304.20130        5FILLERPICTURE X()VALUE.SQ1304
0140           0 PIC2                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0.2
0145002600 FILLERPICX5.SQ1304
014600           07 FILLER013100           07 REELUNIT     PIC91.SQ1304
01400           7ECORDS-IN-FILE96                       
148007FILLER X(5).SQ1304
014900           07 XFILE-ORGANIZATION12800 FILLER             PIC6.                       SQ1304
FILLER              IC6015007 PDATE-NUMBER ()                       .2
0510007 XLABEL-TYPE X(1).SQ1304030007ODO-NUMBER()                       .2
12005FILE-RECORD-INFO-P121-240.2
0150           7FILLERPIC030           07XPROGRAM-NAMEX()                       .2
0540300REELUNIT-NUMBER91.S.
015500           07 FILLER              PIC3200           07 FILLER               X(7.04007XRECORD-LENGTH 9(6.java.lang.StringIndexOutOfBoundsException: Range [80, 72) out of bounds for length 80
07      PIC                      .2
0               (.Q1304
10           7      PIC2.SQ1304
01.2
014700           07 RECORDS-IN-FILE     PIC 9(6).                       SQ1304.2
01610800               PIC4..2
016200     00138           7FILLER               X()                       .2
160     FEATURE 2  VALUE .              2
01101407              (7).2
01650050           7XLABEL-TYPE         PICX1.                       .2
160     0               PICVALUE .               SQ1304
67     0  PAR-NAME2
68003FILLERPIC(4   SPACE             SQ13042
016900       03 PARDOT-X            PIC X      VALUE157FILLER40                           ().SQ1304
703DOTVALUEPIC     VALUE.              SQ1304
017100     020100           7              PIC)SQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017200     02 RE-MARKPICPICX7.SQ13042
017300 01  TEST-COMPUTED.                                               SQ1304.2
017400   110 1016100 01  TEST-RESULTS X6                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0700   FILLERPIC1)VALUE      COMPUTED.               SQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 COMPUTED-X01480            FILLERPICX(5).                       .2
017700     03 COMPUTED-A01490           0160     0 FILLER X      VALUE.               SQ13042
10003 COMPUTED-NREDEFINESCOMPUTED-APIC-99.(9.SQ1304
01790               PIC      VALUE.               .2
018000     03COMPUTED-4V14 COMPUTED-A110           0          PIC1.SQ1304
0 PIC -9(14)908       FILLER X(4 VALUE.SQ1304
03CM-18V0COMPUTED-A.                       1307               X.SQ1304
018300        041000             PIC9      ZERO.2
        4F                          PIC                 .
010 3FILLERX50  .                             SQ1304
1601TEST-CORRECT                                                .2
08000ILLER(3)SPACE.2
018800     02 FILLER PIC X(17) VALUE500017500   02 FILLEPICX7   "COMPUTED=..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018900     02 CORRECT-X.                                                SQ1304.2
019000     03 CORRECT-APICX(070     3COMPUTED-A X(2)  VALUE.SQ1304
110     0     REDEFINESCORRECT-A -).99.SQ1304.
01910     3  REDEFINES  -9(8).          SQ1304
090 03 REDEFINES CORRECT-A      -9(4)(1)     SQ1304.2
019400     03019400     03 COMPUTED-4V14 COMPUTED-A PIC9(4.914.       SQ1304
001400 PIC VALUE               2
011500 P-OR-FPIC5   ALUESPACESQ1304.2
170         04FILLERPIC.               SQ1304
001304COMPUTED-18V0PIC -8.           .2
01990840                                    X.                 .2
0800 1 TEST-CORRECTSQ1304
020100     02 FILLER  PIC IS X(4)     01700  PIC3)VALUE.SQ1304
20200     02FILLER ISX(8     IS FEATURE
200-   " PARAGRAPH-NAME SQ1304.2
000-"REMARKS.SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025002 FILLER           070 0 OTVALUE 99VALUE.              SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02060 01  CCVS-C-2                                                    .2
0002FILLER XXXX SPACESQ1304
020800     02FILLERPIC X()VALUE TESTEDSQ13041300  .SQ1304
0000    0            PIC6     020900     02 FILLER           PIC X(16)    VALUE SPACE
010     2                      PIC4VALUE" .
021100090     3      CR-18V0 REDEFINESCORRECT-A                         .2
02 1REC-SKL-SUBPIC)     VALUEZERO.2
170    3COMPUTED-A     (0  SPACESQ1304
00 0DELETE-COUNTER 9       .                  .2
09      java.lang.StringIndexOutOfBoundsException: Range [45, 32) out of bounds for length 80
02080     0  REDEFINES PIC-9000 1CCVS-C-1SQ1304
0270 1PASS-COUNTER 99       ZEROSQ1304
02180 1TOTAL-ERROR000FILLER ISX9)VALUE" PASQ1304.2
2900  ERROR-HOLD       ZERO
020001DUMMY-HOLD         X10   VALUE..                  .2
0221000        PIC080        4COMPUTED-18V0PIC(8.SQ1304
0222001840        04 FILLER018400        04 FILLER                          .2
2230   .                                                    .2
022400     02  FILLER          PIC X(39)    VALUE01860             X(1) SPACE                SQ1304
22500     02  FILLERPICX(4)                       SQ1304.2
02260     "OFFICIAL COBOL COMPILER VALIDATIONSYSTEM02110 2 FILLER PIC X(9) VALUE SPACE SQ13042
0270002  088000 FILLERX(7)  "CORRECT =".                SQ1304.2
022800 01  CCVS-H-2A0 1  REC-CT 99       VALUE01800     02 CORRECT-X                                                .2
02290   2FILLER X(4)  VALUE .                  10     3CORRECT-N CORRECT-A-(9.(.SQ1304
0300   2FILLERPIC( VALUECCVS85              SQ1304
0300   2  FILLERPIC XXXX                         SQ13042
02320"010 1 INSPECT-COUNTER PIC 9 VALUE ZERO. SQ1304.2
03300900     03 CORRECT-14V4 CORRECT-APIC-1)(4).    SQ1304
0234090019500     PIC9VALUE.                   SQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023500   02  FILLER            PIC X(41)  VALUE0         4FILLER029 0  ERROR-HOLD        PIC9      ZERO                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023600*                                                                 SQ1304.2
027 1CCVS-H-2BSQ1304
023800   02  FILLER            PIC X(15)  VALUE "TEST RESULT OF "022001 ANSI-REFERENCE     X(4)VALUE.                 .2
023900   02  TEST-ID02000  CVS-H-1S.2
040   2              PIC X4   0240     0  PICX(3)VALUE.               SQ1304
040   0              PIC(2 VALUESQ1304
024200     230020     " VALIDATIONSYSTEM".SQ1304
02400   02  FILLERPICX(2)  VALUE.2
024400            " LEVEL VALIDATION FOR 0200-"       02280 0  CCVS-H-2A.                                                   2
020   2FILLERPIC5  VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024600     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1304.2
CCVS-H-3.2
024800     02  FILLER          PIC30   2FILLERPIC   VALUESQ1304
02900030". . SQ1304.
025000     02  FILLER30   0              PIC2)  VALUE.2
2500" 8 4.2, Apr199 ".SQ1304
02030   0FILLERjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025300            "0300 . .2
2401.                                                    .
025500     02 FILLER           PIC X(52)  VALUE SPACE.                  SQ1304.02000              PIC)    " IN ".SQ1304
5002     X(4  ISEND " .
025700     02 ID-AGAIN         PIC20"HIGH ".SQ1304
2800         PIC92     ZEROSQ13042
09 1CCVS-E-2                                                    2
020002FILLER X(3)  SPACESQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
21002 FILLERPICX()VALUE..                  .2
2620     0  0210 1INSPECT-COUNTER 9            ZERO.2
026300         03 ERROR-TOTAL    PIC XXX0     0FILLER X(4                           SQ1304
02 1PASS-COUNTER2000 FILLER           X()  VALUE.
06100  TOTAL-ERROR 9 VALUE                   SQ1304
020            01001  PIC9       ZERO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
600  .SQ1304
026800     02  2200 1  054 1.SQ1304
026900            " FOR OFFICIAL USE ONLY".050     0            PIC200  ANSI-REFERENCE(8     SPACESSQ1304
027000     02  FILLER          PIC02300 0  .                                                    .2
0700       FILLER X(58)  VALUESQ1304
027200     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1304.2
273002  FILLER           X(    .                  .
0240     0  FILLERPIC((0  VALUE.2
0275070             9.SQ1304
70                                                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
7     2CCVS-E-4-1VALUE.                  2
027800     030   0  FILLERPIC()VALUE060..
2            VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0     2FILLER X()VALUE.2
02106003ENDER-DESC(4)VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022001  .                                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02302FILLER (9VALUE**" .2
028400     02 INFO-TEXT.                                                SQ1304.2
028500       04 FILLER02300            "COPY - NOTFOR 0 SQ1304.2
860       4 PIC20).SQ1304
028700       04 FILLER             060*                                                                .2
02 0   PIC X()VALUE.2
028900     02 INF-ANSI-REFERENCE220" VALIDATION, NATIONAL INSTITUTE STD &TECH ".2
090 0  HYPHEN-LINE                                                 SQ13042
029100     00390   02             PIC X(9.                                SQ1304.2
029200     02 FILLER  PIC IS X(65)    VALUE IS "************************SQ1304.2
029300-    "*****************************************".                 SQ1304.2
0290     2 FILLER ISX5)VALUE *************SQ1304
029500-    "************************076001. SQ13042
029600 00220     2PIC    SPACESQ1304
00240   2 0  SQ1304
029800*                                                                 SQ1304.2
029900*                                                                 SQ1304.2
30PROCEDURESQ1304
030100 CCVS1 SECTION.                                                   SQ1304.2200  XXINFO                                                      
320OPEN-FILESSQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
SQ1304
0340030400     MOVEPIC8VALUESPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
350    RAW-DATAKEYTO                  .2
0800              PIC5) .              SQ13042
0070          1TO20" 5 .,Apr19 "SQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0C-DATEDATE                               .2
30       030900     ACCEPT  C-TIME98,86                            2
10     REWRITE KEYCONTINUE                  .2
-1.                                                        2
09002  X1 ISENDTEST- SQ1304
03130202 ID-AGAINX9).                                2
010         **********.                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0350MOVE TO.                             .2
031600     MOVE    SPACE TO TEST-RESULTS.026000     02  FILLER          PIC X(31)  VALUE SPACE.                  
031700     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              SQ1304.2
01800     MOVEZERO REC-SKEL-SUB.SQ1304
031900     PERFORM CCVS-INIT-FILE 10 TIMES.                             SQ1304.2
0200     GO CCVS1-EXIT                                            SQ1304.2
032100*                                                                 SQ1304.2
03029800*                                                                 SQ1304.2
03300     ADD                                                         .2
032400     MOVE    FILE-RECORD-INFO-SKELETON TO                         SQ1304.2
03203000PROCEDUREDIVISION.                                              .2
032600*                                                                 SQ1304.2
0
02700  .                                                    .2
39        PRINT-FILESQ1304
033000     OPEN    I-O RAW-DATA00               USE                             .2
0003         I-O.                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
ND-E-2.                  .2
030     MOVEOK      OC-ABORT.2
03300     MOVE    PASS-COUNTER  TO3     2FILLER X() SPACE.
3350MOVEPIC (0VALUE.
0330     MOVEERROR-COUNTER  .                        SQ1304
03370     MOVEDELETE-CNT0     ACCEPTDFROM .                               .
32000 CCVS-E-4-1 XXXS.                  SQ1304
390 RAW-DATA-SATZ INVALID CONTINUE                  SQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040 .                                                         .010 END-E-1                                                         .2
0310     CLOSE.                                            .2
30                                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03430         PROGRAMSQ1304
034400     STOP.                                                 .2
034500*                                                                 SQ1304.2
034600 INSPT  THRU.SQ13040      .                                                30         ZERO REC-SKEL-SUBSQ1304
040        "" TO00GO CCVS1-EXITSQ13042
034800     ADD     1 032100*                                                                 80       4          PIC(0.SQ1304
03400      PRINT-DETAILSQ1304
028800       04 XXCORRECT          PIC X(20).                           SQ1304.2
050 .                                                            .2
320MOVE " P-OR-F. SQ13042
0330     ADD      OPASS-COUNTER.SQ1304
035400     PERFORM PRINT-DETAIL.                                        SQ1304.2
035500*                                                                 SQ1304.2
035600 FAIL.                                                            SQ1304.2220     2FILLER IS09        .SQ1304
035700     MOVE   "030 MOVE CCVS-PGM-ID TORAW-DATA-KEY .2
0800       ERROR-COUNTERSQ1304
035900     PERFORM50MOVE". TO java.lang.StringIndexOutOfBoundsException: Range [40, 39) out of bounds for length 80
036000*                                                                 SQ1304.2
3 .                                                         
30MOVE* **  RE-MARKjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
6        "***** TOP-OR-F .
03800    MOVEINSPECT-COUNTER C-INSPECT.SQ13042
036500     PERFORM PRINT-DETAIL.                                        SQ1304.2
036600*                                                                 SQ1304.2
37 PRINT-DETAIL                                                    .2
036800      REC-CT EQUAL  ZERO000  SECTIONSQ1304.
000 OPEN-FILESSQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00             EC-CTDOTVALUE.2
037100     MOVE    TEST-RESULTS TO PRINT-REC.                           000         CCVS-PGM-ID RAW-DATA-KEYSQ1304
0     WRITE-LINESQ1304
037300     IF P-OR-F EQUAL TO "FAIL*"                                   SQ1304.2
070         WRITE-LINE040         RUN                                                 
0370         PERFORM FAIL-ROUTINE FAIL-ROUTINE-EX                0460 .                                                           .2
.2
037700         PERFORM TEFROM DATE                               .2
070         SPACE.                                     2
0790     SPACETOCOMPUTED-X.2
038000         SPACE CORRECT-XSQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038100     IF REC-CT EQUAL TO ZERO  MOVE50 PASS.                                                            SQ1304
082     OVE TO .                                    .2
038300*                                                                 SQ1304.2
0840HEAD-ROUTINE.                                                    50PRINT-DETAILSQ1304
0800    MOVE  TODUMMY-RECORD050 .                                                            .
330ADD  ..
038700     050     PERFORM.                                        .2
038800     MOVE CCVS-H-3                                                
NAMES-ROUTINE.2
039000     MOVE CCVS-C-1 TO DUMMY-RECORD0MOVE**" P-OR-F. .2
010MOVE  DUMMY-RECORDPERFORM2TIMES.2
020 HYPHEN-LINEDUMMY-RECORD  .        .2
039300 END-ROUTINE.                                                     0MOVEFILE-RECORD-INFO-SKELETON.2
0340MOVE020                  FILE-RECORD-INFOREC-SKL-SUB.                 .2
039500     PERFORM WRITE-LINE 5 TIMES60      REC-CT EQUAL ZEROSQ1304
3600 END-RTN-EXIT.                                                    SQ1304
0390         CCVS-E-1 DUMMY-RECORD.2
039800     PERFORM WRITE-LINE 2 TIMES.                                  01         TEST-RESULTS PRINT-REC.2
039900*                                                                 SQ1304.2
400END-ROUTINE-1SQ1304
04010     ERROR-COUNTER ERROR-HOLD070         FAIL-ROUTINEFAIL-ROUTINE-EXSQ1304
040200     ADD     INSPECT-COUNTER TO ERROR-HOLD00         THRU.SQ1304
0030          DELETE-COUNTER   ERROR-HOLDSQ1304
0440     ADDPASS-COUNTER ERROR-HOLD35              C-ALL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00            TO                       .2
460MOVE30         DELETE-CNTC-DELETED.2
040700     MOVE    CCVS-E-40MOVE TO.                        SQ1304
4080MOVE        TO                      .
04040 .                                                         
0413400CLOSE   .                                            SQ1304
010ERROR-COUNTER  EQUAL ZERO.2
041200         MOVE   "NO080 CCVS-H-1 DUMMY-RECORD. WRITE-LINE 2TIMES .2
010ELSESQ1304
041400         MOVE    ERROR-COUNTER TO ERROR-TOTAL.                    SQ1304      CCVS-H-2B DUMMY-RECORD.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0100080.SQ1304
04137090MOVETOP .SQ1304
010 END-ROUTINE-13                                                  SQ1304
08      DELETE-COUNTER EQUAL ZEROSQ1304
041900         090 .                                                     0350*                                                                 SQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0200                                                             
400MOVEDELETE-COUNTER ERROR-TOTALSQ1304
042200     MOVE   "TEST(S) DELETED " TO ENDER-DESC340     PRINT-DETAIL0370M CCVS-E-1 DUMMY-RECORD                            .2
4230     MOVECCVS-E-2 DUMMY-RECORD.                            .2
042400     PERFORM WRITE-LINE.                                          SQ1304.2
042500     IF INSPECT-COUNTER EQUAL TO ZERO4000END-ROUTINE-1SQ1304.2
00java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042700     090PERFORM.                                        .2
042800         MOVE    INSPECT-COUNTER TO ERROR-TOTAL31 .                                                         .2
042900     MOVE   "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC600     ADDDDERROR-HOLDSQ13042
043000     MOVE    CCVS-E-200     MOVE    TO.                       SQ1304
04300MOVECCVS-E-3DUMMY-RECORDWRITE-LINE        2
043200*                                                                 SQ1304.2
43  SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
440ADD TO RECORD-COUNT060*SQ1304.2
043500     IF RECORD-COUNT0360 .                                                    .2
043600         MOVE  DUMMY-RECORD TO10     MOVETESTFAILED ENDER-DESC.2
030410 ERROR-COUNTERISTO                            Q1304
480DUMMY-RECORDAFTERADVANCING                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0430         MOVE 04              ..
0150MOVE     WRITE-LINE
044100         MOVE3        ""SQ1304
0420          DUMMY-HOLDDUMMY-RECORD2
044300         MOVE  ZERO   FAIL-ROUTINE-EX.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0444070        PERFORM BAIL-OUT-EXSQ1304
044500*                                                                 SQ1304.2
440 .                                                          .2
0470        DUMMY-RECORD40                                                              
.2
044900 BLANK-LINE-PRINT.                                                SQ1304.2
050P WRT-LN.2
045100 FAIL-ROUTINE.                                                    SQ1304.2
045200     IF COMPUTED-X00MOVE TO DUMMY-RECORD                            SQ1304.2
045300     IF040PERFORM.                                          .2
04540         ANSI-REFERENCE INF-ANSI-REFERENCESQ1304
04550MOVENOFURTHER4200           "NO "TO                              SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0450          TODUMMY-RECORDSQ1304
045700     PERFORM042700    ELSESQ13043800    MOVETODUMMY-RECORD ERFORM3TIMES.2
045800     MOVE    SPACES TO INF-ANSI-REFERENCE.042800         MOVE    INSPECT-COUNTER TO ERROR-TOTAL.                  .2
050       TO                                     2
0400 FAIL-ROUTINE-WRITE.                                              .2
046100     MOVETEST-COMPUTED 03900     MOVECCVS-C-1 DUMMY-RECORD WRITE-LINE           SQ1304
046200     PERFORM043200*                                                                .2
0 TOCOR-ANSI-REFERENCE.                .2
0340ADD1TO.                                   SQ1304
065     PERFORMWRITE-LINE  SQ1304
033                                                      
46670                                                  2
080      WRITE-LINE                                  2
049 .                                                        2
0400IF NOT0     MOVE TODUMMY-RECORD                           SQ1304
0410IF40         HYPHEN-LINEDUMMY-RECORD WRT-LN2
047200 BAIL-OUT-WRITE.                                                  SQ1304039900*                                                                 SQ1304.2
047300     MOVE    CORRECT-A      TO XXCORRECT.                         SQ1304.040           ZERO RECORD-COUNT                              .2
0740M    COMPUTED-ATO.0440*                                                                
047500     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE.                SQ1304.2000          040        DUMMY-RECORDAFTERADVANCING .               Q1304
047600     MOVE    XXINFO TO DUMMY-RECORD.                              SQ1304.2
047700     PERFORM WRITE-LINE 2 TIMES.                                  00 WRT-LNSQ13040     MOVEERROR-HOLDTO.                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
4MOVE TO.                        .2
40 .                                                     .2
0SQ1304
048100 CCVS1-EXIT.                                                      SQ1304.2
048200     EXIT.                                                        SQ1304.205500     MOVENOFURTHER00      ERROR-COUNTER EQUAL                             2
048300*                                                                 SQ1304.2
048400****************************************************************  SQ1304.2
048500*                                                              *  SQ1304.2
048600*    THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND *  SQ1304.2
048700*    THE START OF THE TESTS OF SPECIFIC COBOL FEATURES.        *  SQ1304.2
048800*                                                              *  SQ1304.2
048900****************************************************************  SQ1304.2
049000*                                                                 SQ1304.2
490ECT-SQ130A-MAIN                                        2
4920 OPEN-INIT-01SQ1304.
049300*                                                                 SQ1304.2
049400*    THIS PROGRAM ATTEMPTS TO OPEN IN THE INPUT-OUTPUT MODE       SQ1304.2
049500*    A FILE WHICH IS NOT PRESENT AND AVAILABLE TO IT.             SQ1304.2
049600*                                                                 SQ1304.2
049700     MOVE    1 TO REC-CT                                          SQ1304.2
049800        " ABSENTFILEI-O SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0900OVE TOSQ1304
.2
050100*                                                                 SQ1304.2
050200     MOVE042600         MOVE" " TOERROR-TOTAL                             .2
050300     PERFORM200ELSE                                                         .2
050400     MOVE   "ABNORMAL TERMINATION0600 . SQ13042
000                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050600     PERFORM WRITE-LINE4420                                                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050700     MOVE    SPACE TO MOVE     030*                                                                SQ1304
MESSQ1304
050900*                                                                 SQ1304.2
051000 OPEN-TEST-01.                                                    SQ1304.2
051100     OPEN    I-O SQ-FS1.                                          SQ1304.2
052       SQ-FS1-STATUS = "SQ1304.
051300         MOVE   "INCORRECT STATUS CODE RETURNED" TO RE-MARK       SQ1304.2
0514008     .                                                       
05030         WRITEDUMMY-RECORD                    SQ1304
0560 MOVE TO420EXITSQ1304
0570PERFORM430*SQ1304
051800     ELSE048400*************************************************************410MOVEHYPHEN-LINE TO 080**  SQ1304.2
051900         PERFORM PASSDUMMY-HOLD                         .
052000*                                                                 SQ1304.2
052100*                                                                 SQ1304.2
052200 CCVS-EXIT SECTION.                                                 SECTION                                        SQ13042
052300 CCVS-999999.                                                     SQ1304.2
052400     GO TO049500*    A FILE WHICH IS NOT PRESENT AND AVAILABLE0460                                                                 .2

98%


¤ 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.0.18Bemerkung:  ¤

*Bot Zugriff




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.