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