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