|
000100 IDENTIFICATION DIVISION. SQ1164.2
000200 PROGRAM-ID. SQ1164.2
000300 SQ116A. SQ1164.2
000400**************************************************************** SQ1164.2
000500* * SQ1164.2
000600* VALIDATION FOR:- * SQ1164.2
000700* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1164.2
000800* * SQ1164.2
000900* CREATION DATE / VALIDATION DATE * SQ1164.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ1164.2
001100* * SQ1164.2
001200**************************************************************** SQ1164.2
001300 SQ1164.2
001400* THIS PROGRAM CREATES A SEQUENTIAL MASS STORAGE FILE SQ1164.2
001500* OF 550 RECORDS. THE FILE IS THEN OPENED IN THE I-O MODE AND SQ1164.2
001600* RECORDS ARE UPDATED USING REWRITE...FROM STATEMENTS. THE SQ1164.2
001700* FILE IS THEN READ AGAIN CHECKING EACH RECORD TO ENSURE SQ1164.2
001800* THE REWRITES WERE EXECUTED CORRECTLY. SQ1164.2
001900* SQ1164.2
002000* USED X-CARDS: SQ1164.2
002100* XXXXX014 SQ1164.2
002200* XXXXX055 SQ1164.2
002300* P XXXXX062 SQ1164.2
002400* XXXXX082 SQ1164.2
002500* XXXXX083 SQ1164.2
002600* C XXXXX084 SQ1164.2
002700* SQ1164.2
002800* SQ1164.2
002900 ENVIRONMENT DIVISION. SQ1164.2
003000 CONFIGURATION SECTION. SQ1164.2
003100 SOURCE-COMPUTER. SQ1164.2
003200 Card0130. SQ1164.2
003300 OBJECT-COMPUTER. SQ1164.2
003400 Card0131. SQ1164.2
003500 INPUT-OUTPUT SECTION. SQ1164.2
003600 FILE-CONTROL. SQ1164.2
003700 SELECT RAW-DATA ASSIGN TO SQ1164.2
003800 "C0098" SQ1164.2
003900 ORGANIZATION IS INDEXED SQ1164.2
004000 ACCESS MODE IS RANDOM SQ1164.2
004100 RECORD KEY IS RAW-DATA-KEY. SQ1164.2
004200 SELECT PRINT-FILE ASSIGN TO SQ1164.2
004300 "C0085" . SQ1164.2
004400 SELECT SQ-FS6 ASSIGN SQ1164.2
004500 "C0020" SQ1164.2
004600 ORGANIZATION SEQUENTIAL SQ1164.2
004700 ACCESS MODE SEQUENTIAL. SQ1164.2
004800 DATA DIVISION. SQ1164.2
004900 FILE SECTION. SQ1164.2
005000 SQ1164.2
005100 FD RAW-DATA. SQ1164.2
005200 SQ1164.2
005300 01 RAW-DATA-SATZ. SQ1164.2
005400 05 RAW-DATA-KEY PIC X(6). SQ1164.2
005500 05 C-DATE PIC 9(6). SQ1164.2
005600 05 C-TIME PIC 9(8). SQ1164.2
005700 05 C-NO-OF-TESTS PIC 99. SQ1164.2
005800 05 C-OK PIC 999. SQ1164.2
005900 05 C-ALL PIC 999. SQ1164.2
006000 05 C-FAIL PIC 999. SQ1164.2
006100 05 C-DELETED PIC 999. SQ1164.2
006200 05 C-INSPECT PIC 999. SQ1164.2
006300 05 C-NOTE PIC X(13). SQ1164.2
006400 05 C-INDENT PIC X. SQ1164.2
006500 05 C-ABORT PIC X(8). SQ1164.2
006600 FD PRINT-FILE SQ1164.2
006700 LABEL RECORDS SQ1164.2
006800 Card0132 SQ1164.2
006900 DATA RECORD IS PRINT-REC DUMMY-RECORD SQ1164.2
007000 . SQ1164.2
007100 01 PRINT-REC PICTURE X(120). SQ1164.2
007200 01 DUMMY-RECORD PICTURE X(120). SQ1164.2
007300 FD SQ-FS6 SQ1164.2
007400 LABEL RECORD STANDARD SQ1164.2
007500 . SQ1164.2
007600 01 SQ-FS6R1-F-G-130. SQ1164.2
007700 02 SQ-FS6R1-PART1 PICTURE X(120). SQ1164.2
007800 02 SQ-FS6R1-PART2 PICTURE X(10). SQ1164.2
007900 WORKING-STORAGE SECTION. SQ1164.2
008000 01 COUNT-OF-RECS PICTURE S9(5) COMPUTATIONAL. SQ1164.2
008100 01 RECORDS-IN-ERROR PIC S9(5) COMP VALUE ZERO. SQ1164.2
008200 01 ERROR-FLAG PIC 9. SQ1164.2
008300 01 EOF-FLAG PIC 9. SQ1164.2
008400 01 END-OF-RECORD-AREA. SQ1164.2
008500 02 UPDATE-AREA-ONLY PIC X(6). SQ1164.2
008600 02 NUMBER-AREA PIC 9999. SQ1164.2
008700 01 REWRT-FROM-AREA1. SQ1164.2
008800 02 AREA1-1 PICTURE X(120). SQ1164.2
008900 02 AREA1-2. SQ1164.2
009000 03 AREA1-21 PIC X(6). SQ1164.2
009100 03 AREA1-22 PIC 9999. SQ1164.2
009200 01 REWRT-FROM-AREA2. SQ1164.2
009300 02 AREA2-1. SQ1164.2
009400 03 AREA2-11 PIC X(120). SQ1164.2
009500 03 AREA2-12 PIC X(6). SQ1164.2
009600 03 AREA2-13 PIC 9999. SQ1164.2
009700 02 AREA2-2 PIC X(9). SQ1164.2
009800 01 RWRT-FROM-AREA3. SQ1164.2
009900 02 AREA3-1 PICTURE X(87). SQ1164.2
010000 01 FOLLOWS-AREA3 PICTURE X(9). SQ1164.2
010100 01 FILE-RECORD-INFORMATION-REC. SQ1164.2
010200 03 FILE-RECORD-INFO-SKELETON. SQ1164.2
010300 05 FILLER PICTURE X(48) VALUE SQ1164.2
010400 "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". SQ1164.2
010500 05 FILLER PICTURE X(46) VALUE SQ1164.2
010600 ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". SQ1164.2
010700 05 FILLER PICTURE X(26) VALUE SQ1164.2
010800 ",LFIL=000000,ORG= ,LBLR= ". SQ1164.2
010900 05 FILLER PICTURE X(37) VALUE SQ1164.2
011000 ",RECKEY= ". SQ1164.2
011100 05 FILLER PICTURE X(38) VALUE SQ1164.2
011200 ",ALTKEY1= ". SQ1164.2
011300 05 FILLER PICTURE X(38) VALUE SQ1164.2
011400 ",ALTKEY2= ". SQ1164.2
011500 05 FILLER PICTURE X(7) VALUE SPACE.SQ1164.2
011600 03 FILE-RECORD-INFO OCCURS 10 TIMES. SQ1164.2
011700 05 FILE-RECORD-INFO-P1-120. SQ1164.2
011800 07 FILLER PIC X(5). SQ1164.2
011900 07 XFILE-NAME PIC X(6). SQ1164.2
012000 07 FILLER PIC X(8). SQ1164.2
012100 07 XRECORD-NAME PIC X(6). SQ1164.2
012200 07 FILLER PIC X(1). SQ1164.2
012300 07 REELUNIT-NUMBER PIC 9(1). SQ1164.2
012400 07 FILLER PIC X(7). SQ1164.2
012500 07 XRECORD-NUMBER PIC 9(6). SQ1164.2
012600 07 FILLER PIC X(6). SQ1164.2
012700 07 UPDATE-NUMBER PIC 9(2). SQ1164.2
012800 07 FILLER PIC X(5). SQ1164.2
012900 07 ODO-NUMBER PIC 9(4). SQ1164.2
013000 07 FILLER PIC X(5). SQ1164.2
013100 07 XPROGRAM-NAME PIC X(5). SQ1164.2
013200 07 FILLER PIC X(7). SQ1164.2
013300 07 XRECORD-LENGTH PIC 9(6). SQ1164.2
013400 07 FILLER PIC X(7). SQ1164.2
013500 07 CHARS-OR-RECORDS PIC X(2). SQ1164.2
013600 07 FILLER PIC X(1). SQ1164.2
013700 07 XBLOCK-SIZE PIC 9(4). SQ1164.2
013800 07 FILLER PIC X(6). SQ1164.2
013900 07 RECORDS-IN-FILE PIC 9(6). SQ1164.2
014000 07 FILLER PIC X(5). SQ1164.2
014100 07 XFILE-ORGANIZATION PIC X(2). SQ1164.2
014200 07 FILLER PIC X(6). SQ1164.2
014300 07 XLABEL-TYPE PIC X(1). SQ1164.2
014400 05 FILE-RECORD-INFO-P121-240. SQ1164.2
014500 07 FILLER PIC X(8). SQ1164.2
014600 07 XRECORD-KEY PIC X(29). SQ1164.2
014700 07 FILLER PIC X(9). SQ1164.2
014800 07 ALTERNATE-KEY1 PIC X(29). SQ1164.2
014900 07 FILLER PIC X(9). SQ1164.2
015000 07 ALTERNATE-KEY2 PIC X(29). SQ1164.2
015100 07 FILLER PIC X(7). SQ1164.2
015200 01 TEST-RESULTS. SQ1164.2
015300 02 FILLER PICTURE X VALUE SPACE. SQ1164.2
015400 02 FEATURE PICTURE X(20) VALUE SPACE. SQ1164.2
015500 02 FILLER PICTURE X VALUE SPACE. SQ1164.2
015600 02 P-OR-F PICTURE X(5) VALUE SPACE. SQ1164.2
015700 02 FILLER PICTURE X VALUE SPACE. SQ1164.2
015800 02 PAR-NAME. SQ1164.2
015900 03 FILLER PICTURE X(12) VALUE SPACE. SQ1164.2
016000 03 PARDOT-X PICTURE X VALUE SPACE. SQ1164.2
016100 03 DOTVALUE PICTURE 99 VALUE ZERO. SQ1164.2
016200 03 FILLER PIC X(5) VALUE SPACE. SQ1164.2
016300 02 FILLER PIC X(10) VALUE SPACE. SQ1164.2
016400 02 RE-MARK PIC X(61). SQ1164.2
016500 01 TEST-COMPUTED. SQ1164.2
016600 02 FILLER PIC X(30) VALUE SPACE. SQ1164.2
016700 02 FILLER PIC X(17) VALUE " COMPUTED=". SQ1164.2
016800 02 COMPUTED-X. SQ1164.2
016900 03 COMPUTED-A PICTURE X(20) VALUE SPACE. SQ1164.2
017000 03 COMPUTED-N REDEFINES COMPUTED-A PICTURE -9(9).9(9). SQ1164.2
017100 03 COMPUTED-0V18 REDEFINES COMPUTED-A PICTURE -.9(18). SQ1164.2
017200 03 COMPUTED-4V14 REDEFINES COMPUTED-A PICTURE -9(4).9(14). SQ1164.2
017300 03 COMPUTED-14V4 REDEFINES COMPUTED-A PICTURE -9(14).9(4). SQ1164.2
017400 03 CM-18V0 REDEFINES COMPUTED-A. SQ1164.2
017500 04 COMPUTED-18V0 PICTURE -9(18). SQ1164.2
017600 04 FILLER PICTURE X. SQ1164.2
017700 03 FILLER PIC X(50) VALUE SPACE. SQ1164.2
017800 01 TEST-CORRECT. SQ1164.2
017900 02 FILLER PIC X(30) VALUE SPACE. SQ1164.2
018000 02 FILLER PIC X(17) VALUE " CORRECT =". SQ1164.2
018100 02 CORRECT-X. SQ1164.2
018200 03 CORRECT-A PICTURE X(20) VALUE SPACE. SQ1164.2
018300 03 CORRECT-N REDEFINES CORRECT-A PICTURE -9(9).9(9). SQ1164.2
018400 03 CORRECT-0V18 REDEFINES CORRECT-A PICTURE -.9(18). SQ1164.2
018500 03 CORRECT-4V14 REDEFINES CORRECT-A PICTURE -9(4).9(14). SQ1164.2
018600 03 CORRECT-14V4 REDEFINES CORRECT-A PICTURE -9(14).9(4). SQ1164.2
018700 03 CR-18V0 REDEFINES CORRECT-A. SQ1164.2
018800 04 CORRECT-18V0 PICTURE -9(18). SQ1164.2
018900 04 FILLER PICTURE X. SQ1164.2
019000 03 FILLER PIC X(50) VALUE SPACE. SQ1164.2
019100 01 CCVS-C-1. SQ1164.2
019200 02 FILLER PICTURE IS X(99) VALUE IS " FEATURE PASQ1164.2
019300- "SS PARAGRAPH-NAME SQ1164.2
019400- " REMARKS". SQ1164.2
019500 02 FILLER PICTURE IS X(20) VALUE IS SPACE. SQ1164.2
019600 01 CCVS-C-2. SQ1164.2
019700 02 FILLER PICTURE IS X VALUE IS SPACE. SQ1164.2
019800 02 FILLER PICTURE IS X(6) VALUE IS "TESTED". SQ1164.2
019900 02 FILLER PICTURE IS X(15) VALUE IS SPACE. SQ1164.2
020000 02 FILLER PICTURE IS X(4) VALUE IS "FAIL". SQ1164.2
020100 02 FILLER PICTURE IS X(94) VALUE IS SPACE. SQ1164.2
020200 01 REC-SKL-SUB PICTURE 9(2) VALUE ZERO. SQ1164.2
020300 01 REC-CT PICTURE 99 VALUE ZERO. SQ1164.2
020400 01 DELETE-CNT PICTURE 999 VALUE ZERO. SQ1164.2
020500 01 ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO. SQ1164.2
020600 01 INSPECT-COUNTER PIC 999 VALUE ZERO. SQ1164.2
020700 01 PASS-COUNTER PIC 999 VALUE ZERO. SQ1164.2
020800 01 TOTAL-ERROR PIC 999 VALUE ZERO. SQ1164.2
020900 01 ERROR-HOLD PIC 999 VALUE ZERO. SQ1164.2
021000 01 DUMMY-HOLD PIC X(120) VALUE SPACE. SQ1164.2
021100 01 RECORD-COUNT PIC 9(5) VALUE ZERO. SQ1164.2
021200 01 CCVS-H-1. SQ1164.2
021300 02 FILLER PICTURE X(27) VALUE SPACE. SQ1164.2
021400 02 FILLER PICTURE X(67) VALUE SQ1164.2
021500 " FEDERAL SOFTWARE TESTING CENTER COBOL COMPILER VALIDATION SQ1164.2
021600- " SYSTEM". SQ1164.2
021700 02 FILLER PICTURE X(26) VALUE SPACE. SQ1164.2
021800 01 CCVS-H-2. SQ1164.2
021900 02 FILLER PICTURE X(52) VALUE IS SQ1164.2
022000 "CCVS85 FSTC COPY, NOT FOR DISTRIBUTION.". SQ1164.2
022100 02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- ". SQ1164.2
022200 02 TEST-ID PICTURE IS X(9). SQ1164.2
022300 02 FILLER PICTURE IS X(40) VALUE IS SPACE. SQ1164.2
022400 01 CCVS-H-3. SQ1164.2
022500 02 FILLER PICTURE X(34) VALUE SQ1164.2
022600 " FOR OFFICIAL USE ONLY ". SQ1164.2
022700 02 FILLER PICTURE X(58) VALUE SQ1164.2
022800 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ1164.2
022900 02 FILLER PICTURE X(28) VALUE SQ1164.2
023000 " COPYRIGHT 1985 ". SQ1164.2
023100 01 CCVS-E-1. SQ1164.2
023200 02 FILLER PICTURE IS X(52) VALUE IS SPACE. SQ1164.2
023300 02 FILLER PICTURE IS X(14) VALUE IS "END OF TEST- ". SQ1164.2
023400 02 ID-AGAIN PICTURE IS X(9). SQ1164.2
023500 02 FILLER PICTURE X(45) VALUE IS SQ1164.2
023600 " NTIS DISTRIBUTION COBOL 85". SQ1164.2
023700 01 CCVS-E-2. SQ1164.2
023800 02 FILLER PICTURE X(31) VALUE SQ1164.2
023900 SPACE. SQ1164.2
024000 02 FILLER PICTURE X(21) VALUE SPACE. SQ1164.2
024100 02 CCVS-E-2-2. SQ1164.2
024200 03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE. SQ1164.2
024300 03 FILLER PICTURE IS X VALUE IS SPACE. SQ1164.2
024400 03 ENDER-DESC PIC X(46) VALUE "ERRORS ENCOUNTERED". SQ1164.2
024500 01 CCVS-E-3. SQ1164.2
024600 02 FILLER PICTURE X(22) VALUE SQ1164.2
024700 " FOR OFFICIAL USE ONLY". SQ1164.2
024800 02 FILLER PICTURE X(12) VALUE SPACE. SQ1164.2
024900 02 FILLER PICTURE X(58) VALUE SQ1164.2
025000 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1164.2
025100 02 FILLER PICTURE X(13) VALUE SPACE. SQ1164.2
025200 02 FILLER PIC X(15) VALUE " COPYRIGHT 1985". SQ1164.2
025300 01 CCVS-E-4. SQ1164.2
025400 02 CCVS-E-4-1 PIC XXX VALUE SPACE. SQ1164.2
025500 02 FILLER PIC XXXX VALUE " OF ". SQ1164.2
025600 02 CCVS-E-4-2 PIC XXX VALUE SPACE. SQ1164.2
025700 02 FILLER PIC X(40) VALUE SQ1164.2
025800 " TESTS WERE EXECUTED SUCCESSFULLY". SQ1164.2
025900 01 XXINFO. SQ1164.2
026000 02 FILLER PIC X(30) VALUE " *** INFORMATION ***". SQ1164.2
026100 02 INFO-TEXT. SQ1164.2
026200 04 FILLER PIC X(20) VALUE SPACE. SQ1164.2
026300 04 XXCOMPUTED PIC X(20). SQ1164.2
026400 04 FILLER PIC X(5) VALUE SPACE. SQ1164.2
026500 04 XXCORRECT PIC X(20). SQ1164.2
026600 01 HYPHEN-LINE. SQ1164.2
026700 02 FILLER PICTURE IS X VALUE IS SPACE. SQ1164.2
026800 02 FILLER PICTURE IS X(65) VALUE IS "************************SQ1164.2
026900- "*****************************************". SQ1164.2
027000 02 FILLER PICTURE IS X(54) VALUE IS "************************SQ1164.2
027100- "******************************". SQ1164.2
027200 01 CCVS-PGM-ID PIC X(6) VALUE SQ1164.2
027300 "SQ116A". SQ1164.2
027400 PROCEDURE DIVISION. SQ1164.2
027500 CCVS1 SECTION. SQ1164.2
027600 OPEN-FILES. SQ1164.2
027700 OPEN I-O RAW-DATA. SQ1164.2
027800 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ1164.2
027900 READ RAW-DATA INVALID KEY GO TO END-E-1. SQ1164.2
028000 MOVE "ABORTED " TO C-ABORT. SQ1164.2
028100 ADD 1 TO C-NO-OF-TESTS. SQ1164.2
028200 ACCEPT C-DATE FROM DATE. SQ1164.2
028300 ACCEPT C-TIME FROM TIME. SQ1164.2
028400 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. SQ1164.2
028500 END-E-1. SQ1164.2
028600 CLOSE RAW-DATA. SQ1164.2
028700 OPEN OUTPUT PRINT-FILE. SQ1164.2
028800 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. SQ1164.2
028900 MOVE SPACE TO TEST-RESULTS. SQ1164.2
029000 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. SQ1164.2
029100 MOVE ZERO TO REC-SKL-SUB. SQ1164.2
029200 PERFORM CCVS-INIT-FILE 9 TIMES. SQ1164.2
029300 CCVS-INIT-FILE. SQ1164.2
029400 ADD 1 TO REC-SKL-SUB. SQ1164.2
029500 MOVE FILE-RECORD-INFO-SKELETON TO SQ1164.2
029600 FILE-RECORD-INFO (REC-SKL-SUB). SQ1164.2
029700 CCVS-INIT-EXIT. SQ1164.2
029800 GO TO CCVS1-EXIT. SQ1164.2
029900 CLOSE-FILES. SQ1164.2
030000 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. SQ1164.2
030100 OPEN I-O RAW-DATA. SQ1164.2
030200 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ1164.2
030300 READ RAW-DATA INVALID KEY GO TO END-E-2. SQ1164.2
030400 MOVE "OK. " TO C-ABORT. SQ1164.2
030500 MOVE PASS-COUNTER TO C-OK. SQ1164.2
030600 MOVE ERROR-HOLD TO C-ALL. SQ1164.2
030700 MOVE ERROR-COUNTER TO C-FAIL. SQ1164.2
030800 MOVE DELETE-CNT TO C-DELETED. SQ1164.2
030900 MOVE INSPECT-COUNTER TO C-INSPECT. SQ1164.2
031000 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2. SQ1164.2
031100 END-E-2. SQ1164.2
031200 CLOSE RAW-DATA. SQ1164.2
031300 TERMINATE-CCVS. SQ1164.2
031400 EXIT PROGRAM. SQ1164.2
031500 TERMINATE-CALL. SQ1164.2
031600 STOP RUN. SQ1164.2
031700 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. SQ1164.2
031800 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. SQ1164.2
031900 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. SQ1164.2
032000 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-CNT. SQ1164.2
032100 MOVE "****TEST DELETED****" TO RE-MARK. SQ1164.2
032200 PRINT-DETAIL. SQ1164.2
032300 IF REC-CT NOT EQUAL TO ZERO SQ1164.2
032400 MOVE "." TO PARDOT-X SQ1164.2
032500 MOVE REC-CT TO DOTVALUE. SQ1164.2
032600 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. SQ1164.2
032700 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE SQ1164.2
032800 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX SQ1164.2
032900 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. SQ1164.2
033000 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. SQ1164.2
033100 MOVE SPACE TO CORRECT-X. SQ1164.2
033200 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. SQ1164.2
033300 MOVE SPACE TO RE-MARK. SQ1164.2
033400 HEAD-ROUTINE. SQ1164.2
033500 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ1164.2
033600 MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES. SQ1164.2
033700 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. SQ1164.2
033800 COLUMN-NAMES-ROUTINE. SQ1164.2
033900 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ1164.2
034000 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ1164.2
034100 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ1164.2
034200 END-ROUTINE. SQ1164.2
034300 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.SQ1164.2
034400 END-RTN-EXIT. SQ1164.2
034500 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ1164.2
034600 END-ROUTINE-1. SQ1164.2
034700 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO SQ1164.2
034800 ERROR-HOLD. ADD DELETE-CNT TO ERROR-HOLD. SQ1164.2
034900 ADD PASS-COUNTER TO ERROR-HOLD. SQ1164.2
035000* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. SQ1164.2
035100 MOVE PASS-COUNTER TO CCVS-E-4-1. SQ1164.2
035200 MOVE ERROR-HOLD TO CCVS-E-4-2. SQ1164.2
035300 MOVE CCVS-E-4 TO CCVS-E-2-2. SQ1164.2
035400 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. SQ1164.2
035500 END-ROUTINE-12. SQ1164.2
035600 MOVE "TEST(S) FAILED" TO ENDER-DESC. SQ1164.2
035700 IF ERROR-COUNTER IS EQUAL TO ZERO SQ1164.2
035800 MOVE "NO " TO ERROR-TOTAL SQ1164.2
035900 ELSE SQ1164.2
036000 MOVE ERROR-COUNTER TO ERROR-TOTAL. SQ1164.2
036100 MOVE CCVS-E-2 TO DUMMY-RECORD. SQ1164.2
036200 PERFORM WRITE-LINE. SQ1164.2
036300 END-ROUTINE-13. SQ1164.2
036400 IF DELETE-CNT IS EQUAL TO ZERO SQ1164.2
036500 MOVE "NO " TO ERROR-TOTAL ELSE SQ1164.2
036600 MOVE DELETE-CNT TO ERROR-TOTAL. SQ1164.2
036700 MOVE "TEST(S) DELETED " TO ENDER-DESC. SQ1164.2
036800 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ1164.2
036900 IF INSPECT-COUNTER EQUAL TO ZERO SQ1164.2
037000 MOVE "NO " TO ERROR-TOTAL SQ1164.2
037100 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. SQ1164.2
037200 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. SQ1164.2
037300 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ1164.2
037400 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ1164.2
037500 WRITE-LINE. SQ1164.2
037600 ADD 1 TO RECORD-COUNT. SQ1164.2
037700 IF RECORD-COUNT GREATER 50 SQ1164.2
037800 MOVE DUMMY-RECORD TO DUMMY-HOLD SQ1164.2
037900 MOVE SPACE TO DUMMY-RECORD SQ1164.2
038000 WRITE DUMMY-RECORD AFTER ADVANCING PAGE SQ1164.2
038100 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN SQ1164.2
038200 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES SQ1164.2
038300 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN SQ1164.2
038400 MOVE DUMMY-HOLD TO DUMMY-RECORD SQ1164.2
038500 MOVE ZERO TO RECORD-COUNT. SQ1164.2
038600 PERFORM WRT-LN. SQ1164.2
038700 WRT-LN. SQ1164.2
038800 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. SQ1164.2
038900 MOVE SPACE TO DUMMY-RECORD. SQ1164.2
039000 BLANK-LINE-PRINT. SQ1164.2
039100 PERFORM WRT-LN. SQ1164.2
039200 FAIL-ROUTINE. SQ1164.2
039300 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ1164.2
039400 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ1164.2
039500 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. SQ1164.2
039600 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ1164.2
039700 GO TO FAIL-ROUTINE-EX. SQ1164.2
039800 FAIL-ROUTINE-WRITE. SQ1164.2
039900 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE SQ1164.2
040000 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. SQ1164.2
040100 FAIL-ROUTINE-EX. EXIT. SQ1164.2
040200 BAIL-OUT. SQ1164.2
040300 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. SQ1164.2
040400 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. SQ1164.2
040500 BAIL-OUT-WRITE. SQ1164.2
040600 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. SQ1164.2
040700 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ1164.2
040800 BAIL-OUT-EX. EXIT. SQ1164.2
040900 CCVS1-EXIT. SQ1164.2
041000 EXIT. SQ1164.2
041100 SECT-SQ116A-0001 SECTION. SQ1164.2
041200 SEQ-INIT-023. SQ1164.2
041300 MOVE "SQ-FS6" TO XFILE-NAME (1). SQ1164.2
041400 MOVE "R1-F-G" TO XRECORD-NAME (1). SQ1164.2
041500 MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). SQ1164.2
041600 MOVE 130 TO XRECORD-LENGTH (1). SQ1164.2
041700 MOVE "RC" TO CHARS-OR-RECORDS (1). SQ1164.2
041800 MOVE 0001 TO XBLOCK-SIZE (1). SQ1164.2
041900 MOVE 000550 TO RECORDS-IN-FILE (1). SQ1164.2
042000 MOVE "SQ" TO XFILE-ORGANIZATION (1). SQ1164.2
042100 MOVE "O" TO XLABEL-TYPE (1). SQ1164.2
042200 MOVE "FIRST " TO UPDATE-AREA-ONLY. SQ1164.2
042300 MOVE ZERO TO COUNT-OF-RECS. SQ1164.2
042400 OPEN OUTPUT SQ-FS6. SQ1164.2
042500 SEQ-TEST-023. SQ1164.2
042600 ADD 1 TO COUNT-OF-RECS. SQ1164.2
042700 MOVE COUNT-OF-RECS TO XRECORD-NUMBER (1). SQ1164.2
042800 MOVE COUNT-OF-RECS TO NUMBER-AREA. SQ1164.2
042900 MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-FS6R1-PART1. SQ1164.2
043000 MOVE END-OF-RECORD-AREA TO SQ-FS6R1-PART2. SQ1164.2
043100 WRITE SQ-FS6R1-F-G-130. SQ1164.2
043200 IF COUNT-OF-RECS EQUAL TO 550 SQ1164.2
043300 GO TO SEQ-WRITE-023. SQ1164.2
043400 GO TO SEQ-TEST-023. SQ1164.2
043500 SEQ-WRITE-023. SQ1164.2
043600 MOVE "CREATE FILE SQ-FS6" TO FEATURE. SQ1164.2
043700 MOVE "SEQ-WRITE-023" TO PAR-NAME. SQ1164.2
043800 MOVE "FILE CREATED, RECS =" TO COMPUTED-A. SQ1164.2
043900 MOVE COUNT-OF-RECS TO CORRECT-18V0. SQ1164.2
044000 PERFORM PRINT-DETAIL. SQ1164.2
044100 CLOSE SQ-FS6. SQ1164.2
044200* A SEQUENTIAL MASS STORAGE FILE WITH 130 CHARACTER SQ1164.2
044300* RECORDS HAS BEEN CREATED. THE FILE CONTAINS 550 RECORDS. SQ1164.2
044400 SEQ-INIT-024. SQ1164.2
044500 MOVE ZERO TO COUNT-OF-RECS. SQ1164.2
044600* THIS TEST VERIFIES THE FILE CREATED IN SEQ-TEST-023. SQ1164.2
044700 OPEN INPUT SQ-FS6. SQ1164.2
044800 SEQ-TEST-024. SQ1164.2
044900 READ SQ-FS6 AT END GO TO SEQ-TEST-024-1. SQ1164.2
045000 ADD 1 TO COUNT-OF-RECS. SQ1164.2
045100 IF COUNT-OF-RECS GREATER THAN 550 SQ1164.2
045200 MOVE "MORE THAN 550 RECORDS" TO RE-MARK SQ1164.2
045300 GO TO SEQ-FAIL-024. SQ1164.2
045400 MOVE SQ-FS6R1-PART1 TO FILE-RECORD-INFO-P1-120 (1). SQ1164.2
045500 MOVE SQ-FS6R1-PART2 TO END-OF-RECORD-AREA. SQ1164.2
045600 IF UPDATE-AREA-ONLY NOT EQUAL TO "FIRST " SQ1164.2
045700 GO TO SEQ-FAIL-024-1. SQ1164.2
045800 IF NUMBER-AREA NOT EQUAL TO COUNT-OF-RECS SQ1164.2
045900 GO TO SEQ-FAIL-024-1. SQ1164.2
046000 IF XRECORD-NUMBER (1) NOT EQUAL TO COUNT-OF-RECS SQ1164.2
046100 GO TO SEQ-FAIL-024-1. SQ1164.2
046200 IF XFILE-NAME (1) NOT EQUAL TO "SQ-FS6" SQ1164.2
046300 GO TO SEQ-FAIL-024-1. SQ1164.2
046400 IF UPDATE-NUMBER (1) NOT EQUAL TO ZERO SQ1164.2
046500 GO TO SEQ-FAIL-024-1. SQ1164.2
046600 IF XLABEL-TYPE (1) NOT EQUAL TO "O" SQ1164.2
046700 GO TO SEQ-FAIL-024-1. SQ1164.2
046800 GO TO SEQ-TEST-024. SQ1164.2
046900 SEQ-FAIL-024-1. SQ1164.2
047000 ADD 1 TO RECORDS-IN-ERROR. SQ1164.2
047100 GO TO SEQ-TEST-024. SQ1164.2
047200 SEQ-TEST-024-1. SQ1164.2
047300 IF RECORDS-IN-ERROR EQUAL TO 0 SQ1164.2
047400 GO TO SEQ-PASS-024. SQ1164.2
047500 MOVE "ERRORS IN READING SQ-FS6" TO RE-MARK. SQ1164.2
047600 SEQ-FAIL-024. SQ1164.2
047700 MOVE "RECORDS IN ERROR =" TO COMPUTED-A. SQ1164.2
047800 MOVE RECORDS-IN-ERROR TO CORRECT-18V0. SQ1164.2
047900 PERFORM FAIL. SQ1164.2
048000 GO TO SEQ-WRITE-024. SQ1164.2
048100 SEQ-PASS-024. SQ1164.2
048200 PERFORM PASS. SQ1164.2
048300 MOVE "FILE VERIFIED RECS =" TO COMPUTED-A. SQ1164.2
048400 MOVE COUNT-OF-RECS TO CORRECT-18V0. SQ1164.2
048500 SEQ-WRITE-024. SQ1164.2
048600 MOVE "SEQ-TEST-024" TO PAR-NAME. SQ1164.2
048700 MOVE "VERIFY FILE SQ-FS6" TO FEATURE. SQ1164.2
048800 PERFORM PRINT-DETAIL. SQ1164.2
048900 SEQ-CLOSE-024. SQ1164.2
049000 CLOSE SQ-FS6. SQ1164.2
049100 REWRITE-INIT-GF-01. SQ1164.2
049200 OPEN I-O SQ-FS6. SQ1164.2
049300 MOVE 0 TO COUNT-OF-RECS. SQ1164.2
049400 MOVE 0 TO EOF-FLAG. SQ1164.2
049500 MOVE 0 TO ERROR-FLAG. SQ1164.2
049600* SKIP THE FIRST 30 RECORDS. SQ1164.2
049700 PERFORM READ-SQ-FS6 THRU READ-SQ-FS6-EXIT 30 TIMES. SQ1164.2
049800 IF EOF-FLAG EQUAL TO 1 SQ1164.2
049900 GO TO CANT-TEST. SQ1164.2
050000 GO TO REWRITE-TEST-GF-01. SQ1164.2
050100 READ-SQ-FS6. SQ1164.2
050200 IF EOF-FLAG EQUAL TO 1 SQ1164.2
050300 GO TO READ-SQ-FS6-EXIT. SQ1164.2
050400 READ SQ-FS6 AT END SQ1164.2
050500 MOVE 1 TO EOF-FLAG. SQ1164.2
050600 ADD 1 TO COUNT-OF-RECS. SQ1164.2
050700 READ-SQ-FS6-EXIT. SQ1164.2
050800 EXIT. SQ1164.2
050900 REWRITE-TEST-GF-01. SQ1164.2
051000* THIS TEST REWRITES RECORDS FROM A WORKING-STORAGE AREA SQ1164.2
051100* THE SAME SIZE AS THE FD 01 RECORD AREA. A CHECK IS MADE TO SQ1164.2
051200* ENSURE THAT THE FROM AREA WAS NOT DESTROYED BY THE REWRITE...SQ1164.2
051300* FROM STATEMENT. SQ1164.2
051400 IF COUNT-OF-RECS EQUAL TO 80 SQ1164.2
051500 GO TO REWRITE-TEST-GF-01-1. SQ1164.2
051600 READ SQ-FS6 RECORD SQ1164.2
051700 AT END GO TO CANT-TEST. SQ1164.2
051800 ADD 1 TO COUNT-OF-RECS. SQ1164.2
051900 MOVE SQ-FS6R1-PART1 TO FILE-RECORD-INFO-P1-120 (1). SQ1164.2
052000 ADD 1 TO UPDATE-NUMBER (1). SQ1164.2
052100 MOVE FILE-RECORD-INFO-P1-120 (1) TO AREA1-1. SQ1164.2
052200 MOVE SQ-FS6R1-PART2 TO AREA1-2. SQ1164.2
052300 MOVE "SECOND" TO AREA1-21. SQ1164.2
052400 REWRITE SQ-FS6R1-F-G-130 FROM REWRT-FROM-AREA1. SQ1164.2
052500 IF AREA1-1 NOT EQUAL TO FILE-RECORD-INFO-P1-120 (1) SQ1164.2
052600 GO TO REWRITE-FAIL-GF-01-1. SQ1164.2
052700 IF AREA1-21 NOT EQUAL TO "SECOND" SQ1164.2
052800 GO TO REWRITE-FAIL-GF-01-1. SQ1164.2
052900 IF AREA1-22 EQUAL TO COUNT-OF-RECS SQ1164.2
053000 GO TO REWRITE-TEST-GF-01. SQ1164.2
053100 REWRITE-FAIL-GF-01-1. SQ1164.2
053200 MOVE 1 TO ERROR-FLAG. SQ1164.2
053300 GO TO REWRITE-TEST-GF-01. SQ1164.2
053400 REWRITE-TEST-GF-01-1. SQ1164.2
053500 IF ERROR-FLAG EQUAL TO ZERO SQ1164.2
053600 GO TO REWRITE-PASS-GF-01. SQ1164.2
053700 REWRITE-FAIL-GF-01. SQ1164.2
053800 MOVE "FROM AREA CLOBBERED" TO COMPUTED-A. SQ1164.2
053900 MOVE "VII-48; 4.5.2 " TO RE-MARK.SQ1164.2
054000 PERFORM FAIL. SQ1164.2
054100 GO TO REWRITE-WRITE-GF-01. SQ1164.2
054200 REWRITE-PASS-GF-01. SQ1164.2
054300 PERFORM PASS. SQ1164.2
054400 REWRITE-WRITE-GF-01. SQ1164.2
054500 MOVE "RWRT-TEST-GF-01" TO PAR-NAME. SQ1164.2
054600 MOVE "REWRITE...FROM 01 L" TO FEATURE. SQ1164.2
054700 PERFORM PRINT-DETAIL. SQ1164.2
054800 REWRITE-INIT-GF-02-A. SQ1164.2
054900* THIS TEST REWRITES A RECORD FROM A WORKING-STORAGE AREA SQ1164.2
055000* LARGER THAN THE FD 01 RECORD AREA. TRUNCATION SHOULD SQ1164.2
055100* OCCUR ON THE RIGHTMOST CHARACTERS. SQ1164.2
055200 READ SQ-FS6 RECORD SQ1164.2
055300 AT END GO TO CANT-TEST. SQ1164.2
055400 ADD 1 TO COUNT-OF-RECS. SQ1164.2
055500 MOVE SQ-FS6R1-PART1 TO FILE-RECORD-INFO-P1-120 (1). SQ1164.2
055600 ADD 1 TO UPDATE-NUMBER (1). SQ1164.2
055700 MOVE FILE-RECORD-INFO-P1-120 (1) TO AREA2-11. SQ1164.2
055800 MOVE "SECOND" TO AREA2-12. SQ1164.2
055900 MOVE COUNT-OF-RECS TO AREA2-13. SQ1164.2
056000 MOVE "JUNK-AREA" TO AREA2-2. SQ1164.2
056100 REWRITE SQ-FS6R1-F-G-130 FROM REWRT-FROM-AREA2. SQ1164.2
056200 IF COUNT-OF-RECS EQUAL TO 120 SQ1164.2
056300 GO TO REWRITE-INIT-GF-03-A. SQ1164.2
056400 GO TO REWRITE-INIT-GF-02-A. SQ1164.2
056500 REWRITE-INIT-GF-03-A. SQ1164.2
056600* THIS TEST REWRITES A RECORD FROM AN 87 CHARACTER SQ1164.2
056700* WORKING-STORAGE ITEM. THE REST OF THE 130 CHARACTERS SQ1164.2
056800* SHOULD BE SPACE FILLED DURING THE REWRITE STATEMENT. SQ1164.2
056900 READ SQ-FS6 RECORD SQ1164.2
057000 AT END GO TO CANT-TEST. SQ1164.2
057100 ADD 1 TO COUNT-OF-RECS. SQ1164.2
057200 MOVE SQ-FS6R1-PART1 TO FILE-RECORD-INFO-P1-120 (1). SQ1164.2
057300 ADD 1 TO UPDATE-NUMBER (1). SQ1164.2
057400 MOVE FILE-RECORD-INFO-P1-120 (1) TO AREA3-1. SQ1164.2
057500 MOVE "JUNK-AREA" TO FOLLOWS-AREA3. SQ1164.2
057600 REWRITE SQ-FS6R1-F-G-130 FROM RWRT-FROM-AREA3. SQ1164.2
057700 IF COUNT-OF-RECS EQUAL TO 160 SQ1164.2
057800 GO TO REWRITE-INIT-GF-04-A. SQ1164.2
057900 GO TO REWRITE-INIT-GF-03-A. SQ1164.2
058000 REWRITE-INIT-GF-04-A. SQ1164.2
058100* THIS TEST REWRITES A RECORD FROM AN 02 LEVEL DATA ITEM. SQ1164.2
058200 READ SQ-FS6 RECORD SQ1164.2
058300 AT END GO TO CANT-TEST. SQ1164.2
058400 ADD 1 TO COUNT-OF-RECS. SQ1164.2
058500 MOVE SQ-FS6R1-PART1 TO FILE-RECORD-INFO-P1-120 (1). SQ1164.2
058600 ADD 1 TO UPDATE-NUMBER (1). SQ1164.2
058700 MOVE FILE-RECORD-INFO-P1-120 (1) TO AREA2-11. SQ1164.2
058800 MOVE "SECOND" TO AREA2-12. SQ1164.2
058900 MOVE COUNT-OF-RECS TO AREA2-13. SQ1164.2
059000 MOVE "JUNK-AREA" TO AREA2-2. SQ1164.2
059100 REWRITE SQ-FS6R1-F-G-130 FROM AREA2-1. SQ1164.2
059200 IF COUNT-OF-RECS EQUAL TO 200 SQ1164.2
059300 GO TO REWRITE-INIT-GF-05-A. SQ1164.2
059400 GO TO REWRITE-INIT-GF-04-A. SQ1164.2
059500 REWRITE-INIT-GF-05-A. SQ1164.2
059600* THIS TEST REWRITES A RECORD FROM A SUBSCRIPTED DATA SQ1164.2
059700* ITEM OF 120 CHARACTERS. THE DATA ITEM IS LEVEL 05. SQ1164.2
059800 READ SQ-FS6 RECORD SQ1164.2
059900 AT END GO TO CANT-TEST. SQ1164.2
060000 ADD 1 TO COUNT-OF-RECS. SQ1164.2
060100 MOVE SQ-FS6R1-PART1 TO FILE-RECORD-INFO-P1-120 (2). SQ1164.2
060200 ADD 1 TO UPDATE-NUMBER (2). SQ1164.2
060300 MOVE SPACE TO SQ-FS6R1-PART2. SQ1164.2
060400 REWRITE SQ-FS6R1-F-G-130 FROM FILE-RECORD-INFO-P1-120 (2). SQ1164.2
060500 IF COUNT-OF-RECS EQUAL TO 240 SQ1164.2
060600 GO TO REWRITE-CLOSE-SQ-FS6. SQ1164.2
060700 GO TO REWRITE-INIT-GF-05-A. SQ1164.2
060800 REWRITE-CLOSE-SQ-FS6. SQ1164.2
060900 CLOSE SQ-FS6. SQ1164.2
061000 GO TO REWRITE-READ-INIT-GF-02. SQ1164.2
061100 CANT-TEST. SQ1164.2
061200* THIS PARAGRAPH IS EXECUTED ONLY WHEN AN AT END SQ1164.2
061300* CONDITION OCCURRED WHEN TRYING TO READ AND REWRITE SQ1164.2
061400* THE FILE SQ-FS6. SQ1164.2
061500 MOVE "UNEXPECTED EOF" TO COMPUTED-A. SQ1164.2
061600 MOVE "UNABLE TO UPDATE FILE" TO RE-MARK. SQ1164.2
061700 PERFORM PRINT-DETAIL. SQ1164.2
061800 PERFORM BLANK-LINE-PRINT 5 TIMES. SQ1164.2
061900 MOVE "**** REWRITE TESTS DELETED ****" TO DUMMY-RECORD. SQ1164.2
062000 PERFORM WRITE-LINE. SQ1164.2
062100 GO TO SEQ-CLOSE-025. SQ1164.2
062200 REWRITE-READ-INIT-GF-02. SQ1164.2
062300 MOVE 0 TO COUNT-OF-RECS. SQ1164.2
062400 MOVE 0 TO EOF-FLAG. SQ1164.2
062500 MOVE 0 TO ERROR-FLAG. SQ1164.2
062600 MOVE 0 TO RECORDS-IN-ERROR. SQ1164.2
062700 OPEN INPUT SQ-FS6. SQ1164.2
062800 REWRITE-TEST-GF-02. SQ1164.2
062900* CHECK THE FIRST 30 RECORDS OF THE FILE. SQ1164.2
063000* THESE RECORDS WERE NOT REWRITTEN. SQ1164.2
063100 IF COUNT-OF-RECS EQUAL TO 30 SQ1164.2
063200 GO TO REWRITE-TEST-GF-02-1. SQ1164.2
063300 READ SQ-FS6 RECORD SQ1164.2
063400 AT END MOVE "UNEXPECTED EOF" TO COMPUTED-A SQ1164.2
063500 MOVE 1 TO EOF-FLAG SQ1164.2
063600 GO TO REWRITE-FAIL-GF-02. SQ1164.2
063700 ADD 1 TO COUNT-OF-RECS. SQ1164.2
063800 PERFORM CHECK-RECORD THRU CHECK-RECORD-EXIT. SQ1164.2
063900 IF ERROR-FLAG EQUAL TO 1 SQ1164.2
064000 GO TO REWRITE-TEST-GF-02. SQ1164.2
064100 IF UPDATE-NUMBER (1) NOT EQUAL TO 0 SQ1164.2
064200 PERFORM CHECK-RECORD-FAIL SQ1164.2
064300 GO TO REWRITE-TEST-GF-02. SQ1164.2
064400 IF UPDATE-AREA-ONLY NOT EQUAL TO "FIRST " SQ1164.2
064500 PERFORM CHECK-RECORD-FAIL. SQ1164.2
064600 GO TO REWRITE-TEST-GF-02. SQ1164.2
064700 REWRITE-TEST-GF-02-1. SQ1164.2
064800 IF ERROR-FLAG EQUAL TO 0 SQ1164.2
064900 GO TO REWRITE-PASS-GF-02. SQ1164.2
065000 MOVE "ERRORS IN RECORD(S)" TO COMPUTED-A. SQ1164.2
065100 REWRITE-FAIL-GF-02. SQ1164.2
065200 MOVE "VII-48; 4.5.2 RWRT LARGER RECORDS: TRUNC." TO RE-MARK.SQ1164.2
065300 PERFORM FAIL. SQ1164.2
065400 MOVE "CHECK RECORDS NOT REWRITTEN" TO RE-MARK. SQ1164.2
065500 GO TO REWRITE-WRITE-GF-02. SQ1164.2
065600 REWRITE-PASS-GF-02. SQ1164.2
065700 PERFORM PASS. SQ1164.2
065800 REWRITE-WRITE-GF-02. SQ1164.2
065900 MOVE "RWRT; LARGER RECORDS " TO FEATURE. SQ1164.2
066000 MOVE "RWRT-TEST-GF-02" TO PAR-NAME. SQ1164.2
066100 PERFORM PRINT-DETAIL. SQ1164.2
066200 GO TO REWRITE-INIT-GF-03. SQ1164.2
066300 CHECK-RECORD. SQ1164.2
066400 MOVE SQ-FS6R1-PART1 TO FILE-RECORD-INFO-P1-120 (1). SQ1164.2
066500 MOVE SQ-FS6R1-PART2 TO END-OF-RECORD-AREA. SQ1164.2
066600 IF XFILE-NAME (1) NOT EQUAL TO "SQ-FS6" SQ1164.2
066700 GO TO CHECK-RECORD-FAIL. SQ1164.2
066800 IF COUNT-OF-RECS NOT EQUAL TO XRECORD-NUMBER (1) SQ1164.2
066900 GO TO CHECK-RECORD-FAIL. SQ1164.2
067000 IF XLABEL-TYPE (1) NOT EQUAL TO "O" SQ1164.2
067100 GO TO CHECK-RECORD-FAIL. SQ1164.2
067200 IF NUMBER-AREA EQUAL TO COUNT-OF-RECS SQ1164.2
067300 GO TO CHECK-RECORD-EXIT. SQ1164.2
067400 CHECK-RECORD-FAIL. SQ1164.2
067500 ADD 1 TO RECORDS-IN-ERROR. SQ1164.2
067600 MOVE 1 TO ERROR-FLAG. SQ1164.2
067700 CHECK-RECORD-EXIT. SQ1164.2
067800 EXIT. SQ1164.2
067900 REWRITE-INIT-GF-03. SQ1164.2
068000 MOVE 0 TO ERROR-FLAG. SQ1164.2
068100 IF EOF-FLAG EQUAL TO 1 SQ1164.2
068200 GO TO SEQ-EOF-025. SQ1164.2
068300* THIS TEST CHECKS RECORDS 31 THRU 80 WHICH WERE REWRITTEN. SQ1164.2
068400 REWRITE-TEST-GF-03. SQ1164.2
068500 IF COUNT-OF-RECS EQUAL TO 80 SQ1164.2
068600 GO TO REWRITE-TEST-GF-03-1. SQ1164.2
068700 READ SQ-FS6 RECORD SQ1164.2
068800 AT END MOVE "UNEXPECTED EOF" TO COMPUTED-A SQ1164.2
068900 MOVE 1 TO EOF-FLAG SQ1164.2
069000 GO TO REWRITE-FAIL-GF-03. SQ1164.2
069100 ADD 1 TO COUNT-OF-RECS. SQ1164.2
069200 PERFORM CHECK-RECORD THRU CHECK-RECORD-EXIT. SQ1164.2
069300 IF ERROR-FLAG EQUAL TO 1 SQ1164.2
069400 GO TO REWRITE-TEST-GF-03. SQ1164.2
069500 IF UPDATE-NUMBER (1) NOT EQUAL TO 1 SQ1164.2
069600 PERFORM CHECK-RECORD-FAIL SQ1164.2
069700 GO TO REWRITE-TEST-GF-03. SQ1164.2
069800 IF UPDATE-AREA-ONLY NOT EQUAL TO "SECOND" SQ1164.2
069900 PERFORM CHECK-RECORD-FAIL. SQ1164.2
070000 GO TO REWRITE-TEST-GF-03. SQ1164.2
070100 REWRITE-TEST-GF-03-1. SQ1164.2
070200 IF ERROR-FLAG EQUAL TO 0 SQ1164.2
070300 GO TO REWRITE-PASS-GF-03. SQ1164.2
070400 MOVE "ERRORS IN RECORD(S)" TO COMPUTED-A. SQ1164.2
070500 REWRITE-FAIL-GF-03. SQ1164.2
070600 MOVE "VII-48; 4.5.2 REWRITE OF 130 CHAR RECS " TO RE-MARK.SQ1164.2
070700 PERFORM FAIL. SQ1164.2
070800 GO TO REWRITE-WRITE-GF-03. SQ1164.2
070900 REWRITE-PASS-GF-03. SQ1164.2
071000 PERFORM PASS. SQ1164.2
071100 REWRITE-WRITE-GF-03. SQ1164.2
071200 MOVE "RWRT; SHORTER RECORDS " TO FEATURE. SQ1164.2
071300 MOVE "RWRT-TEST-GF-03" TO PAR-NAME. SQ1164.2
071400 PERFORM PRINT-DETAIL. SQ1164.2
071500 REWRITE-INIT-GF-04. SQ1164.2
071600 MOVE 0 TO REC-CT. SQ1164.2
071700 MOVE 0 TO ERROR-FLAG. SQ1164.2
071800 IF EOF-FLAG EQUAL TO 1 SQ1164.2
071900 GO TO SEQ-EOF-025. SQ1164.2
072000* THIS TEST CHECKS THE RECORDS WHICH WERE REWRITTEN SQ1164.2
072100* FROM AN 139 CHARACTER RECORD. SQ1164.2
072200 REWRITE-TEST-GF-04. SQ1164.2
072300 IF COUNT-OF-RECS EQUAL TO 120 SQ1164.2
072400 GO TO REWRITE-TEST-GF-04-1. SQ1164.2
072500 READ SQ-FS6 RECORD SQ1164.2
072600 AT END MOVE "UNEXPECTED EOF" TO COMPUTED-A SQ1164.2
072700 MOVE 1 TO EOF-FLAG SQ1164.2
072800 GO TO REWRITE-FAIL-GF-04. SQ1164.2
072900 ADD 1 TO COUNT-OF-RECS. SQ1164.2
073000 PERFORM CHECK-RECORD THRU CHECK-RECORD-EXIT. SQ1164.2
073100 IF ERROR-FLAG EQUAL TO 1 SQ1164.2
073200 GO TO REWRITE-TEST-GF-04. SQ1164.2
073300 IF UPDATE-NUMBER (1) NOT EQUAL TO 1 SQ1164.2
073400 PERFORM CHECK-RECORD-FAIL SQ1164.2
073500 GO TO REWRITE-TEST-GF-04. SQ1164.2
073600 IF UPDATE-AREA-ONLY NOT EQUAL TO "SECOND" SQ1164.2
073700 PERFORM CHECK-RECORD-FAIL SQ1164.2
073800 GO TO REWRITE-TEST-GF-04. SQ1164.2
073900 MOVE SPACE TO AREA2-2. SQ1164.2
074000 MOVE SQ-FS6R1-F-G-130 TO REWRT-FROM-AREA2. SQ1164.2
074100 IF AREA2-2 NOT EQUAL TO SPACE SQ1164.2
074200 MOVE "NO RECORD TRUNCATION" TO RE-MARK SQ1164.2
074300 PERFORM CHECK-RECORD-FAIL. SQ1164.2
074400 GO TO REWRITE-TEST-GF-04. SQ1164.2
074500 REWRITE-TEST-GF-04-1. SQ1164.2
074600 IF ERROR-FLAG EQUAL TO 0 SQ1164.2
074700 GO TO REWRITE-PASS-GF-04. SQ1164.2
074800 MOVE "ERRORS IN RECORD(S)" TO COMPUTED-A. SQ1164.2
074900 REWRITE-FAIL-GF-04. SQ1164.2
075000 MOVE "VII-48; 4.5.2 RWRT FROM 139 CHAR REC " TO RE-MARK.SQ1164.2
075100 PERFORM FAIL. SQ1164.2
075200 GO TO REWRITE-WRITE-GF-04. SQ1164.2
075300 REWRITE-PASS-GF-04. SQ1164.2
075400 PERFORM PASS. SQ1164.2
075500 REWRITE-WRITE-GF-04. SQ1164.2
075600 MOVE "RWRT FROM 139" TO FEATURE. SQ1164.2
075700 MOVE "RWRT-TEST-GF-04" TO PAR-NAME. SQ1164.2
075800 PERFORM PRINT-DETAIL. SQ1164.2
075900 REWRITE-INIT-GF-05. SQ1164.2
076000 IF EOF-FLAG EQUAL TO 1 SQ1164.2
076100 GO TO SEQ-EOF-025. SQ1164.2
076200 MOVE 0 TO ERROR-FLAG. SQ1164.2
076300* THIS TEST CHECKS THE 87 CHARACTER RECORDS WHICH SQ1164.2
076400* WERE REWRITTEN. CHARACTERS 88 THRU 130 SHOULD BE SPACES. SQ1164.2
076500 REWRITE-TEST-GF-05. SQ1164.2
076600 IF COUNT-OF-RECS EQUAL TO 160 SQ1164.2
076700 GO TO REWRITE-TEST-GF-05-1. SQ1164.2
076800 READ SQ-FS6 RECORD SQ1164.2
076900 AT END MOVE "UNEXPECTED EOF" TO COMPUTED-A SQ1164.2
077000 MOVE 1 TO EOF-FLAG SQ1164.2
077100 GO TO REWRITE-FAIL-GF-05. SQ1164.2
077200 ADD 1 TO COUNT-OF-RECS. SQ1164.2
077300 MOVE SQ-FS6R1-PART1 TO FILE-RECORD-INFO-P1-120 (1). SQ1164.2
077400 IF XFILE-NAME (1) NOT EQUAL TO "SQ-FS6" SQ1164.2
077500 GO TO REWRITE-FAIL-GF-05-1. SQ1164.2
077600 IF COUNT-OF-RECS NOT EQUAL TO XRECORD-NUMBER (1) SQ1164.2
077700 GO TO REWRITE-FAIL-GF-05-1. SQ1164.2
077800 IF UPDATE-NUMBER (1) NOT EQUAL TO 1 SQ1164.2
077900 GO TO REWRITE-FAIL-GF-05-1. SQ1164.2
078000 IF CHARS-OR-RECORDS (1) NOT EQUAL TO SPACE SQ1164.2
078100 MOVE "NO SPACE FILL" TO RE-MARK SQ1164.2
078200 GO TO REWRITE-FAIL-GF-05-1. SQ1164.2
078300 IF SQ-FS6R1-PART2 NOT EQUAL TO SPACE SQ1164.2
078400 MOVE "NO SPACE FILL" TO RE-MARK SQ1164.2
078500 GO TO REWRITE-FAIL-GF-05-1. SQ1164.2
078600 GO TO REWRITE-TEST-GF-05. SQ1164.2
078700 REWRITE-FAIL-GF-05-1. SQ1164.2
078800 PERFORM CHECK-RECORD-FAIL. SQ1164.2
078900 GO TO REWRITE-TEST-GF-05. SQ1164.2
079000 REWRITE-TEST-GF-05-1. SQ1164.2
079100 IF ERROR-FLAG EQUAL TO 0 SQ1164.2
079200 GO TO REWRITE-PASS-GF-05. SQ1164.2
079300 MOVE "ERRORS IN RECORD(S)" TO COMPUTED-A. SQ1164.2
079400 REWRITE-FAIL-GF-05. SQ1164.2
079500 MOVE "VII-48; 4.5.2 CHARS 88 THRU 139: SPACE} " TO RE-MARK.SQ1164.2
079600 PERFORM FAIL. SQ1164.2
079700 GO TO REWRITE-WRITE-GF-05. SQ1164.2
079800 REWRITE-PASS-GF-05. SQ1164.2
079900 PERFORM PASS. SQ1164.2
080000 REWRITE-WRITE-GF-05. SQ1164.2
080100 MOVE "RWRT SHORTER RECORDS" TO FEATURE. SQ1164.2
080200 MOVE "RWRT-TEST-GF-05" TO PAR-NAME. SQ1164.2
080300 PERFORM PRINT-DETAIL. SQ1164.2
080400 REWRITE-INIT-GF-06. SQ1164.2
080500 IF EOF-FLAG EQUAL TO 1 SQ1164.2
080600 GO TO SEQ-EOF-025. SQ1164.2
080700 MOVE 0 TO ERROR-FLAG. SQ1164.2
080800* THIS TEST CHECKS THE RECORDS REWRITTEN FROM AN 02 SQ1164.2
080900* LEVEL ITEM OF 130 CHARACTERS. SQ1164.2
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.75 Sekunden
(vorverarbeitet)
¤
|
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.
|
