Quelle sq148a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         SQ1484.090           FILLER               X()                       .2
00200 PROGRAM-ID.                                                      .2
0003000960           7 FLABEL-TYPE         PIC()                       .2
000400****************************************************************  SQ1484.2
000500*                                                              *  SQ1484.2
000600*    VALIDATION FOR:-                                          *  SQ1484.2
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ1484.2
000800*    USING CCVS85 VERSION 3.0.                                 *  SQ1484.2
000900*                                                              *  SQ1484.2
001000*    CREATION DATE     /     VALIDATION DATE                   *  SQ1484.2
001100*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ1484.2
001200*                                                              *  SQ1484.2
001300****************************************************************  SQ1484.2
001400*                                                              *  SQ1484.2
001500*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  SQ1484.2
001600*                                                              *  SQ1484.2
001700*            X-14   SEQUENTIAL MASS STORAGE FILE               *  SQ1484.2
001800*            X-55   SYSTEM PRINTER                             *  SQ1484.2
001900*            X-82   SOURCE-COMPUTER                            *  SQ1484.2
002000*            X-83   OBJECT-COMPUTER                            *  SQ1484.2
002100*            X-84   LABEL RECORDS OPTION.                      *  SQ1484.2
002200*                                                              *  SQ1484.2
002300****************************************************************  SQ1484.2
002400*                                                              *  SQ1484.2
002500*    THIS PROGRAM CHECKS FOR THE CORRECT RESPONSE TO READING   *  SQ1484.2
002600*    A FILE OPEN IN THE OUTPUT MODE.  THE TEST FOR CORRECT     *  SQ1484.2
002700*    I-O STATUS CODE 47 IS IN THE DECLARATIVES. AN ABNORMAL    *  SQ1484.2
002800*    TERMINATION IS POSSIBLE AFTER THE TEST OF THE I-O STATUS  *  SQ1484.2
002900*    CODE IS ACCOMPLISHED BUT BEFORE CONTROL IS RETURNED TO    *  SQ1484.2
003000*    THE MAIN LINE CODE.                                       *  SQ1484.2
003100*                                                              *  SQ1484.2
003200****************************************************************  SQ1484.2
003300*                                                                 SQ1484.2
003400 ENVIRONMENT DIVISION.                                            SQ1484011400*                                                             *   SQ1484.2
00350CONFIGURATIONSECTIONSQ1484
003600 SOURCE-COMPUTER.                                                 SQ1484.2
003700     Card0130.                                                    SQ1484.2
003800 OBJECT-COMPUTER.                                                 SQ1484.2
003900     Card0131.                                                    SQ1484.2
004000*                                                                 SQ1484.2
004100 INPUT-OUTPUT SECTION.                                            SQ1484.2
004200 FILE-CONTROL.                                                    SQ1484.2
0430 PRINT-FILE.
004400     "C0085" .                                                    SQ1484.2
004500*                                                                 SQ1484.2
00460     SELECT                                                .2
004700            ASSIGN                                                SQ1484,00ORG.2
004800     "C0020"                                                      SQ1484.2
004900            FILE STATUS SQ-FS4-STATUS                             SQ1484.2
005000            ORGANIZATION IS SEQUENTIAL                            SQ1484.2
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005200*                                                                 SQ1484.2
005300*                                                                 SQ1484.2
005400 DATA DIVISION.                                                   00                X7.SQ1484
005500 FILE SECTION0FILLER(                       .2
00 FDPRINT-FILESQ1484
005700     LABEL RECORDS                                                SQ1484.2
005800     Card0132                                                     SQ1484.2
005900     DATA RECORD IS PRINT-REC DUMMY-RECORD                        SQ1484.2
006000               .                                                  SQ1484.2
060 1    PICTUREX10.SQ1484
006200 01  DUMMY-RECORD PICTURE X(120).                                 SQ1484.2
006300*                                                                 SQ1484.2
04   SQ-FS4SQ1484.2
006500     LABEL RECORD IS STANDARD                                     SQ1484.2
006600**********000100 IDENTIFICATION.                                         .2
0150           7               PIC7.SQ1484
06000*    WORKING-STORAGE 050           7CHARS-OR-RECORDS2)                       .2
090 01 SQ-FS4R1-F-G-120SQ1484.2
007000        05 FFILE-RECORD-INFO-P1-120.                              SQ1484.2
071007 FILLER               X(500150SQ1484.2
007200           07 FFILE-NAME          PIC X(6).                       SQ1484.2
007300           07 FILLERPIC().                       SQ1484
X(6).                       SQ1484
075007FILLERPIC()                       .21700      PIC 6SQ1484
00760           7     PIC 9(1.0100    COBOL8 VERSION   193 SSVG.Q1484
007700           07 FILLER              PIC X(7).                       SQ1484.2
700           07                                                 .2
09007 FILLERPICX().                       SQ1484
008000           07 FUPDATE-NUMBER011000*                                                                 001600*                                                              *060           7XLABEL-TYPE X()                       .2
008100           07 FILLER              PIC X(5)011600*                                                                 SQ1484.2
08200         . ABNORMAL.
008300           002900*    CODE IS ACCOMPLISHED003000*    THE MAIN LINE CODE.                                       *  SQ1484.2
040 (.                       .2
00               (                       .2
8           PIC.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008700           060           000OBJECT-COMPUTER.2
0 PICSQ1484
000 FILLERPIC)SQ1484
009000           07 FBLOCK-SIZE         PIC 004000*                                                                 SQ1484.2
009100           07 FILLER              PIC X(6).                       07      PIC03      PRINT-FILE TOSQ1484
9           FRECORDS-IN-FILE96.SQ14840100  .                                                .2
009300           07 FILLER              PIC X(5).                       SQ1484.2
00            FFILE-ORGANIZATIONX2.SQ1484
000140       03FILLERPIC X(4  VALUE SPACE.2
009600           07 FLABEL-TYPE020        5 FILLER01703 PARDOT-X SPACE.             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009700*                                                                 SQ1484.2
00  0280" .SQ14842
009900*                                                                 SQ1484.2
010000***************************************************************   SQ1484.2
010100*                                                             *   SQ1484.2
010200*    WORKING-STORAGE DATA ITEMS SPECIFIC TO THIS TEST SUITE   *   SQ1484.2
010300*                                                             *   SQ1484.2
010400***************************************************************   SQ1484.2
010500*                                                                 SQ1484.2
0600  .                                                30                                                                  PIC..2
1004SQ-FS4-STATUSSQ1484
1800         0  SQ-FS4-KEY-1   PIC.SQ14842
001400  PIC0   .                             2
011000*                                                                 SQ1484.2
011100***************************************************************   SQ1484.2
011200*                                                             *   SQ1484.2
011300*    WORKING-STORAGE DATA ITEMS USED BY THE CCVS              *   SQ1484.2
011400*                                                             *   SQ1484.2
011500***************************************************************   SQ1484.2
011600*                                                                 SQ1484.2
170 0  EC-SKEL-SUB 99.                                      006001DUMMY-RECORD(20)                                 .2
011800*                                                                 SQ1484.2
19   FILE-RECORD-INFORMATION-REC.2
012000     03 FILE-RECORD-INFO-SKELETON.                                SQ1484040007       PIC92.SQ1484
            X(48              SQ1484
00060BLOCK 12 000     3  COMPUTED-A491)      SQ1484
01230                         PICTURE   COMPUTED-A-4(SQ1484
0124060                SQ1484
15                  00SQ1484
00                 PIC                       2
017005 FILLER                  X(37)       VALUE.2
012800             ",007200 07 FFILE-NAME PIC X(6). SQ1484.2
012900        0 FILLER50   0   (5 VALUESQ1484
1300",ALTKEY1= 0040 7 PICX6) SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1100       5FILLER X(38       VALUE00FILLER X(1 VALUECORRECT.
30",= 000 3CORRECT-N 9() .
013005FILLER03  CORRECT-A.(8)        .2
013400     03 FILE-RECORD-INFO000  REDEFINES     PIC -()91)     .2
013500        05 FILE-RECORD-INFO-P1-120.                               SQ1484.2
100 PIC)SQ1484
013700           07 XFILE-NAME          PIC X(6).                       SQ1484.2
013800           07 FILLER              PIC X(8).                       SQ1484.2
107XRECORD-NAME(6.                       SQ1484
014000           07 FILLER              PIC X(1).                       SQ1484.2
1407 PIC1.                       .2
0              PIC X(060           7XLABEL-TYPE                             SQ1484
014300           7 XRECORD-NUMBER014300           07 XRECORD-NUMBER      PIC
040           7FILLER X(6)0100                                                                 .2
                       .2
014600           07 FILLER              PIC X010 1CCVS-C-1           7FCHARS-OR-RECORDS.                       2
100ODO-NUMBER4                       .2
014800           07 FILLER              PIC X(5).                       SQ1484.2
014900           060           7       PIC X(2)                      SQ1484.2
01000                          PIC(.                      .2
015100           07 XRECORD-LENGTH      PIC 9(6).                       SQ14840     02FILLER IS          SPACE.                     .2
0150java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 80
015300           0019002FILLER IS)VALUE"REMARKS".                  SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015400           07 FILLER              PIC X(1).                       SQ1484.2
050                     00980WORKING-STORAGESQ1484.2
015600           07 FILLER009900*                                                                 SQ1484.2
0*****************************SQ148410
015800           07 FILLER              PIC X(5).                       SQ1484010302 X4VALUE.2
015900           07 XFILE-ORGANIZATION  PIC X(2).                       SQ1484.2
016000           07 FILLERPIC X6).                       .2
60          7XLABEL-TYPE          X(100007SQ-FS4-KEY-1X..2
0160005FILE-RECORD-INFO-P121-240         018100     02 FILLE (9   .               SQ1484
.2
0020 1REC-CT 9        ZEROSQ1484
016500           07 FILLER              PIC X(9).                       SQ1484.2
016600           07 ALTERNATE-KEY1      PIC10TEST-COMPUTED.                                               .2
01670007               PIC)                      2
016800           07 ALTERNATE-KEY2      PIC011600*                                                                 210001  INSPECT-COUNTER   PIC9VALUE.                   SQ1484
01690010003FILE-RECORD-INFO-SKELETON.SQ1484.2
017000*                                                                 SQ1484.2
2
017200     02FILLER XVALUE.               .2
                                           .2
0380 1CCVS-H-1SQ1484.2
0700PICVALUE.SQ1484
017600       03 DOTVALUE            PIC010     3 023900     02  FILLER X(9    VALUESQ1484"=0ORG= ,LBLR ..2
   5                 X37       SQ1484
70     2FEATURE   .SQ1484
017900     02 FILLER              PIC X      VALUE00 FILLER X       Q1484
018000     02 P-OR-F              PIC X(5)01123005       PICX5SPACE2
080024   0ILLER(4)VALUESQ1484
018200     02 RE-MARK             PIC X(61).                            SQ1484.2
018300 01  TEST-COMPUTED.                                               01340     0FILLER X(176                  XXXX2
140   2 FILLERPIC(0)  VALUE.                             .2
0150   2 FILLERPIC(7)VALUE " =".                SQ1484
00000    3 CORRECT-A040            COPY DISTRIBUTION2
0187003COMPUTED-A(0   SPACE                     .2
182109           X         X()                       2
0190003COMPUTED-0V18 COMPUTED-A -91.SQ1484
019000     03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -230    03CORRECT-4V14     PIC -()9()     .2
090     3COMPUTED-14V4 COMPUTED-A -9(1)94.SQ1484
019200     03       2050            CORRECT-A
01930        4                    0000        000 9SQ1484
00FILLERX                 2
900 FILLER5           7java.lang.StringIndexOutOfBoundsException: Range [40, 33) out of bounds for length 80
0TEST-CORRECT2
019700     02 FILLER PIC X(30) VALUE SPACE.                             SQ1484.2
080     02FILLER X(7)VALUE           PIC2
019900     02 CORRECT-X010     2 FILLER  PIC IS  SPACE1XRECORD-LENGTH.2
200     2002FILLER (1       ()""           .
21003CORRECT-N      -99)99)     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0220     3CORRECT-0V18CORRECT-A-91).        .2
230     0  REDEFINES     PIC().15           10    ISSPACE
020400     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(4)94.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0REDEFINESSQ1484
020600580           07                ()                       .2
020700         04 FILLER007 FILLER 0602FILLER ()java.lang.StringIndexOutOfBoundsException: Range [48, 47) out of bounds for length 80
000     3FILLER X(2  SPACE                              SQ1484
290     03107FILLERX) SQ1484
021000*                                                                 SQ1484.2
21 1CCVS-C-1SQ1484
0224       PIC    "FAIL".                          .2
02002FILLER X06007ALTERNATE-KEY1
02140     0 FILLER  PIC ISX          SPACE.030    2PIC5)VALUE
021500     02 FILLER  PIC IS X(24)    VALUE IS "FEATURE".               SQ1484000  FILLERPIC   SPACE                  .2
LUE                     00  .
021700     02 FILLER00      PIC 9       ZERO.10       3PARDOT-X             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
31INSPECT-COUNTERPIC0FEATURE.SQ1484
202FILLER02     PIC                         SQ1484
022000 01  CCVS-C-2.                                                    PIC   VALUE.SQ1484500  DUMMY-HOLDPICVALUE                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022100     0080     2           PICVALUE                  SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2000  PIC"".                        2
02230     2 FILLER X(19    SPACESQ1484COMPUTED-N PIC)99..
022400     02 FILLER  PIC X(4)   VALUE "FAIL"00  CCVS-E-4 COMPUTED-A9)94)      2
020     2FILLER 002       PIC SPACE
022600*                                                                 SQ1484.2
0       0 COMPILERPIC    SPACE2
022800 01  REC-CT            PIC 99040                 PIC9 090     2            X(                           SQ1484
00        990900XXINFO
023000 02500  FILLERPIC    "CCVS85 .SQ14842
211INSPECT-COUNTER1TEST-CORRECT.2
2200 0        PIC       ZERO.2
02040     42" .
2300  ERROR-HOLDPIC9VALUE.                   SQ148400      0900    X1)VALUE..2
023500 01  019000 CORRECT-X.                                                .2
023600020000     0 CORRECT-APIC X(20) VALUE SPACE         .2
20   ANSI-REFERENCE X(48)VALUE.                 SQ1484
08 1
29       PICVALUESQ1484
024000     02  FILLER240   2TEST-ID9.SQ1484
210"COBOL VALIDATIONSYSTEM.SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000            PIC 024200     02  FILLER          PIC X(39)    VALUE SPACES
024300  SQ1484
02000         4FILLERPICSQ1484
024500   02  FILLER            PIC X(7)   VALUE "28 3ILLERPIC(2VALUE. SQ1484.
024600   02  FILLER            PIC XXXX   VALUE10*SQ148400              X5
024700     "4.231 1 PIC X(9 SQ1484.
8   2PIC                         SQ1484
29*SQ1484
2000              PIC1   SPACE.SQ1484
025100*                                                                 SQ1484.2
025200 01  CCVS-H-2B.                                                   SQ1484.2
20   0  FILLER026900 01  CCVS-E-1.
2400             027000     02 FILLER           PIC.                  SQ1484
025500   02  FILLER            PIC X(4)   VALUE " IN ".                 031700*                                                                 ID-AGAIN8 0 FILLER (       SPACE.SQ1484
025600   02  FILLER            PIC X(12)  VALUE                         SQ1484.202300     2 FILLER  PIC(  SPACESQ1484
320PERFORM                                    205         (                             .2
025800   02  FILLER            PIC X(2020 1 0 PICVALUESQ1484
00"LEVELVALIDATIONFOR"                             .2
026000   02  FILLER            PIC X(58)  VALUE                         300       PIC9       ZEROCCVS-E-36              SQ-FS4-STATUS2
060     ON-SITE0TO
026200 01  CCVS-H-3.                                                    SQ148490MOVE ..()"TOANSI-REFERENCESQ14842
026030GODECL-ABNORMAL-TERMjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026400            " FOR OFFICIAL USE 080002FILLERPICX58030* SQ1484.2
026500     02  FILLER          PIC X(58)  VALUE                         SQ1484.2
026600     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ1484.2
602           (8
026800            " COPYRIGHT 1985,19028900 02FILLER X(20) VALUE 03 1CCVS-H-1.2
600                                                     29002FILLER (9     SPACES.2
027000     02 FILLER           PIC X(52)  VALUE SPACE033800*                                                                 SQ1484.2
027100     0000        "FAIL* P-OR-F. .2
NPIC.2
027300     02 FILLER           PIC X(45)  VALUE SPACES.040     PERFORM.                                   .2
240 1CCVS-E-2SQ1484.
030 .                                                    .2
027600     02  FILLER90 1XXINFOSQ1484.2
07000CCVS-E-2-2
078003ERROR-TOTAL040ADD  DELETE-COUNTER.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027900         03050   2FILLER X(1   SPACESQ1484
034900*                                                                 SQ1484.2
028100            "ERRORS ENCOUNTERED".                                 50035000 DECL-PRINT-DETAIL ()VALUE.SQ1484
200CCVS-E-3.2
2800            PIC2)VALUE0MOVE PARDOT-XSQ1484
240           " FOR OFFICIALUSE ".                             SQ1484
0280550   2FILLERPIC)VALUE" SQ1484.
028600     02  FILLER          PIC X(58)  VALUE                         SQ14840250                 PIC()VALUE                         50PERFORM.SQ1484  PIC.SQ1484
0VALIDATION&."SQ148450 THRU.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
8       FILLER2
028900     02  060          DECL-BAIL DECL-BAIL-EX1           TECH
029000             00            4                           .2
029100 01  CCVS-E-4.                                                     FILLER X5)6      REC-CT                                       .
029200     02 060                 95186"SQ1484
0290     2 FILLERPIC)V " OF "                 .2
240     2 CCVS-E-4-2                                                .
029500     02 FILLER           PIC X(40)  VALUE0PROCEDUREDIVISIONSQ14842
0296070     2          PIC1              TO                       SQ1484
701XXINFO
28                 PIC   "** INFORMATION ***"  SQ1484
029900     02 INFO-TEXT.                                                SQ1484.2
030000       0              PIC)   SPACE.              SQ148402770      CCVS-E-2-2SQ1484
030100       4XXCOMPUTED9 PIC.                SQ1484
030200 PIC)VALUE.SQ1484
030300       04 XXCORRECT          PIC X(20).                           SQ1484
03040 PIC.SQ1484
030500 01  HYPHEN-LINE.                                                 SQ1484300READ-ERROR-PROCESS.                                              DECL-WRT-LNjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000   PIC  IS.                          .201DECL-WRT-LN.2
030700     038200*                                                                 SQ1484.2
030800-    "******************08002FILLER PICX2) SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030900     02 FILLER  PIC0MOVE TO.SQ1484
0300-"***********"                            038600*                                                                 SQ1484.2
10 1  CCVS-PGM-ID   X(090MOVE1.()F TO      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0315002 FILLER           PIC X40  VALUESQ1484
031300*                                                                 SQ1484.2
031400*                                                                 SQ1484.2
031500 PROCEDURE02900  XXINFO30 .
010 DECLARATIVESSQ1484
031700*                                                                 SQ1484.2
031800 SQ148A-DECLARATIVE-001-SECT SECTION.                             SQ1484PERFORM.                                   .2
031900     03600DECL-FAIL-WRITESQ1484
0320000390 DECL-FAILSQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032100     IF  SQ-FS4-STATUS40MOVE*  P-OR-FSQ1484
320             DECL-PASSSQ1484
0330               DECL-ABNORMAL-TERMSQ1484
320
032500             MOVE "47" TO CORRECT-A                               SQ1484000     MOVE    30 .                                   .
MOVE TO                     SQ1484
04     4
0000     .
032900             MOVE "VII-5, 1.3.5(4)F" TO ANSI-REFERENCE            SQ1484.2
0300PERFORM                                    .2
310GO DECL-ABNORMAL-TERM.2
033200     END-IF.                                                      SQ1484.2
033300*                                                                 SQ1484.2
35            ."PARDOT-XSQ1484.2
033500     MOVE   "PASS " TO P-OR-F0320     SQ148ASQ14840   DOTVALUE2
                  .
033700     PERFORM    XXINFO.                              .2
033800*                                                                 SQ1484.2
033900070PERFORM                                  10DECLARATIVES.2
034000     MOVE   "FAIL*" TO50 PERFORM THRU              SQ14848SQ148A-DECLARATIVE-001-SECT.                             .
034100     ADD     1 TO ERROR-COUNTER.                                  SQ148430 .                                              01     SPACE
034200     PERFORM DECL-PRINT-DETAIL.                                   SQ1484.2
034300*                                                                 SQ1484.2
034400 DECL-DE-LETE.                                                    SQ1484430TO0SQ1484.2
034500     MOVE   "*03800DECL-WRITE-LINE. SQ1484.2
034600     MOVE   "*****" TO P-OR-F.                                    390ADD RECORD-COUNTSQ1484
030     0380                    TOSQ14845*SQ1484
003900            MOVE", 1.3.5(4)F" TO            SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034900*                                                                 SQ1484.2
03500          TOSQ1484
03510      REC-CT WRITE PAGE2
2              "."
03530            REC-CT
035400     MOVE    TEST-RESULTS TO PRINT-REC.                           SQ1484.2
035500      DECL-WRITE-LINESQ1484.2
035600     IF P-OR-F03100 CCVS1.                                                   SQ1484.2
0303360     ADD1  PASS-COUNTER                                   .2
035800         PERFORM DECL-FAIL-ROUTINE THRU DECL-FAIL-EX              SQ1484.2
035900     ELSE                                                         SQ1484.2
03600         PERFORM THRU DECL-BAIL-EXSQ1484.2
0300    MOVE TO P-OR-FSQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060           COMPUTED-X.2
036300         SPACE CORRECT-XSQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036038200*                                                                 SQ1484.2
036500         MOVE    SPACE TO PAR-NAME80 .                                                     0DECL-DE-LETESQ1484
036600     MOVE    SPACE30        "**0800 O REC-SKEL-SUBSQ14842
036700*                                                                 SQ1484.2
036800 DECL-WRITE-LINE400     GO CCVS1-EXITSQ1484.2
06900ADD1  RECORD-COUNT.SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0Q1484.2
UMMY-RECORD TO                       SQ1484.2
037200         MOVE    SPACE TO DUMMY-RECORD                            SQ1484.2
03730            DUMMY-RECORDAFTER                 SQ1484
037400         MOVE    CCVS-C-1 TO DUMMY-RECORD PERFORM0050 .SQ14842
030 NOT
03760         PERFORM 2 TIMES0940FILE-RECORD-INFOSQ1484
370040*                                                                 .2
037800         PERFORM DECL-WRT-LN                                      SQ1484.2
3790     TO
0ZEROSQ1484
080      DECL-WRT-LNSQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038200*                                                                 SQ1484.2
038300 DECL-WRT-LN.                                                     SQ1484.2
038400     WRITE   DUMMY-RECORD AFTER ADVANCING 1 LINES.                SQ1484.2
350         SPACE DUMMY-RECORDSQ1484
038600*                                                                 SQ1484.2
00540        "INSPT"
380IFNOTTOTO.      SQ1484
038900     IF CORRECT-X NOT056 PRINT-DETAIL                                        .2
0390045700*                                                                 SQ1484.2
039100     MOVE   "NO FURTHER INFORMATION, SEE PROGRAM." TO 0630     OVE  CORRECT-XSQ148450PASSSQ1484
390          TO.SQ1484
039300     PERFORM DECL-WRITE-LINE 2 TIMES.                             SQ1484.2
039400     MOVE    SPACES TO INF-ANSI-REFERENCE.                        SQ1484.2
039500     GO TO   DECL-FAIL-EX.                                        SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039600 DECL-FAIL-WRITE.                                                 036700*                                                                 SQ1484.2
370          1TOSQ1484
039800     PERFORM DECL-WRITE-LINE                                      50          TO.                                  SQ148403000     IF GREATER 50                                   SQ1484
039900     MOVE04430     TO DUMMY-RECORD DECL-WRT-LN
040000     MOVE    TEST-CORRECT TO.*TOSQ1484
0PERFORM .
40MOVE .
040300 DECL-FAIL-EX047300*                                                                 SQ1484.2
040400     EXIT .SQ1484
040500*                                                                 SQ1484.2
040600 DECL-BAIL03300DECL-WRT-LNSQ1484
  COMPUTED-A  TO GO TO0 AFTER ADVANCING LINES.
040800     IF CORRECT-A EQUAL TO SPACE GO TO DECL-BAIL-EX.              SQ14840
049 .
RECTSQ1484
041100     MOVE    COMPUTED-A TO XXCOMPUTED.                            SQ1484.2
041200     MOVE    ANSI-REFERENCE39000     MOVEANSI-REFERENCE TOINF-ANSI-REFERENCESQ1484
430
041400     PERFORM DECL-WRITE-LINE 2 TIMES040900PERFORM 2 TIMESSQ1484
041500     MOVE    SPACE 090         SPACES INF-ANSI-REFERENCESQ1484
100DECL-BAIL-EX.2
041700     EXIT.                                                        SQ1484.2
041800*                                                                 SQ1484.2
4900DECL-ABNORMAL-TERMSQ1484.2
04200     MOVE SPACETO.                                  SQ1484.2
042100     PERFORM09900MOVETO.                                  SQ14840     MOVE TOSQ1484
0 ABNORMALACCEPTABLE      SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020              DUMMY-RECORD00 SPACES.
042400     PERFORM DECL-WRITE-LINE TIMES                             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042500*                                                                 SQ1484.2
042600 END-DECLS.                                                       SQ1484040500*                                                                 SQ148440MOVE TO0      TOCCVS1-EXIT.                                            .2
0
042800 ENDDECLARATIVES                                                .2
042900*                                                                 SQ1484.2
043000*                                                                 SQ1484.2
043100 CCVS1.SQ14849        PRINT-FILE.2
042                                                      2
0430     OPEN 010         COMPUTED-AXXCOMPUTEDSQ1484
30MOVE TO SQ1484
043500     MOVE     TO43         XXINFO042*

47      HEAD-ROUTINE COLUMN-NAMES-ROUTINESQ1484
0480EXITSQ1484.2
0390PERFORM 10 TIMESSQ1484
044000     GO TO 041800*                                                                 SQ1484.2
044100*                                                                 SQ1484.2
044200 CCVS-INIT-FILE.                                                  SQ1484.2
044300     ADD     1 TO REC-SKL-SUB.                                    SQ1484.2
440    FILE-RECORD-INFO-SKELETON                         2
0400FILE-RECORD-INFO).                 .2
044600*                                                                 SQ1484.2
040 .
40     PERFORM END-ROUTINE-13
490        PRINT-FILE.2
0450004620046 .
0500        RUNSQ14842
045200*                                                                 SQ1484.2
045300 INSPT.                                                           SQ1484.2
045400     MOVE   "INSPT" TO P-OR-FPERFORM.SQ1484
00                                                                 .2
0 PRINT-DETAIL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045700*                                                                 SQ1484.2
0.                                                            .50" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0      EQUAL                           2
046000     ADD     1 TO PASS-COUNTER.                                   SQ1484    FILE-RECORD-INFO-SKELETON07         REC-CT
046100     PERFORM PRINT-DETAIL.                                        SQ1484.2
046200*                                                                 SQ1484.2
046300 FAIL.                                                            040          FAIL-ROUTINE                SQ1484
00MOVEIF
0030MOVE  ERROR-TOTAL.080     TO                                     2
046600     PERFORM TO.                                 40ELSESQ1484
046700*                                                                 SQ1484.2
046800 DE-LETE0 .                                        2
046900     MOVE   "****TEST DELETED****"045700*                                                                 SQ1484.2
047000     MOVE   "*****" TO P-OR-F053900*                                                                 SQ1484.2
047100     ADD      TO.                                 .2
0420PERFORM.                                        .2
047300*                                                                 SQ1484.2
0.                                                      .SQ1484  SPACEDUMMY-RECORD.2
047500     IF 450MOVE  046700*                     .
0"TO 2
40             REC-CT.                              0        CCVS-C-2PERFORM 2 TIMES   "TEST***T.2
047800     MOVE    TEST-RESULTS TO PRINT-REC.                           SQ1484.2
047900     PERFORM04200PRINT-DETAILSQ1484
0400IF EQUALTOSQ1484047300*                                                                 SQ1484.2
048100         PERFORM WRITE-LINE                                       50      WRITE-LINE.                                  .
040MOVEPARDOT-X
048300     000      WRITE-LINE.                                  .2
048400         PERFORM BAIL-OUT HRU.                       SQ1484
080 MOVE P-OR-F
048600     MOVE    SPACE 0      SPACE.                               49      RITE-LINE.2
048700     MOVE    SPACE0800     IF EQUAL "*"                                   .2
048800     080PERFORM                 .2
8         SPACE.                                    2
049000*                                                                 SQ1484.2
049100 HEAD-ROUTINE.                                                    SQ1484.2
049200     MOVE CCVS-H-1            TOSQ1484
04930MOVE DUMMY-RECORD 2 .  SQ1484
049400     MOVE CCVS-H-2B TO DUMMY-RECORD50         XXINFO.                              SQ148410MOVES " .SQ14842
90CCVS-H-3 TIMESMOVE TO.SQ1484
049600 COLUMN-NAMES-ROUTINE.                                            0GO   FAIL-ROUTINE-EX.20490
0490 MOVE TO. PERFORM.           .2
0490MOVECCVS-H-2A . PERFORM 2 TIMES.2
049900     MOVE0MOVE TO . PERFORM 3 TIMES.2
0END-ROUTINE27PERFORMSQ1484
050100MOVE TO070     SPACES.                .2
500    java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 80
050300END-RTN-EXITSQ1484
050400     MOVE    CCVS-E-1 TO DUMMY-RECORD.                            SQ1484.2
05050     PERFORM 07000MOVE.                            .2
050600*                                                                 SQ1484.2
050700 END-ROUTINE-1000MOVE090BAIL-OUT-WRITE.2
05080     ADDERROR-COUNTER ERROR-HOLD.2
050      TO.                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0500ADDDELETE-COUNTER .004CCVS-E-1                            2
051100     ADD     PASS-COUNTER    TO ERROR-HOLD.                       SQ1484.2
588CCVS-E-3 WRITE-LINE
50         ERROR-HOLDCCVS-E-4-2.2
0510 MOVE        TO.                       SQ1484
            TOSQ1484
05040 RECORD-COUNT0SQ1484
051700     ADD         TOERROR-HOLDSQ1484
051800     IF ERROR-COUNTER IS05440         MOVE TO DUMMY-RECORDSQ1484
50            " "  ERROR-TOTAL.2
052000
052100         MOVE    ERROR-COUNTER TO ERROR-TOTAL.                    SQ1484.2
052200     MOVE    CCVS-E-2 TO DUMMY-RECORD.                            SQ1484.2
530      WRITE-LINE START OFCOBOL.          .
550           DUMMY-HOLDSQ1484
0250550MOVE.SQ1484********************java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052600         MOVE   "NO " TO ERROR-TOTAL                              SQ1484SECT-SQ148A-0002.                                        .2
052700     ELSE                                                         SQ1484.2
0528030 WRITE-LINE.2
05290        "TEST)DELETED" TO
053000MOVECCVS-E-2DUMMY-RECORDSQ1484
05310PERFORM                                          2
050            "NO SQ14842
530MOVE.                                                    .
05340ELSESQ1484
053500         MOVE    INSPECT-COUNTER TO ERROR-TOTAL.                  05900     MOVETEST      TO ENDER-DESC.2
053600MOVE()REQUIRE ENDER-DESCSQ1484
053000     ANSI-REFERENCE .                .2
067          (1)                          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053900*                                                                 SQ1484.2
054000 053400     ELSE  SQ1484
51            RECORD-COUNTSQ1484
054200     IF RECORD-COUNT GREATER 50                                   SQ1484.2
054300         MOVE  DUMMY-RECORD TO0CCVS-E-2.  WRITE-LINE.2
054400         MOVE  SPACE     MOVE TO. WRITE-LINE
054500         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  SQ1484.2
560MOVE TO PERFORM5        TOSQ1484
05400MOVE TO PERFORM 2 TIMES2
0480MOVE TO PERFORMWRT-LN.2
040           DUMMY-HOLDSQ1484
0500MOVE TO.SQ1484
051 WRT-LN2
055200*                                                                 SQ1484.2
055300 WRT-LN   TO             .2
055400062100*                                                                 SQ1484.2
05550         SPACE.                               .2
0630          ZERO.                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
055700     PERFORM WRT-LN055200*                                                                 SQ1484.2
055800 FAIL-ROUTINE.                                                    SQ1484   DUMMY-RECORD.                SQ1484
055900     IF COMPUTED-X    ANSI-REFERENCE.                .2
056000     IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE5      TO                      2
056100063         " CODE OUTPUT"          2
056200     MOVE   "NO FURTHER INFORMATION, SEE PROGRAM." TO        " FURTHER0 .
056300     MOVE    XXINFO TO DUMMY-RECORD50     .SQ1484
056400     PERFORM WRITE-LINE WRITE-LINE.SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056500     MOVE    SPACES TO06350.                                              .2
056600     GO TO   FAIL-ROUTINE-EX.                                     0591050 WRITE-LINE.2
07 .
056800     MOVE    TEST-COMPUTEDTEST-CORRECT                          .2
090     PERFORMWRITE-LINESQ1484
500     MOVE    ANSI-REFERENCETO.                .2
057100     MOVE    TEST-CORRECT   TO PRINT-REC                          SQ1484059600******************************************************05740 FAIL-ROUTINE-EXSQ1484
057200     PERFORM WRITE-LINE 2 TIMES.                                  SQ1484.2
057300     MOVETO.                SQ1484.
057400 FAIL-ROUTINE-EX.                                                 SQ1484.2
057500     EXITSQ1484.2
05760.
057700     IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.       SQ1484630MOVESEQ-TEST-RD-02 .
057800     IF CORRECT-A EQUAL TO         SQ-FS4SQ1484
50BAIL-OUT-WRITESQ1484064600*                                                                 SQ1484.2
058000     MOVE    CORRECT-A70CLOSE-TEST-03050MOVETO .630CCVS-PGM-ID(1.SQ1484
5    COMPUTED-A .                        .2
580         ANSI-REFERENCE INF-ANSI-REFERENCE.2
0830         XXINFO DUMMY-RECORD.                              .2
058400     PERFORM WRITE-LINE 2 TIMES.                                  SQ1484.2
058500     MOVE059000*                                                                 SQ1484.2
058600 BAIL-OUT-EX.                                                     SQ1484.2
058700     EXIT.                                                            CLOSE-FILESSQ1484.2
05880 .                                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
058900     EXIT.                                                        SQ1484.2
059000*                                                                 SQ1484.2
059100****************************************************************  SQ1484.2
059200*                                                              *  SQ1484.2
059300*    THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND *  SQ1484.2
059400*    THE START OF THE TESTS OF SPECIFIC COBOL FEATURES.        *  SQ1484.2
059500*                                                              *  SQ1484.2
059600****************************************************************  SQ1484.2
059700*                                                                 SQ1484.2
090 .
050MOVE  SQ-FS4-STATUSSQ1484
060000*                                                                 SQ1484.2
060100     MOVE   "SQ-FS4" TO XFILE-NAME (1).                           SQ1484.2
060200     MOVE   "R1-F-G" TO XRECORD-NAME (1).                         SQ1484.2
060300     MOVE    CCVS-PGM-ID TO XPROGRAM-NAME (1).                    SQ1484.2
0600         120TO (1.                           .2
060500     MOVE   "CC" TO CHARS-OR-RECORDS (1).                         SQ1484.2
060600     MOVE    1   TO XBLOCK-SIZE (1).                              SQ1484.2
060700     MOVE    1   TO RECORDS-IN-FILE (1).                          SQ1484.2
06080062200*    061200*                                                                 SQ1484.2
0600MOVE   S  TO  (1).                              SQ14842
061000*                                                                 SQ1484.2
061100*    OPEN THE FILE IN THE OUTPUT MODE                             SQ1484.2
061200*                                                                 SQ1484.2
6 .                                                     60      TO.SQ1484
061400     MOVE    1 TO REC-CT.                                         SQ1484.2
061500     MOVE   "**" TO SQ-FS4-STATUS.                                SQ1484.2
0    ZEROTO
061700     MOVE   "OPEN,60 UNEXPECTEDERROR OPEN"java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0680        "" 620*CHECK STATUS RETURNEDFROM  OUTPUTSQ1484
061900 SEQ-TEST-OP-01.                                                  SQ1484.2
062000     OPEN    OUTPUT SQ-FS4.                                       SQ148406400SEQ-TEST-OP-01-01SQ1484.2
062100*                                                                 SQ1484.2
062200*    CHECK I-O STATUS RETURNED FROM OPEN OUTPUT                   SQ1484.2
062300*                                                                 SQ1484.2
062400 SEQ-TEST-OP-01-01.                                               SQ1484.2
062500     IF SQ-FS4-STATUS = "00"                                      SQ1484.2
062600         PERFORM PASS                                             SQ1484.2
062700     ELSE                                                         SQ1484.2
062800         MOVE    SQ-FS4-STATUS TO COMPUTED-A                      SQ1484.2
062900         MOVE   "00" TO620MOVEVII-3 ANSI-REFERENCESQ1484
063000         MOVE   "UNEXPECTED ERROR CODE FROM OPEN OUTPUT"          SQ1484.2
063100                   TO RE-MARK                                     SQ1484.2
063200         MOVE   "VII-3, VII-43" TO40SEQ-TEST-RD-02.                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
06064600*                                                                 SQ1484.2
06470 .                                                   .2
063500*                                                                 SQ1484.2
063600*                                                                 SQ1484.2
063700*    A NEW FILE IS OPEN.  WE NOW ATTEMPT TO READ A RECORD.        SQ1484.2
063800*                                                                 SQ1484.2
60 SEQ-INIT-02SQ1484.2
06400MOVETO.                                         .2
064100     MOVE   "**" TO640 SEQ-TEST-RD-02SQ1484.2
064200     MOVE   "READ IN OUTPUT MODE" TO FEATURE.                     SQ1484.2
064300     MOVE   "SEQ-TEST-RD-02" TO PAR-NAME.                         SQ1484.2
064400 SEQ-TEST-RD-02.                                                  SQ1484.2
064500     READ    SQ-FS4.                                              SQ1484.2
064600*                                                                 SQ1484.2
064700 CLOSE-TEST-036000CCVS-EXIT.                                               .2
064800     CLOSE SQ-FS4.                                                SQ1484.2
064900*                                                                 SQ1484.2
065000 CCVS-EXIT SECTION.                                               SQ1484.2
065100 CCVS-999999.                                                     SQ1484.2
065200     GO TO   CLOSE-FILES.                                         SQ1484.2

quality95%

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

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.