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 56 kB image not shown  

Quellcode-Bibliothek sq215a.cob   Sprache: Cobol

 
0PIC.SQ2154
000200 PROGRAM-ID.                                                      0220            0              X5   " OF".
000    .                                                      
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
3DIVISION.20  195,8                           
003700 CONFIGURATION SECTION.                                           320 0  CCVS-E-1.                                                    .2
00800 SOURCE-COMPUTER.                                                 .2
030     Card0130SQ2154
004000 OBJECT-COMPUTER.                                                 02800    0  FILLERPIC(8  VALUESQ21540"ENCOUNTERED.SQ21542
00 Card01312
004200*                                                                 SQ2154.2
004300 INPUT-OUTPUT SECTION.                                            02380     02  FILLERPIC(3)  VALUE SPACE0     2FILLERX2)VALUE
004400 FILE-CONTROL3FILLER5  SPACE003   XXX.                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
004520MOVE                               .2
0040                                                          
007030300     .                                     2
0" .2
20PERFORM.20TO.2
005000*                                                                 SQ2154.2
005100*                                                                 SQ2154.2
005200 DATA DIVISION.                                                         REC-CT  ZERO2
005300 FILE SECTION.                                                    SQ2154.2
0301MOVE.                                    
0LABEL                                                2
                                                     2
03                                  
00580210        WRITE-LINE-DECL.
005900 01   PRINT-DETAIL-DECLSQ2154
0006000 01  DUMMY-RECORD
006100*                                                                 SQ2154.2
0030PERFORM THRU.2
006300     LABEL RECORD IS STANDARD    SPACEP-OR-F.0300                                                        .2
06                SQ2154
50 PIC2.SQ2154
006600*                                                                 SQ2154.2
070031000     PERFORM WRITE-LINE-DECL2
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
050SQ-FS1-STATUS2
0070330ADD1 TO RECORD-COUNTSQ2154
007700   03  SQ-FS1-KEY-2   PIC X.                                      SQ2154.020      RECORD-COUNT 5                                   .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
05001     PIC 9.                                         TOIFTO   PAR-NAME
008600*                                                                 SQ2154.2
070 0  SQ2154
008800     03 FILE-RECORD-INFO-SKELETON.                                030           ZERO.                              .2
(8              SQ21544      WRT-LN-DECLSQ2154
000                   =/RECNOjava.lang.StringIndexOutOfBoundsException: Range [26, 22) out of bounds for length 80
009100        05 FILLER                 PICTURE
3                                           
00  TOSQ2154020           CCVS-C-2 DUMMY-RECORDSPACE                              
040",LFIL=00000080MOVETODUMMY-RECORD SQ2154java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009500        05 FILLER040             030MOVE DUMMY-RECORD
0090440 CORRECT-X  SPACE.2
009700        30   TO  WRT-LN-DECL2
009800"ALTKEY1 .SQ2154.
090        5FILLERX3)VALUE
010000             ",30 DUMMY-RECORD AFTERADVANCING1 LINES. SQ2154.
0100MOVE .SQ2154
010200     03 FILE-RECORD-INFO          OCCURS  10  TIMES .                                           230  .                              
1300 .                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01040030GO .                       .2
010500           07 XFILE-NAME040      CORRECT-X50MOVE  TOSQ2154
010java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1007         PIC40IF SPACES.                2
1000PERFORM                             .2
0        9()SQ2154
011000           07 FILLER              PIC050GO    .                                4     IF EQUAL                              SQ2154
011100           07 050      WRITE-LINE-DECL   FURTHERjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
PICSQ2154
00           5CORRECT-A.2
407035600     MOVE    TEST-CO                          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1           ..
011600           07 FILLER              0800     ..
0 PIC2
00FILLER       NOTGO.25       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
9 PIC2
012000           07 FILLER              PIC X30 .SQ21540.                                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012100           007430 WRITE-LINE-DECL                             
23XXINFOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0 XBLOCK-SIZE..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 PIC.
00DUMMY-RECORD
01260032     .SQ2154java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012700           07 XFILE-ORGANIZATION038000*                                                                 SQ2154.2
020           7PICSQ2154
012900           07 XLABEL-TYPE         PIC X(1).                       
013000        05 FILE-RECORD-INFO-P121-240.                             SQ2154.2
013100           07 FILLER              PIC X(8).                       SQ2154.2
120           0           (29.SQ2154
01330            FILLERPIC X(9).                       .2
013400           07 ALTERNATE-KEY1 X(29)                      .2
013500           07 FILLER              PIC X(9).                       SQ2154.2
08500CCVS1SQ21542
013700           07 FILLER              PIC X(7).                       SQ2154.2
013800*                                                                 SQ2154.2
0190 0  TEST-RESULTS.SQ2154.2
014000     02 FILLER              PIC 0380EXIT-DECL                                                       .
0400     02FEATURE X(4)VALUE.               SQ2154
0120     0                X       SPACESQ21542
014300     02 P-OR-F              PIC X(5)   VALUE80 SECTIONSQ2154         CCVS-PGM-ID ID-AGAIN.                             .2
140     2FILLER X      VALUE.               SQ2154
0145      08     CCVS-PGM-IDSQ2154
014600       03 FILLER9         CCVS-PGM-ID 030BAIL-OUT-WRITE-DECL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00 6         XXCOMPUTED
014800       03 DOTVALUE     TO                .30MOVE .                                
014900     02 FILLER              8       DUMMY-RECORD.2
015000     02 RE-MARK             PIC X(61).                            SQ2154.2
015100 0  TEST-COMPUTEDSQ21542
015200   02 FILLER360.                                                  .2
015300   02 FILLER090         FILE-RECORD-INFO-SKELETON.2
015400   02 COMPUTED-X.                                                 0700930()                 .2
01550     03COMPUTED-A X(20  VALUE.                     SQ2154
015600     03 COMPUTED-N    REDEFINES COMPUTED-A PIC -9(9).9(9).        SQ2154.2
SQ2154.2
015800     03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14).       SQ2154.2
0590     3 REDEFINES COMPUTED-A -91)94.SQ2154
016000     03       CM-18V00.                                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016100        04 037700     MOVE   "ABNORMAL TERMINATION                                          0TERMINATE-CCVS2
20FILLER                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016300     03 FILLER PIC X(50) VALUE SPACE70INSPTSQ2154
016400 01  TEST-CORRECT.                                                SQ2154.000        "INSPT TOP-OR-F 2
016500     02 FILLER PIC X(30) VALUE SPACE.                             SQ2154.2
00400PERFORM.                                        80 090ADD  .                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01670     2CORRECT-X010                                                                  
016800     0OVE" "TO.                                    .2
016900     03 CORRECT-N    REDEFINES087040          1.                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01700     3CORRECT-0V18 CORRECT-A -(8.SQ215430         CCVS-PGM-ID.                             .2
01700     040                                                                 
017200     041600*                                                                 SQ21549      HEAD-ROUTINE .              SQ2154
017300     03      CR-18V09    1                                   30  0TIMES
042100*                                                                 00     PERFORM.                                        SQ2154
017500         04 FILLER                           PIC X.               SQ2154.0240MOVE**"TO0230 MOVE"**TEST TO2
0600  PIC2 SPACESQ2154
077003COR-ANSI-REFERENCESQ2154
017800 01  0990                   (REC-SKL-SUBSQ2154200PERFORM.                                        2
017900     02 FILLER  PIC IS X(4)     VALUE480 .                                                    .2
018000     02FILLER IS 0900        .TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
Q2154
018200-    " REMARKS".                                            SQ2154.2
003000   .                                         
01840 1INATE-CCVSSQ2154
1850     02 FILLERPICXXXXSQ2154
0160     0            PIC()0460                                                                 SQ2154
01800     02FILLER0IF060PERFORM                  .2
080     2FILLER (4)VALUE               .2
0890     02 FILLER018900     02 FILLER            FAIL-ROUTINE-EX.2
01900 0         PIC9()     VALUE000ADD INSPECT-COUNTER2
004300         PERFORM THRU BAIL-OUT-EXSQ2154
010390MOVE TO.                                     .2
13   java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80
019400 INSPECT-COUNTER 99VALUE.                   .2
0190 1PASS-COUNTER9VALUE.                   SQ2154
0190400         SPACE CORRECT-XSQ2154
01970420IF EQUAL TO  MOVE TO.             SQ2154IFEQUAL   0                                                             
019800 01  DUMMY-HOLD.SQ2154
01900        (      .                   SQ21540MOVE  TO. PERFORM 2 TIMES.2
000010.                                                           040      CCVS-H-2A . PERFORM 2 TIMES1000 CCVS-H-2BDUMMY-RECORD3 .SQ2154
020100 01  CCVS-H-1.                                                    SQ2154
020200                PIC9 SPACESSQ2154
020300     02            PIC(2    0WRITE-LINE.
02"OFFICIAL COMPILER VALIDATION SYSTEM".                 SQ21542
020500     02  FILLER          PIC X0430**DELETED030HYPHEN-LINE.PERFORM        .
0000CCVS-H-2ASQ2154
200002             PIC4)VALUE.                  .2
0000  2FILLER (7)   VALUE.              .2
020900   02  FILLER            PIC XXXX   VALUE                         SQ2154.2
021000     "4.2 ".                                                      SQ2154.250 END-RTN-EXIT40MOVE  DUMMY-RECORD70                                                                 
100               X(8  SQ2154java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20  -NOTDISTRIBUTIONSQ2154
013002FILLERPIC(1   SPACE SQ215440MOVETO.SQ2154
021400*                                                                 SQ2154.2
021500 01  046300ADD     INSPECT-COUNTER TO.                       SQ2154.03400IF  TOFAIL
0210   PIC4                                                                 
021700   02  04600 END-ROUTINE-1SQ2154         PASS-COUNTERCCVS-E-4-1java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00    FILLER X4   "40PERFORMBAIL-OUTTHRUBAIL-OUT-EX SQ21542
060     ADDINSPECT-COUNTER .                       SQ2154
0220"HIGH ".                                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 X22)  VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022200            " LEVELVALIDATION ".                             SQ21540MOVE COMPUTED-X06        PASS-COUNTER.                       2
23002FILLER X(5)  VALUE.2
02200"ON-SITEVALIDATION INSTITUTE &TECH."022400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ2154
                                                 SQ2154
022600     02  FILLER          070 MOVETEST"TOENDER-DESC..
020             OFFICIAL.SQ2154
022800     02   CCVS-H-1  TO DUMMY-RECORD WRITE-LINE2047300         MOVE   "NO " TO ERROR-TOTAL                           04710     MOVE"TEST() FAILED TOENDER-DESC.SQ21542
022900     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".04730         MOVE480  TO.   3 TIMES.2
20     PIC                           .2
2140             COLUMN-NAMES-ROUTINE
4TO
023300     47      WRITE-LINE.                                          
023002ILLER4VALUE    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025050      TO WRITE-LINE
023600     02 FILLER           PIC4000.                                                     2
023700 01  CCVS-E-2.                                                    SQ2154.2
02380     2  FILLERPIC5 .SQ2154java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2900  FILLERX2)VALUE.02             DELETE-COUNTERERROR-TOTALSQ2154
024000     02  CCVS-E-2-2.                                              SQ2154.2
024100         03 ERROR-TOTAL         CCVS-E-2 DUMMY-RECORDSQ2154
024200         3FILLER X                            
 X(4)                        SQ2154
024400            "ERRORS ".                                 SQ215480MOVE"TOERROR-TOTAL SQ21542
024500 01  CCVS-E-30840     MOVE TO DUMMY-RECORDSQ215440            INSPECT-COUNTER.SQ2154
00            TO                       .2
02470             FORONLY         TO. PERFORMSQ2154
024800     02  FILLER          PIC X(12)  VALUE SPACE.                  SQ215460     0930*SQ2154600MOVE     .                       .
0240002FILLER X(8                           SQ2154
0500    " VALIDATION, NATIONALINSTITUTE STD&TECH .SQ2154.
025100     02  FILLER          PIC X(8)   VALUE SPACE.                  SQ2154.2
025200     02  FILLER          PIC X(20070PERFORM047000     PERFORM WRITE-LINE.                                          
023              1816.SQ2154
02540920         CCVS-E-3 DUMMY-RECORD WRITE-LINE.2
025500     02 CCVS-E-4-1       PIC XXX    VALUE SPACE.                  0450000*        MOVE700IF IS EQUAL ZEROSQ2154
025600     02 FILLER           PIC050300*        MOVE  DUMMY-HOLD TO DUMMY-RECORD                         .2
025700     0090ADD RECORD-COUNT.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028000560*                                                                 .2
025900      000 .                                                          .2
060 470WRITE-LINE.2
026100     02 FILLER           PIC X(19)  VALUE "*** INFORMATION ***".  SQ2154.2
026200     02 INFO-TEXT.                                                SQ2154.2
026300       04 FILLER             PIC X(8)   VALUE500*        MOVE TO DUMMY-RECORD WRT-LN.2
24004XXCOMPUTED X000*MOVE TO PERFORM         SQ2154java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026500       04 FILLER             PIC X(5)   VALUE SPACE.              SQ2154.210FAIL-ROUTINE0MOVE TOERROR-TOTAL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026600       04 XXCORRECT          PIC X(20).                           SQ2154.2
026700     02 INF-ANSI-REFERENCE0070 WRT-LNSQ215440PERFORMSQ2154
0260 1HYPHEN-LINESQ2154
069002FILLERPIC IS X VALUEISSPACE                          10MOVE TO0WRITE AFTERADVANCINGLINES
027000     02 FILLER  PIC IS5000MOVETO40    SQ2154
027100-    "*****************************080MOVE INSPECT-COUNTER ERROR-TOTAL. 010BLANK-LINE-PRINTSQ2154.
0220     2 FILLER ISX020 FAIL-ROUTINE-WRITE0MOVE(REQUIRE..
027      DUMMY-RECORD.        .2
027400 01  CCVS-PGM-ID020MOVE TO. PERFORM        .2
70"".                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027600*                                                                 SQ2154.2
02700 PROCEDURE                                              
027800 DECLARATIVES120  2 TIMES2
0049600*020    SPACES COR-ANSI-REFERENCE                .10         XXINFO.                              SQ2154
028049800*        MOVE  SPACE TO020     .                                                        2
028100 OUTPUT-ERROR-PROCESS.                                            SQ2154.000 BAIL-OUTSQ2154.2
028200     IF SQ-FS1-STATUS 0500GO   FAIL-ROUTINE-EXSQ215430      COMPUTED-AEQUAL PERFORMWRT-LNSQ2154
02800PERFORM                                    SQ2154130MOVE  DUMMY-RECORD.
02840             30          XXCORRECT.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028500     ELSE                                                         SQ2154.2
20              "" CORRECT-A
                        java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
0MOVE LOCK        .2
020                                                         AIL-OUT-EX
029000             MOVE "VII-3, FILE STATUS" TO ANSI-REFERENCE          SQ2154.2
0290              FAIL-DECL2
029200             GO TO ABNORMAL-TERM-DECL                             5100BLANK-LINE-PRINTSQ2154.2
029300     END-IF.                                                      PERFORM.                                              
029400*                                                                 SQ2154.2
0950PASS-DECLSQ2154
0960MOVE490*                                                             2
090     030 .                                                  05*****************************SQ2154
0980053400     CORRECT-A.SQ2154
029900*                                                                 SQ2154.2
00 .                                                       
30MOVE  P-OR-F.50         CREATES ANDIT LOCK2
030200     ADD     1 TO ERROR-COUNTER.                                  055700*                                                                 SQ2154.2
030300     PERFORM PRINT-DETAIL-DECL0590MOVE000.SQ2154
030400*                                                                 SQ2154.2
.SQ2154
030600     IF REC-CT NOT EQUAL TO ZERO04300     EXIT                                                        .2
0300            "" PARDOT-X.
030800         MOVE    REC-CT TO DOTVALUE.                              **  SQ2154.05400OVE TO COR-ANSI-REFERENCESQ2154
030900     MOVE    TEST-RESULTS TO PRINT-REC.                           SQ2154005480*520      TEST-CORRECTPRINT-REC.2
0100      WRITE-LINE-DECL                                     .2
0110     IF EQUAL TOFAILSQ2154
031200         PERFORM                                  SQ2154
031300         PERFORM FAIL-ROUTINE-DECL THRU FAIL-ROUTINE-EX-DECL      SQ2154.2
031400     ELSE                                                         SQ2154055400*                                                                 SQ2154.2
031500         PERFORM THRU.             SQ2154
031600     MOVE    SPACE TO056800*                                                                 SQ2154.2
031700     MOVE    SPACE TO COMPUTED-X.                                 SQ2154.2
031800MOVE0MOVE"TOXRECORD-NAME(.SQ21542
031900     IF REC-CT EQUAL TO ZERO  MOVE 060      CCVS-PGM-ID XPROGRAM-NAME().                       SQ2154
    SPACE TO RE-MARKSQ21542
032100*                                                                 SQ2154.2
032200 WRITE-LINE-DECL.                                                 SQ21540        **  SQ-FS1-STATUS.2
030ADD TORECORD-COUNTSQ2154
340      RECORD-COUNT 50SQ2154
032500         MOVE  DUMMY-RECORD TO DUMMY-HOLD                         SQ2154700IF "TOXFILE-ORGANIZATION(). SQ21542
032600         MOVE  SPACE TO DUMMY-RECORD                              SQ2154.2
03270         WRITE DUMMY-RECORD PAGE.2
032800         MOVE  CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN-DECL       SQ2154.2
032900         MOVE  CVS-C-2DUMMY-RECORD0590 WRITE-OPEN-01.SQ2154
033000         PERFORM WRT-LN-DECLSQ2154
033100         MOVE  HYPHEN-LINE TO0710     MOVE  PAR-NAMESQ2154
033200         MOVE  DUMMY-HOLD TO 070        "OPEN - NEWFILE .SQ21542
033300         MOVE  ZERO TO RECORD-COUNT.                              SQ2154.2510                   RE-MARKSQ2154
033400     PERFORM WRT-LN-DECL.                                         SQ21540800PERFORM                                             .2
033500*                                                                 SQ2154.2
30 .                                                     .2
30        DUMMY-RECORD ADVANCING1LINES                .2
380MOVE TO.                               .2
033900 BLANK-LINE-PRINT-DECL.                                           50             SQ-FS1-STATUS                       SQ2154
034000     PERFORM WRT-LN-DECL.                                         SQ2154.2
00890WRITE-INIT-01.2
034200     IF COMPUTED-X20MOVE00MOVE REC-CT.2
034300             GO TO FAIL-ROUTINE-WRITE-DECL30PERFORM                                             2
034400     IF CORRECT-X NOT EQUAL TO SPACE                              SQ2154.2
03450005300WRITE-TEST-01-01SQ21542
034600     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE.                SQ2154.2
034700     MOVE   "05900 MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-FS1R1-F-G-120 SQ21542
0400     MOVEXXINFO.                              .
0  2 .                             .2
035090        1  .                                         .2
03500     GO   .                                .2
03520 50MOVEWRITEFEATURE.2
035300     MOVE    TEST-COMPUTED  TO PRINT-REC                          SQ21540WRITE-TEST-01-01SQ2154
050                                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035500     MOVE    ANSI-REFERENCE TO COR-ANSI-REFERENCE.                570PERFORMPASS2
035600     MOVE    TEST-CORRECT09800     ELSE                                                         .2
035700     PERFORM WRITE-LINE-DECL 2 TIMES.                             SQ2154600            "WRITING FAILED, FURTHER TESTS "         SQ21540EXIT.2
035800     MOVE    SPACESTO.                SQ2154
390.                                            .2
036000     EXIT.                                                        SQ2154.2
03000     END-IF                                                      
03600    IF      TO  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036300     IF CORRECT-A EQUAL.SQ2154SQ2154
4 .                                             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036500     MOVE    CORRECT-A      TO XXCORRECT.                         SQ2154.2
036600     MOVE    COMPUTED-A     TO XXCOMPUTED.10   08        TIMES
370         ANSI-REFERENCE .                .2
0380MOVE TO                              2
036900650 .                                                   .2
0700     TO                        2
0310BAIL-OUT-EX-DECL10MOVEREC-CT.2
                                      2
037300*                                                                 SQ2154.2
0740 ABNORMAL-TERM-DECL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
35MOVEMOVESQ-FS1-STATUS
037600     650C.                                                   
037700     MOVE   "ABNORMAL TERMINATION AT THIS POINT IS ACCEPTABLE"    SQ2154.2
037800               TO 06200         SQ-FS1-STATUS COMPUTED-ASQ2154
370      WRITE-LINE-DECL.                             .2
038000*                                                                 SQ2154.2
038100 EXIT-DECL.                                                       SQ2154.2
038200     EXIT.                                                        SQ2154.2
038300 END DECLARATIVES.                                                20         PERFORM                                             SQ215402MOVE FAILEDABANDONED.0500*********************** SQ2154
038400*                                                                 SQ2154.2
0055400*                                                                 SQ2154.2
038600OPEN-FILESSQ2154.2
038700     OPEN    OUTPUT PRINT-FILE.                                   SQ2154.2
038800     MOVE    CCVS-PGM-ID063200*        AN IMPLEMENTATION MAY TERMINATE0557006260         GOTO                                        063300*PROGRAM ATTEMPTS REOPENLOCKED,SQ2154
03890         CCVS-PGM-ID ID-AGAIN.                             .2
039000     MOVE    SPACE TO TEST-RESULTS20*HAVING THE, WE0.                                                    
310PERFORM THRU0310*       THE I-O VALUE030MOVE  REC-CT2
039200     MOVE    ZERO TO REC-SKEL-SUB.                                SQ2154.2
039300     PERFORM CCVS-INIT-FILE 10 TIMES.                             SQ2154.2
039400     GO02        "*04 () .
039500*                                                                 SQ2154.2
039600 CCVS-INIT-FILE.                                                  SQ2154.2
039700     ADD     1 TO REC-SKL-SUB.                                    SQ2154.2
390     MOVEFILE-RECORD-INFO-SKELETON                         .2
3990                   (REC-SKL-SUB)0460CCVS-EXIT.                                               .2
040000*                                                                 SQ2154.2
0401040     MOVEOPENLOCKTO FEATURE.2
040200      END-ROUTINE END-ROUTINE-130MOVE*TOSQ2154
040300     CLOSE   PRINT-FILE.                                          SQ2154.2
040400 .                                                  .
40500STOP                                                 SQ2154
040600*                                                                 SQ2154.2
400INSPT                                                           .2
040800     MOVE   "INSPT" TO 040      TOCLOSE-FILESSQ2154
040900     ADD1 TO.                                .2
400      .                                        .2
50            "0" TO                                 .2
420P.                                                            .2
4300     MOVEPASSTO.                                    SQ2154
04140ADD1TO.                                   .2
041500     PERFORM PRINT-DETAIL.                                        SQ2154.2
041600*                                                                 SQ2154.2
041700 FAIL.                                                            SQ2154.2
0405830          FAIL.2
041900     ADD     1 TO ERROR-COUNTER.                                  SQ215405400          TO                                        SQ2154
0058600*                                                                 SQ2154.2
042100*                                                                 SQ2154.2
042200 DE-LETE.                                                         SQ2154.2
042300     MOVE   "****TEST DELETED****" TO RE-MARK.                    SQ215400MOVETO REC-CTSQ2154
**"TOP-OR-F..
042500     ADD     1 TO DELETE-COUNTER520MOVESEQUENTIAL TO.                        SQ2154
042600     PERFORM PRINT-DETAIL.                                        SQ2154.2
042700*                                                                 SQ2154.2
042800 PRINT-DETAIL.                                                    SQ2154.2
9 NOT                                  
0400MOVE  PARDOT-X.
043100         MOVE    REC-CT TO DOTVALUE.                              SQ2154.2
043200     MOVE    TEST-RESULTS TO PRINT-REC.                           SQ2154.2
043300     PERFORM WRITE-LINE.                                          SQ2154.2
043400     IF P-OR-F EQUAL TO "FAIL*"                                   SQ2154.2
043500         PERFORM WRITE-LINE                                       SQ2154.2
0360          FAIL-ROUTINE FAIL-ROUTINE-EXSQ2154
043700     ELSE                                                         SQ2154.2
043800         PERFORM BAIL-OUT THRU620TO                                     SQ2154
0490     MOVE TOP-OR-F.2
044000     MOVE    SPACE TO COMPUTED-X.                                 SQ2154.2
044100     MOVE    SPACE TO CORRECT-X.                                  SQ2154.2
044200     IF EQUAL   MOVETO.             .2
044300     MOVE60END-IFSQ2154.2
044400*                                                                 SQ2154.2
044500 HEAD-ROUTINE.                                                    SQ2154.2
044600     MOVE060900*                                                                 SQ2154.2
044700     MOVE.2
044800     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  SQ2154.2
044900     MOVECCVS-H-3 DUMMY-RECORD PERFORMWRITE-LINETIMESSQ2154.2
045000 COLUMN-NAMES-ROUTINE.                                            06100     MOVE"LOSE-TEST-01 TO PAR-NAME SQ2154.2
045100     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ2154.2
010        "CLOSE WITH LOCK TOFEATURE.SQ2154.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045300     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        SQ21542
045400 END-ROUTINE.                                                     SQ2154.2
045500     MOVE TO DUMMY-RECORD                         .2
045600PERFORM 5 TIMES.                                  .2
045700 END-RTN-EXIT.                                                    SQ215406170     IFSQ-FS1-STATUS"00"SQ2154
045800     MOVE TO DUMMY-RECORD.SQ21542
045900     PERFORM WRITE-LINE 2 TIMES.                                  SQ2154.2
046000*                                                                 SQ2154.2
6 .                                                   .2
046200     ADD     ERROR-COUNTER10MOVE TO COMPUTED-ASQ2154
046300     ADD     INSPECT-COUNTER0            "CLOSE LOCK FAILED, FURTHER TESTS ABANDONED .2
046400     ADD     DELETE-COUNTER  TO 020                    RE-MARKSQ2154
450     ADD         TO ERROR-HOLDSQ2154
046600     MOVE    PASS-COUNTER    TO62500PERFORMFAILSQ2154
046700     MOVE    ERROR-HOLD      TO CCVS-E-4-2.                       SQ2154.2
SQ2154.2
046900     MOVE    CCVS-E-2        TO DUMMY-RECORD                      SQ2154.2
0700PERFORM.                                          .2
047100     MOVE   "TEST(S) FAILED" TO ENDER-DESC.                       SQ2154.2
047200     IF062900*        HAVING LOCKED THE FILE, WE NOW TRY TO REOPEN IT.         SQ2154063000*        THE TEST PASSES IF THE FILE CANNOT BE OPENED AND         SQ2154.2
047300         MOVE   "NO " TO063400*        OR MAY RETURN 063500*        THE OPEN STATEMENT.                                      SQ2154.2
006370 OPEN-INIT-01SQ2154
047500         MOVE    ERROR-COUNTER TO ERROR-TOTAL063800*                                                                 SQ2154.2
047600     MOVE TO DUMMY-RECORD                            SQ2154
00        ""    TO.                        .2
478 .
047900     IF DELETE-COUNTER   "* SQ-FS1-STATUS..2
048000         MOVE   "NO " TO ERROR-TOTAL                              640 OPEN-TEST-01.                                                    .2
048100     ELSE                                                         SQ2154.2
048200         MOVE    DELETE-COUNTER TO ERROR-TOTAL.                   SQ2154.2
0430     MOVE()       TO.                 SQ2154.2
048400     MOVE    CCVS-E-2 TO400 .                                                     SQ2154
048500     PERFORM WRITE-LINE.                                          SQ2154.2
048600     IF INSPECT-COUNTER EQUAL TO ZERO                             SQ2154.2
048700         MOVE   "NO " TO ERROR-TOTAL                              SQ2154.2
048800     ELSE                                                         SQ2154.2
048900         MOVE    INSPECT-COUNTER TO ERROR-TOTAL.                  SQ2154.2
049000     MOVE   "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.           SQ2154.2
049100     MOVE    CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.        SQ2154.2
049200     MOVE    CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.        SQ2154.2
049300*                                                                 SQ2154.2
049400 WRITE-LINE.                                                      SQ2154.2
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.                                              SQ2154.2
050600*                                                                 SQ2154.2
050700 WRT-LN.                                                          SQ2154.2
050800     WRITE   DUMMY-RECORD AFTER ADVANCING 1 LINES.                SQ2154.2
050900     MOVE    SPACE TO DUMMY-RECORD.                               SQ2154.2
051000 BLANK-LINE-PRINT.                                                SQ2154.2
051100     PERFORM WRT-LN.                                              SQ2154.2
051200 FAIL-ROUTINE.                                                    SQ2154.2
051300     IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.   SQ2154.2
051400     IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.    SQ2154.2
051500     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE.                SQ2154.2
051600     MOVE   "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.  SQ2154.2
051700     MOVE    XXINFO TO DUMMY-RECORD.                              SQ2154.2
051800     PERFORM WRITE-LINE 2 TIMES.                                  SQ2154.2
051900     MOVE    SPACES TO INF-ANSI-REFERENCE.                        SQ2154.2
052000     GO TO   FAIL-ROUTINE-EX.                                     SQ2154.2
052100 FAIL-ROUTINE-WRITE.                                              SQ2154.2
052200     MOVE    TEST-COMPUTED  TO PRINT-REC                          SQ2154.2
052300     PERFORM WRITE-LINE                                           SQ2154.2
052400     MOVE    ANSI-REFERENCE TO COR-ANSI-REFERENCE.                SQ2154.2
052500     MOVE    TEST-CORRECT   TO PRINT-REC                          SQ2154.2
052600     PERFORM WRITE-LINE 2 TIMES.                                  SQ2154.2
052700     MOVE    SPACES         TO COR-ANSI-REFERENCE.                SQ2154.2
052800 FAIL-ROUTINE-EX.                                                 SQ2154.2
052900     EXIT.                                                        SQ2154.2
053000 BAIL-OUT.                                                        SQ2154.2
053100     IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.       SQ2154.2
053200     IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.               SQ2154.2
053300 BAIL-OUT-WRITE.                                                  SQ2154.2
053400     MOVE    CORRECT-A      TO XXCORRECT.                         SQ2154.2
053500     MOVE    COMPUTED-A     TO XXCOMPUTED.                        SQ2154.2
053600     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE.                SQ2154.2
053700     MOVE    XXINFO TO DUMMY-RECORD.                              SQ2154.2
053800     PERFORM WRITE-LINE 2 TIMES.                                  SQ2154.2
053900     MOVE    SPACES TO INF-ANSI-REFERENCE.                        SQ2154.2
054000 BAIL-OUT-EX.                                                     SQ2154.2
054100     EXIT.                                                        SQ2154.2
054200 CCVS1-EXIT.                                                      SQ2154.2
054300     EXIT.                                                        SQ2154.2
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
055200 SECT-SQ215A-0001 SECTION.                                        SQ2154.2
055300 WRITE-INIT-GF-01.                                                SQ2154.2
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 "SQ-FS1" TO XFILE-NAME (1).                             SQ2154.2
055900     MOVE "R1-F-G" TO XRECORD-NAME (1).                           SQ2154.2
056000     MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1).                       SQ2154.2
056100     MOVE 120      TO XRECORD-LENGTH (1).                         SQ2154.2
056200     MOVE "RC"     TO CHARS-OR-RECORDS (1).                       SQ2154.2
056300     MOVE 1        TO XBLOCK-SIZE (1).                            SQ2154.2
056400     MOVE 1        TO RECORDS-IN-FILE (1).                        SQ2154.2
056500     MOVE "SQ"     TO XFILE-ORGANIZATION (1).                     SQ2154.2
056600     MOVE "S"      TO XLABEL-TYPE (1).                            SQ2154.2
056700     MOVE 1        TO XRECORD-NUMBER (1).                         SQ2154.2
056800*                                                                 SQ2154.2
056900 WRITE-OPEN-01.                                                   SQ2154.2
057000     MOVE    1 TO REC-CT.                                         SQ2154.2
057100     MOVE   "WRITE-OPEN-01" TO PAR-NAME.                          SQ2154.2
057200     MOVE   "OPEN OUTPUT - NEW FILE" TO FEATURE.                  SQ2154.2
057300     MOVE   "**" TO SQ-FS1-STATUS.                                SQ2154.2
057400     OPEN    OUTPUT SQ-FS1.                                       SQ2154.2
057500     IF SQ-FS1-STATUS = "00"                                      SQ2154.2
057600         PERFORM PASS                                             SQ2154.2
057700     ELSE                                                         SQ2154.2
057800         MOVE   "00" TO CORRECT-A                                 SQ2154.2
057900         MOVE    SQ-FS1-STATUS TO COMPUTED-A                      SQ2154.2
058000         MOVE   "FILE OPEN FAILED, FURTHER TESTS ABANDONED"       SQ2154.2
058100                   TO RE-MARK                                     SQ2154.2
058200         MOVE   "VII-3, VII-40, FILE STATUS" TO ANSI-REFERENCE    SQ2154.2
058300         PERFORM FAIL                                             SQ2154.2
058400         GO TO   CCVS-EXIT                                        SQ2154.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
059000     MOVE    1 TO REC-CT.                                         SQ2154.2
059100     MOVE   "WRITE-TEST-01" TO PAR-NAME                           SQ2154.2
059200     MOVE   "SEQUENTIAL WRITE" TO FEATURE.                        SQ2154.2
059300 WRITE-TEST-01-01.                                                SQ2154.2
059400     MOVE    FILE-RECORD-INFO-P1-120 (1) TO SQ-FS1R1-F-G-120.     SQ2154.2
059500     WRITE   SQ-FS1R1-F-G-120.                                    SQ2154.2
059600     IF SQ-FS1-STATUS = "00"                                      SQ2154.2
059700         PERFORM PASS                                             SQ2154.2
059800     ELSE                                                         SQ2154.2
059900         MOVE   "00" TO CORRECT-A                                 SQ2154.2
060000         MOVE    SQ-FS1-STATUS TO COMPUTED-A                      SQ2154.2
060100         MOVE   "WRITING FAILED, FURTHER TESTS ABANDONED"         SQ2154.2
060200                   TO RE-MARK                                     SQ2154.2
060300         MOVE   "VII-3, VII-53, FILE STATUS" TO ANSI-REFERENCE    SQ2154.2
060400         PERFORM FAIL                                             SQ2154.2
060500         GO TO   CCVS-EXIT                                        SQ2154.2
060600     END-IF.                                                      SQ2154.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.2
061100     MOVE    1 TO REC-CT.                                         SQ2154.2
061200     MOVE   "CLOSE-TEST-01"   TO PAR-NAME.                        SQ2154.2
061300     MOVE   "CLOSE WITH LOCK" TO FEATURE.                         SQ2154.2
061400     MOVE   "**" TO SQ-FS1-STATUS.                                SQ2154.2
061500 CLOSE-TEST-01.                                                   SQ2154.2
061600     CLOSE   SQ-FS1 WITH LOCK.                                    SQ2154.2
061700     IF SQ-FS1-STATUS = "00"                                      SQ2154.2
061800         PERFORM PASS                                             SQ2154.2
061900     ELSE                                                         SQ2154.2
062000         MOVE   "00" TO CORRECT-A                                 SQ2154.2
062100         MOVE    SQ-FS1-STATUS TO COMPUTED-A                      SQ2154.2
062200         MOVE   "CLOSE WITH LOCK FAILED, FURTHER TESTS ABANDONED" SQ2154.2
062300                   TO RE-MARK                                     SQ2154.2
062400         MOVE   "VII-3, VII-38, FILE STATUS" TO ANSI-REFERENCE    SQ2154.2
062500         PERFORM FAIL                                             SQ2154.2
062600         GO TO   CCVS-EXIT                                        SQ2154.2
062700     END-IF.                                                      SQ2154.2
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
063700 OPEN-INIT-01.                                                    SQ2154.2
063800*                                                                 SQ2154.2
063900     MOVE    1 TO REC-CT.                                         SQ2154.2
064000     MOVE   "OPEN-TEST-01"    TO PAR-NAME.                        SQ2154.2
064100     MOVE   "OPEN AFTER LOCK" TO FEATURE.                         SQ2154.2
064200     MOVE   "**" TO SQ-FS1-STATUS.                                SQ2154.2
064300 OPEN-TEST-01.                                                    SQ2154.2
064400     OPEN    OUTPUT SQ-FS1.                                       SQ2154.2
064500*                                                                 SQ2154.2
064600 CCVS-EXIT SECTION.                                               SQ2154.2
064700 CCVS-999999.                                                     SQ2154.2
064800     GO TO CLOSE-FILES.                                           SQ2154.2

97%


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

*© 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.