DIVISION.
020PROGRAM-ID.2
00000 000400**************************************************************** SQ2024.2 000500* * SQ2024.2 000600* VALIDATION FOR:- * SQ2024.2 000700* " HIGH ". SQ2024.2 000800* * SQ2024.2 000900* CREATION DATE / VALIDATION DATE * SQ2024.2 001000* "4.2 ". SQ2024.2 001100* * SQ2024.2 001200* THE ROUTINE SQ202A (OLD SQ203) CREATES A MAGNETIC TAPE FILE ANDSQ2024.2 001300* PASSES IT ON TO SQ203A TO BE OPENED AS INPUT UNDER A SELECT SQ2024.2 001400* OPTIONAL CLAUSE. SQ2024.2
001500 ENVIRONMENTDIVISION. SQ20240010001200* THE ROUTINE001300* PASSES0001400* OPTIONAL CLAUSE. SQ2024.2
001600 CONFIGURATIONSECTIONSECTION.2
070SOURCE-COMPUTER .0100 .
00 . 0NPUT-OUTPUT 2
001900 OBJECT-COMPUTER. SQ2024.2
020 . .2
002100 INPUT-OUTPUTSECTION. 002300 SELECTASSIGNTO .2
020FILE-CONTROLSQ2024.2
002300 SELECT RAW-DATA MODE .2
0240 "" SQ2024
00200ORGANIZATIONINDEXED SQ2024.2
0200 MODERANDOM.2
0270 RECORDISjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
08 PRINT-FILE .2
0029000340 ASSIGN
003000 SELECT SQ-FS1 ASSIGN TO 0 . 2
003100 XXXXP001. SQ2024.040 SQ20242
003200 DATA DIVISION. SQ2024.2
003300 FILE SECTION. SQ2024.2
003400 5C-DATE 96. .2
00300 FD . SQ2024.2
003600 SQ2024.2
003700 01 RAW-DATA-SATZ. SQ2024.2
003800 05 RAW-DATA-KEY PIC X(6). SQ2024.2
00Q2024.2
0040005 C-TIME PIC ()0705 X(3.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
004100 05 C-NO-OF-TESTS PIC 99. SQ2024.2
004200 05 C-OK PIC 999. SQ2024.2
004300 05 C-ALL 999.SQ2024.2
004400 05 C-FAIL PIC 999. SQ2024.2
004500 05 C-DELETED PIC 999. 00 01PRINT-RECPICTURE X120.
004600 05 C-INSPECT PIC 99. SQ2024.
004700 05 C-NOTE PIC X(13). SQ2024.2
004800 05 C-INDENT PIC X. SQ2024.2
004900 05 C-ABORT PIC X(8). SQ2024.2
005000 FD PRINT-FILE SQ2024.2
005100 LABEL RECORDS SQ2024.2
005200 Card0132 SQ2024.2
005300 DATA RECORD IS PRINT-REC DUMMY-RECORD SQ2024.2
0040.
005500 01 PRINT-REC PICTURE X(120). SQ2024010 SECTION.
005
007005FILLERPICTURE(8 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005800 LABEL RECORD STANDARD06900 05 FILLER PICTURE X(46)
005900 BLOCK PIC 99.
006000 01 SQ-FS1R1-F-G-120 PIC X(120). SQ2024.2
00100 WORKING-STORAGESECTION. 1 COUNT-OF-RECSPIC 999
006200 77 RECORD-OUT-COUNT PIC 999. SQ2024.2
006300 77 RECORDS-IN-ERROR PIC 999
0640 0 COUNT-OF-RECS 999
006500 01 FILE-RECORD-INFORMATION-REC. SQ2024.2
006600 03 FILE-RECORD-INFO-SKELETON. SQ2024.2
006700 5FILLERPICTURE X(8) VALUE .2
006800 07600 ",= .2
006900 5FILLERPICTURE X4) VALUESQ20242
007000 ,ALTKEY2 SQ2024.2
007100 05 FILLER PICTURE X(26) VALUE SQ2024.2
007200 ",LFIL=000000,ORG= ,LBLR= ". SQ2024.2
007300 05 FILLER PICTURE X(37) VALUE SQ2024.2
007400 RECKEY SQ2024.2
007500 05 FILLERPICTURE X(3) VALUE SQ20242
007600 ",080 0060= " SQ2024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007700 05 FILLER 07900 5FILLER X7 00 FILLERPIC(.SQ2024
007800 ",ALTKEY2= ". SQ2024.2
007900 05 FILLER PICTURE X(7) VALUE SPACE.SQ2024.2
008000 03 FILE-RECORD-INFO OCCURS 10 TIMES. SQ2024.2
00810 . .2
00200 07FILLERPICX5. SQ2024.
008300 07 XFILE-NAME PIC X(6). SQ2024.2
30 4.SQ2024
008500 07 XRECORD-NAME PIC X(6). SQ2024.2
008600 07 FILLER PIC X(1). SQ2024.2
008700 07 REELUNIT-NUMBER PIC 9(1). SQ2024.2
008800 07 FILLER PIC X(7). SQ2024.2
008900 07 XRECORD-NUMBER PIC 9(6). 7007XRECORD-LENGTHPIC () 2
009000 07 FILLER 990 0 CHARS-OR-RECORDS PICX2. 2
009100 07 UPDATE-NUMBER PIC 9(2). SQ2024.2
009200 07 FILLER PIC X(5). SQ2024.2
009300 07 ODO-NUMBER PIC 9(4). SQ2024.2
009400 07 FILLER PIC X(5). SQ2024.2
00900 07 XPROGRAM-NAME PIC X(5. SQ2024.
009600 PIC X(7)
009700 07 XRECORD-LENGTH PIC 9(6). SQ2024.2
009800 07 FILLER PIC10 0 ()
009900 07 CHARS-OR-RECORDS PIC X(2). SQ2024.2
010000 07 FILLER PIC X(1). SQ2024.2
010100 07 XBLOCK-SIZE PIC 9(4). SQ2024.2
010200 07 FILLER PIC X(6). SQ2024.2
010300 07 RECORDS-IN-FILE PIC 9()
01000 0 X(5..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010500 07 XFILE-ORGANIZATION PIC X(). .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010600 07 FILLER PIC X(6). SQ2024.2
010700 07 XLABEL-TYPE PIC X(1). SQ2024.2
010800 05 FILE-RECORD-INFO-P121-240. SQ2024.2
010900 070100 07 (9. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011000 07 XRECORD-KEY PIC X(29). SQ2024.2
011100 07 FILLER PIC X(9). SQ2024.2
011200 07 ALTERNATE-KEY1010 2FEATURE (20VALUESPACE .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0130 07 FILLER X()
011400 07 ALTERNATE-KEY2 PIC X(29). SQ2024.2
011500 07 FILLER PIC X(7). SQ2024.2
011600 01 TEST-RESULTS
011700 02 FILLER PICTURE X VALUE SPACE10 2 FILLERPICTURE X VALUESPACE 2
011800 02 FEATURE 003 DOTVALUE 9 VALUE . .
011900 02 FILLER PICTURE X VALUE SPACE. SQ2024.2
012000 02 P-OR-F PICTURE X(5) VALUE SPACE. SQ2024.2
01012700 2 FILLERPIC X(1)VALUESPACE 2
012200 02 PAR-NAME. SQ2024.2
012300 03 FILLER PICTURE X(12) VALUE SPACE. SQ2024.2
012400 03 PARDOT-XPICTUREX VALUE SPACE 2
SQ2024.2
012600 03 FILLER PIC X(5) VALUE SPACE. SQ2024.2
012700 02 FILLER PIC X(10) VALUE SPACE. 002COMPUTED-X.
0200 017 2 FILLERPICX10)VALUESPACE
012020 RE-MARK PIC X(1)SQ2024.2
02 FILLERPICX30)VALUE . SQ20242
013100 02 FILLER PIC X(17) VALUE170 03COMPUTED-14V4REDEFINESCOMPUTED-A -(4.(). .2
013000 COMPUTED-X SQ20242
013300 03 COMPUTED-A PICTURE X(20) VALUE SPACE. SQ2024.2
013400 03 COMPUTED-N REDEFINES COMPUTED-A PICTURE -9(9).9(9). SQ2024.2
013501000 04FILLER PICTURE X. 2
01300 0 COMPUTED-4V14 REDEFINES COMPUTED-A PICTURE 94.(4. SQ2024.2
013700 03 COMPUTED-14V4REDEFINES00 001TEST-CORRECT SQ2024.
013800 03 CM-18V0 REDEFINES050 COMPUTED-0V18 REDEFINES COMPUTED-APICTURE .(8.SQ20242
019 4COMPUTED-18V0P -9(8) 2
014000 04 FILLER PICTURE X. SQ2024.440 2FILLERPIC X1)VALUE " =.SQ2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014100 03 FILLER PIC X(50) VALUE SPACE. SQ2024.2
01420 1 TEST-CORRECT. SQ2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0CX30)VALUESPACE
014400 02 FILLER PIC X(17) VALUE " CORRECT =". SQ2024.2
01500 02 CORRECT-X CORRECT-A PICTURE-()91) SQ2024.
014600 03 CORRECT-A PICTURE X(20) VALUE SPACE. SQ2024.2
014700 03 CORRECT-NREDEFINESCORRECT-A PICTURE-9(9.() .2
V18 REDEFINESCORRECT-APICTURE -9(8.SQ2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01490 3 CORRECT-4V14 REDEFINES CORRECT-APICTURE 94.(4) SQ2024.
015000 03 CORRECT-14V4 REDEFINES CORRECT-A PICTURE1900 140 3FILLER PICX(0 .
015100 03CR-18V0REDEFINESCORRECT-A. SQ2024.
015200 04 CORRECT-18V0 PICTURE -9(18). SQ2024.2
0530 04FILLER X. SQ2024.2
015400 03 FILLER0150 0 FILLERPICTURE IS X(0)VALUE IS SPACE. .2
015500 01 CCVS-C-1 SQ20242
015600 02 FILLER PICTURE IS X(99) VALUE IS " FEATURE PASQ2024.2
015700- "SS PARAGRAPH-NAME SQ2024.2
015800 " REMARKS.SQ2024.2
059000 FILLER IS X(0VALUE IS SPACE
016000 01 CCVS-C-206PICTURE () VALUEIS TESTED".SQ2024.2
016100 02 FILLER PICTURE IS X VALUE IS SPACE. SQ2024.2
016200 02 FILLER PICTURE IS X(6) VALUE IS "TESTED". SQ2024.2
016300 02 FILLER PICTURE IS X(15) VALUE IS SPACE. SQ2024.2
016400 02 FILLER PICTURE IS X(4) VALUE IS "FAIL". SQ2024.2
016500 02 FILLER PICTURE IS X(94) VALUE IS SPACE. SQ2024.2
016600 01 REC-SKL-SUB PICTURE 9(2) VALUE ZERO. SQ2024.2
016700 01 REC-CT PICTURE 9 VALUE ZERO
016800 01 DELETE-CNT PICTURE 999 VALUE SQ20242
016900 01 ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO. SQ2024.2
01000 INSPECT-COUNTERPIC 99VALUEZERO
017100 01 PASS-COUNTER PIC 999 VALUE ZERO. SQ2024.2
01700 0 TOTAL-ERROR PIC99VALUEZERO
0700 0 PIC 99 VALUE ZERO. SQ2024.2
017400 01 DUMMY-HOLD740 01 DUMMY-HOLD PICX(10) VALUE SPACE.
017500 01 RECORD-COUNT PIC 9(5) VALUE ZERO. SQ2024.2
01700 CCVS-H-1. SQ2024.2
017700 02 FILLER PICTURE X(27) VALUE SPACE. SQ2024.2
017800 02 FILLER PICTURE X(67) VALUE SQ2024.2
017900 " FEDERAL SOFTWARE TESTING CENTER COBOL COMPILER VALIDATION SQ2024.2
018000 " SYSTEM".
018100 02 FILLER PICTURE X(26) VALUE SPACE. SQ2024.2
0170 1 TOTAL-ERROR PIC99 VALUEZERO.
01300 02 FILLER PICTURE552 VALUE IS
018400 "CCVS85 FSTC COPY, NOT FOR DISTRIBUTION.". SQ2024.2
018500 02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- ". SQ2024.2
0160 2 TEST-ID PICTURE X9). SQ2024.2
01 PICTURE IS X(0) VALUE IS SPACE. SQ2024.2
001830 02 FILLERPICTURE X(2) VALUEIS SQ20242
018900 2 FILLER PICTURE X34)VALUE .2
019000 " FOR OFFICIAL180 0 FILLER PICTURE X(1) VALUE IS "TEST RESULTSSET- " .2
019100 2 FILLERPICTURE X(8) VALUE
019200 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ2024.2
019300 02 FILLER PICTURE X(28) VALUE SQ2024.2
019400 " COPYRIGHT 1985 ". SQ2024.2
019500 01 CCVS-E-1. SQ2024.2
019600 02 FILLER PICTURE IS X(52) VALUE IS SPACE. SQ2024.2
019700 02 FILLER PICTURE IS X(14) VALUE IS "END OF TEST- ". SQ2024.2
0980002 ID-AGAIN PICTURE IS X(9). .2
019900 0 FILLERPICTUREX410 FOR SE ONLY. 2
020000 " NTIS DISTRIBUTION COBOL 85". SQ2024.2
020100 01 CCVS-E-2. FILLER PICTUREX(5)VALUESQ2024.2
020200 02 FILLER PICTURE X(31) VALUE SQ2024.2
020300 SPACE. SQ2024.2
020400 02 FILLER PICTURE X(21) VALUE SPACE. SQ2024.2
0.
020600 03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE. SQ2024.2
020700 03 FILLER PICTURE IS X VALUE IS SPACE. SQ2024.140 COPYRIGHT 95 "
020800 03 ENDER-DESC PIC X(46) VALUE "ERRORS ENCOUNTERED". SQ2024.2
020900 01 CCVS-E-3. SQ2024.2
02100 02 FILLER PICTURE X(22 VALUE
021100 " FOR OFFICIAL USE ONLY". SQ2024.2
020200 "TISDISTRIBUTION 8"
021300 02 FILLER PICTURE
021400 "N-SITEVALIDATION,NATIONALINSTITUTE OF STD &TECH. "SQ20242
021500 02 FILLER PICTURE X(13) VALUE SPACE. SQ2024.2
021600 02 FILLER PIC X(15) VALUE " COPYRIGHT 1985". SQ2024.2
020400 02 FILLER X(1) VALUE .SQ2024.
021800 02 CCVS-E-4-1PIC XXXVALUE .
021900 02 FILLER PIC XXXX VALUE " OF ". SQ2024.2
0200 02 CCVS-E-4-2PIC XXX VALUE SPACE.
022100 02 FILLER PIC X(40) VALUE 0 2FILLERPICTUREX(2
0220 TESTSWERE EXECUTED SUCCESSFULLY". SQ2024.2
022300 01 XXINFO. SQ2024.2
022400 02 FILLER PIC X(30) VALUE " *** INFORMATION ***". SQ2024.2
022500 02 INFO-TEXT. SQ2024.2
022600 04 FILLER PICX(0 VALUE SPACE. .
022700 04 XXCOMPUTED PIC X(20). SQ2024.2
022800 04 FILLER PIC X(5) VALUE SPACE. SQ2024.2
022900 04 XXCORRECT PIC X(20). SQ2024.2
023000 01 HYPHEN-LINE. SQ2024.2
0200 FILLERPICTUREISXVALUEISSPACE .2
02320 2 FILLERPICTURE ISX(65 VALUE IS"***************SQ20242
023300- "*****************************************". SQ2024.2
0300 0 FILLER PICTURE ISX(5)VALUE IS *****************SQ2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023500- "*****0270 0 CCVS-E-4
023600 01 CCVS-PGM-ID PIC X(6) VALUE SQ2024.2
023700 "SQ202A". SQ2024.2
02300 DIVISION.SQ2024.2
SECTION
024000 OPEN-FILES. SQ2024.2
024100 OPEN I-O RAW-DATA. SQ2024.2
024200 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ2024.2
024300 READ RAW-DATA INVALID KEY GO TO END-E-1. SQ2024.2
024400 MOVE "ABORTED"TOC-ABORT. SQ20242
024500 ADD 1 TO C-NO-OF-TESTS. SQ2024.2
024600 ACCEPT C-DATE FROM DATE. SQ2024.2
02470 ACCEPT C-TIME FROM TIME
024800 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. SQ2024.2
0400 END-E-1
025000 CLOSE RAW-DATA. SQ2024.2
025100 OPEN30 2 PICTUREIS (4 IS "************SQ20242
025200 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. SQ2024.2
025300 MOVE SPACE TO 030-"*******************. 030 01CCVS-PGM-ID PIC () VALUE
025400 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. .
025500 MOVE ZERO TO REC-SKL-SUB. SQ2024.2
025600 PERFORMCCVS-INIT-FILE 9TIMES.
025700 CCVS-INIT-FILE. SQ2024.2
025800 ADD 1 TO REC-SKL-SUB. SQ2024.2
025900 MOVE FILE-RECORD-INFO-SKELETON TO SQ2024.2
026000 (REC-SKL-SUB 2
026100 CCVS-INIT-EXIT. SQ2024.2
026200 GO TO CCVS1-EXIT. SQ2024.2
026300 CLOSE-FILES. 3 READ RAW-DATAINVALIDKEY TOEND-E-1. .2
026400 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. SQ2024.2
026500 OPEN I-O 250 ADD 1TOC-NO-OF-TESTS SQ2024.
02660MOVE CCVS-PGM-ID TORAW-DATA-KEY.
026700 READ RAW-DATA INVALID KEY GO TO END-E-2. SQ2024.2
026800 MOVE "OK. 2480 RAW-DATA-SATZ END-E-1. SQ20242
02900MOVEPASS-COUNTER TO C-OK.
027000 MOVE ERROR-HOLD TO C-ALL. SQ2024.2
02700 MOVEERROR-COUNTER TOC-FAIL. SQ2024.2
027200 MOVE DELETE-CNT TO C-DELETED. SQ2024.2
027300 MOVE INSPECT-COUNTER510OPEN OUTPUT PRINT-FILE.SQ2024.2
027400 REWRITE RAW-DATA-SATZ INVALID KEY GO TO 240 PERFORM THRUCOLUMN-NAMES-ROUTINE 2
027500 END-E-2. SQ2024.2
027600 CLOSE RAW-DATA. SQ2024.
027700 TERMINATE-CCVS. SQ2024.2
027800 EXIT PROGRAM. SQ2024.2
027900 TERMINATE-CALL. SQ2024.2
028000 STOP RUN. SQ2024.2
028100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. SQ2024.2
280 PASS MOVE "ASS" TO P-OR-F.ADD 1TOPASS-COUNTER SQ2024.
028300 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. SQ2024.2
028400 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-CNT. SQ2024.2
028500 MOVE "****TEST DELETED****" TO RE-MARK. SQ2024.2
028600 PRINT-DETAIL. SQ2024.2
028700 IF250 OPEN I-O RAW-DATA.
028800 ". TO
028900 MOVE REC-CT TO DOTVALUE. SQ2024.2
02900 TEST-RESULTS . PERFORM WRITE-LINE.SQ20242
0210 IF P-OR-F EQUAL TO "*" PERFORM WRITE-LINE SQ2024.2
029200 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX SQ2024.2
029300 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. SQ2024.2
029400 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. SQ2024.2
029500 MOVE SPACE TO CORRECT-X.270 REWRITERAW-DATA-SATZINVALID END-E-2. SQ2024.
029600 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. 260.
029700 MOVE SPACE TO RE-MARK. SQ2024.2
029800 HEAD-ROUTINE. 2
029900 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2024.2
03000270 TERMINATE-CCVS.
030100 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. SQ2024.2
030200 COLUMN-NAMES-ROUTINE. SQ2024.2
03030 MOVECCVS-C-1 TODUMMY-RECORD.PERFORMWRITE-LINE.SQ20242
030400 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2024.2
03500 MOVE TO DUMMY-RECORD PERFORM WRITE-LINE.SQ2024.
0060 . TOP-OR-F.ADD TOPASS-COUNTER 2
030700 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.SQ2024.2
03000END-RTN-EXIT.
030900 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2024.2
031000 END-ROUTINE-1. SQ2024.2
031100 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO SQ2024.2
031200 ERROR-HOLD. ADD DELETE-CNT TO ERROR-HOLDRMWRITE-LINE Q20242
031300 ADD PASS-COUNTER TO ERROR-HOLD. SQ2024.2
031400* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. SQ2024.2
0150 MOVEPASS-COUNTER CCVS-E-4-1.
031600 MOVE ERROR-HOLD TO 28900 MOVE REC-CT TO DOTVALUE.2
03170 CCVS-E-4 TOCCVS-E-2-2SQ2024.2
MOVE CCVS-E-2 TO DUMMY-RECORDPERFORMWRITE-LINE. SQ2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03190 END-ROUTINE-12 SQ2024.2
032000 MOVE "TEST(S) FAILED" TO ENDER-DESC. SQ2024.2
032100 IF ERROR-COUNTERISEQUALTO ZERO SQ2024.2
03220 MOVE"NO" TOERROR-TOTAL 2
032300 ELSE SQ2024.2
032400 MOVE ERROR-COUNTER TOjava.lang.StringIndexOutOfBoundsException: Range [57, 37) out of bounds for length 80
0320MOVE CCVS-E-2 DUMMY-RECORD. SQ2024.2
032600 PERFORM WRITE-LINE. SQ2024.2
032700 END-ROUTINE-13. TO .PERFORMWRITE-LINE2TIMES .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03280 IFDELETE-CNT EQUAL TO ZEROSQ2024.2
032900 MOVE "NO " TO ERROR-TOTAL ELSE SQ2024.2
033000 MOVE DELETE-CNT TO ERROR-TOTAL. SQ2024.2
0310 MOVE "TEST(S) DELETED" TO ENDER-DESC .2
033200 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM. SQ2024.2
033300 IF INSPECT-COUNTER000 END-RTN-EXIT. SQ2024.2
033400 MOVE "NO " TO ERROR-TOTAL SQ2024.2
03500 ELSE INSPECT-COUNTERTO ERROR-TOTAL
033600 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC380END-RTN-EXIT.
0300MOVE TODUMMY-RECORD RITE-LINE. SQ2024
033800 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2024.2
033010 ADDERROR-COUNTER INSPECT-COUNTERTO SQ20242
.2
034100 IF RECORD-COUNT GREATER 50 SQ2024.2
034200 MOVE DUMMY-RECORD TO DUMMY-HOLD SQ2024.2
034300 MOVE SPACE TO DUMMY-RECORD SQ2024.2
034400 WRITE DUMMY-RECORD AFTER ADVANCING380 MOVE CCVS-E-2 TODUMMY-RECORDPERFORM WRITE-LINE. .
034500 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN SQ2024.2
034600 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES SQ2024.2
034700 MOVE HYPHEN-LINE TO DUMMY-RECORD380MOVECCVS-E-2 TODUMMY-RECORD PERFORM WRITE-LINE .
034800 DUMMY-HOLDTO DUMMY-RECORD SQ2024.2
034900 MOVE ZERO TO RECORD-COUNT. SQ2024.2
035000 PERFORM WRT-LN
035100 WRT-LN. SQ2024.2
035200 WRITE DUMMY-RECORD AFTER ADVANCING 1350 MOVE DUMMY-RECORD.
035300 MOVE SPACE TO DUMMY-RECORD. 330ELSE SQ2024
035400 BLANK-LINE-PRINT. SQ2024.2
35500 PERFORM WRT-LN. .2
035600 FAIL-ROUTINE10 MOVE "(S)DELETED"TO ENDER-DESC.SQ2024.2
00 IFF COMPUTED-X NOT EQUALTO GO FAIL-ROUTINE-WRITE. .2
035800 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ2024.2
035900 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. SQ2024.2
036000 MOVE XXINFO TO DUMMY-RECORD. PERFORM0300MOVE DELETE-CNT .SQ2024.2
036100 GO TO FAIL-ROUTINE-EX. SQ2024.2
036200 FAIL-ROUTINE-WRITE. SQ2024.2
0330 MOVETEST-COMPUTED TOPRINT-RECPERFORM WRITE-LINE .2
036400 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. SQ2024.2
036500 FAIL-ROUTINE-EX. EXIT. SQ2024.2
036600 BAIL-OUT. SQ2024.2
036700 IF COMPUTED-A NOT EQUAL GO TO.2
036800 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. SQ2024.2
036900 BAIL-OUT-WRITE. SQ2024.2
037000 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. SQ2024.2
037100 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2024.2
037200 BAIL-OUT-EX. EXIT. SQ2024.2
037300 CCVS1-EXIT. RECORD-COUNTSQ2024.2
07500SECTION-SQ202A-0001 SECTION.
037600 WRI-INIT-001. SQ2024.2
037700 MOVE "SQ-FS135 TODUMMY-RECORD WRT-LNSQ2024.
"-" (..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037900 MOVE "SQ202A" TO XPROGRAM-NAME (1). TO DUMMY-RECORD SQ2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038000 MOVE 120 TO XRECORD-LENGTH (1). SQ2024.20500 PERFORM WRT-LN SQ2024.2
038100 MOVE "RC" TO CHARS-OR-RECORDS (1). WRITE AFTERADVANCING 1 .SQ20242
038200 MOVE 1 TO XBLOCK-SIZE (1). SQ2024.2
038300 MOVE 750 TO RECORDS-IN-FILE (1). SQ2024.2
038400 MOVE "SQ" TO XFILE-ORGANIZATION (1). SQ2024.2
038500 MOVE "S3550 WRT-LN java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038600 MOVE 1 TO XRECORD-NUMBER (1). 50 IF COMPUTED-XNOTEQUALTO GO TO FAIL-ROUTINE-WRITE. 2
038700 OPEN OUTPUT SQ-FS1. SQ202405800 3F CORRECT-X NOT SPACE GO FAIL-ROUTINE-WRITE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038800 WRI-TEST-001. SQ2024.2
038900 MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-FS1R1-F-G-120. SQ2024.2
039000 WRITE SQ-FS1R1-F-G-120. FAIL-ROUTINE-WRITE.
039100 IF XRECORD-NUMBER (1) EQUAL TO 750 SQ2024.2
039200 GO TO WRI-WRITE-00106300 MOVE TEST-COMPUTEDTO PRINT-REC WRITE-LINE SQ2024.
039300 ADD 1 TO XRECORD-NUMBER (1). SQ2024.2
039400 GO TO WRI-TEST-001. SQ2024.2
039500 WRI-WRITE-001. SQ2024.2
039600 MOVE "CREATE FILE SQ-FS1" TO FEATURE. SQ2024.2
039700 MOVE "WRI-TEST-001" TO PAR-NAME. SQ2024.2
039800 MOVE "FILE CREATED, RECS =" TO COMPUTED-A. SQ2024.2
039900 MOVE XRECORD-NUMBER (1) TO CORRECT-18V0. SQ2024.2
040000 PERFORM PRINT-DETAIL. 037500 SECTION-SQ202A-0001 SECTION. SQ2024
040100 WRI-CLOSE-001. SQ2024.2
420 .SQ2024.2
040300 READ-INIT-001. SQ2024.2
040400 MOVE 0 TO RECORD-OUT-COUNT, RECORDS-IN-ERROR. SQ2024.2
040500 OPEN INPUT SQ-FS1 SQ2024.2
040600 READ-TEST-001. SQ2024.2
04070 READ SQ-FS1 AT END GOTO READ-TEST-001-01. .2
0408000810 MOVE""TOCHARS-OR-RECORDS()
04090 ADD 80MOVE"Q TOXFILE-ORGANIZATION 2
041000 IF RECORD-OUT-COUNT GREATER THAN 750 SQ2024.2
041100 MOVE "MORE THAN 750 RECORDS" TO00MOVE 70 RECORDS-IN-FILE 1 SQ2024.2
041200 038900 MOVE FILE-R 1)TOSQ-FS1R1-F-G-120.SQ20242
041300 IF RECORD-OUT-COUNT NOT EQUAL TO XRECORD-NUMBER (1) SQ2024.2
041400 ADD 1 TO RECORDS-IN-ERROR SQ2024.2
041500 GO TO READ-TEST-001. SQ2024.2
0 XFILE-NAME1NOT ""
0100 ADD 1TO RECORDS-IN-ERRORSQ2024.2
041800 GO TO READ-TEST-001. SQ2024.2
041900 IF XLABEL-TYPE (1) NOT EQUAL TO "S"039500 WRI-WRITE-001
042000 ADD 1 TO RECORDS-IN-ERROR. SQ2024.2
0 CREATED RECS =" COMPUTED-A SQ20242
042200 READ-TEST-001-01. SQ2024.2
042300 IF RECORDS-IN-ERROR EQUAL TO ZERO SQ2024.2
042400 GO TO READ-PASS-001. SQ2024.2
042500 MOVE "ERRORS IN READING SQ-FS1" TO RE-MARK. SQ2024.2
042600 READ-FAIL-001. SQ2024.2
042700 MOVE "RECORDS IN ERROR" TO COMPUTED-A. SQ2024.2
042800 MOVE RECORDS-IN-ERROR TO CORRECT-18V0. SQ2024.2
0429ERFORM FAIL
043000 GO TO READ-WRITE-001. SQ2024.2
043100 READ-PASS-001. SQ2024.2
043200 PERFORM PASS. SQ2024.2
043300 MOVE "FILE VERIFIED RECS =" TO COMPUTED-A. SQ2024.2
043400 MOVE RECORD-OUT-COUNT TO CORRECT-18V0. SQ2024.2
043500 READ-WRITE-001. SQ2024.2
043600 MOVE "READ-TEST-001" TO PAR-NAME. SQ2024.2
043700 MOVE "VERIFY FILE SQ-FS1" TO FEATURE. SQ2024.2
0480PERFORM PRINT-DETAIL
0490READ-CLOSE-001.
044000 CLOSE SQ-FS1. SQ2024.2
040SQ202A-END-ROUTINE
0N " PRINT-REC.SQ2024.2
044300 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2024.2
044400 TERMINATE-SQ202A. SQ2024.2
04500 EXIT.SQ2024.2
044600 CCVS-EXIT SECTION. .
0447490 IF XLABEL-TYPE 1) EQUALTO "" SQ20242
044800 GO TO CLOSE-FILES. SQ2024.2
¤ 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.16Bemerkung:
¤
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.
