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

Quelle  sq222a.cob   Sprache: Cobol

 
1                                         .2
000200 PROGRAM-ID0050                                                              .2
000300     SQ222A00000800*                                                              *  SQ2224.2
000400****************************************************************  SQ2224.2
000500*                                                              *  SQ2224.2
000600*    VALIDATION FOR:-                                          *  SQ2224.2
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ2224.2
000800*                                                              *  SQ2224.2
000900*    CREATION DATE     /     VALIDATION DATE                   *  SQ2224.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ2224.2
001100*                                                              *  SQ2224.2
001200*        THIS ROUTINE CHECKS:                                     SQ2224.2
001300*                                                                 SQ2224.2
001400*           RECORD    VARYING.                                    SQ2224.2
001500*                                                                 SQ2224.2
001600*        THIS ROUTINE BUILDS A SEQUENTIAL MASS STORAGE FILE       SQ2224.2
001700*    WHICH CONTAINS BOTH 120 CHARACTER AND 151 CHARACTER          SQ2224.2
001800*    RECORDS.  THE MASS STORAGE FILE CONSISTS OF 1 SHORT,         SQ2224.2
001900*    1 LONG, 10 SHORT, 100 LONG, AND 338 SHORT RECORDS FOR        SQ2224.2
002000*    A TOTAL OF 450 RECORDS IN THE FILE.  THE MASS STORAGE        SQ2224.2
002100*    FILE IS READ AND FIELDS IN THE RECORDS ARE CHECKED           SQ2224.2
002200*    AGAINST THE EXPECTED VALUES.                                 SQ2224.2
002300*                                                                 SQ2224.2
002400*        AN INFORMATION SECTION AT THE END OF THE ROUTINE         SQ2224.2
002500*    CHECKS THE FIELD WHICH CONTAINS THE XRECORD-NUMBER.          SQ2224.2
002600*    THIS FIELD IS PART OF A LONG RECORD ONLY.  IF THE            SQ2224.2
002700*    XRECORD-NUMBER IS THERE FOR A SHORT RECORD, IT MEANS         SQ2224.2
002800*    THE MAXIMUM SIZE RECORD IS ALWAYS WRITTEN.                   SQ2224.2
090ENVIRONMENTSQ2224
003000 0000CONFIGURATIONSECTIONSQ2224
003100 SOURCE-COMPUTER.                                                 SQ2224.2
003200     Card0130.                                                    20Card0130.                                                    2
003300030INPUT-OUTPUT.                                            java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
003400     Card0131.                                                    020      PRINT-FILE  TOSQ2224
SQ2224.2
003600 00390             IS INDEXED                               .2
003700     SELECT RAW-DATA   ASSIGN TO                                  SQ2224.2
003800     "C0098"                                                      SQ2224.2
003900            ORGANIZATION IS00440     SELECT ASSIGN TO                                      .2
004000            ACCESS MODE040     ORGANIZATION                                      .SQ2224
004100            RECORD KEY IS RAW-DATA-KEY90  SECTIONSQ22242
020     SELECT ASSIGNTOSQ2224
030"" .                                                    .2
004400     SELECT050   RAW-DATASQ2224
004500     "0040FILE SECTION. SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0400     SEQUENTIAL2
004700     ACCESS SEQUENTIAL.                                           SQ2224.2
004800 DATA DIVISION.                                                   SQ2224020SQ2224.2
040FILESECTION.                                                    .0540    5          PIC().SQ2224
050                                                                  SQ22245     0PIC SQ2224
005100 FD  RAW-DATA.                                                    SQ2224.2
0020                                                                  0800  C-OKPIC9.                             .2
005300 01  RAW-DATA-SATZ0     5C-FAIL 99                             .010        PIC.SQ22242
005400     05  RAW-DATA-KEY        PIC X(6).                            SQ2224.2
005500     05  C-DATE              PIC 9(6).                            SQ2224.04005C-INDENT X                               .2
00     5C-TIME (060     ABEL                                                2
0070     0         PIC9030     5 C-NOTE               (3.                           2
005                99.                             .2
00590     5C-ALLPIC9SQ2224.2
006000     05  C-FAIL              PIC 999.                             SQ2224.2
006100     05  C-DELETED           PIC 999.                             SQ2224.2
006200     05  C-INSPECT           PIC 999.                             SQ2224.2
0030      PIC3                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00400  C-INDENT.SQ2224
0600     5C-ABORT X()                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006600 FD  PRINT-FILE01PRINT-REC70     2 ICTURE10).java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000(                              
006800     Card01320SQ-VS7-FILLER (1)                            .2
00690     DATA IS DUMMY-RECORD.2
007000               0730 FDSQ-VS7SQ2224.2
007100 01  PRINT-REC PICTURE X(120).                                    SQ2224.2
0700   PICTUREX()                                 2
70   SQ-VS7SQ2224.2
0006000  SQ-VS7R1-M-G-120                                            SQ2224
5             .                                          Q2224
007600 0  .                                            0  EOF-FLAGPICTURESQ2224.
PICTURE2).SQ2224
070   0  PICTURE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020030WORKING-STORAGE.SQ2224
008000     02  LONG-OR-SHORT  PICTURE X(5).                             SQ22241  PICTUREVALUE.                .2
1002 SQ-VS7-RECNO  PICTUREX().                              .2
00820     02SQ-VS7-FILLERPICTURE(2).                            SQ2224
08000505 PICTURE4)VALUESQ2224.2
008400 01  SAVE-COUNT-OF-RECS  PICTURE X(5) VALUE088001EOF-FLAG9.2
008501   PICTURE9 0 4       .
008600 01  RECORDS-IN-ERROR  08             "ODO00,= ,LRECL00BLKSIZ =00"    .2
.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008800 0101009 1SQ2224
080 1DUMP-AREA00 java.lang.StringIndexOutOfBoundsException: Range [80, 78) out of bounds for length 80
009000     02  TYPE-OF-REC50                  ()             SQ2224=0=00        5PICTURE       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
SQ2224
009200     02  REC-FILLER PICTURE X(21).                                SQ2224180     0 FILE-RECORD-INFOOCCURSTIMES10"LFIL000ORG,= ".                        .2
0001java.lang.StringIndexOutOfBoundsException: Range [39, 38) out of bounds for length 80
009400     03 FILE-RECORD-INFO-SKELETON.                                SQ2224.2
00950005FILLER100           7FILLER              PIC()                       2
00960"= ,ECORD /,=000000,UPDT=0000"ALTKEY1.SQ2224
009700        05 FILLER                 PICTURE X(46)       VALUE       SQ22240       5FILLERPICTURE(8       ALUE.2
009800             ,ODO10           0XRECORD-NAMEPIC6.SQ2224
001080003           OCCURS  1  TIMESSQ2224
10",=00000001107 PIC X(6. SQ2224.2
010100        050120           0                X(8)                       .2
010200             ,=                             SQ2224
000         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010400             ",ALTKEY1= SQ2224.2
10                           X(38)       VALUE       SQ2224.2
0100             ALTKEY2            SQ222420200           7FILLERPIC().                      SQ2224
0 05FILLERPICTURE7         SPACE.2
0102
010900        05 FILE-RECORD-INFO-P1-120.                               SQ2224014 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011000           07 FILLER              PIC X(5).                       SQ2224007FILLER X(7).SQ2224
011100           07 XFILE-NAME           PIC X(6)110          PIC0                          X1 SQ2224
012           7                                      2
100 XRECORD-NAMEPICX6.SQ2224
011400           07 FILLER              PIC X(1).                       SQ2224.2
015007 REELUNIT-NUMBERPIC ()                       .2
011600           07 FILLER12400           07 FILLER              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
607FILLERPIC..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
08007FILLERPIC6.SQ22240        F.SQ2224
0119170          0                X)                       .2
020           7FILLER X()                       .2
10           PIC4.SQ2224
012200           07 FILLER900                X9.SQ2224
012300           110           0                           2
012400           07 FILLER              PIC X(7).                       SQ2224              PIC64           7ALTERNATE-KEY2X)                      2
015012500           PICTURE SPACE
00               PIC(.SQ2224
1700     PIC02 XVALUE          .2
020012800           F              PICX(6)                       .2
029           7 XBLOCK-SIZE9().2
013000           07 FILLER              PIC X(6).                       SQ2224.2
013100           07 RECORDS-IN-FILE137007 FILLERPIC(8)                       .2
013200           07 FILLER              PIC X(5).                       3800 XRECORD-KEY          PIC                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013300           07 XFILE-ORGANIZATION   PIC X(2).                      SQ222450     2FILLER (10 VALUE.                             .2
5 0 .2
500   3)VALUESQ22240FILLERXSPACE.2
013600        05 FILE-RECORD-INFO-P121-240.                             SQ2224                    PICTURE09     2PIC ALUE                .
013700           07 FILLER              PIC X(8).                       SQ222460     0  PICTURE()99).SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30           7PIC2)                    .2
190          FILLERPICX9)                       Q22242
10           07  PIC9.                     2
04           4       F PIC .SQ2224
01420050     2FILLER16003PIC0VALUE.                             .2
01300 FILLER00PIC1.SQ2224java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014400 01  TEST-RESULTS.                                                50 1TEST-COMPUTED.SQ2224.2
014500     02 FILLER01500     0 FILLERPICX(30)070002 FILLER  (0 ALUE                             .
014600     000002 .                                               .2
047     0FILLER   SPACE.
0040     3CORRECT-A X(0) VALUE SPACE.2
014900     02 FILLERPICTURE1500   CORRECT-APICTURE REDEFINES    PICTURE.(8.30     3REDEFINES   .98)      2
10     0PAR-NAMESQ2224
015100       03 FILLER PICTURE X(12) VALUE SPACE.                       SQ2224.2
015200       03  PARDOT-X09003      REDEFINES.                         SQ222460     0 OMPUTED-14V4REDEFINES PICTURE14).()  .2
170         4FILLER X            2
1400  PIC(5)VALUE SPACESQ2224
015500     02 FILLER1600         C-1.2
015600     02 RE-MARK X(1.SQ222480 0FILLER  (9)VALUE  FEATURE.
015700 01  TEST-COMPUTED.                                               80-    SS SQ2224
015800     02 FILLER PIC X(30) VALUE SPACE.                             SQ2224.2
019     0 PIC1)V" COMPUTED="                2
016000     02 COMPUTED-X.                                               SQ2224.2
6      IS SPACESQ2224
016200     03 013002CORRECT-XSQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
60003019002PICTURE X()VALUE " SQ2224..
016400     03 COMPUTED-4V14900150  EDEFINES-()9.SQ2224
1600REDEFINES  PICTURESQ2224java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01600     3CM-18V0 COMPUTED-ASQ2224
016700         04 COMPUTED-18V0                   094000  REC-SKL-SUB PICTURE()VALUE7803CORRECT-14V4     PICTURE91)9.SQ2224
060                                     .2
016900     03 FILLER0800         0 CORRECT-18V0                     -9(8).SQ2224
SQ2224
017100     02 FILLER PIC X(30) VALUE018200     03 FILLER PIC X(50) VALUE .                             .2
10     02 ILLERX17)  " CORRECT =.SQ2224.2
017300     02 CORRECT-X.                                                SQ222413001  CCVS-C-1                                                    SQ2224.2
017400     03 CORRECT-A    PICVALUESQ2224
100360            REMARKS2
016 CORRECT-0V18     PICTURE1)      .2
017700     03 CORRECT-4V1412 1  DUMMY-HOLD X(120 VALUE SPACESQ22242
078000 2001  PIC5VALUESQ22242
0040 0  .                                                    SQ2224
0180004 CORRECT-18V0                     -918).SQ2224
018100         04 FILLER                          90     FILLER  X1 VALUEPICTURE6)VALUESQ2224
020     0FILLER (0)VALUE.                             .2
018300 01  CCVS-C-1.  X9VALUE                   .2
020902FILLERPICTURE140 1REC-SKL-SUB 9(2 VALUE.                         SQ2224
150    SS.
018600-    " REMARKS".                                           10     CCVS85,  ISTRIBUTION6001                    9 VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
X2 VALUESPACESQ2224
018800 01  CCVS-C-2.                                                    SQ222410 1 CCVS-H-3.                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
900 FILLERPICTURE X VALUE .                       0100     2   PICTURE(8)VALUESQ2224
01000 PICTURE()VALUE""                 2
09002FILLER ISX1)VALUE SPACESQ2224
019200     02 FILLER PICTURE IS X(4003      COPYRIGHT85".SQ2224
1300  PICTUREISX94 VALUE0  CCVS-E-1SQ2224
000     220     02FILLERIS
9     99VALUE.                                2
10 01DELETE-CNT99 VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019700 01  ERROR-COUNTER0 1CCVS-H-2SQ22242
0800   PIC9VALUE.                          .2
20 110       ,
020000 01  TOTAL-ERROR PIC02FILLER IS4)VALUE                   .2
10 1ERROR-HOLD99VALUE.                               SQ2224
020200 01  DUMMY-HOLD PIC X(120) VALUE SPACE.                           SQ2224.2
000 1RECORD-COUNT ()VALUE.                            .2
024001CCVS-H-10     CCVS-E-2-2                                               2
05002FILLER X(7VALUE.SQ2224
020600     02 FILLER PICTURE X(67) VALUE                                SQ2224.2
00"SOFTWARE CENTERCOBOLCOMPILERVALIDATION .2
020222701  CCVS-E-3SQ2224.2
0209020001  CCVS-E-1                                                    .
021000 01  CCVS-H-2.                                                    0250     0 FILLER PICTUREIS X14030       FFICIALONLY.2
0202700   X24002    (8VALUE
2 FSTCNOTFOR.2
021300     02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS 040 0 FILLER PICTURE (20"NTIS COBOL8.SQ2224
021400     02 TEST-ID PICTURE IS X(9).                                  00401 CCVS-E-4                                                    
021500     02 FILLER4002 CCVS-E-4-2 VALUE.                           .2
01600  CCVS-H-3                                                    SQ2224
021700     02  FILLER PICTURE X(34) VALUE                               25000      "  TESTS WERE EXECUTED SUCCESSFULLY".                       SQ2224
LY
0       FILLER27001CCVS-E-3.2
022000     "COBOL 85 VERSION 4.2,2300 INFO-TEXT. SQ2224.2
022100     02  FILLER2900      FOR USE".SQ2224.2
020        9 .                                      00  FILLER ()VALUE SQ2224
02java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022400     02 FILLER,  STD java.lang.StringIndexOutOfBoundsException: Range [22, 12) out of bounds for length 80
022500     02 FILLER PICTURE5 1CCVS-E-4.                                                    .2
022600     02 ID-AGAIN PICTURE IS X(9).                                 SQ2224     2FILLER IS5)  IS"************SQ2224.
 (5IS.2
022800     " NTIS DISTRIBUTION COBOL 85".                               SQ2224.2
                               2
023000     02  40 PIC                                   .2
023100     SPACE.                                                       SQ2224.2
023200      ".SQ22242
0233280 .                                                      
0400  PICTURE VALUE.            .2
.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 3PIC  ENCOUNTERED2
023700 01  CCVS-E-3.                                                    SQ2224.2
0380     0 ( SQ2224
023900     " FOR OFFICIAL USE ONLY".                                    SQ2224.2
INVALID  TO.SQ2224
04000.2
270      RAW-DATA                                              
024300     00      CCVS-PGM-ID TEST-ID27     0XXCORRECT2)SQ2224
024400     02 FILLERjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024500 01  CCVS-E-40290002 FILLERPICTURE ISVALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02600 CCVS-E-4-1SQ2224
00627     FILE-RECORD-INFO-SKELETONSQ2224
00280FILE-RECORD-INFO202  5 "**********.2
024900     02 FILLER PIC X(40) VALUE                                    0.SQ2224
025000      " TESTS WERE EXECUTED SUCCESSFULLY".                       SQ2224.2
0500  XINFOSQ2224
02520260PROCEDURE.                                              .2
023     2INFO-TEXTSQ2224
02230OPEN RAW-DATA280.                                                      
50 PIC SQ2224
025600     0200      CCVS-PGM-ID9      INVALIDT .                     2
020     4XXCORRECT 0.                                      
050 1 .                                                 0      ABORTEDC-ABORT.
025900     0070     ADD  C-NO-OF-TESTS.2
026000     02 FILLER PICTURE IS X(65) VALUE IS "**********.2
0java.lang.StringIndexOutOfBoundsException: Range [16, 11) out of bounds for length 80
026200     270          000  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20    *4      ..2
06000   PIC                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
5"".SQ2224
" P-OR-F.ADD1TOINSPECT-COUNTER .2
00CCVS1.                                                   SQ2224.2
026800 OPEN-FILES.                                                      SQ2224.2
0690OPEN java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
027000     MOVE CCVS-PGM-ID TO RAW-DATA-KEY      "** DELETED*"TO.                      .2
027100     READ RAW-DATAFILE-RECORD-INFO).                 .1     REC-CT Z                                 .
027200     MOVE "ABORTED " TO70MOVEREC-CT  DOTVALUE.2
0230ADD   1     MOVE TOPERFORM      .2
00        FROMDATE.                                    SQ2224.2
027500     900PERFORM THRU END-ROUTINE-13300         FAIL-ROUTINE FAIL-ROUTINE-EX2
02760REWRITE INVALID  TO.             .090     OPEN .SQ2224
070 .                                                         
0700CLOSERAW-DATA                                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030           EQUALZERO06     MOVEOKTO9MOVE TOC-OK.2
 EST-ID TO.   .2
028100     MOVE    SPACE .                                                    
022       HEAD-ROUTINE .             SQ2224
3  ZERO.                                    2
0240PERFORM TIMES COLUMN-NAMES-ROUTINE.2
080 .                                                  
028600     ADD 1 TO REC-SKL-SUB.                                              HYPHEN-LINE 30 TOC-INSPECT2
0320REWRITE  KEY WRITE-LINESQ2224
003END-E-2.2
02890CCVS-INIT-EXITSQ2224
029000     GO TO CCVS1-EXIT.                                            30500 TERMINATE-CCVS.                                                  SQ2224
900 CLOSE-FILES.                                                    SQ2224.030MOVETO .PERFORM WRITE-LINE  TIMES.  SQ2224.
020    PERFORM END-ROUTINETHRU END-ROUTINE-13.CLOSEPRINT-FILE   SQ22242
029300     OPEN I-O RAW-DATA.                                           SQ2224.2
029400     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            SQ2224.1 .   FAIL TO P-OR-F.4  TOERROR-HOLDjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029500     READ RAW-DATA INVALID KEY GO TO END-E-2.                     SQ2224.2
029600     MOVE "OK.     " TO C-ABORT.                                  SQ2224.2
010PRINT-DETAIL                                                    
029800     MOVE ERROR-HOLD   TO C-ALL00END-ROUTINE-12                                                 2
029900     MOVE ERROR-COUNTER               TO .                             SQ2224.2
030000     MOVE DELETE-CNT TO C-DELETED.                                SQ2224.2
030100     MOVE INSPECT-COUNTER TO C-INSPECT3520MOVEERROR-COUNTERTO03210  BAIL-OUT-EX.                 .2
0320REWRITEINVALIDKEYGOTO .SQ2224
030300 END-E-2.                                                         SQ2224530          5300     MOVE     CCVS-E-2 SQ22242
00MOVEjava.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 80
030500 TERMINATE-CCVS.                                                  SQ2224.2
030600     EXIT PROGRAM.                                                SQ2224.2
030700 TERMINATE-CALL.                                                  SQ2224.2
030800     STOP     RUN.                                                SQ2224.2
030900 INSPT310      IF    EQUAL                            2
031000 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           SQ2224.2
0310 AIL.  320     OVECCVS-C-2 TODUMMY-RECORD PERFORMWRITE-LINE 2   .
01200 DE-LETEMOVE "***" TOP-OR-F.ADD  ..2
031300     MOVE "****TEST DELETED****" TO RE-MARK.                      END-ROUTINESQ2224.2
031400 PRINT-DETAIL.00     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.SQ2224036500      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          SQ2224.2
031500     IF REC-CT NOT EQUAL TO ZERO                                  SQ2224.2
031600             MOVE "." TO PARDOT-XSQ222436                                                       
040     .    ERROR-HOLD                   
0318MOVETEST-RESULTS .PERFORM WRITE-LINE.      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031900     IF P-OR-F EQUAL TO "FAIL*"30MOVE  TO  PERFORMWRT-LN             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032000        PERFORM700          HYPHEN-LINE DUMMY-RECORD440 TOjava.lang.StringIndexOutOfBoundsException: Range [41, 32) out of bounds for length 80
032100          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 SQ2224.2
032200     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              SQ2224.2
032300     MOVE SPACE TO CORRECT-X.                                     SQ2224.2
032400     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         SQ2224.2
05     MOVE      TO RE-MARK.SQ2224.2
032600 HEAD-ROUTINE.                                                    SQ2224.2
032700     MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SQ2224.2
032800      CCVS-H-2TO DUMMY-RECORD.  WRITE-LINE TIMES.   SQ2224.
032900     MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.   SQ2224.2
033000 COLUMN-NAMES-ROUTINE.                                            SQ2224.2
030     MOVECCVS-C-1TO .  WRITE-LINE           SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0320MOVE00  NOTEQUALTOSPACE GOFAIL-ROUTINE-WRITE
03700      NOFURTHER, PROGRAM"TO INFO-TEXT    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033400 END-ROUTINE.                                                     SQ2224.2
033500     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.SQ2224.2
033600 END-RTN-EXIT.                                                    SQ2224.2
033700     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE570           "TO ERROR-TOTAL  ELSESQ2224.2
033800 END-ROUTINE-1.                                                   SQ2224.2
033900      ADD ERROR-COUNTER 035900MOVE TESTS)DELETED      090 .SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30ERROR-HOLD ADD  DELETE-CNTERROR-HOLD                   SQ22242
0310ADDPASS-COUNTER TO ERROR-HOLD                             .2
034200*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   SQ2224.2
03                     SQ2224.2
034400      MOVE ERROR-HOLD TO CCVS-E-4-2.00     "TESTS) REQUIRE"TO90  . PERFORM 2 .
034500      MOVE CCVS-E-4 TO CCVS-E-2-2.                                0300      MOVE CCVS-E-2TODUMMY-RECORD PERFORMWRITE-LINE.          SQ2224.2
034600      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           SQ2224.2
0340  END-ROUTINE-1200                                                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034800      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        SQ2224.2
034900     IF       ERROR-COUNTER IS EQUAL TO ZERO                       TO)SQ2224.
50000         "  TO ERROR-TOTAL
                                                              
035200         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       SQ2224.2
0 TO DUMMY-RECORD                           
50WSQ2224
035500 END-ROUTINE-13.                                                  SQ2224.2
035600     IF DELETE-CNT IS EQUAL 0      OUTPUTSQ-VS7.SQ2224.2
035700         MOVE "NO " TO ERROR-TOTAL  ELSE                          0     MOVE" LENGTHRECS"  .SQ22242
035800         MOVE DELETE-CNT TO ERROR-TOTAL.                          SQ2224.2
00MTESTSDELETED"TO .SQ22242
036000     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ2224.2
036100      IF   INSPECT-COUNTER      .SQ2224.2
036200          MOVE "NO " TO ERROR-TOTAL                               SQ2224.2
036300      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   SQ2224.2
036400      MOVE "TEST(S) REQUIRE INSPECTION TO ENDER-DESC.SQ2224.
036500      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          SQ2224.2
036600     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ2224.2
036700 WRITE-LINE.                                                      SQ2224.2
036800     ADD 1 TO RECORD-COUNT.                                       SQ2224.2
036900     IF RECORD-COUNT GREATER 50                                   SQ2224.2
037000         MOVE DUMMY-RECORD TO DUMMY-HOLD38400 FAIL-ROUTINE                                                    
037100         MOVE SPACE TO DUMMY-RECORD                               SQ2224.2
037200         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  SQ2224.2
037300         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             SQ2224.2
037400         3880      XXINFO TODUMMY-RECORD. PERFORM  2TIMES     SQ22242
037500         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM3900     GOTOFAIL-ROUTINE-EX.                                       SQ22242
037600         MOVE DUMMY-HOLD TO DUMMY-RECORD                          SQ2224.2
037700         MOVE ZERO TO RECORD-COUNT.                               SQ2224.2
037800     PERFORM WRT-LN.                                              SQ2224.2
037900 WRT-LN.                                                          . EXIT.                                           .
038000     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               SQ2224.2
03D.SQ2224.2
038200 BLANK-LINE-PRINT.                                                SQ2224.
038300     PERFORM WRT-LN.                                              SQ2224.2
0.2
038500     90     040     COUNT-OF-RECSSQ-VS7-RECNO                         .2
038600     IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.    SQ2224.2
038700     MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.    SQ2224.2
038800     MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.     SQ2224.2
03890     TO.SQ2224.
039000 FAIL-ROUTINE-WRITE.                                              11
039100     MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE           SQ2224.2
0 TOPRINT-REC  WRITE-LINE ..2
039300 FAIL-ROUTINE-EX. EXIT.                                           SQ2224.2
039400 BAIL-OUT.                                                        SQ2224.2
05IFEQUAL SPACE TO BAIL-OUT-WRITESQ22242
039600     IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.4550 READ-INIT-F1-01SQ2224.2
039700 BAIL-OUT-WRITE.                                                  SQ2224.2
039800     MOVE CORRECT-A TO XXCORRECT500MOVEZEROTO EOF-FLAG                                       070MOVERC" TO0MOVE000   1)                                .2
039900     MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE10     MOVE"" TOXFILE-ORGANIZATION ().                         
040000 BAIL-OUT-EX. EXIT.                                                ZERO
040100 CCVS1-EXIT.                                                      SQ2224.2
040200     EXIT.                                                        SQ2224.2
0400 SECT-SQ222A-0001 SECTION.                                        SQ22242
040400 WRITE-INIT-GF-01.                                                SQ2224.2
040500     MOVE "SQ-VS7" TO XFILE-NAME (1).                             SQ2224.2
040600     MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1).                       SQ2224.2
060     IFERROR-FLAGEQUAL SQ2224.2
040800     MOVE 0001 TO XBLOCK-SIZE (1).                                SQ2224.2
040900     MOVE 000450 TO RECORDS-IN-FILE (1).                          SQ2224.2
0400MOVE""   (1).S.2
041100     MOVE "S" TO XLABEL-TYPE (1).                                 4200 WRITE-WRITE-GF-01.SQ2224.2
041200     MOVE 000000 TO XRECORD-NUMBER (1).                           SQ2224.2
041300     MOVE ZERO TO COUNT-OF-RECS.                                  SQ2224.2
041400     OPEN OUTPUT SQ-VS7.                                          SQ2224.2
041500     MOVE "MULTIPLE LENGTH RECS" TO SQ-VS7-FILLER.                ":SEE VII-52   ORVII-44 READ  RE-MARK..
041600 WRITE-TEST-GF-01.                                                MOVECOUNT-OF-RECS TO CORRECT-18V0.SQ2224.2
0java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041800     PERFORM WRITE-LONG-REC.                                      SQ2224.2
041900     PERFORM WRITE-SHORT-REC 10 TIMES.                            SQ2224.2
042030*    10CHARACTERSANDRECORDS 5 . THE        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042100     PERFORM WRITE-SHORT-REC 338 TIMES.                           SQ2224.2
042200 WRITE-WRITE-GF-01.                                               SQ2224.2
042300     MOVE "CREATEADD36GOTO.SQ2224.
040     MOVE WRITE-TEST-GF-01TO PAR-NAME70   ()          2
020     MOVE " ,RECS  TOCOMPUTED-A                   .2
060MOVECOUNT-OF-RECSTOCORRECT-18V0                          .80     IF XRECORD-NAME( NOTEQUAL  "R1-M-G                    .
042700     MOVE "FILE HAS 120 AND 140000IF XRECORD-LENGTH(    1202SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042800     PERFORM PRINT-DETAIL.440      SHORT  LONG-OR-SHORT.SQ2224.2
0A  STORAGEFILE5            SQ2224
043000*    RECORDS HAS BEEN CREATED.  THE FILE CONTAINS RECORDS         SQ2224.2
030*     2 CHARACTERS   SQ2224.2
043200*    SEQUENCE IN WHICH THE 8        .SQ2224.2
043300*    100L-338S.                                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043400 WRITE-CLOSE-GF-01.                                               SQ2224.2
043500     CLOSE SQ-VS7.                                                5MOVE"LONG"  LONG-OR-SHORT      ZEROERROR-FLAG.                                     
40      READ-INIT-F1-01                                       
043700 WRITE-SHORT-REC.                                                 SQ2224.2
043800     MOVE "R1-M-G" TO XRECORD-NAME (1).                           SQ2224.2
030      0010   (1)                           SQ22242
044000     ADD TO .SQ2224.2
044100     MOVE COUNT-OF-RECS TO XRECORD-NUMBER (1).                    SQ2224.2
044200     MOVE "SHORT" TO LONG-OR-SHORT.                               SQ2224.2
044300     460 READ-TEST-F1-01.                                                 
044400     MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS7R1-FIRST.          SQ2224.2
044500     WRITE SQ-VS7R1-M-G-120.                                      SQ2224.2
044600 WRITE-LONG-REC.                                                  SQ2224.2
044700     MOVE "R2-M-G" TO XRECORD-NAME (1).                           SQ2224.2
044800     MOVE 000151 TO XRECORD-LENGTH9     MOVE" RECORD :11 TO RE-MARK.               SQ2224.2
044900     ADD 1 TO COUNT-OF-RECS.                                      PERFORMPRINT-DETAIL                                        SQ22242
045000     MOVE COUNT-OF-RECS TO XRECORD-NUMBER (1).                    SQ2224.2
045100     MOVE "LONG" TO LONG-OR-SHORT.                                SQ2224.2
045200     MOVE COUNT-OF-RECS TO SQ-VS7-RECNO.                          SQ2224.2
045300     MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS7R2-FIRST.          SQ2224.2
045400     WRITE SQ-VS7R2-M-G-151.                                      SQ2224.2
045500 READ-INIT-F1-01.                                                 SQ2224.2
045600     MOVE ZERO TO COUNT-OF-RECS.                                  SQ2224.2
045700     MOVE ZERO TO EOF-FLAG.                                       MOVE " SHORT RECORD"TO 2      TOFILE-RECORD-INFO-P1-120(()         SQ22242
045800     MOVE ZERO TO RECORDS-IN-ERROR47     MOVE" RECORDLENGTH:2"TO RE-MARK               .
059      ZERO300IF ()E11.
046000     OPEN INPUT SQ-VS7.                                           TO.SQ2224.2
0.2
046200     PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT.             SQ2224.2
04 EQUAL TO                                        
046400         MOVE "EOF ON FIRST READ" TO RE-MARK                      SQ2224.2
060         GOTO READ-EOF-F1-06.SQ2224.2
046600     IF ERROR-FLAG EQUAL TO 1                                     SQ2224.2
046700         GO TO READ-FAIL-F1-01.                                   SQ2224.2
046800 READ-PASS-F1-01.                                                 SQ2224.2
046900     PERFORM PASS.                                                SQ2224.2
0400GO READ-WRITE-F1-01.SQ2224.2
047100 READ-FAIL-F1-01.                                                 SQ2224.2
047200     MOVE "ERROR: SEE VII-52 WRITE  OR VII-44 READ" TO RE-MARK.   SQ2224.2
047300     PERFORM FAIL.                                                SQ2224.2
047400 READ-WRITE-F1-01.                                                SQ2224.2
0450MOVE"  "  .SQ2224.2
047600     MOVE "READ-TEST-F1-01" TO PAR-NAME.                          SQ2224.2
047700     MOVE "EXPECTED RECORD LENGTH: 120" TO RE-MARK.               SQ2224.2
04790GO READ-SHORT-REC-EXIT                               
047900     GO TO READ-INIT-F1-02.                                       SQ2224.2
040 READ-SHORT-REC.SQ2224.2
048100 EOF-FLAGjava.lang.StringIndexOutOfBoundsException: Range [28, 24) out of bounds for length 80
040          TO READ-SHORT-REC-EXIT                               SQ22242
048300     READ SQ-VS7 AT END                                           
0840          EOF-FLAG.
048500         GO TO READ-SHORT-REC-EXIT.                               SQ2224.2
040   SQ22242
048700     MOVE SQ-VS7R1-FIRST TO FILE-RECORD-INFO-P1-12050      .                                                .
080      1NOT EQUALTO""SQ22242
04                              .2
049000     IF XRECORD-LENGTH (1) NOT EQUAL TO 540PERFORM THRU.               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049100         GO TO READ-SHORT-REC-ERROR.                              SQ2224.2
049200     IF COUNT-OF-RECS NOT EQUAL TO XRECORD-NUMBER (1)             SQ2224.2
030         GO  READ-SHORT-REC-ERROR.                              
049400     IF XLABEL-TYPE.SQ2224.2
049500         GO TO READ-SHORT-REC-EXIT.                               SQ2224.2
50     PASS                                                
0SQ22242
049800     MOVE 1 TO ERROR-FLAG.                                        SQ2224.2
049900 READ-SHORT-REC-EXIT.                                             SQ2224.2
050000     EXIT.                                                        SQ2224.2
050210      .SQ2224.
050200     MOVE RM PASS.                                                SQ2224.2
050300 READ-TEST-F1-02.                                                 SQ2224
050400     PERFORM READ-LONG-REC THRU READ-LONG-REC-EXIT.               SQ2224.2
050500     IFEOF-FLAGEQUAL TO 1SQ2224.2
050600         MOVE "EOF ON SECOND READ" TO RE-MARK                     SQ2224.2
050700         GO TO READ-EOF-F1-06.                                    SQ2224.2
050800     IF ERROR-FLAG EQUAL TO 1                                     SQ2224.2
050900         GO TO READ-FAIL-F1-02.                                   SQ2224.2
051000 READ-PASS-F1-02.                                                 SQ2224.2
051100     PERFORM PASS.                                                SQ2224.2
051200     GO TO READ-WRITE-F1-02.                                      SQ2224.2
051300 READ-FAIL-F1-02.                                                  NOT                .
051400     MOVE "ERROR:37     IFLONG-OR-SHORT  TOLONG                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051500     PERFORM FAIL.                                                
051600 READ-WRITE-F1-02.                                                SQ2224.2
051700     MOVE "READ LONG RECORD" TO FEATURE.                          SQ2224.2
051800     MOVE "READ-TEST-F1-02" TO PAR-NAME.                          SQ2224.2
051900     MOVE "EXPECTED RECORD LENGTH: 151" TO RE-MARK.               SQ2224.2
0520     PERFORM PRINT-DETAIL.                                        2
052100     GO TO READ-INIT-F1-03.                                       SQ2224.2
052200 READ-LONG-REC.                                                   2
052300     IF EOF-FLAG EQUAL TO 1                                       SQ2224.2
052400         GO TO READ-LONG-REC-EXIT.                                SQ2224.2
052500     READ SQ-VS7                                              
052600         MOVE 1 TO EOF-FLAG                                       MOVE" EOF"RE-MARK                         SQ22242
057         38..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052800     ADD 1 TO COUNT-OF-RECS.                                      SQ2224.2
052900     MOVE SQ-VS7R2-FIRST TO FILE-RECORD-INFO-P1-120 (1).          SQ2224.2
0     IF 1)NOTTO"SQ22242
053100         GO TO READ-LONG-REC-ERROR.                               SQ2224.2
053200     IF XRECORD-LENGTH (1) NOT EQUAL TO 151                       SQ2224.2
053300         GO9200         GO TO READ-FAIL-F1-05.                                   SQ2224.2
053400     MOVE COUNT-OF-RECS TO SAVE-COUNT-OF-RECS.                    SQ2224.2
0   TO              
0536000MOVE"SHORT" TOFEATURE.                        SQ2224.2
053700     IF LONG-OR-SHORT EQUAL TO "LONG "                            SQ2224.2
053800         GO TO READ-LONG-REC-EXIT.                                SQ2224.2
053900 READ-LONG-REC-ERROR.                                             SQ2224.2
054000     ADD 1 TO RECORDS-IN-ERROR.                                   SQ2224.2
054100     MOVE 1 TO ERROR-FLAG.                                        SQ2224.2
054200 READ-LONG-REC-EXIT.                                              SQ2224.2
0java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
054400 READ-INIT-F1-03.                                                 SQ2224.2
054500     MOVE ZERO TO ERROR-FLAG.                                     SQ2224.2
054600 READ-TEST-F1-03.                                                 SQ2224.2
054700     PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT 10 TIMES.    SQ2224.2
05OF-FLAGEQUAL                                         
05490     MOVEMORETHAN 40"TO RE-MARK.                     SQ22242
0         TO.                                   
055100     IF ERROR-FLAG EQUAL TO 1                                     SQ2224.2
052           .                                   
055300 READ-PASS-F1-03.                                                   TOCORRECT-18V0                          SQ2224java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
055400     PERFORM PASS.                                                SQ2224.2
055500     GO TO READ-WRITE-F1-03.                                      SQ2224.2
055600 READ-FAIL-F1-03.                                                 2
055700     MOVE "ERROR: SEE VII-52 WRITE  OR VII-44 READ0      .SQ2224.2
055800     PERFORM FAIL.                                                SQ2224.2
055900 READ-WRITE-F1-03.                                                 READ-WRITE-F1-06SQ2224.2
056000     MOVE "READS"  FEATURE.SQ2224.
056100     MOVE "READ-TEST-F1-03" TO PAR-NAME.                          SQ2224.2
056200     MOVE "EXPECTED RECORD LENGTH: 120" TO RE-MARK.               SQ2224.2
056300     PERFORM PRINT-DETAIL.                                        SQ2224.2
056400 READ-INIT-F1-04.                                                 SQ2224.2
56     MOVEZERO  .SQ2224.2
056600 READ-TEST-F1-04.                                                 SQ2224.2
056700     PERFORM READ-LONG-REC THRU READ-LONG-REC-EXIT 100 TIMES.     SQ2224.2
056800     IF EOF-FLAG EQUAL TO 1                                       SQ2224.2
056900         MOVE "UNEXPECTED EOF" TO RE-MARK                         SQ2224.2
057000         GO TO READ-EOF-F1-06.                                    READ-PASS-F1-05.SQ2224.2
057100     IF ERROR-FLAG EQUAL TO 1                                     SQ2224.2
057200         GO READ-FAIL-F1-04                                   30    IS.HE   IN6THROUGH     .2
057300 READ-PASS-F1-04.                                                 SQ2224.2
057400     PERFORM PASS.                                                SQ2224.2
057500     GO TO READ-WRITE-F1-04.                                      SQ2224.2
057600 READ-FAIL-F1-04.                                                 SQ2224.2
057700     MOVE "ERROR: SEE VII-52 WRITE  OR VII-44 READ" TO RE-MARK.   SQ2224.2
057800     PERFORM FAIL.                                                SQ2224.2
057900 READ-WRITE-F1-04.                                                SQ2224.2
058000     MOVE "READ LONG RECORDS" TO FEATURE.                         SQ2224.2
058100     MOVE "READ-TEST-F1-04" TO PAR-NAME.                          SQ2224.2
058200     MOVE "EXPECTED RECORD LENGTH: 151" TO RE-MARK.               SQ2224.2
050     .SQ2224
40 READ-INIT-F1-05SQ2224.2
058500     MOVE ZERO TO ERROR-FLAG.                                     SQ2224.2
058600 READ-TEST-F1-05.                                                                                        .
058700     PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT 338 TIMES.   SQ2224.2
058800     IF EOF-FLAG  SQ2224.2
058900         MOVE "UNEXPECTED EOF" TO RE-MARK                         SQ2224.2
059000         GO TO READ-EOF-F1-06.                                    SQ2224.2
059100     IF ERROR-FLAG EQUAL TO 1                                     10MOVE COUNT-OF-RECSCORRECT-18V0                          SQ22242
050     MOVE "READ SHORT "TO .                         SQ22242
093                                                  SQ2224.2
0       SQ2224.2
059500     GO TO READ-WRITE-F1-05.                                      SQ2224.2
059600 READ-FAIL-F1-05.                                                 SQ2224.2
059700     MOVE "ERROR: SEE VII-52670         GO  .                                   
059800     PERFORM FAIL.                                                SQ2224.2
059900 READ-WRITE-F1-05.                                                SQ2224.2
060000     60000     MOVE NOT EQUAL TO "000"                         SQ2224.2
060100     MOVE623 620 TONO-INFO-02                                        
060200     MOVE "EXPECTED RECORD LENGTH: 120" TO RE-MARK.               SQ2224.2
060300     PERFORM PRINT-DETAIL.                                        PERFORMPRINT-DETAIL.                                       SQ2224.2
06020     .SQ2224.2
060500     READ SQ-VS7 RECORD END                                       SQ2224.2
060600         GO TO READ-TEST-F1-06.                                   SQ2224.2
060700     MOVE "MORE THAN 450 RECORDS" TO RE-MARK.                     SQ2224.2
060800     GO TO READ-FAIL-F1-06.                                        .SQ2224.2
060900 READ-EOF-F1-06.                                                  SQ2224.2
061000     MOVE "RECORDS READ =" TO COMPUTED-A.                         SQ2224.2
061100     MOVE COUNT-OF-RECS TO CORRECT-18V0.                          SQ2224.2
0IF  0                         2
061300 READ-TEST-F1-06.                                                 SQ2224.2
061400     IF RECORDS-IN-ERROR NOT EQUAL TO ZERO                        SQ2224.2
061500          "RECORDS  ERROR= TOSQ2224.2
061600         MOVE RECORDS-IN-ERROR TO CORRECT-18V0                    SQ2224.2
061700         GO TO READ-FAIL-F1-06.                                   SQ2224.2
06180060      0TO.                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
061900     PERFORM PASS.                                                SQ2224.2
062000     GO TO READ-WRITE-F1-06.                                      SQ2224.2
062100 READ-FAIL-F1-06.                                                 SQ2224.2
062200     PERFORM FAIL.                                                SQ2224.2
062300 READ-WRITE-F1-06.                                                SQ2224.2
062400     MOVE "READ-TEST-F1-06" TO PAR-NAME.                          SQ2224.2
062500     MOVE "VERIFY FILE SQ-VS7" TO FEATURE.                        SQ2224.2
062600     PERFORM PRINT-DETAIL.                                        SQ2224.2
062700 READ-CLOSE-F1-06.                                                
062800     CLOSE SQ-VS7.                                                SQ2224.2
062900 SECT-SQ222A-0002 SECTION.                                        SQ2224.2
063000*        THIS SECTION CHECKS IF THE ENTIRE RECORD AREA IS         SQ2224.2
0670      COUNT-OF-RECS EQUAL TO 450                                SQ2224.2
063200*    IS WRITTEN.  THE RECORD NUMBER IN CHARACTERS 126 THROUGH     SQ2224.2
063300*    130 IS UNIQUE FOR EACH RECORD.                               SQ2224.2
063400 INFO-INIT-01.                                                    SQ2224.2
063500     OPEN INPUT SQ-VS7.                                           SQ2224.2
063600     MOVE ZERO TO COUNT-OF-RECS.                                  SQ2224.2
063700 INFO-TEST-01.                                                    SQ2224.2
063800     READ SQ-VS7 AT END                                           SQ2224.2
063900         GO TO INFO-END.                                          SQ2224.2
064000     ADD 1 TO COUNT-OF-RECS.                                      SQ2224.2
064100     IF SQ-VS7-RECNO NOT EQUAL TO "00001"                         SQ2224.2
064200         GO TO NO-INFO-01.                                        SQ2224.2
064300     MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK.               SQ2224.2
064400     MOVE "RECORD READ =" TO COMPUTED-A.                          SQ2224.2
064500     MOVE 0001 TO CORRECT-18V0.                                   SQ2224.2
064600     GO TO INFO-WRITE-01.                                         SQ2224.2
064700 NO-INFO-01.                                                      SQ2224.2
064800     MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK.           SQ2224.2
064900 INFO-WRITE-01.                                                   SQ2224.2
065000     MOVE "READ SHORT RECORD" TO FEATURE.                         SQ2224.2
065100     MOVE "SEQ-INFO-01 " TO PAR-NAME.                             SQ2224.2
065200     PERFORM PRINT-DETAIL.                                        SQ2224.2
065300 INFO-INIT-02.                                                    SQ2224.2
065400     READ SQ-VS7 RECORD AT END                                    SQ2224.2
065500         GO TO INFO-END.                                          SQ2224.2
065600     READ SQ-VS7 END                                              SQ2224.2
065700         GO TO INFO-END.                                          SQ2224.2
065800 INFO-TEST-02.                                                    SQ2224.2
065900     READ SQ-VS7 AT END                                           SQ2224.2
066000         GO TO INFO-END.                                          SQ2224.2
066100     IF SQ-VS7-RECNO NOT EQUAL TO "00004"                         SQ2224.2
066200         GO TO NO-INFO-02.                                        SQ2224.2
066300     MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK.               SQ2224.2
066400     MOVE "RECORD READ =" TO COMPUTED-A.                          SQ2224.2
066500     MOVE 0004 TO CORRECT-18V0.                                   SQ2224.2
066600     GO TO INFO-WRITE-02.                                         SQ2224.2
066700 NO-INFO-02.                                                      SQ2224.2
066800     MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK.           SQ2224.2
066900 INFO-WRITE-02.                                                   SQ2224.2
067000     MOVE "READ SHORT RECORD" TO FEATURE.                         SQ2224.2
067100     MOVE "SEQ-INFO-02 " TO PAR-NAME.                             SQ2224.2
067200     PERFORM PRINT-DETAIL.                                        SQ2224.2
067300 INFO-INIT-03.                                                    SQ2224.2
067400     ADD 3 TO COUNT-OF-RECS.                                      SQ2224.2
067500 INFO-INIT-03-1.                                                  SQ2224.2
067600     READ SQ-VS7 RECORD                                           SQ2224.2
067700         END GO TO INFO-END.                                      SQ2224.2
067800     ADD 1 TO COUNT-OF-RECS.                                      SQ2224.2
067900     IF COUNT-OF-RECS EQUAL TO 450                                SQ2224.2
068000         GO TO INFO-TEST-03.                                      SQ2224.2
068100     GO TO INFO-INIT-03-1.                                        SQ2224.2
068200 INFO-TEST-03.                                                    SQ2224.2
068300     IF SQ-VS7-RECNO NOT EQUAL TO "00450"                         SQ2224.2
068400         GO TO NO-INFO-03.                                        SQ2224.2
068500     MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK.               SQ2224.2
068600     MOVE "RECORD READ =" TO COMPUTED-A.                          SQ2224.2
068700     MOVE 0450 TO CORRECT-18V0.                                   SQ2224.2
068800     GO TO INFO-WRITE-03.                                         SQ2224.2
068900 NO-INFO-03.                                                      SQ2224.2
069000     MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK.           SQ2224.2
069100 INFO-WRITE-03.                                                   SQ2224.2
069200     MOVE "READ SHORT RECORD" TO FEATURE.                         SQ2224.2
069300     MOVE "SEQ-INFO-03 " TO PAR-NAME.                             SQ2224.2
069400     PERFORM PRINT-DETAIL.                                        SQ2224.2
069500 INFO-END.                                                        SQ2224.2
069600     CLOSE SQ-VS7.                                                SQ2224.2
069700 TERMINATE-ROUTINE.                                               SQ2224.2
069800     EXIT.                                                        SQ2224.2
069900 CCVS-EXIT SECTION.                                               SQ2224.2
070000 CCVS-999999.                                                     SQ2224.2
070100     GO TO CLOSE-FILES.                                           SQ2224.2

97%


¤ Dauer der Verarbeitung: 0.31 Sekunden  ¤

*© Formatika GbR, Deutschland






Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.