| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/SQ/ Datei vom 4.1.2008 mit Größe 213 kB |
|
Quelle sq106a.cobSprache: Cobol |
|||||||||||||||
|
000100 IDENTIFICATION DIVISION. SQ1064.2 000200 PROGRAM-ID. SQ1064.2 000300 SQ106A. SQ1064.2 000400**************************************************************** SQ1064.2 000500* * SQ1064.2 000600* VALIDATION FOR:- * SQ1064.2 000700* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1064.2 000800* USING CCVS85 VERSION 1.0 ISSUED IN JANUARY 1986. * SQ1064.2 000900* REVISED 1986, AUGUST * SQ1064.2 001000* * SQ1064.2 001100* CREATION DATE / VALIDATION DATE * SQ1064.2 001200* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ1064.2 001300* * SQ1064.2 001400**************************************************************** SQ1064.2 001500* * SQ1064.2 001600* X-CARDS USED BY THIS PROGRAM ARE :- * SQ1064.2 001700* * SQ1064.2 001800* X-01 SEQUENTIAL MAGNETIC TAPE FILE * SQ1064.2 001900* X-55 SYSTEM PRINTER * SQ1064.2 002000* X-82 SOURCE-COMPUTER * SQ1064.2 002100* X-83 OBJECT-COMPUTER. * SQ1064.2 002200* * SQ1064.2 002300**************************************************************** SQ1064.2 002400 SQ1064.2 002500* THIS PROGRAM BUILDS A SEQUENTIAL TAPE FILE WHICH CONTAINS * SQ1064.2 002600* BOTH 120 CHARACTER AND 151 CHARACTER RECORDS. * SQ1064.2 002700* * SQ1064.2 002800* THE SEQUENCE OF RECORD TYPES IS SLSSLSLLLSS, WHERE S * SQ1064.2 002900* INDICATES 120 CHARACTERS AND L INDICATES 151 CHARACTERS, * SQ1064.2 003000* FOR A TOTAL OF 11 RECORDS IN THE FILE. SIX OF THE * SQ1064.2 003100* RECORDS ARE WRITEN USING WRITE FROM, THE OTHERS USING A * SQ1064.2 003200* WRITE STATEMENT WITHOUT THE FROM PHRASE. THE FILE IS * SQ1064.2 003300* THEN CLOSED AND REOPENED FOR INPUT. IT IS READ USING * SQ1064.2 003400* TWELVE DIFFERENT FORMATS OF THE READ STATEMENT. THE * SQ1064.2 003500* VARIANTS ARE PRODUCED BY INCLUDING OR OMITTING THE NOT AT * SQ1064.2 003600* END AND END-READ PHRASES, AND INCLUDING OR EXCLUDING THE * SQ1064.2 003700* OPTIONAL WORD "AT" IN THE END AND NOT END PHRASES. * SQ1064.2 003800* FIELDS IN EACH RECORD ARE CHECKED AGAINST THE EXPECTED * SQ1064.2 003900* VALUES. * SQ1064.2 004000* * SQ1064.2 004100* WHERE A SHORT RECORD IS EXPECTED, A CHECK IS MADE THAT * SQ1064.2 004200* THE RECORD AREA DOES NOT CONTAIN THE VALUES THAT WERE * SQ1064.2 004300* PRESENT IN THAT PART OF THE RECORD AREA BEYOND THE RECORD * SQ1064.2 004400* WHEN IT WAS WRITTEN. THIS ASSUMPTION IS NOT FULLY * SQ1064.2 004500* JUSTIFIED, AS THE CONTENT OF THE RECORD AREA BEYOND THE * SQ1064.2 004600* END OF THE RECORD WHEN A SHORT RECORD IS READ IS * SQ1064.2 004700* UNDEFINED, BUT IT IS UNLIKELY THAT THE VALUES TESTED FOR * SQ1064.2 004800* WOULD OCCUR BY CHANCE. * SQ1064.2 004900* * SQ1064.2 005000**************************************************************** SQ1064.2 005100* SQ1064.2 005200 ENVIRONMENT DIVISION. SQ1064.2 005300 CONFIGURATION SECTION. SQ1064.2 005400 SOURCE-COMPUTER. SQ1064.2 005500 Card0130. SQ1064.2 005600 OBJECT-COMPUTER. SQ1064.2 005700 Card0131. SQ1064.2 005800 INPUT-OUTPUT SECTION. SQ1064.2 005900 FILE-CONTROL. SQ1064.2 006000 SELECT RAW-DATA ASSIGN TO SQ1064.2 006100 "C0098" SQ1064.2 006200 ORGANIZATION IS INDEXED SQ1064.2 006300 ACCESS MODE IS RANDOM SQ1064.2 006400 RECORD KEY IS RAW-DATA-KEY. SQ1064.2 006500* SQ1064.2 006600 SELECT PRINT-FILE ASSIGN TO SQ1064.2 006700 "C0085" . SQ1064.2 006800* SQ1064.2 006900 SELECT SQ-VS6 ASSIGN SQ1064.2 007000 "C0001" SQ1064.2 007100 STATUS SQ-STATUS SQ1064.2 007200 ORGANIZATION IS SEQUENTIAL. SQ1064.2 007300* SQ1064.2 007400* SQ1064.2 007500 DATA DIVISION. SQ1064.2 007600 FILE SECTION. SQ1064.2 007700 SQ1064.2 007800 FD RAW-DATA. SQ1064.2 007900 SQ1064.2 008000 01 RAW-DATA-SATZ. SQ1064.2 008100 05 RAW-DATA-KEY PIC X(6). SQ1064.2 008200 05 C-DATE PIC 9(6). SQ1064.2 008300 05 C-TIME PIC 9(8). SQ1064.2 008400 05 C-NO-OF-TESTS PIC 99. SQ1064.2 008500 05 C-OK PIC 999. SQ1064.2 008600 05 C-ALL PIC 999. SQ1064.2 008700 05 C-FAIL PIC 999. SQ1064.2 008800 05 C-DELETED PIC 999. SQ1064.2 008900 05 C-INSPECT PIC 999. SQ1064.2 009000 05 C-NOTE PIC X(13). SQ1064.2 009100 05 C-INDENT PIC X. SQ1064.2 009200 05 C-ABORT PIC X(8). SQ1064.2 009300* SQ1064.2 009400 FD PRINT-FILE SQ1064.2 009500 LABEL RECORDS SQ1064.2 009600 Card0132 SQ1064.2 009700 DATA RECORD IS PRINT-REC DUMMY-RECORD SQ1064.2 009800 . SQ1064.2 009900 01 PRINT-REC PICTURE X(120). SQ1064.2 010000 01 DUMMY-RECORD PICTURE X(120). SQ1064.2 010100* SQ1064.2 010200* SQ1064.2 010300 FD SQ-VS6 SQ1064.2 010400 LABEL RECORDS ARE STANDARD SQ1064.2 010500 DATA RECORDS ARE SQ-VS6R1-M-G-120 SQ-VS6R2-M-G-151 SQ1064.2 010600 RECORD CONTAINS 120 TO 151 CHARACTERS. SQ1064.2 010700* SQ1064.2 010800 01 SQ-VS6R1-M-G-120. SQ1064.2 010900 02 SQ-VS6R1-FIRST PIC X(120). SQ1064.2 011000* SQ1064.2 011100 01 SQ-VS6R2-M-G-151. SQ1064.2 011200 02 SQ-VS6R2-FIRST PIC X(120). SQ1064.2 011300 02 SQ-VS6R2-SECOND. SQ1064.2 011400 05 SQ-VS6R2-SECOND-L. SQ1064.2 011500 07 LONG-OR-SHORT PIC X(5). SQ1064.2 011600 07 SQ-VS6-RECNO PIC X(5). SQ1064.2 011700 05 SQ-VS6R2-SECOND-R. SQ1064.2 011800 07 SQ-VS6-FILLER PIC X(21). SQ1064.2 011900* SQ1064.2 012000* SQ1064.2 012100 WORKING-STORAGE SECTION. SQ1064.2 012200* SQ1064.2 012300*************************************************************** SQ1064.2 012400* * SQ1064.2 012500* WORKING-STORAGE DATA ITEMS SPECIFIC TO THIS TEST SUITE * SQ1064.2 012600* * SQ1064.2 012700*************************************************************** SQ1064.2 012800* SQ1064.2 012900 01 SQ-STATUS. SQ1064.2 013000 03 SQ-STATUS-1 PIC X. SQ1064.2 013100 03 SQ-STATUS-2 PIC X. SQ1064.2 013200* SQ1064.2 013300 01 BUFFER-COPY. SQ1064.2 013400 03 BUFFER-COPY-120 PIC X(120). SQ1064.2 013500 03 BUFFER-COPY-SECOND. SQ1064.2 013600 05 BUFFER-COPY-SECOND-L. SQ1064.2 013700 07 BUFFER-COPY-L-OR-S PIC X(5). SQ1064.2 013800 07 BUFFER-COPY-RECNO PIC 9(5). SQ1064.2 013900 05 BUFFER-COPY-SECOND-R. SQ1064.2 014000 07 BUFFER-COPY-END PIC X(21). SQ1064.2 014100* SQ1064.2 014200 01 EOF-FLAG PIC X(12). SQ1064.2 014300 01 NOT-EOF-FLAG PIC X(12). SQ1064.2 014400 01 END-READ-FLAG PIC X(12). SQ1064.2 014500* SQ1064.2 014600 01 DELETE-SW. SQ1064.2 014700 03 DELETE-SW-1 PIC X. SQ1064.2 014800 03 DELETE-SW-1-GROUP. SQ1064.2 014900 05 DELETE-SW-2 PIC X. SQ1064.2 015000 05 DELETE-SW-2-GROUP. SQ1064.2 015100 07 DELETE-SW-3 PIC X. SQ1064.2 015200* SQ1064.2 015300*************************************************************** SQ1064.2 015400* * SQ1064.2 015500* WORKING-STORAGE DATA ITEMS USED BY THE CCVS * SQ1064.2 015600* * SQ1064.2 015700*************************************************************** SQ1064.2 015800* SQ1064.2 015900 01 REC-SKEL-SUB PIC 99. SQ1064.2 016000* SQ1064.2 016100 01 FILE-RECORD-INFORMATION-REC. SQ1064.2 016200 03 FILE-RECORD-INFO-SKELETON. SQ1064.2 016300 05 FILLER PICTURE X(48) VALUE SQ1064.2 016400 "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". SQ1064.2 016500 05 FILLER PICTURE X(46) VALUE SQ1064.2 016600 ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". SQ1064.2 016700 05 FILLER PICTURE X(26) VALUE SQ1064.2 016800 ",LFIL=000000,ORG= ,LBLR= ". SQ1064.2 016900 05 FILLER PICTURE X(37) VALUE SQ1064.2 017000 ",RECKEY= ". SQ1064.2 017100 05 FILLER PICTURE X(38) VALUE SQ1064.2 017200 ",ALTKEY1= ". SQ1064.2 017300 05 FILLER PICTURE X(38) VALUE SQ1064.2 017400 ",ALTKEY2= ". SQ1064.2 017500 05 FILLER PICTURE X(7) VALUE SPACE.SQ1064.2 017600 03 FILE-RECORD-INFO OCCURS 10 TIMES. SQ1064.2 017700 05 FILE-RECORD-INFO-P1-120. SQ1064.2 017800 07 FILLER PIC X(5). SQ1064.2 017900 07 XFILE-NAME PIC X(6). SQ1064.2 018000 07 FILLER PIC X(8). SQ1064.2 018100 07 XRECORD-NAME PIC X(6). SQ1064.2 018200 07 FILLER PIC X(1). SQ1064.2 018300 07 REELUNIT-NUMBER PIC 9(1). SQ1064.2 018400 07 FILLER PIC X(7). SQ1064.2 018500 07 XRECORD-NUMBER PIC 9(6). SQ1064.2 018600 07 FILLER PIC X(6). SQ1064.2 018700 07 UPDATE-NUMBER PIC 9(2). SQ1064.2 018800 07 FILLER PIC X(5). SQ1064.2 018900 07 ODO-NUMBER PIC 9(4). SQ1064.2 019000 07 FILLER PIC X(5). SQ1064.2 019100 07 XPROGRAM-NAME PIC X(5). SQ1064.2 019200 07 FILLER PIC X(7). SQ1064.2 019300 07 XRECORD-LENGTH PIC 9(6). SQ1064.2 019400 07 FILLER PIC X(7). SQ1064.2 019500 07 CHARS-OR-RECORDS PIC X(2). SQ1064.2 019600 07 FILLER PIC X(1). SQ1064.2 019700 07 XBLOCK-SIZE PIC 9(4). SQ1064.2 019800 07 FILLER PIC X(6). SQ1064.2 019900 07 RECORDS-IN-FILE PIC 9(6). SQ1064.2 020000 07 FILLER PIC X(5). SQ1064.2 020100 07 XFILE-ORGANIZATION PIC X(2). SQ1064.2 020200 07 FILLER PIC X(6). SQ1064.2 020300 07 XLABEL-TYPE PIC X(1). SQ1064.2 020400 05 FILE-RECORD-INFO-P121-240. SQ1064.2 020500 07 FILLER PIC X(8). SQ1064.2 020600 07 XRECORD-KEY PIC X(29). SQ1064.2 020700 07 FILLER PIC X(9). SQ1064.2 020800 07 ALTERNATE-KEY1 PIC X(29). SQ1064.2 020900 07 FILLER PIC X(9). SQ1064.2 021000 07 ALTERNATE-KEY2 PIC X(29). SQ1064.2 021100 07 FILLER PIC X(7). SQ1064.2 021200* SQ1064.2 021300 01 TEST-RESULTS. SQ1064.2 021400 02 FILLER PIC X VALUE SPACE. SQ1064.2 021500 02 PAR-NAME. SQ1064.2 021600 03 FILLER PIC X(14) VALUE SPACE. SQ1064.2 021700 03 PARDOT-X PIC X VALUE SPACE. SQ1064.2 021800 03 DOTVALUE PIC 99 VALUE ZERO. SQ1064.2 021900 02 FILLER PIC X VALUE SPACE. SQ1064.2 022000 02 FEATURE PIC X(24) VALUE SPACE. SQ1064.2 022100 02 FILLER PIC X VALUE SPACE. SQ1064.2 022200 02 P-OR-F PIC X(5) VALUE SPACE. SQ1064.2 022300 02 FILLER PIC X(9) VALUE SPACE. SQ1064.2 022400 02 RE-MARK PIC X(61). SQ1064.2 022500 01 TEST-COMPUTED. SQ1064.2 022600 02 FILLER PIC X(30) VALUE SPACE. SQ1064.2 022700 02 FILLER PIC X(17) VALUE " COMPUTED =". SQ1064.2 022800 02 COMPUTED-X. SQ1064.2 022900 03 COMPUTED-A PIC X(20) VALUE SPACE. SQ1064.2 023000 03 COMPUTED-N REDEFINES COMPUTED-A PIC -9(9).9(9). SQ1064.2 023100 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). SQ1064.2 023200 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). SQ1064.2 023300 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). SQ1064.2 023400 03 CM-18V0 REDEFINES COMPUTED-A. SQ1064.2 023500 04 COMPUTED-18V0 PIC -9(18). SQ1064.2 023600 04 FILLER PIC X. SQ1064.2 023700 03 FILLER PIC X(50) VALUE SPACE. SQ1064.2 023800 01 TEST-CORRECT. SQ1064.2 023900 02 FILLER PIC X(30) VALUE SPACE. SQ1064.2 024000 02 FILLER PIC X(17) VALUE " CORRECT =". SQ1064.2 024100 02 CORRECT-X. SQ1064.2 024200 03 CORRECT-A PIC X(20) VALUE SPACE. SQ1064.2 024300 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). SQ1064.2 024400 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). SQ1064.2 024500 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). SQ1064.2 024600 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). SQ1064.2 024700 03 CR-18V0 REDEFINES CORRECT-A. SQ1064.2 024800 04 CORRECT-18V0 PIC -9(18). SQ1064.2 024900 04 FILLER PIC X. SQ1064.2 025000 03 FILLER PIC X(2) VALUE SPACE. SQ1064.2 025100 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. SQ1064.2 025200* SQ1064.2 025300 01 CCVS-C-1. SQ1064.2 025400 02 FILLER PIC IS X VALUE SPACE. SQ1064.2 025500 02 FILLER PIC IS X(17) VALUE "PARAGRAPH-NAME". SQ1064.2 025600 02 FILLER PIC IS X VALUE SPACE. SQ1064.2 025700 02 FILLER PIC IS X(24) VALUE IS "FEATURE". SQ1064.2 025800 02 FILLER PIC IS X VALUE SPACE. SQ1064.2 025900 02 FILLER PIC IS X(5) VALUE "PASS ". SQ1064.2 026000 02 FILLER PIC IS X(9) VALUE SPACE. SQ1064.2 026100 02 FILLER PIC IS X(62) VALUE "REMARKS". SQ1064.2 026200 01 CCVS-C-2. SQ1064.2 026300 02 FILLER PIC X(19) VALUE SPACE. SQ1064.2 026400 02 FILLER PIC X(6) VALUE "TESTED". SQ1064.2 026500 02 FILLER PIC X(19) VALUE SPACE. SQ1064.2 026600 02 FILLER PIC X(4) VALUE "FAIL". SQ1064.2 026700 02 FILLER PIC X(72) VALUE SPACE. SQ1064.2 026800* SQ1064.2 026900 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. SQ1064.2 027000 01 REC-CT PIC 99 VALUE ZERO. SQ1064.2 027100 01 DELETE-COUNTER PIC 999 VALUE ZERO. SQ1064.2 027200 01 ERROR-COUNTER PIC 999 VALUE ZERO. SQ1064.2 027300 01 INSPECT-COUNTER PIC 999 VALUE ZERO. SQ1064.2 027400 01 PASS-COUNTER PIC 999 VALUE ZERO. SQ1064.2 027500 01 TOTAL-ERROR PIC 999 VALUE ZERO. SQ1064.2 027600 01 ERROR-HOLD PIC 999 VALUE ZERO. SQ1064.2 027700 01 DUMMY-HOLD PIC X(120) VALUE SPACE. SQ1064.2 027800 01 RECORD-COUNT PIC 9(5) VALUE ZERO. SQ1064.2 027900 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. SQ1064.2 028000 01 CCVS-H-1. SQ1064.2 028100 02 FILLER PIC X(39) VALUE SPACES. SQ1064.2 028200 02 FILLER PIC X(42) VALUE SQ1064.2 028300 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". SQ1064.2 028400 02 FILLER PIC X(39) VALUE SPACES. SQ1064.2 028500 01 CCVS-H-2A. SQ1064.2 028600 02 FILLER PIC X(40) VALUE SPACE. SQ1064.2 028700 02 FILLER PIC X(7) VALUE "CCVS85 ". SQ1064.2 028800 02 FILLER PIC XXXX VALUE SQ1064.2 028900 "4.2 ". SQ1064.2 029000 02 FILLER PIC X(28) VALUE SQ1064.2 029100 " COPY - NOT FOR DISTRIBUTION". SQ1064.2 029200 02 FILLER PIC X(41) VALUE SPACE. SQ1064.2 029300* SQ1064.2 029400 01 CCVS-H-2B. SQ1064.2 029500 02 FILLER PIC X(15) VALUE "TEST RESULT OF ". SQ1064.2 029600 02 TEST-ID PIC X(9). SQ1064.2 029700 02 FILLER PIC X(4) VALUE " IN ". SQ1064.2 029800 02 FILLER PIC X(12) VALUE SQ1064.2 029900 " HIGH ". SQ1064.2 030000 02 FILLER PIC X(22) VALUE SQ1064.2 030100 " LEVEL VALIDATION FOR ". SQ1064.2 030200 02 FILLER PIC X(58) VALUE SQ1064.2 030300 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1064.2 030400 01 CCVS-H-3. SQ1064.2 030500 02 FILLER PIC X(34) VALUE SQ1064.2 030600 " FOR OFFICIAL USE ONLY ". SQ1064.2 030700 02 FILLER PIC X(58) VALUE SQ1064.2 030800 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ1064.2 030900 02 FILLER PIC X(28) VALUE SQ1064.2 031000 " COPYRIGHT 1985,1986 ". SQ1064.2 031100 01 CCVS-E-1. SQ1064.2 031200 02 FILLER PIC X(52) VALUE SPACE. SQ1064.2 031300 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". SQ1064.2 031400 02 ID-AGAIN PIC X(9). SQ1064.2 031500 02 FILLER PIC X(45) VALUE SPACES. SQ1064.2 031600 01 CCVS-E-2. SQ1064.2 031700 02 FILLER PIC X(31) VALUE SPACE. SQ1064.2 031800 02 FILLER PIC X(21) VALUE SPACE. SQ1064.2 031900 02 CCVS-E-2-2. SQ1064.2 032000 03 ERROR-TOTAL PIC XXX VALUE SPACE. SQ1064.2 032100 03 FILLER PIC X VALUE SPACE. SQ1064.2 032200 03 ENDER-DESC PIC X(44) VALUE SQ1064.2 032300 "ERRORS ENCOUNTERED". SQ1064.2 032400 01 CCVS-E-3. SQ1064.2 032500 02 FILLER PIC X(22) VALUE SQ1064.2 032600 " FOR OFFICIAL USE ONLY". SQ1064.2 032700 02 FILLER PIC X(12) VALUE SPACE. SQ1064.2 032800 02 FILLER PIC X(58) VALUE SQ1064.2 032900 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1064.2 033000 02 FILLER PIC X(8) VALUE SPACE. SQ1064.2 033100 02 FILLER PIC X(20) VALUE SQ1064.2 033200 " COPYRIGHT 1985,1986". SQ1064.2 033300 01 CCVS-E-4. SQ1064.2 033400 02 CCVS-E-4-1 PIC XXX VALUE SPACE. SQ1064.2 033500 02 FILLER PIC X(4) VALUE " OF ". SQ1064.2 033600 02 CCVS-E-4-2 PIC XXX VALUE SPACE. SQ1064.2 033700 02 FILLER PIC X(40) VALUE SQ1064.2 033800 " TESTS WERE EXECUTED SUCCESSFULLY". SQ1064.2 033900 01 XXINFO. SQ1064.2 034000 02 FILLER PIC X(19) VALUE "*** INFORMATION ***". SQ1064.2 034100 02 INFO-TEXT. SQ1064.2 034200 04 FILLER PIC X(8) VALUE SPACE. SQ1064.2 034300 04 XXCOMPUTED PIC X(20). SQ1064.2 034400 04 FILLER PIC X(5) VALUE SPACE. SQ1064.2 034500 04 XXCORRECT PIC X(20). SQ1064.2 034600 02 INF-ANSI-REFERENCE PIC X(48). SQ1064.2 034700 01 HYPHEN-LINE. SQ1064.2 034800 02 FILLER PIC IS X VALUE IS SPACE. SQ1064.2 034900 02 FILLER PIC IS X(65) VALUE IS "************************SQ1064.2 035000- "*****************************************". SQ1064.2 035100 02 FILLER PIC IS X(54) VALUE IS "************************SQ1064.2 035200- "******************************". SQ1064.2 035300 01 CCVS-PGM-ID PIC X(9) VALUE SQ1064.2 035400 "SQ106A". SQ1064.2 035500* SQ1064.2 035600* SQ1064.2 035700 PROCEDURE DIVISION. SQ1064.2 035800 CCVS1 SECTION. SQ1064.2 035900 OPEN-FILES. SQ1064.2 036000 OPEN I-O RAW-DATA. SQ1064.2 036100 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ1064.2 036200 READ RAW-DATA INVALID KEY GO TO END-E-1. SQ1064.2 036300 MOVE "ABORTED " TO C-ABORT. SQ1064.2 036400 ADD 1 TO C-NO-OF-TESTS. SQ1064.2 036500 ACCEPT C-DATE FROM DATE. SQ1064.2 036600 ACCEPT C-TIME FROM TIME. SQ1064.2 036700 REWRITE RAW-DATA-SATZ INVALID KEY CONTINUE. SQ1064.2 036800 END-E-1. SQ1064.2 036900 CLOSE RAW-DATA. SQ1064.2 037000 OPEN OUTPUT PRINT-FILE. SQ1064.2 037100 MOVE CCVS-PGM-ID TO TEST-ID. SQ1064.2 037200 MOVE CCVS-PGM-ID TO ID-AGAIN. SQ1064.2 037300 MOVE SPACE TO TEST-RESULTS. SQ1064.2 037400 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. SQ1064.2 037500 MOVE ZERO TO REC-SKEL-SUB. SQ1064.2 037600 PERFORM CCVS-INIT-FILE 10 TIMES. SQ1064.2 037700 GO TO CCVS1-EXIT. SQ1064.2 037800* SQ1064.2 037900 CCVS-INIT-FILE. SQ1064.2 038000 ADD 1 TO REC-SKL-SUB. SQ1064.2 038100 MOVE FILE-RECORD-INFO-SKELETON TO SQ1064.2 038200 FILE-RECORD-INFO (REC-SKL-SUB). SQ1064.2 038300* SQ1064.2 038400 CLOSE-FILES. SQ1064.2 038500 PERFORM END-ROUTINE THRU END-ROUTINE-13. SQ1064.2 038600 CLOSE PRINT-FILE. SQ1064.2 038700 OPEN I-O RAW-DATA. SQ1064.2 038800 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ1064.2 038900 READ RAW-DATA INVALID KEY GO TO END-E-2. SQ1064.2 039000 MOVE "OK. " TO C-ABORT. SQ1064.2 039100 MOVE PASS-COUNTER TO C-OK. SQ1064.2 039200 MOVE ERROR-HOLD TO C-ALL. SQ1064.2 039300 MOVE ERROR-COUNTER TO C-FAIL. SQ1064.2 039400 MOVE DELETE-CNT TO C-DELETED. SQ1064.2 039500 MOVE INSPECT-COUNTER TO C-INSPECT. SQ1064.2 039600 REWRITE RAW-DATA-SATZ INVALID KEY CONTINUE. SQ1064.2 039700 END-E-2. SQ1064.2 039800 CLOSE RAW-DATA. SQ1064.2 039900 TERMINATE-CCVS. SQ1064.2 040000 EXIT PROGRAM. SQ1064.2 040100 STOP RUN. SQ1064.2 040200* SQ1064.2 040300 INSPT. SQ1064.2 040400 MOVE "INSPT" TO P-OR-F. SQ1064.2 040500 ADD 1 TO INSPECT-COUNTER. SQ1064.2 040600 PERFORM PRINT-DETAIL. SQ1064.2 040700* SQ1064.2 040800 PASS. SQ1064.2 040900 MOVE "PASS " TO P-OR-F. SQ1064.2 041000 ADD 1 TO PASS-COUNTER. SQ1064.2 041100 PERFORM PRINT-DETAIL. SQ1064.2 041200* SQ1064.2 041300 FAIL. SQ1064.2 041400 MOVE "FAIL*" TO P-OR-F. SQ1064.2 041500 ADD 1 TO ERROR-COUNTER. SQ1064.2 041600 PERFORM PRINT-DETAIL. SQ1064.2 041700* SQ1064.2 041800 DE-LETE. SQ1064.2 041900 MOVE "****TEST DELETED****" TO RE-MARK. SQ1064.2 042000 MOVE "*****" TO P-OR-F. SQ1064.2 042100 ADD 1 TO DELETE-COUNTER. SQ1064.2 042200 PERFORM PRINT-DETAIL. SQ1064.2 042300* SQ1064.2 042400 PRINT-DETAIL. SQ1064.2 042500 IF REC-CT NOT EQUAL TO ZERO SQ1064.2 042600 MOVE "." TO PARDOT-X SQ1064.2 042700 MOVE REC-CT TO DOTVALUE. SQ1064.2 042800 MOVE TEST-RESULTS TO PRINT-REC. SQ1064.2 042900 PERFORM WRITE-LINE. SQ1064.2 043000 IF P-OR-F EQUAL TO "FAIL*" SQ1064.2 043100 PERFORM WRITE-LINE SQ1064.2 043200 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX SQ1064.2 043300 ELSE SQ1064.2 043400 PERFORM BAIL-OUT THRU BAIL-OUT-EX. SQ1064.2 043500 MOVE SPACE TO P-OR-F. SQ1064.2 043600 MOVE SPACE TO COMPUTED-X. SQ1064.2 043700 MOVE SPACE TO CORRECT-X. SQ1064.2 043800 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. SQ1064.2 043900 MOVE SPACE TO RE-MARK. SQ1064.2 044000* SQ1064.2 044100 HEAD-ROUTINE. SQ1064.2 044200 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ1064.2 044300 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ1064.2 044400 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. SQ1064.2 044500 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. SQ1064.2 044600 COLUMN-NAMES-ROUTINE. SQ1064.2 044700 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ1064.2 044800 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ1064.2 044900 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ1064.2 045000 END-ROUTINE. SQ1064.2 045100 MOVE HYPHEN-LINE TO DUMMY-RECORD. SQ1064.2 045200 PERFORM WRITE-LINE 5 TIMES. SQ1064.2 045300 END-RTN-EXIT. SQ1064.2 045400 MOVE CCVS-E-1 TO DUMMY-RECORD. SQ1064.2 045500 PERFORM WRITE-LINE 2 TIMES. SQ1064.2 045600* SQ1064.2 045700 END-ROUTINE-1. SQ1064.2 045800 ADD ERROR-COUNTER TO ERROR-HOLD SQ1064.2 045900 ADD INSPECT-COUNTER TO ERROR-HOLD. SQ1064.2 046000 ADD DELETE-COUNTER TO ERROR-HOLD. SQ1064.2 046100 ADD PASS-COUNTER TO ERROR-HOLD. SQ1064.2 046200 MOVE PASS-COUNTER TO CCVS-E-4-1. SQ1064.2 046300 MOVE ERROR-HOLD TO CCVS-E-4-2. SQ1064.2 046400 MOVE CCVS-E-4 TO CCVS-E-2-2. SQ1064.2 046500 MOVE CCVS-E-2 TO DUMMY-RECORD SQ1064.2 046600 PERFORM WRITE-LINE. SQ1064.2 046700 MOVE "TEST(S) FAILED" TO ENDER-DESC. SQ1064.2 046800 IF ERROR-COUNTER IS EQUAL TO ZERO SQ1064.2 046900 MOVE "NO " TO ERROR-TOTAL SQ1064.2 047000 ELSE SQ1064.2 047100 MOVE ERROR-COUNTER TO ERROR-TOTAL. SQ1064.2 047200 MOVE CCVS-E-2 TO DUMMY-RECORD. SQ1064.2 047300 PERFORM WRITE-LINE. SQ1064.2 047400 END-ROUTINE-13. SQ1064.2 047500 IF DELETE-COUNTER IS EQUAL TO ZERO SQ1064.2 047600 MOVE "NO " TO ERROR-TOTAL SQ1064.2 047700 ELSE SQ1064.2 047800 MOVE DELETE-COUNTER TO ERROR-TOTAL. SQ1064.2 047900 MOVE "TEST(S) DELETED " TO ENDER-DESC. SQ1064.2 048000 MOVE CCVS-E-2 TO DUMMY-RECORD. SQ1064.2 048100 PERFORM WRITE-LINE. SQ1064.2 048200 IF INSPECT-COUNTER EQUAL TO ZERO SQ1064.2 048300 MOVE "NO " TO ERROR-TOTAL SQ1064.2 048400 ELSE SQ1064.2 048500 MOVE INSPECT-COUNTER TO ERROR-TOTAL. SQ1064.2 048600 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. SQ1064.2 048700 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ1064.2 048800 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ1064.2 048900* SQ1064.2 049000 WRITE-LINE. SQ1064.2 049100 ADD 1 TO RECORD-COUNT. SQ1064.2 049200 IF RECORD-COUNT GREATER 50 SQ1064.2 049300 MOVE DUMMY-RECORD TO DUMMY-HOLD SQ1064.2 049400 MOVE SPACE TO DUMMY-RECORD SQ1064.2 049500 WRITE DUMMY-RECORD AFTER ADVANCING PAGE SQ1064.2 049600 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN SQ1064.2 049700 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES SQ1064.2 049800 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN SQ1064.2 049900 MOVE DUMMY-HOLD TO DUMMY-RECORD SQ1064.2 050000 MOVE ZERO TO RECORD-COUNT. SQ1064.2 050100 PERFORM WRT-LN. SQ1064.2 050200* SQ1064.2 050300 WRT-LN. SQ1064.2 050400 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. SQ1064.2 050500 MOVE SPACE TO DUMMY-RECORD. SQ1064.2 050600 BLANK-LINE-PRINT. SQ1064.2 050700 PERFORM WRT-LN. SQ1064.2 050800 FAIL-ROUTINE. SQ1064.2 050900 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ1064.2 051000 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ1064.2 051100 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. SQ1064.2 051200 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. SQ1064.2 051300 MOVE XXINFO TO DUMMY-RECORD. SQ1064.2 051400 PERFORM WRITE-LINE 2 TIMES. SQ1064.2 051500 MOVE SPACES TO INF-ANSI-REFERENCE. SQ1064.2 051600 GO TO FAIL-ROUTINE-EX. SQ1064.2 051700 FAIL-ROUTINE-WRITE. SQ1064.2 051800 MOVE TEST-COMPUTED TO PRINT-REC SQ1064.2 051900 PERFORM WRITE-LINE SQ1064.2 052000 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. SQ1064.2 052100 MOVE TEST-CORRECT TO PRINT-REC SQ1064.2 052200 PERFORM WRITE-LINE 2 TIMES. SQ1064.2 052300 MOVE SPACES TO COR-ANSI-REFERENCE. SQ1064.2 052400 FAIL-ROUTINE-EX. SQ1064.2 052500 EXIT. SQ1064.2 052600 BAIL-OUT. SQ1064.2 052700 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. SQ1064.2 052800 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. SQ1064.2 052900 BAIL-OUT-WRITE. SQ1064.2 053000 MOVE CORRECT-A TO XXCORRECT. SQ1064.2 053100 MOVE COMPUTED-A TO XXCOMPUTED. SQ1064.2 053200 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. SQ1064.2 053300 MOVE XXINFO TO DUMMY-RECORD. SQ1064.2 053400 PERFORM WRITE-LINE 2 TIMES. SQ1064.2 053500 MOVE SPACES TO INF-ANSI-REFERENCE. SQ1064.2 053600 BAIL-OUT-EX. SQ1064.2 053700 EXIT. SQ1064.2 053800 CCVS1-EXIT. SQ1064.2 053900 EXIT. SQ1064.2 054000* SQ1064.2 054100**************************************************************** SQ1064.2 054200* * SQ1064.2 054300* THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND * SQ1064.2 054400* THE START OF THE TESTS OF SPECIFIC COBOL FEATURES. * SQ1064.2 054500* * SQ1064.2 054600**************************************************************** SQ1064.2 054700* SQ1064.2 054800 SECT-SQ106-0001 SECTION. SQ1064.2 054900 SEQ-INIT-01. SQ1064.2 055000 MOVE SPACE TO DELETE-SW. SQ1064.2 055100* SQ1064.2 055200 MOVE "SQ-VS6" TO XFILE-NAME (1). SQ1064.2 055300 MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). SQ1064.2 055400 MOVE "RC" TO CHARS-OR-RECORDS (1). SQ1064.2 055500 MOVE 0001 TO XBLOCK-SIZE (1). SQ1064.2 055600 MOVE 11 TO RECORDS-IN-FILE (1). SQ1064.2 055700 MOVE "SQ" TO XFILE-ORGANIZATION (1). SQ1064.2 055800 MOVE "S" TO XLABEL-TYPE (1). SQ1064.2 055900 MOVE 0 TO XRECORD-NUMBER (1). SQ1064.2 056000 MOVE ZERO TO BUFFER-COPY-RECNO. SQ1064.2 056100 MOVE "MULTIPLE REC LENGTHS" TO BUFFER-COPY-END. SQ1064.2 056200* SQ1064.2 056300* THE FIRST ACTION IS TO OPEN THE FILE FOR OUTPUT, AND SO SQ1064.2 056400* CREATE IT. IF THE OPEN IS DELETED, ALL SUCCEDING TESTS SQ1064.2 056500* ARE AUTOMATICALLY DELETED WITH IT. A SUBORDINATE TEST SQ1064.2 056600* CHECKS THE I-O STATUS RETURNED FROM THE OPEN OPERATION. SQ1064.2 056700* SQ1064.2 056800 MOVE "**" TO SQ-STATUS. SQ1064.2 056900 MOVE "OPEN FILE FOR OUTPUT" TO FEATURE. SQ1064.2 057000 MOVE "SEQ-TEST-GF-01" TO PAR-NAME. SQ1064.2 057100 GO TO SEQ-TEST-GF-01. SQ1064.2 057200 SEQ-DELETE-01. SQ1064.2 057300 MOVE "*" TO DELETE-SW-1. SQ1064.2 057400 GO TO SEQ-DELETE-01-01. SQ1064.2 057500 SEQ-TEST-GF-01. SQ1064.2 057600 OPEN OUTPUT SQ-VS6. SQ1064.2 057700 GO TO SEQ-TEST-GF-01-01. SQ1064.2 057800 SEQ-DELETE-01-01. SQ1064.2 057900 PERFORM DE-LETE. SQ1064.2 058000 GO TO SEQ-TEST-01-01-END. SQ1064.2 058100 SEQ-TEST-GF-01-01. SQ1064.2 058200 IF SQ-STATUS = "00" SQ1064.2 058300 PERFORM PASS SQ1064.2 058400 ELSE SQ1064.2 058500 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 058600 MOVE "00" TO CORRECT-A SQ1064.2 058700 MOVE "UNEXPECTED I-O STATUS FROM OPEN" TO RE-MARK SQ1064.2 058800 MOVE "VII-2, VII-39" TO ANSI-REFERENCE SQ1064.2 058900 PERFORM FAIL SQ1064.2 059000 MOVE "*" TO DELETE-SW-1. SQ1064.2 059100 SEQ-TEST-01-01-END. SQ1064.2 059200* SQ1064.2 059300* SQ1064.2 059400* UNLESS AN ERROR OCCURRED DURING EXECUTION OF THE OPEN SQ1064.2 059500* STATEMENT, THE FILE IS NOW OPEN, AND READY FOR RECORDS TO SQ1064.2 059600* BE WRITTEN TO IT. IF AN ERROR I-O STATUS VALUE WAS SQ1064.2 059700* RETURNED, ALL THE REMAINING TESTS ARE DELETED. SQ1064.2 059800* SQ1064.2 059900* CREATE A SHORT RECORD USING THE BASIC WRITE STATEMENT SQ1064.2 060000* SQ1064.2 060100 SEQ-INIT-02. SQ1064.2 060200 MOVE 1 TO REC-CT. SQ1064.2 060300 MOVE "WRITE SHORT RECORD" TO FEATURE. SQ1064.2 060400 MOVE "SEQ-TEST-WR-02" TO PAR-NAME. SQ1064.2 060500 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 060600 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 060700 MOVE "R1-M-G" TO XRECORD-NAME (1). SQ1064.2 060800 MOVE 120 TO XRECORD-LENGTH (1). SQ1064.2 060900 MOVE "SHORT" TO BUFFER-COPY-L-OR-S. SQ1064.2 061000 MOVE "**" TO SQ-STATUS. SQ1064.2 061100 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 061200 GO TO SEQ-DELETE-02. SQ1064.2 061300 GO TO SEQ-TEST-WR-02. SQ1064.2 061400 SEQ-DELETE-02. SQ1064.2 061500 GO TO SEQ-DELETE-02-01. SQ1064.2 061600 SEQ-TEST-WR-02. SQ1064.2 061700 MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS6R2-FIRST. SQ1064.2 061800 MOVE BUFFER-COPY-SECOND TO SQ-VS6R2-SECOND. SQ1064.2 061900 WRITE SQ-VS6R1-M-G-120. SQ1064.2 062000 GO TO SEQ-TEST-WR-02-01. SQ1064.2 062100 SEQ-DELETE-02-01. SQ1064.2 062200 PERFORM DE-LETE. SQ1064.2 062300 GO TO SEQ-TEST-02-01-END. SQ1064.2 062400 SEQ-TEST-WR-02-01. SQ1064.2 062500 IF SQ-STATUS = "00" SQ1064.2 062600 PERFORM PASS SQ1064.2 062700 ELSE SQ1064.2 062800 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 062900 MOVE "00" TO CORRECT-A SQ1064.2 063000 MOVE "UNEXPECTED I-O STATUS FROM WRITE" TO RE-MARK SQ1064.2 063100 MOVE "VII-3, VII-53,4.7.4(6)" TO ANSI-REFERENCE SQ1064.2 063200 PERFORM FAIL. SQ1064.2 063300 SEQ-TEST-02-01-END. SQ1064.2 063400* SQ1064.2 063500* CREATE A LONG RECORD USING THE BASIC WRITE STATEMENT SQ1064.2 063600* SQ1064.2 063700 SEQ-INIT-03. SQ1064.2 063800 MOVE 1 TO REC-CT. SQ1064.2 063900 MOVE "WRITE LONG RECORD" TO FEATURE. SQ1064.2 064000 MOVE "SEQ-TEST-WR-03" TO PAR-NAME. SQ1064.2 064100 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 064200 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 064300 MOVE "R2-M-G" TO XRECORD-NAME (1). SQ1064.2 064400 MOVE 151 TO XRECORD-LENGTH (1). SQ1064.2 064500 MOVE "LONG" TO BUFFER-COPY-L-OR-S. SQ1064.2 064600 MOVE "**" TO SQ-STATUS. SQ1064.2 064700 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 064800 GO TO SEQ-DELETE-03. SQ1064.2 064900 GO TO SEQ-TEST-WR-03. SQ1064.2 065000 SEQ-DELETE-03. SQ1064.2 065100 GO TO SEQ-DELETE-03-01. SQ1064.2 065200 SEQ-TEST-WR-03. SQ1064.2 065300 MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS6R2-FIRST. SQ1064.2 065400 MOVE BUFFER-COPY-SECOND TO SQ-VS6R2-SECOND. SQ1064.2 065500 WRITE SQ-VS6R2-M-G-151. SQ1064.2 065600 GO TO SEQ-TEST-WR-03-01. SQ1064.2 065700 SEQ-DELETE-03-01. SQ1064.2 065800 PERFORM DE-LETE. SQ1064.2 065900 GO TO SEQ-TEST-03-01-END. SQ1064.2 066000 SEQ-TEST-WR-03-01. SQ1064.2 066100 IF SQ-STATUS = "00" SQ1064.2 066200 PERFORM PASS SQ1064.2 066300 ELSE SQ1064.2 066400 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 066500 MOVE "00" TO CORRECT-A SQ1064.2 066600 MOVE "UNEXPECTED I-O STATUS FROM WRITE" TO RE-MARK SQ1064.2 066700 MOVE "VII-3, VII-53,4.7.4(6)" TO ANSI-REFERENCE SQ1064.2 066800 PERFORM FAIL. SQ1064.2 066900 SEQ-TEST-03-01-END. SQ1064.2 067000* SQ1064.2 067100* SQ1064.2 067200* CREATE A SHORT RECORD USING WRITE FROM, WITH A 151 SQ1064.2 067300* CHARACTER AREA AS THE SOURCE. SQ1064.2 067400* SQ1064.2 067500 SEQ-INIT-04. SQ1064.2 067600 MOVE 1 TO REC-CT. SQ1064.2 067700 MOVE "WRITE SHORT RECORD FROM" TO FEATURE. SQ1064.2 067800 MOVE "SEQ-TEST-WR-04" TO PAR-NAME. SQ1064.2 067900 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 068000 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 068100 MOVE "R1-M-G" TO XRECORD-NAME (1). SQ1064.2 068200 MOVE 120 TO XRECORD-LENGTH (1). SQ1064.2 068300 MOVE "SHORT" TO BUFFER-COPY-L-OR-S. SQ1064.2 068400 MOVE "**" TO SQ-STATUS. SQ1064.2 068500 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 068600 GO TO SEQ-DELETE-04. SQ1064.2 068700 GO TO SEQ-TEST-WR-04. SQ1064.2 068800 SEQ-DELETE-04. SQ1064.2 068900 GO TO SEQ-DELETE-04-01. SQ1064.2 069000 SEQ-TEST-WR-04. SQ1064.2 069100 MOVE FILE-RECORD-INFO-P1-120 (1) TO BUFFER-COPY-120. SQ1064.2 069200 WRITE SQ-VS6R1-M-G-120 FROM BUFFER-COPY. SQ1064.2 069300 GO TO SEQ-TEST-WR-04-01. SQ1064.2 069400 SEQ-DELETE-04-01. SQ1064.2 069500 PERFORM DE-LETE. SQ1064.2 069600 GO TO SEQ-TEST-04-01-END. SQ1064.2 069700 SEQ-TEST-WR-04-01. SQ1064.2 069800 IF SQ-STATUS = "00" SQ1064.2 069900 PERFORM PASS SQ1064.2 070000 ELSE SQ1064.2 070100 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 070200 MOVE "00" TO CORRECT-A SQ1064.2 070300 MOVE "UNEXPECTED I-O STATUS FROM WRITE" TO RE-MARK SQ1064.2 070400 MOVE "VII-3, VII-53,4.7.4(6)" TO ANSI-REFERENCE SQ1064.2 070500 PERFORM FAIL. SQ1064.2 070600 SEQ-TEST-04-01-END. SQ1064.2 070700* SQ1064.2 070800* SQ1064.2 070900* CREATE A SHORT RECORD USING WRITE FROM, WITH A 151 SQ1064.2 071000* CHARACTER SOURCE FIELD. SQ1064.2 071100* SQ1064.2 071200 SEQ-INIT-05. SQ1064.2 071300 MOVE 1 TO REC-CT. SQ1064.2 071400 MOVE "WRITE SHORT RECORD FROM" TO FEATURE. SQ1064.2 071500 MOVE "SEQ-TEST-WR-05" TO PAR-NAME. SQ1064.2 071600 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 071700 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 071800 MOVE "R1-M-G" TO XRECORD-NAME (1). SQ1064.2 071900 MOVE 120 TO XRECORD-LENGTH (1). SQ1064.2 072000 MOVE "SHORT" TO BUFFER-COPY-L-OR-S. SQ1064.2 072100 MOVE "**" TO SQ-STATUS. SQ1064.2 072200 IF DELETE-SW-1 NOT EQUAL SPACE SQ1064.2 072300 GO TO SEQ-DELETE-05. SQ1064.2 072400 GO TO SEQ-TEST-WR-05. SQ1064.2 072500 SEQ-DELETE-05. SQ1064.2 072600 GO TO SEQ-DELETE-05-01. SQ1064.2 072700 SEQ-TEST-WR-05. SQ1064.2 072800 MOVE FILE-RECORD-INFO-P1-120 (1) TO BUFFER-COPY-120. SQ1064.2 072900 WRITE SQ-VS6R1-M-G-120 FROM BUFFER-COPY. SQ1064.2 073000 GO TO SEQ-TEST-WR-05-01. SQ1064.2 073100 SEQ-DELETE-05-01. SQ1064.2 073200 PERFORM DE-LETE. SQ1064.2 073300 GO TO SEQ-TEST-05-01-END. SQ1064.2 073400 SEQ-TEST-WR-05-01. SQ1064.2 073500 IF SQ-STATUS = "00" SQ1064.2 073600 PERFORM PASS SQ1064.2 073700 ELSE SQ1064.2 073800 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 073900 MOVE "00" TO CORRECT-A SQ1064.2 074000 MOVE "UNEXPECTED I-O STATUS FROM WRITE" TO RE-MARK SQ1064.2 074100 MOVE "VII-3, VII-53,4.7.4(6)" TO ANSI-REFERENCE SQ1064.2 074200 PERFORM FAIL. SQ1064.2 074300 SEQ-TEST-05-01-END. SQ1064.2 074400* SQ1064.2 074500* SQ1064.2 074600* CREATE A LONG RECORD USING WRITE FROM. SQ1064.2 074700* SQ1064.2 074800 SEQ-INIT-06. SQ1064.2 074900 MOVE 1 TO REC-CT. SQ1064.2 075000 MOVE "WRITE LONG RECORD FROM" TO FEATURE. SQ1064.2 075100 MOVE "SEQ-TEST-WR-06" TO PAR-NAME. SQ1064.2 075200 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 075300 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 075400 MOVE "R2-M-G" TO XRECORD-NAME (1). SQ1064.2 075500 MOVE 151 TO XRECORD-LENGTH (1). SQ1064.2 075600 MOVE "LONG" TO BUFFER-COPY-L-OR-S. SQ1064.2 075700 MOVE "**" TO SQ-STATUS. SQ1064.2 075800 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 075900 GO TO SEQ-DELETE-06. SQ1064.2 076000 GO TO SEQ-TEST-WR-06. SQ1064.2 076100 SEQ-DELETE-06. SQ1064.2 076200 GO TO SEQ-DELETE-06-01. SQ1064.2 076300 SEQ-TEST-WR-06. SQ1064.2 076400 MOVE FILE-RECORD-INFO-P1-120 (1) TO BUFFER-COPY-120. SQ1064.2 076500 WRITE SQ-VS6R2-M-G-151 FROM BUFFER-COPY. SQ1064.2 076600 GO TO SEQ-TEST-WR-06-01. SQ1064.2 076700 SEQ-DELETE-06-01. SQ1064.2 076800 PERFORM DE-LETE. SQ1064.2 076900 GO TO SEQ-TEST-06-01-END. SQ1064.2 077000 SEQ-TEST-WR-06-01. SQ1064.2 077100 IF SQ-STATUS = "00" SQ1064.2 077200 PERFORM PASS SQ1064.2 077300 ELSE SQ1064.2 077400 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 077500 MOVE "00" TO CORRECT-A SQ1064.2 077600 MOVE "UNEXPECTED I-O STATUS FROM WRITE" TO RE-MARK SQ1064.2 077700 MOVE "VII-3, VII-53,4.7.4(6)" TO ANSI-REFERENCE SQ1064.2 077800 PERFORM FAIL. SQ1064.2 077900 SEQ-TEST-06-01-END. SQ1064.2 078000* SQ1064.2 078100* SQ1064.2 078200* CREATE A SHORT RECORD USING WRITE FROM, WITH A 151 SQ1064.2 078300* CHARACTER AREA AS THE SOURCE. SQ1064.2 078400* SQ1064.2 078500 SEQ-INIT-07. SQ1064.2 078600 MOVE 1 TO REC-CT. SQ1064.2 078700 MOVE "WRITE SHORT RECORD FROM" TO FEATURE. SQ1064.2 078800 MOVE "SEQ-TEST-WR-07" TO PAR-NAME. SQ1064.2 078900 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 079000 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 079100 MOVE "R1-M-G" TO XRECORD-NAME (1). SQ1064.2 079200 MOVE 120 TO XRECORD-LENGTH (1). SQ1064.2 079300 MOVE "SHORT" TO BUFFER-COPY-L-OR-S. SQ1064.2 079400 MOVE "**" TO SQ-STATUS. SQ1064.2 079500 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 079600 GO TO SEQ-DELETE-07. SQ1064.2 079700 GO TO SEQ-TEST-WR-07. SQ1064.2 079800 SEQ-DELETE-07. SQ1064.2 079900 GO TO SEQ-DELETE-07-01. SQ1064.2 080000 SEQ-TEST-WR-07. SQ1064.2 080100 MOVE FILE-RECORD-INFO-P1-120 (1) TO BUFFER-COPY-120. SQ1064.2 080200 WRITE SQ-VS6R1-M-G-120 FROM BUFFER-COPY. SQ1064.2 080300 GO TO SEQ-TEST-WR-07-01. SQ1064.2 080400 SEQ-DELETE-07-01. SQ1064.2 080500 PERFORM DE-LETE. SQ1064.2 080600 GO TO SEQ-TEST-07-01-END. SQ1064.2 080700 SEQ-TEST-WR-07-01. SQ1064.2 080800 IF SQ-STATUS = "00" SQ1064.2 080900 PERFORM PASS SQ1064.2 081000 ELSE SQ1064.2 081100 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 081200 MOVE "00" TO CORRECT-A SQ1064.2 081300 MOVE "UNEXPECTED I-O STATUS FROM WRITE" TO RE-MARK SQ1064.2 081400 MOVE "VII-3, VII-53,4.7.4(6)" TO ANSI-REFERENCE SQ1064.2 081500 PERFORM FAIL. SQ1064.2 081600 SEQ-TEST-07-01-END. SQ1064.2 081700* SQ1064.2 081800* SQ1064.2 081900* CREATE A LONG RECORD USING WRITE FROM, USING A 151 SQ1064.2 082000* CHARACTER SOURCE AREA. SQ1064.2 082100* SQ1064.2 082200 SEQ-INIT-08. SQ1064.2 082300 MOVE 1 TO REC-CT. SQ1064.2 082400 MOVE "WRITE LONG RECORD FROM" TO FEATURE. SQ1064.2 082500 MOVE "SEQ-TEST-WR-08" TO PAR-NAME. SQ1064.2 082600 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 082700 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 082800 MOVE "R2-M-G" TO XRECORD-NAME (1). SQ1064.2 082900 MOVE 151 TO XRECORD-LENGTH (1). SQ1064.2 083000 MOVE "LONG" TO BUFFER-COPY-L-OR-S. SQ1064.2 083100 MOVE "**" TO SQ-STATUS. SQ1064.2 083200 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 083300 GO TO SEQ-DELETE-08. SQ1064.2 083400 GO TO SEQ-TEST-WR-08. SQ1064.2 083500 SEQ-DELETE-08. SQ1064.2 083600 GO TO SEQ-DELETE-08-01. SQ1064.2 083700 SEQ-TEST-WR-08. SQ1064.2 083800 MOVE FILE-RECORD-INFO-P1-120 (1) TO BUFFER-COPY-120. SQ1064.2 083900 WRITE SQ-VS6R2-M-G-151 FROM BUFFER-COPY. SQ1064.2 084000 GO TO SEQ-TEST-WR-08-01. SQ1064.2 084100 SEQ-DELETE-08-01. SQ1064.2 084200 PERFORM DE-LETE. SQ1064.2 084300 GO TO SEQ-TEST-08-01-END. SQ1064.2 084400 SEQ-TEST-WR-08-01. SQ1064.2 084500 IF SQ-STATUS = "00" SQ1064.2 084600 PERFORM PASS SQ1064.2 084700 ELSE SQ1064.2 084800 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 084900 MOVE "00" TO CORRECT-A SQ1064.2 085000 MOVE "UNEXPECTED I-O STATUS FROM WRITE" TO RE-MARK SQ1064.2 085100 MOVE "VII-3, VII-53,4.7.4(6)" TO ANSI-REFERENCE SQ1064.2 085200 PERFORM FAIL. SQ1064.2 085300 SEQ-TEST-08-01-END. SQ1064.2 085400* SQ1064.2 085500* SQ1064.2 085600* CREATE A LONG RECORD USING WRITE FROM, USING A 151 SQ1064.2 085700* CHARACTER SOURCE AREA. SQ1064.2 085800* SQ1064.2 085900 SEQ-INIT-09. SQ1064.2 086000 MOVE 1 TO REC-CT. SQ1064.2 086100 MOVE "WRITE LONG RECORD FROM" TO FEATURE. SQ1064.2 086200 MOVE "SEQ-TEST-WR-09" TO PAR-NAME. SQ1064.2 086300 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 086400 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 086500 MOVE "R2-M-G" TO XRECORD-NAME (1). SQ1064.2 086600 MOVE 151 TO XRECORD-LENGTH (1). SQ1064.2 086700 MOVE "LONG" TO BUFFER-COPY-L-OR-S. SQ1064.2 086800 MOVE "**" TO SQ-STATUS. SQ1064.2 086900 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 087000 GO TO SEQ-DELETE-09. SQ1064.2 087100 GO TO SEQ-TEST-WR-09. SQ1064.2 087200 SEQ-DELETE-09. SQ1064.2 087300 GO TO SEQ-DELETE-09-01. SQ1064.2 087400 SEQ-TEST-WR-09. SQ1064.2 087500 MOVE FILE-RECORD-INFO-P1-120 (1) TO BUFFER-COPY-120. SQ1064.2 087600 WRITE SQ-VS6R2-M-G-151 FROM BUFFER-COPY. SQ1064.2 087700 GO TO SEQ-TEST-WR-09-01. SQ1064.2 087800 SEQ-DELETE-09-01. SQ1064.2 087900 PERFORM DE-LETE. SQ1064.2 088000 GO TO SEQ-TEST-09-01-END. SQ1064.2 088100 SEQ-TEST-WR-09-01. SQ1064.2 088200 IF SQ-STATUS = "00" SQ1064.2 088300 PERFORM PASS SQ1064.2 088400 ELSE SQ1064.2 088500 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 088600 MOVE "00" TO CORRECT-A SQ1064.2 088700 MOVE "UNEXPECTED I-O STATUS FROM WRITE" TO RE-MARK SQ1064.2 088800 MOVE "VII-3, VII-53,4.7.4(6)" TO ANSI-REFERENCE SQ1064.2 088900 PERFORM FAIL. SQ1064.2 089000 SEQ-TEST-09-01-END. SQ1064.2 089100* SQ1064.2 089200* SQ1064.2 089300* CREATE A LONG RECORD USING THE BASIC WRITE STATEMENT SQ1064.2 089400* SQ1064.2 089500 SEQ-INIT-10. SQ1064.2 089600 MOVE 1 TO REC-CT. SQ1064.2 089700 MOVE "WRITE LONG RECORD" TO FEATURE. SQ1064.2 089800 MOVE "SEQ-TEST-WR-10" TO PAR-NAME. SQ1064.2 089900 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 090000 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 090100 MOVE "R2-M-G" TO XRECORD-NAME (1). SQ1064.2 090200 MOVE 151 TO XRECORD-LENGTH (1). SQ1064.2 090300 MOVE "LONG" TO BUFFER-COPY-L-OR-S. SQ1064.2 090400 MOVE "**" TO SQ-STATUS. SQ1064.2 090500 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 090600 GO TO SEQ-DELETE-10. SQ1064.2 090700 GO TO SEQ-TEST-WR-10. SQ1064.2 090800 SEQ-DELETE-10. SQ1064.2 090900 GO TO SEQ-DELETE-10-01. SQ1064.2 091000 SEQ-TEST-WR-10. SQ1064.2 091100 MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS6R2-FIRST. SQ1064.2 091200 MOVE BUFFER-COPY-SECOND TO SQ-VS6R2-SECOND. SQ1064.2 091300 WRITE SQ-VS6R2-M-G-151. SQ1064.2 091400 GO TO SEQ-TEST-WR-10-01. SQ1064.2 091500 SEQ-DELETE-10-01. SQ1064.2 091600 PERFORM DE-LETE. SQ1064.2 091700 GO TO SEQ-TEST-10-01-END. SQ1064.2 091800 SEQ-TEST-WR-10-01. SQ1064.2 091900 IF SQ-STATUS = "00" SQ1064.2 092000 PERFORM PASS SQ1064.2 092100 ELSE SQ1064.2 092200 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 092300 MOVE "00" TO CORRECT-A SQ1064.2 092400 MOVE "UNEXPECTED I-O STATUS FROM WRITE" TO RE-MARK SQ1064.2 092500 MOVE "VII-3, VII-53,4.7.4(6)" TO ANSI-REFERENCE SQ1064.2 092600 PERFORM FAIL. SQ1064.2 092700 SEQ-TEST-10-01-END. SQ1064.2 092800* SQ1064.2 092900* SQ1064.2 093000* CREATE A SHORT RECORD USING THE BASIC WRITE STATEMENT SQ1064.2 093100* SQ1064.2 093200 SEQ-INIT-11. SQ1064.2 093300 MOVE 1 TO REC-CT. SQ1064.2 093400 MOVE "WRITE SHORT RECORD" TO FEATURE. SQ1064.2 093500 MOVE "SEQ-TEST-WR-11" TO PAR-NAME. SQ1064.2 093600 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 093700 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 093800 MOVE "R1-M-G" TO XRECORD-NAME (1). SQ1064.2 093900 MOVE 120 TO XRECORD-LENGTH (1). SQ1064.2 094000 MOVE "SHORT" TO BUFFER-COPY-L-OR-S. SQ1064.2 094100 MOVE "**" TO SQ-STATUS. SQ1064.2 094200 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 094300 GO TO SEQ-DELETE-11. SQ1064.2 094400 GO TO SEQ-TEST-WR-11. SQ1064.2 094500 SEQ-DELETE-11. SQ1064.2 094600 GO TO SEQ-DELETE-11-01. SQ1064.2 094700 SEQ-TEST-WR-11. SQ1064.2 094800 MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS6R2-FIRST. SQ1064.2 094900 MOVE BUFFER-COPY-SECOND TO SQ-VS6R2-SECOND. SQ1064.2 095000 WRITE SQ-VS6R1-M-G-120. SQ1064.2 095100 GO TO SEQ-TEST-WR-11-01. SQ1064.2 095200 SEQ-DELETE-11-01. SQ1064.2 095300 PERFORM DE-LETE. SQ1064.2 095400 GO TO SEQ-TEST-11-01-END. SQ1064.2 095500 SEQ-TEST-WR-11-01. SQ1064.2 095600 IF SQ-STATUS = "00" SQ1064.2 095700 PERFORM PASS SQ1064.2 095800 ELSE SQ1064.2 095900 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 096000 MOVE "00" TO CORRECT-A SQ1064.2 096100 MOVE "UNEXPECTED I-O STATUS FROM WRITE" TO RE-MARK SQ1064.2 096200 MOVE "VII-3, VII-53,4.7.4(6)" TO ANSI-REFERENCE SQ1064.2 096300 PERFORM FAIL. SQ1064.2 096400 SEQ-TEST-11-01-END. SQ1064.2 096500* SQ1064.2 096600* CREATE A SHORT RECORD USING THE BASIC WRITE STATEMENT SQ1064.2 096700* SQ1064.2 096800 SEQ-INIT-12. SQ1064.2 096900 MOVE 1 TO REC-CT. SQ1064.2 097000 MOVE "WRITE SHORT RECORD" TO FEATURE. SQ1064.2 097100 MOVE "SEQ-TEST-WR-12" TO PAR-NAME. SQ1064.2 097200 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 097300 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 097400 MOVE "R1-M-G" TO XRECORD-NAME (1). SQ1064.2 097500 MOVE 120 TO XRECORD-LENGTH (1). SQ1064.2 097600 MOVE "SHORT" TO BUFFER-COPY-L-OR-S. SQ1064.2 097700 MOVE "**" TO SQ-STATUS. SQ1064.2 097800 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 097900 GO TO SEQ-DELETE-12. SQ1064.2 098000 GO TO SEQ-TEST-WR-12. SQ1064.2 098100 SEQ-DELETE-12. SQ1064.2 098200 GO TO SEQ-DELETE-12-01. SQ1064.2 098300 SEQ-TEST-WR-12. SQ1064.2 098400 MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS6R2-FIRST. SQ1064.2 098500 MOVE BUFFER-COPY-SECOND TO SQ-VS6R2-SECOND. SQ1064.2 098600 WRITE SQ-VS6R1-M-G-120. SQ1064.2 098700 GO TO SEQ-TEST-WR-12-01. SQ1064.2 098800 SEQ-DELETE-12-01. SQ1064.2 098900 PERFORM DE-LETE. SQ1064.2 099000 GO TO SEQ-TEST-12-01-END. SQ1064.2 099100 SEQ-TEST-WR-12-01. SQ1064.2 099200 IF SQ-STATUS = "00" SQ1064.2 099300 PERFORM PASS SQ1064.2 099400 ELSE SQ1064.2 099500 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 099600 MOVE "00" TO CORRECT-A SQ1064.2 099700 MOVE "UNEXPECTED I-O STATUS FROM WRITE" TO RE-MARK SQ1064.2 099800 MOVE "VII-3, VII-53,4.7.4(6)" TO ANSI-REFERENCE SQ1064.2 099900 PERFORM FAIL. SQ1064.2 100000 SEQ-TEST-12-01-END. SQ1064.2 100100* SQ1064.2 100200* SQ1064.2 100300* ALL REQUIRED RECORDS HAVE BEEN WRITTEN, SO THE FILE SQ1064.2 100400* CAN BE CLOSED. SQ1064.2 100500* SQ1064.2 100600 SEQ-INIT-13. SQ1064.2 100700 MOVE 1 TO REC-CT. SQ1064.2 100800 MOVE "CLOSE NEW FILE" TO FEATURE. SQ1064.2 100900 MOVE "SEQ-TEST-WR-13" TO PAR-NAME. SQ1064.2 101000 MOVE "**" TO SQ-STATUS. SQ1064.2 101100 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 101200 GO TO SEQ-DELETE-13. SQ1064.2 101300 GO TO SEQ-TEST-WR-13. SQ1064.2 101400 SEQ-DELETE-13. SQ1064.2 101500 GO TO SEQ-DELETE-13-01. SQ1064.2 101600 SEQ-TEST-WR-13. SQ1064.2 101700 CLOSE SQ-VS6. SQ1064.2 101800 GO TO SEQ-TEST-WR-13-01. SQ1064.2 101900 SEQ-DELETE-13-01. SQ1064.2 102000 PERFORM DE-LETE. SQ1064.2 102100 GO TO SEQ-TEST-13-01-END. SQ1064.2 102200 SEQ-TEST-WR-13-01. SQ1064.2 102300 IF SQ-STATUS = "00" SQ1064.2 102400 PERFORM PASS SQ1064.2 102500 ELSE SQ1064.2 102600 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 102700 MOVE "00" TO CORRECT-A SQ1064.2 102800 MOVE "UNEXPECTED I-O STATUS FROM CLOSE" TO RE-MARK SQ1064.2 102900 MOVE "VII-3, VII-38,4.2.4(4)" TO ANSI-REFERENCE SQ1064.2 103000 PERFORM FAIL. SQ1064.2 103100 SEQ-TEST-13-01-END. SQ1064.2 103200* SQ1064.2 103300* SQ1064.2 103400* A SEQUENTIAL TAPE FILE CONTAINING 11 RECORDS HAS BEEN SQ1064.2 103500* CREATED. THE FILE CONTAINS RECORDS OF 120 CHARACTERS AND SQ1064.2 103600* RECORDS OF 151 CHARACTERS. THE SEQUENCE IN WHICH THE SQ1064.2 103700* RECORDS WERE WRITTEN IS SLSSLSLLLSS. THE NEXT GROUP OF SQ1064.2 103800* OPENS THE FILE FOR INPUT AND READS IT, USING TWELVE SQ1064.2 103900* DIFFERENT FORMATS OF THE READ STATEMENT. DELETION OF THIS SQ1064.2 104000* TEST CAUSES DELETION OF ALL SUBSEQUENT TESTS. SQ1064.2 104100* SQ1064.2 104200* SQ1064.2 104300 SEQ-INIT-14. SQ1064.2 104400 MOVE "**" TO SQ-STATUS. SQ1064.2 104500 MOVE "OPEN FILE FOR INPUT" TO FEATURE. SQ1064.2 104600 MOVE "SEQ-TEST-GF-14" TO PAR-NAME. SQ1064.2 104700 IF DELETE-SW NOT = SPACE SQ1064.2 104800 GO TO SEQ-DELETE-14. SQ1064.2 104900 GO TO SEQ-TEST-GF-14. SQ1064.2 105000 SEQ-DELETE-14. SQ1064.2 105100 MOVE "*" TO DELETE-SW-1. SQ1064.2 105200 GO TO SEQ-DELETE-14-01. SQ1064.2 105300 SEQ-TEST-GF-14. SQ1064.2 105400 OPEN INPUT SQ-VS6. SQ1064.2 105500 GO TO SEQ-TEST-GF-14-01. SQ1064.2 105600 SEQ-DELETE-14-01. SQ1064.2 105700 PERFORM DE-LETE. SQ1064.2 105800 GO TO SEQ-TEST-14-01-END. SQ1064.2 105900 SEQ-TEST-GF-14-01. SQ1064.2 106000 IF SQ-STATUS = "00" SQ1064.2 106100 PERFORM PASS SQ1064.2 106200 ELSE SQ1064.2 106300 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 106400 MOVE "00" TO CORRECT-A SQ1064.2 106500 MOVE "UNEXPECTED I-O STATUS FROM OPEN" TO RE-MARK SQ1064.2 106600 MOVE "VII-2, VII-39" TO ANSI-REFERENCE SQ1064.2 106700 PERFORM FAIL SQ1064.2 106800 MOVE "*" TO DELETE-SW-1. SQ1064.2 106900 SEQ-TEST-14-01-END. SQ1064.2 107000* SQ1064.2 107100* SQ1064.2 107200* UNLESS AN ERROR OCCURRED DURING EXECUTION OF THE OPEN SQ1064.2 107300* STATEMENT, THE FILE IS NOW OPEN, AND READY FOR RECORDS TO SQ1064.2 107400* BE WRITTEN TO IT. IF AN ERROR I-O STATUS VALUE WAS SQ1064.2 107500* RETURNED, ALL THE REMAINING TESTS ARE DELETED. SQ1064.2 107600* SQ1064.2 107700* READ A SHORT RECORD, USING READ ... AT END SQ1064.2 107800* SQ1064.2 107900 SEQ-INIT-15. SQ1064.2 108000 MOVE 1 TO REC-CT. SQ1064.2 108100 MOVE 1 TO XRECORD-NUMBER (1). SQ1064.2 108200 MOVE "**********" TO SQ-VS6R2-SECOND-L. SQ1064.2 108300 MOVE "SHORT" TO BUFFER-COPY-L-OR-S. SQ1064.2 108400 MOVE 1 TO BUFFER-COPY-RECNO. SQ1064.2 108500 MOVE "**" TO SQ-STATUS. SQ1064.2 108600 MOVE "NOT EXECUTED" TO EOF-FLAG. SQ1064.2 108700 MOVE "READ SHORT AT END" TO FEATURE. SQ1064.2 108800 MOVE "SEQ-TEST-RD-15" TO PAR-NAME. SQ1064.2 108900 IF DELETE-SW NOT = SPACE SQ1064.2 109000 GO TO SEQ-DELETE-15. SQ1064.2 109100 GO TO SEQ-TEST-RD-15. SQ1064.2 109200 SEQ-DELETE-15. SQ1064.2 109300 MOVE "*" TO DELETE-SW-3. SQ1064.2 109400 GO TO SEQ-DELETE-15-01. SQ1064.2 109500* SQ1064.2 109600* EXECUTE THE READ STATEMENT SQ1064.2 109700* SQ1064.2 109800 SEQ-TEST-RD-15. SQ1064.2 109900 READ SQ-VS6 AT END SQ1064.2 110000 MOVE "EXECUTED" TO EOF-FLAG. SQ1064.2 110100 MOVE SQ-VS6R1-M-G-120 TO FILE-RECORD-INFO-P1-120 (2). SQ1064.2 110200 GO TO SEQ-TEST-RD-15-01. SQ1064.2 110300* SQ1064.2 110400* CHECK THE FILE STATUS VALUE SQ1064.2 110500* SQ1064.2 110600 SEQ-DELETE-15-01. SQ1064.2 110700 PERFORM DE-LETE. SQ1064.2 110800 GO TO SEQ-TEST-15-01-END. SQ1064.2 110900 SEQ-TEST-RD-15-01. SQ1064.2 111000 IF SQ-STATUS = "00" SQ1064.2 111100 PERFORM PASS SQ1064.2 111200 ELSE SQ1064.2 111300 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 111400 MOVE "00" TO CORRECT-A SQ1064.2 111500 MOVE "UNEXPECTED I-O STATUS ON READ" TO RE-MARK SQ1064.2 111600 MOVE "VII-3, VII-44,4.4.4(3)" TO ANSI-REFERENCE SQ1064.2 111700 PERFORM FAIL. SQ1064.2 111800 SEQ-TEST-15-01-END. SQ1064.2 111900* SQ1064.2 112000* CHECK THE RECORD NUMBER OF THE RECORD READ SQ1064.2 112100* SQ1064.2 112200 ADD 1 TO REC-CT. SQ1064.2 112300 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 112400 GO TO SEQ-DELETE-15-02. SQ1064.2 112500 GO TO SEQ-TEST-RD-15-02. SQ1064.2 112600 SEQ-DELETE-15-02. SQ1064.2 112700 PERFORM DE-LETE. SQ1064.2 112800 GO TO SEQ-TEST-15-02-END. SQ1064.2 112900 SEQ-TEST-RD-15-02. SQ1064.2 113000 IF XRECORD-NUMBER (1) = XRECORD-NUMBER (2) SQ1064.2 113100 PERFORM PASS SQ1064.2 113200 ELSE SQ1064.2 113300 MOVE XRECORD-NUMBER (2) TO COMPUTED-A SQ1064.2 113400 MOVE XRECORD-NUMBER (1) TO CORRECT-A SQ1064.2 113500 MOVE "UNEXPECTED RECORD RETURNED" TO RE-MARK SQ1064.2 113600 PERFORM FAIL. SQ1064.2 113700 SEQ-TEST-15-02-END. SQ1064.2 113800* SQ1064.2 113900* CHECK THE EXTENDED PART OF THE RECORD SQ1064.2 114000* SQ1064.2 114100 ADD 1 TO REC-CT. SQ1064.2 114200* IF DELETE-SW NOT = TO SPACE SQ1064.2 114300* GO TO SEQ-DELETE-15-03. SQ1064.2 114400* GO TO SEQ-TEST-RD-15-03. SQ1064.2 114500 SEQ-DELETE-15-03. SQ1064.2 114600 PERFORM DE-LETE. SQ1064.2 114700 GO TO SEQ-TEST-15-03-END. SQ1064.2 114800 SEQ-TEST-RD-15-03. SQ1064.2 114900 IF SQ-VS6R2-SECOND-L NOT = BUFFER-COPY-SECOND-L SQ1064.2 115000 PERFORM PASS SQ1064.2 115100 ELSE SQ1064.2 115200 MOVE SQ-VS6R2-SECOND-L TO COMPUTED-A SQ1064.2 115300 MOVE "**UNDEFINED**" TO CORRECT-A SQ1064.2 115400 MOVE "BUFFER CONTENTS FOR LONG RECORD" TO RE-MARK SQ1064.2 115500 PERFORM FAIL. SQ1064.2 115600 SEQ-TEST-15-03-END. SQ1064.2 115700* SQ1064.2 115800* CHECK EXECUTION OF THE END PATH SQ1064.2 115900* SQ1064.2 116000 ADD 1 TO REC-CT. SQ1064.2 116100 IF DELETE-SW NOT = SPACE SQ1064.2 116200 GO TO SEQ-DELETE-15-04. SQ1064.2 116300 GO TO SEQ-TEST-RD-15-04. SQ1064.2 116400 SEQ-DELETE-15-04. SQ1064.2 116500 PERFORM DE-LETE. SQ1064.2 116600 GO TO SEQ-TEST-15-04-END. SQ1064.2 116700 SEQ-TEST-RD-15-04. SQ1064.2 116800 IF EOF-FLAG = "NOT EXECUTED" SQ1064.2 116900 PERFORM PASS SQ1064.2 117000 ELSE SQ1064.2 117100 MOVE EOF-FLAG TO COMPUTED-A SQ1064.2 117200 MOVE "NOT EXECUTED" TO CORRECT-A SQ1064.2 117300 MOVE "AT END BRANCH TAKEN BEFORE EOF" TO RE-MARK SQ1064.2 117400 MOVE "V11-46, 4.4.4(10)" TO ANSI-REFERENCE SQ1064.2 117500 MOVE "*" TO DELETE-SW-2 SQ1064.2 117600 PERFORM FAIL. SQ1064.2 117700 SEQ-TEST-15-04-END. SQ1064.2 117800 MOVE SPACE TO DELETE-SW-3. SQ1064.2 117900* SQ1064.2 118000* SQ1064.2 118100* READ A LONG RECORD, USING READ ... END SQ1064.2 118200* SQ1064.2 118300 SEQ-INIT-16. SQ1064.2 118400 MOVE 1 TO REC-CT. SQ1064.2 118500 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 118600 MOVE "**********" TO SQ-VS6R2-SECOND-L. SQ1064.2 118700 MOVE "LONG" TO BUFFER-COPY-L-OR-S. SQ1064.2 118800 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 118900 MOVE "**" TO SQ-STATUS. SQ1064.2 119000 MOVE "NOT EXECUTED" TO EOF-FLAG. SQ1064.2 119100 MOVE "READ LONG END" TO FEATURE. SQ1064.2 119200 MOVE "SEQ-TEST-RD-16" TO PAR-NAME. SQ1064.2 119300 IF DELETE-SW NOT = SPACE SQ1064.2 119400 GO TO SEQ-DELETE-16. SQ1064.2 119500 GO TO SEQ-TEST-RD-16. SQ1064.2 119600 SEQ-DELETE-16. SQ1064.2 119700 MOVE "*" TO DELETE-SW-3. SQ1064.2 119800 GO TO SEQ-DELETE-16-01. SQ1064.2 119900* SQ1064.2 120000* EXECUTE THE READ STATEMENT SQ1064.2 120100* SQ1064.2 120200 SEQ-TEST-RD-16. SQ1064.2 120300 READ SQ-VS6 END SQ1064.2 120400 MOVE "EXECUTED" TO EOF-FLAG. SQ1064.2 120500 MOVE SQ-VS6R1-M-G-120 TO FILE-RECORD-INFO-P1-120 (2). SQ1064.2 120600 GO TO SEQ-TEST-RD-16-01. SQ1064.2 120700 SEQ-DELETE-16-01. SQ1064.2 120800 PERFORM DE-LETE. SQ1064.2 120900 GO TO SEQ-TEST-16-01-END. SQ1064.2 121000* SQ1064.2 121100* CHECK THE FILE STATUS RETURNED SQ1064.2 121200* SQ1064.2 121300 SEQ-TEST-RD-16-01. SQ1064.2 121400 IF SQ-STATUS = "00" SQ1064.2 121500 PERFORM PASS SQ1064.2 121600 ELSE SQ1064.2 121700 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 121800 MOVE "00" TO CORRECT-A SQ1064.2 121900 MOVE "UNEXPECTED I-O STATUS ON READ" TO RE-MARK SQ1064.2 122000 MOVE "VII-3, VII-44,4.4.4(3)" TO ANSI-REFERENCE SQ1064.2 122100 PERFORM FAIL. SQ1064.2 122200 SEQ-TEST-16-01-END. SQ1064.2 122300* SQ1064.2 122400* CHECK THE IDENTITY OF THE RECORD RETURNED SQ1064.2 122500* SQ1064.2 122600 ADD 1 TO REC-CT. SQ1064.2 122700 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 122800 GO TO SEQ-DELETE-16-02. SQ1064.2 122900 GO TO SEQ-TEST-RD-16-02. SQ1064.2 123000 SEQ-DELETE-16-02. SQ1064.2 123100 PERFORM DE-LETE. SQ1064.2 123200 GO TO SEQ-TEST-16-02-END. SQ1064.2 123300 SEQ-TEST-RD-16-02. SQ1064.2 123400 IF XRECORD-NUMBER (1) = XRECORD-NUMBER (2) SQ1064.2 123500 PERFORM PASS SQ1064.2 123600 ELSE SQ1064.2 123700 MOVE XRECORD-NUMBER (2) TO COMPUTED-A SQ1064.2 123800 MOVE XRECORD-NUMBER (1) TO CORRECT-A SQ1064.2 123900 MOVE "UNEXPECTED RECORD RETURNED" TO RE-MARK SQ1064.2 124000 PERFORM FAIL. SQ1064.2 124100 SEQ-TEST-16-02-END. SQ1064.2 124200* SQ1064.2 124300* CHECK THE RECORD EXTENSION AREA SQ1064.2 124400* SQ1064.2 124500 ADD 1 TO REC-CT. SQ1064.2 124600 IF DELETE-SW NOT EQUAL TO SPACE SQ1064.2 124700 GO TO SEQ-DELETE-16-03. SQ1064.2 124800 GO TO SEQ-TEST-RD-16-03. SQ1064.2 124900 SEQ-DELETE-16-03. SQ1064.2 125000 PERFORM DE-LETE. SQ1064.2 125100 GO TO SEQ-TEST-16-03-END. SQ1064.2 125200 SEQ-TEST-RD-16-03. SQ1064.2 125300 IF SQ-VS6R2-SECOND-L = BUFFER-COPY-SECOND-L SQ1064.2 125400 PERFORM PASS SQ1064.2 125500 ELSE SQ1064.2 125600 MOVE SQ-VS6R2-SECOND-L TO COMPUTED-A SQ1064.2 125700 MOVE BUFFER-COPY-SECOND-L TO CORRECT-A SQ1064.2 125800 MOVE "INCORRECT VALUE IN BUFFER EXTENSION" TO RE-MARK SQ1064.2 125900 PERFORM FAIL. SQ1064.2 126000 SEQ-TEST-16-03-END. SQ1064.2 126100* SQ1064.2 126200* CHECK EXECUTION OF THE END PHRASE SQ1064.2 126300* SQ1064.2 126400 ADD 1 TO REC-CT. SQ1064.2 126500 IF DELETE-SW NOT = SPACE SQ1064.2 126600 GO TO SEQ-DELETE-16-04. SQ1064.2 126700 GO TO SEQ-TEST-RD-16-04. SQ1064.2 126800 SEQ-DELETE-16-04. SQ1064.2 126900 PERFORM DE-LETE. SQ1064.2 127000 GO TO SEQ-TEST-16-04-END. SQ1064.2 127100 SEQ-TEST-RD-16-04. SQ1064.2 127200 IF EOF-FLAG = "NOT EXECUTED" SQ1064.2 127300 PERFORM PASS SQ1064.2 127400 ELSE SQ1064.2 127500 MOVE EOF-FLAG TO COMPUTED-A SQ1064.2 127600 MOVE "NOT EXECUTED" TO CORRECT-A SQ1064.2 127700 MOVE "AT END BRANCH TAKEN BEFORE EOF" TO RE-MARK SQ1064.2 127800 MOVE "V11-46,4.4.4(10)" TO ANSI-REFERENCE SQ1064.2 127900 MOVE "*" TO DELETE-SW-2 SQ1064.2 128000 PERFORM FAIL. SQ1064.2 128100 SEQ-TEST-16-04-END. SQ1064.2 128200 MOVE SPACE TO DELETE-SW-3. SQ1064.2 128300* SQ1064.2 128400* SQ1064.2 128500* READ A SHORT RECORD, USING READ ... AT END ... NOT AT END SQ1064.2 128600* SQ1064.2 128700 SEQ-INIT-17. SQ1064.2 128800 MOVE 1 TO REC-CT. SQ1064.2 128900 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 129000 MOVE "**********" TO SQ-VS6R2-SECOND-L. SQ1064.2 129100 MOVE "SHORT" TO BUFFER-COPY-L-OR-S. SQ1064.2 129200 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 129300 MOVE "**" TO SQ-STATUS. SQ1064.2 129400 MOVE "NOT EXECUTED" TO EOF-FLAG. SQ1064.2 129500 MOVE "NOT EXECUTED" TO NOT-EOF-FLAG. SQ1064.2 129600 MOVE "READ SHORT AT END N A E" TO FEATURE. SQ1064.2 129700 MOVE "SEQ-TEST-RD-17" TO PAR-NAME. SQ1064.2 129800 IF DELETE-SW NOT = SPACE SQ1064.2 129900 GO TO SEQ-DELETE-17. SQ1064.2 130000 GO TO SEQ-TEST-RD-17. SQ1064.2 130100 SEQ-DELETE-17. SQ1064.2 130200 MOVE "*" TO DELETE-SW-3. SQ1064.2 130300 GO TO SEQ-DELETE-17-01. SQ1064.2 130400* SQ1064.2 130500* EXECUTE THE READ STATEMENT SQ1064.2 130600* SQ1064.2 130700 SEQ-TEST-RD-17. SQ1064.2 130800 READ SQ-VS6 SQ1064.2 130900 AT END SQ1064.2 131000 MOVE "EXECUTED" TO EOF-FLAG SQ1064.2 131100 NOT AT END SQ1064.2 131200 MOVE "EXECUTED" TO NOT-EOF-FLAG. SQ1064.2 131300 MOVE SQ-VS6R1-M-G-120 TO FILE-RECORD-INFO-P1-120 (2). SQ1064.2 131400 GO TO SEQ-TEST-RD-17-01. SQ1064.2 131500* SQ1064.2 131600* CHECK THE FILE STATUS VALUE SQ1064.2 131700* SQ1064.2 131800 SEQ-DELETE-17-01. SQ1064.2 131900 PERFORM DE-LETE. SQ1064.2 132000 GO TO SEQ-TEST-17-01-END. SQ1064.2 132100 SEQ-TEST-RD-17-01. SQ1064.2 132200 IF SQ-STATUS = "00" SQ1064.2 132300 PERFORM PASS SQ1064.2 132400 ELSE SQ1064.2 132500 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 132600 MOVE "00" TO CORRECT-A SQ1064.2 132700 MOVE "UNEXPECTED I-O STATUS ON READ" TO RE-MARK SQ1064.2 132800 MOVE "VII-3, VII-44,4.4.4(3)" TO ANSI-REFERENCE SQ1064.2 132900 PERFORM FAIL. SQ1064.2 133000 SEQ-TEST-17-01-END. SQ1064.2 133100* SQ1064.2 133200* CHECK THE RECORD NUMBER OF THE RECORD READ SQ1064.2 133300* SQ1064.2 133400 ADD 1 TO REC-CT. SQ1064.2 133500 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 133600 GO TO SEQ-DELETE-17-02. SQ1064.2 133700 GO TO SEQ-TEST-RD-17-02. SQ1064.2 133800 SEQ-DELETE-17-02. SQ1064.2 133900 PERFORM DE-LETE. SQ1064.2 134000 GO TO SEQ-TEST-17-02-END. SQ1064.2 134100 SEQ-TEST-RD-17-02. SQ1064.2 134200 IF XRECORD-NUMBER (1) = XRECORD-NUMBER (2) SQ1064.2 134300 PERFORM PASS SQ1064.2 134400 ELSE SQ1064.2 134500 MOVE XRECORD-NUMBER (2) TO COMPUTED-A SQ1064.2 134600 MOVE XRECORD-NUMBER (1) TO CORRECT-A SQ1064.2 134700 MOVE "UNEXPECTED RECORD RETURNED" TO RE-MARK SQ1064.2 134800 PERFORM FAIL. SQ1064.2 134900 SEQ-TEST-17-02-END. SQ1064.2 135000* SQ1064.2 135100* CHECK THE EXTENDED PART OF THE RECORD SQ1064.2 135200* SQ1064.2 135300 ADD 1 TO REC-CT. SQ1064.2 135400* IF DELETE-SW NOT = TO SPACE SQ1064.2 135500* GO TO SEQ-DELETE-17-03. SQ1064.2 135600* GO TO SEQ-TEST-RD-17-03. SQ1064.2 135700 SEQ-DELETE-17-03. SQ1064.2 135800 PERFORM DE-LETE. SQ1064.2 135900 GO TO SEQ-TEST-17-03-END. SQ1064.2 136000 SEQ-TEST-RD-17-03. SQ1064.2 136100 IF SQ-VS6R2-SECOND-L NOT = BUFFER-COPY-SECOND-L SQ1064.2 136200 PERFORM PASS SQ1064.2 136300 ELSE SQ1064.2 136400 MOVE SQ-VS6R2-SECOND-L TO COMPUTED-A SQ1064.2 136500 MOVE "**UNDEFINED**" TO CORRECT-A SQ1064.2 136600 MOVE "BUFFER CONTENTS FOR LONG RECORD" TO RE-MARK SQ1064.2 136700 PERFORM FAIL. SQ1064.2 136800 SEQ-TEST-17-03-END. SQ1064.2 136900* SQ1064.2 137000* CHECK EXECUTION OF THE NOT END PATH SQ1064.2 137100* SQ1064.2 137200 ADD 1 TO REC-CT. SQ1064.2 137300 IF DELETE-SW NOT = SPACE SQ1064.2 137400 GO TO SEQ-DELETE-17-04. SQ1064.2 137500 GO TO SEQ-TEST-RD-17-04. SQ1064.2 137600 SEQ-DELETE-17-04. SQ1064.2 137700 PERFORM DE-LETE. SQ1064.2 137800 GO TO SEQ-TEST-17-04-END. SQ1064.2 137900 SEQ-TEST-RD-17-04. SQ1064.2 138000 IF NOT-EOF-FLAG = "EXECUTED" SQ1064.2 138100 PERFORM PASS SQ1064.2 138200 ELSE SQ1064.2 138300 MOVE NOT-EOF-FLAG TO COMPUTED-A SQ1064.2 138400 MOVE "EXECUTED" TO CORRECT-A SQ1064.2 138500 MOVE "NOT END PATH NOT EXECUTED" TO RE-MARK SQ1064.2 138600 MOVE "VII-46,4.4.4(11)" TO ANSI-REFERENCE SQ1064.2 138700 PERFORM FAIL. SQ1064.2 138800 SEQ-TEST-17-04-END. SQ1064.2 138900* SQ1064.2 139000* CHECK EXECUTION OF THE END PATH SQ1064.2 139100* SQ1064.2 139200 ADD 1 TO REC-CT. SQ1064.2 139300 IF DELETE-SW NOT = SPACE SQ1064.2 139400 GO TO SEQ-DELETE-17-05. SQ1064.2 139500 GO TO SEQ-TEST-RD-17-05. SQ1064.2 139600 SEQ-DELETE-17-05. SQ1064.2 139700 PERFORM DE-LETE. SQ1064.2 139800 GO TO SEQ-TEST-17-05-END. SQ1064.2 139900 SEQ-TEST-RD-17-05. SQ1064.2 140000 IF EOF-FLAG = "NOT EXECUTED" SQ1064.2 140100 PERFORM PASS SQ1064.2 140200 ELSE SQ1064.2 140300 MOVE EOF-FLAG TO COMPUTED-A SQ1064.2 140400 MOVE "NOT EXECUTED" TO CORRECT-A SQ1064.2 140500 MOVE "AT END BRANCH TAKEN BEFORE EOF" TO RE-MARK SQ1064.2 140600 MOVE "V11-46, 4.4.4(10)" TO ANSI-REFERENCE SQ1064.2 140700 MOVE "*" TO DELETE-SW-2 SQ1064.2 140800 PERFORM FAIL. SQ1064.2 140900 SEQ-TEST-17-05-END. SQ1064.2 141000 MOVE SPACE TO DELETE-SW-3. SQ1064.2 141100* SQ1064.2 141200* SQ1064.2 141300* READ A SHORT RECORD, USING READ ... END ... NOT AT END SQ1064.2 141400* SQ1064.2 141500 SEQ-INIT-18. SQ1064.2 141600 MOVE 1 TO REC-CT. SQ1064.2 141700 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 141800 MOVE "**********" TO SQ-VS6R2-SECOND-L. SQ1064.2 141900 MOVE "SHORT" TO BUFFER-COPY-L-OR-S. SQ1064.2 142000 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 142100 MOVE "**" TO SQ-STATUS. SQ1064.2 142200 MOVE "NOT EXECUTED" TO EOF-FLAG. SQ1064.2 142300 MOVE "NOT EXECUTED" TO NOT-EOF-FLAG. SQ1064.2 142400 MOVE "READ SHORT END N A E" TO FEATURE. SQ1064.2 142500 MOVE "SEQ-TEST-RD-18" TO PAR-NAME. SQ1064.2 142600 IF DELETE-SW NOT = SPACE SQ1064.2 142700 GO TO SEQ-DELETE-18. SQ1064.2 142800 GO TO SEQ-TEST-RD-18. SQ1064.2 142900 SEQ-DELETE-18. SQ1064.2 143000 MOVE "*" TO DELETE-SW-3. SQ1064.2 143100 GO TO SEQ-DELETE-18-01. SQ1064.2 143200* SQ1064.2 143300* EXECUTE THE READ STATEMENT SQ1064.2 143400* SQ1064.2 143500 SEQ-TEST-RD-18. SQ1064.2 143600 READ SQ-VS6 SQ1064.2 143700 END SQ1064.2 143800 MOVE "EXECUTED" TO EOF-FLAG SQ1064.2 143900 NOT AT END SQ1064.2 144000 MOVE "EXECUTED" TO NOT-EOF-FLAG. SQ1064.2 144100 MOVE SQ-VS6R1-M-G-120 TO FILE-RECORD-INFO-P1-120 (2). SQ1064.2 144200 GO TO SEQ-TEST-RD-18-01. SQ1064.2 144300* SQ1064.2 144400* CHECK THE FILE STATUS VALUE SQ1064.2 144500* SQ1064.2 144600 SEQ-DELETE-18-01. SQ1064.2 144700 PERFORM DE-LETE. SQ1064.2 144800 GO TO SEQ-TEST-18-01-END. SQ1064.2 144900 SEQ-TEST-RD-18-01. SQ1064.2 145000 IF SQ-STATUS = "00" SQ1064.2 145100 PERFORM PASS SQ1064.2 145200 ELSE SQ1064.2 145300 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 145400 MOVE "00" TO CORRECT-A SQ1064.2 145500 MOVE "UNEXPECTED I-O STATUS ON READ" TO RE-MARK SQ1064.2 145600 MOVE "VII-3, VII-44,4.4.4(3)" TO ANSI-REFERENCE SQ1064.2 145700 PERFORM FAIL. SQ1064.2 145800 SEQ-TEST-18-01-END. SQ1064.2 145900* SQ1064.2 146000* CHECK THE RECORD NUMBER OF THE RECORD READ SQ1064.2 146100* SQ1064.2 146200 ADD 1 TO REC-CT. SQ1064.2 146300 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 146400 GO TO SEQ-DELETE-18-02. SQ1064.2 146500 GO TO SEQ-TEST-RD-18-02. SQ1064.2 146600 SEQ-DELETE-18-02. SQ1064.2 146700 PERFORM DE-LETE. SQ1064.2 146800 GO TO SEQ-TEST-18-02-END. SQ1064.2 146900 SEQ-TEST-RD-18-02. SQ1064.2 147000 IF XRECORD-NUMBER (1) = XRECORD-NUMBER (2) SQ1064.2 147100 PERFORM PASS SQ1064.2 147200 ELSE SQ1064.2 147300 MOVE XRECORD-NUMBER (2) TO COMPUTED-A SQ1064.2 147400 MOVE XRECORD-NUMBER (1) TO CORRECT-A SQ1064.2 147500 MOVE "UNEXPECTED RECORD RETURNED" TO RE-MARK SQ1064.2 147600 PERFORM FAIL. SQ1064.2 147700 SEQ-TEST-18-02-END. SQ1064.2 147800* SQ1064.2 147900* CHECK THE EXTENDED PART OF THE RECORD SQ1064.2 148000* SQ1064.2 148100 ADD 1 TO REC-CT. SQ1064.2 148200* IF DELETE-SW NOT = TO SPACE SQ1064.2 148300* GO TO SEQ-DELETE-18-03. SQ1064.2 148400* GO TO SEQ-TEST-RD-18-03. SQ1064.2 148500 SEQ-DELETE-18-03. SQ1064.2 148600 PERFORM DE-LETE. SQ1064.2 148700 GO TO SEQ-TEST-18-03-END. SQ1064.2 148800 SEQ-TEST-RD-18-03. SQ1064.2 148900 IF SQ-VS6R2-SECOND-L NOT = BUFFER-COPY-SECOND-L SQ1064.2 149000 PERFORM PASS SQ1064.2 149100 ELSE SQ1064.2 149200 MOVE SQ-VS6R2-SECOND-L TO COMPUTED-A SQ1064.2 149300 MOVE "**UNDEFINED**" TO CORRECT-A SQ1064.2 149400 MOVE "BUFFER CONTENTS FOR LONG RECORD" TO RE-MARK SQ1064.2 149500 PERFORM FAIL. SQ1064.2 149600 SEQ-TEST-18-03-END. SQ1064.2 149700* SQ1064.2 149800* CHECK EXECUTION OF THE NOT END PATH SQ1064.2 149900* SQ1064.2 150000 ADD 1 TO REC-CT. SQ1064.2 150100 IF DELETE-SW NOT = SPACE SQ1064.2 150200 GO TO SEQ-DELETE-18-04. SQ1064.2 150300 GO TO SEQ-TEST-RD-18-04. SQ1064.2 150400 SEQ-DELETE-18-04. SQ1064.2 150500 PERFORM DE-LETE. SQ1064.2 150600 GO TO SEQ-TEST-18-04-END. SQ1064.2 150700 SEQ-TEST-RD-18-04. SQ1064.2 150800 IF NOT-EOF-FLAG = "EXECUTED" SQ1064.2 150900 PERFORM PASS SQ1064.2 151000 ELSE SQ1064.2 151100 MOVE NOT-EOF-FLAG TO COMPUTED-A SQ1064.2 151200 MOVE "EXECUTED" TO CORRECT-A SQ1064.2 151300 MOVE "NOT END PATH NOT EXECUTED" TO RE-MARK SQ1064.2 151400 MOVE "VII-46,4.4.4(11)" TO ANSI-REFERENCE SQ1064.2 151500 PERFORM FAIL. SQ1064.2 151600 SEQ-TEST-18-04-END. SQ1064.2 151700* SQ1064.2 151800* CHECK EXECUTION OF THE END PATH SQ1064.2 151900* SQ1064.2 152000 ADD 1 TO REC-CT. SQ1064.2 152100 IF DELETE-SW NOT = SPACE SQ1064.2 152200 GO TO SEQ-DELETE-18-05. SQ1064.2 152300 GO TO SEQ-TEST-RD-18-05. SQ1064.2 152400 SEQ-DELETE-18-05. SQ1064.2 152500 PERFORM DE-LETE. SQ1064.2 152600 GO TO SEQ-TEST-18-05-END. SQ1064.2 152700 SEQ-TEST-RD-18-05. SQ1064.2 152800 IF EOF-FLAG = "NOT EXECUTED" SQ1064.2 152900 PERFORM PASS SQ1064.2 153000 ELSE SQ1064.2 153100 MOVE EOF-FLAG TO COMPUTED-A SQ1064.2 153200 MOVE "NOT EXECUTED" TO CORRECT-A SQ1064.2 153300 MOVE "AT END BRANCH TAKEN BEFORE EOF" TO RE-MARK SQ1064.2 153400 MOVE "V11-46, 4.4.4(10)" TO ANSI-REFERENCE SQ1064.2 153500 MOVE "*" TO DELETE-SW-2 SQ1064.2 153600 PERFORM FAIL. SQ1064.2 153700 SEQ-TEST-18-05-END. SQ1064.2 153800 MOVE SPACE TO DELETE-SW-3. SQ1064.2 153900* SQ1064.2 154000* SQ1064.2 154100* READ A LONG RECORD, USING READ ... AT END ... NOT END ... SQ1064.2 154200* SQ1064.2 154300 SEQ-INIT-19. SQ1064.2 154400 MOVE 1 TO REC-CT. SQ1064.2 154500 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 154600 MOVE "**********" TO SQ-VS6R2-SECOND-L. SQ1064.2 154700 MOVE "LONG" TO BUFFER-COPY-L-OR-S. SQ1064.2 154800 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 154900 MOVE "**" TO SQ-STATUS. SQ1064.2 155000 MOVE "NOT EXECUTED" TO EOF-FLAG. SQ1064.2 155100 MOVE "NOT EXECUTED" TO NOT-EOF-FLAG. SQ1064.2 155200 MOVE "READ LONG AT END NOT END" TO FEATURE. SQ1064.2 155300 MOVE "SEQ-TEST-RD-19" TO PAR-NAME. SQ1064.2 155400 IF DELETE-SW NOT = SPACE SQ1064.2 155500 GO TO SEQ-DELETE-19. SQ1064.2 155600 GO TO SEQ-TEST-RD-19. SQ1064.2 155700 SEQ-DELETE-19. SQ1064.2 155800 MOVE "*" TO DELETE-SW-3. SQ1064.2 155900 GO TO SEQ-DELETE-19-01. SQ1064.2 156000* SQ1064.2 156100* EXECUTE THE READ STATEMENT SQ1064.2 156200* SQ1064.2 156300 SEQ-TEST-RD-19. SQ1064.2 156400 READ SQ-VS6 SQ1064.2 156500 AT END SQ1064.2 156600 MOVE "EXECUTED" TO EOF-FLAG SQ1064.2 156700 NOT END SQ1064.2 156800 MOVE "EXECUTED" TO NOT-EOF-FLAG. SQ1064.2 156900 MOVE SQ-VS6R1-M-G-120 TO FILE-RECORD-INFO-P1-120 (2). SQ1064.2 157000 GO TO SEQ-TEST-RD-19-01. SQ1064.2 157100 SEQ-DELETE-19-01. SQ1064.2 157200 PERFORM DE-LETE. SQ1064.2 157300 GO TO SEQ-TEST-19-01-END. SQ1064.2 157400* SQ1064.2 157500* CHECK THE FILE STATUS RETURNED SQ1064.2 157600* SQ1064.2 157700 SEQ-TEST-RD-19-01. SQ1064.2 157800 IF SQ-STATUS = "00" SQ1064.2 157900 PERFORM PASS SQ1064.2 158000 ELSE SQ1064.2 158100 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 158200 MOVE "00" TO CORRECT-A SQ1064.2 158300 MOVE "UNEXPECTED I-O STATUS ON READ" TO RE-MARK SQ1064.2 158400 MOVE "VII-3, VII-44,4.4.4(3)" TO ANSI-REFERENCE SQ1064.2 158500 PERFORM FAIL. SQ1064.2 158600 SEQ-TEST-19-01-END. SQ1064.2 158700* SQ1064.2 158800* CHECK THE IDENTITY OF THE RECORD RETURNED SQ1064.2 158900* SQ1064.2 159000 ADD 1 TO REC-CT. SQ1064.2 159100 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 159200 GO TO SEQ-DELETE-19-02. SQ1064.2 159300 GO TO SEQ-TEST-RD-19-02. SQ1064.2 159400 SEQ-DELETE-19-02. SQ1064.2 159500 PERFORM DE-LETE. SQ1064.2 159600 GO TO SEQ-TEST-19-02-END. SQ1064.2 159700 SEQ-TEST-RD-19-02. SQ1064.2 159800 IF XRECORD-NUMBER (1) = XRECORD-NUMBER (2) SQ1064.2 159900 PERFORM PASS SQ1064.2 160000 ELSE SQ1064.2 160100 MOVE XRECORD-NUMBER (2) TO COMPUTED-A SQ1064.2 160200 MOVE XRECORD-NUMBER (1) TO CORRECT-A SQ1064.2 160300 MOVE "UNEXPECTED RECORD RETURNED" TO RE-MARK SQ1064.2 160400 PERFORM FAIL. SQ1064.2 160500 SEQ-TEST-19-02-END. SQ1064.2 160600* SQ1064.2 160700* CHECK THE RECORD EXTENSION AREA SQ1064.2 160800* SQ1064.2 160900 ADD 1 TO REC-CT. SQ1064.2 161000 IF DELETE-SW NOT EQUAL TO SPACE SQ1064.2 161100 GO TO SEQ-DELETE-19-03. SQ1064.2 161200 GO TO SEQ-TEST-RD-19-03. SQ1064.2 161300 SEQ-DELETE-19-03. SQ1064.2 161400 PERFORM DE-LETE. SQ1064.2 161500 GO TO SEQ-TEST-19-03-END. SQ1064.2 161600 SEQ-TEST-RD-19-03. SQ1064.2 161700 IF SQ-VS6R2-SECOND-L = BUFFER-COPY-SECOND-L SQ1064.2 161800 PERFORM PASS SQ1064.2 161900 ELSE SQ1064.2 162000 MOVE SQ-VS6R2-SECOND-L TO COMPUTED-A SQ1064.2 162100 MOVE BUFFER-COPY-SECOND-L TO CORRECT-A SQ1064.2 162200 MOVE "INCORRECT VALUE IN BUFFER EXTENSION" TO RE-MARK SQ1064.2 162300 PERFORM FAIL. SQ1064.2 162400 SEQ-TEST-19-03-END. SQ1064.2 162500* SQ1064.2 162600* CHECK EXECUTION OF THE NOT END PATH SQ1064.2 162700* SQ1064.2 162800 ADD 1 TO REC-CT. SQ1064.2 162900 IF DELETE-SW NOT = SPACE SQ1064.2 163000 GO TO SEQ-DELETE-19-04. SQ1064.2 163100 GO TO SEQ-TEST-RD-19-04. SQ1064.2 163200 SEQ-DELETE-19-04. SQ1064.2 163300 PERFORM DE-LETE. SQ1064.2 163400 GO TO SEQ-TEST-19-04-END. SQ1064.2 163500 SEQ-TEST-RD-19-04. SQ1064.2 163600 IF NOT-EOF-FLAG = "EXECUTED" SQ1064.2 163700 PERFORM PASS SQ1064.2 163800 ELSE SQ1064.2 163900 MOVE NOT-EOF-FLAG TO COMPUTED-A SQ1064.2 164000 MOVE "EXECUTED" TO CORRECT-A SQ1064.2 164100 MOVE "NOT END PATH NOT EXECUTED" TO RE-MARK SQ1064.2 164200 MOVE "VII-46,4.4.4(11)" TO ANSI-REFERENCE SQ1064.2 164300 PERFORM FAIL. SQ1064.2 164400 SEQ-TEST-19-04-END. SQ1064.2 164500* SQ1064.2 164600* CHECK EXECUTION OF THE END PHRASE SQ1064.2 164700* SQ1064.2 164800 ADD 1 TO REC-CT. SQ1064.2 164900 IF DELETE-SW NOT = SPACE SQ1064.2 165000 GO TO SEQ-DELETE-19-05. SQ1064.2 165100 GO TO SEQ-TEST-RD-19-05. SQ1064.2 165200 SEQ-DELETE-19-05. SQ1064.2 165300 PERFORM DE-LETE. SQ1064.2 165400 GO TO SEQ-TEST-19-05-END. SQ1064.2 165500 SEQ-TEST-RD-19-05. SQ1064.2 165600 IF EOF-FLAG = "NOT EXECUTED" SQ1064.2 165700 PERFORM PASS SQ1064.2 165800 ELSE SQ1064.2 165900 MOVE EOF-FLAG TO COMPUTED-A SQ1064.2 166000 MOVE "NOT EXECUTED" TO CORRECT-A SQ1064.2 166100 MOVE "AT END BRANCH TAKEN BEFORE EOF" TO RE-MARK SQ1064.2 166200 MOVE "V11-46,4.4.4(10)" TO ANSI-REFERENCE SQ1064.2 166300 MOVE "*" TO DELETE-SW-2 SQ1064.2 166400 PERFORM FAIL. SQ1064.2 166500 SEQ-TEST-19-05-END. SQ1064.2 166600 MOVE SPACE TO DELETE-SW-3. SQ1064.2 166700* SQ1064.2 166800* SQ1064.2 166900* READ A SHORT RECORD, USING READ ... END ... NOT END SQ1064.2 167000* SQ1064.2 167100 SEQ-INIT-20. SQ1064.2 167200 MOVE 1 TO REC-CT. SQ1064.2 167300 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 167400 MOVE "**********" TO SQ-VS6R2-SECOND-L. SQ1064.2 167500 MOVE "SHORT" TO BUFFER-COPY-L-OR-S. SQ1064.2 167600 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 167700 MOVE "**" TO SQ-STATUS. SQ1064.2 167800 MOVE "NOT EXECUTED" TO EOF-FLAG. SQ1064.2 167900 MOVE "NOT EXECUTED" TO NOT-EOF-FLAG. SQ1064.2 168000 MOVE "READ SHORT END NOT END" TO FEATURE. SQ1064.2 168100 MOVE "SEQ-TEST-RD-20" TO PAR-NAME. SQ1064.2 168200 IF DELETE-SW NOT = SPACE SQ1064.2 168300 GO TO SEQ-DELETE-20. SQ1064.2 168400 GO TO SEQ-TEST-RD-20. SQ1064.2 168500 SEQ-DELETE-20. SQ1064.2 168600 MOVE "*" TO DELETE-SW-3. SQ1064.2 168700 GO TO SEQ-DELETE-20-01. SQ1064.2 168800* SQ1064.2 168900* EXECUTE THE READ STATEMENT SQ1064.2 169000* SQ1064.2 169100 SEQ-TEST-RD-20. SQ1064.2 169200 READ SQ-VS6 SQ1064.2 169300 END SQ1064.2 169400 MOVE "EXECUTED" TO EOF-FLAG SQ1064.2 169500 NOT END SQ1064.2 169600 MOVE "EXECUTED" TO NOT-EOF-FLAG. SQ1064.2 169700 MOVE SQ-VS6R1-M-G-120 TO FILE-RECORD-INFO-P1-120 (2). SQ1064.2 169800 GO TO SEQ-TEST-RD-20-01. SQ1064.2 169900* SQ1064.2 170000* CHECK THE FILE STATUS VALUE SQ1064.2 170100* SQ1064.2 170200 SEQ-DELETE-20-01. SQ1064.2 170300 PERFORM DE-LETE. SQ1064.2 170400 GO TO SEQ-TEST-20-01-END. SQ1064.2 170500 SEQ-TEST-RD-20-01. SQ1064.2 170600 IF SQ-STATUS = "00" SQ1064.2 170700 PERFORM PASS SQ1064.2 170800 ELSE SQ1064.2 170900 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 171000 MOVE "00" TO CORRECT-A SQ1064.2 171100 MOVE "UNEXPECTED I-O STATUS ON READ" TO RE-MARK SQ1064.2 171200 MOVE "VII-3, VII-44,4.4.4(3)" TO ANSI-REFERENCE SQ1064.2 171300 PERFORM FAIL. SQ1064.2 171400 SEQ-TEST-20-01-END. SQ1064.2 171500* SQ1064.2 171600* CHECK THE RECORD NUMBER OF THE RECORD READ SQ1064.2 171700* SQ1064.2 171800 ADD 1 TO REC-CT. SQ1064.2 171900 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 172000 GO TO SEQ-DELETE-20-02. SQ1064.2 172100 GO TO SEQ-TEST-RD-20-02. SQ1064.2 172200 SEQ-DELETE-20-02. SQ1064.2 172300 PERFORM DE-LETE. SQ1064.2 172400 GO TO SEQ-TEST-20-02-END. SQ1064.2 172500 SEQ-TEST-RD-20-02. SQ1064.2 172600 IF XRECORD-NUMBER (1) = XRECORD-NUMBER (2) SQ1064.2 172700 PERFORM PASS SQ1064.2 172800 ELSE SQ1064.2 172900 MOVE XRECORD-NUMBER (2) TO COMPUTED-A SQ1064.2 173000 MOVE XRECORD-NUMBER (1) TO CORRECT-A SQ1064.2 173100 MOVE "UNEXPECTED RECORD RETURNED" TO RE-MARK SQ1064.2 173200 PERFORM FAIL. SQ1064.2 173300 SEQ-TEST-20-02-END. SQ1064.2 173400* SQ1064.2 173500* CHECK THE EXTENDED PART OF THE RECORD SQ1064.2 173600* SQ1064.2 173700 ADD 1 TO REC-CT. SQ1064.2 173800* IF DELETE-SW NOT = TO SPACE SQ1064.2 173900* GO TO SEQ-DELETE-20-03. SQ1064.2 174000* GO TO SEQ-TEST-RD-20-03. SQ1064.2 174100 SEQ-DELETE-20-03. SQ1064.2 174200 PERFORM DE-LETE. SQ1064.2 174300 GO TO SEQ-TEST-20-03-END. SQ1064.2 174400 SEQ-TEST-RD-20-03. SQ1064.2 174500 IF SQ-VS6R2-SECOND-L NOT = BUFFER-COPY-SECOND-L SQ1064.2 174600 PERFORM PASS SQ1064.2 174700 ELSE SQ1064.2 174800 MOVE SQ-VS6R2-SECOND-L TO COMPUTED-A SQ1064.2 174900 MOVE "**UNDEFINED**" TO CORRECT-A SQ1064.2 175000 MOVE "BUFFER CONTENTS FOR LONG RECORD" TO RE-MARK SQ1064.2 175100 PERFORM FAIL. SQ1064.2 175200 SEQ-TEST-20-03-END. SQ1064.2 175300* SQ1064.2 175400* CHECK EXECUTION OF THE NOT END PATH SQ1064.2 175500* SQ1064.2 175600 ADD 1 TO REC-CT. SQ1064.2 175700 IF DELETE-SW NOT = SPACE SQ1064.2 175800 GO TO SEQ-DELETE-20-04. SQ1064.2 175900 GO TO SEQ-TEST-RD-20-04. SQ1064.2 176000 SEQ-DELETE-20-04. SQ1064.2 176100 PERFORM DE-LETE. SQ1064.2 176200 GO TO SEQ-TEST-20-04-END. SQ1064.2 176300 SEQ-TEST-RD-20-04. SQ1064.2 176400 IF NOT-EOF-FLAG = "EXECUTED" SQ1064.2 176500 PERFORM PASS SQ1064.2 176600 ELSE SQ1064.2 176700 MOVE NOT-EOF-FLAG TO COMPUTED-A SQ1064.2 176800 MOVE "EXECUTED" TO CORRECT-A SQ1064.2 176900 MOVE "NOT END PATH NOT EXECUTED" TO RE-MARK SQ1064.2 177000 MOVE "VII-46,4.4.4(11)" TO ANSI-REFERENCE SQ1064.2 177100 PERFORM FAIL. SQ1064.2 177200 SEQ-TEST-20-04-END. SQ1064.2 177300* SQ1064.2 177400* CHECK EXECUTION OF THE END PATH SQ1064.2 177500* SQ1064.2 177600 ADD 1 TO REC-CT. SQ1064.2 177700 IF DELETE-SW NOT = SPACE SQ1064.2 177800 GO TO SEQ-DELETE-20-05. SQ1064.2 177900 GO TO SEQ-TEST-RD-20-05. SQ1064.2 178000 SEQ-DELETE-20-05. SQ1064.2 178100 PERFORM DE-LETE. SQ1064.2 178200 GO TO SEQ-TEST-20-05-END. SQ1064.2 178300 SEQ-TEST-RD-20-05. SQ1064.2 178400 IF EOF-FLAG = "NOT EXECUTED" SQ1064.2 178500 PERFORM PASS SQ1064.2 178600 ELSE SQ1064.2 178700 MOVE EOF-FLAG TO COMPUTED-A SQ1064.2 178800 MOVE "NOT EXECUTED" TO CORRECT-A SQ1064.2 178900 MOVE "AT END BRANCH TAKEN BEFORE EOF" TO RE-MARK SQ1064.2 179000 MOVE "V11-46, 4.4.4(10)" TO ANSI-REFERENCE SQ1064.2 179100 MOVE "*" TO DELETE-SW-2 SQ1064.2 179200 PERFORM FAIL. SQ1064.2 179300 SEQ-TEST-20-05-END. SQ1064.2 179400 MOVE SPACE TO DELETE-SW-3. SQ1064.2 179500* SQ1064.2 179600* SQ1064.2 179700* READ A LONG RECORD, SQ1064.2 179800* USING READ ... AT END ... END-READ SQ1064.2 179900* SQ1064.2 180000 SEQ-INIT-21. SQ1064.2 180100 MOVE 1 TO REC-CT. SQ1064.2 180200 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 180300 MOVE "**********" TO SQ-VS6R2-SECOND-L. SQ1064.2 180400 MOVE "LONG" TO BUFFER-COPY-L-OR-S. SQ1064.2 180500 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 180600 MOVE "**" TO SQ-STATUS. SQ1064.2 180700 MOVE "NOT EXECUTED" TO EOF-FLAG. SQ1064.2 180800 MOVE "NOT EXECUTED" TO NOT-EOF-FLAG. SQ1064.2 180900 MOVE "NOT EXECUTED" TO END-READ-FLAG. SQ1064.2 181000 MOVE "READ LONG AT END END-RD" TO FEATURE. SQ1064.2 181100 MOVE "SEQ-TEST-RD-21" TO PAR-NAME. SQ1064.2 181200 IF DELETE-SW NOT = SPACE SQ1064.2 181300 GO TO SEQ-DELETE-21. SQ1064.2 181400 GO TO SEQ-TEST-RD-21. SQ1064.2 181500 SEQ-DELETE-21. SQ1064.2 181600 MOVE "*" TO DELETE-SW-3. SQ1064.2 181700 GO TO SEQ-DELETE-21-01. SQ1064.2 181800* SQ1064.2 181900* EXECUTE THE READ STATEMENT SQ1064.2 182000* SQ1064.2 182100 SEQ-TEST-RD-21. SQ1064.2 182200 READ SQ-VS6 SQ1064.2 182300 AT END SQ1064.2 182400 MOVE "EXECUTED" TO EOF-FLAG SQ1064.2 182500 END-READ SQ1064.2 182600 MOVE "EXECUTED" TO END-READ-FLAG. SQ1064.2 182700 MOVE SQ-VS6R1-M-G-120 TO FILE-RECORD-INFO-P1-120 (2). SQ1064.2 182800 GO TO SEQ-TEST-RD-21-01. SQ1064.2 182900 SEQ-DELETE-21-01. SQ1064.2 183000 PERFORM DE-LETE. SQ1064.2 183100 GO TO SEQ-TEST-21-01-END. SQ1064.2 183200* SQ1064.2 183300* CHECK THE FILE STATUS RETURNED SQ1064.2 183400* SQ1064.2 183500 SEQ-TEST-RD-21-01. SQ1064.2 183600 IF SQ-STATUS = "00" SQ1064.2 183700 PERFORM PASS SQ1064.2 183800 ELSE SQ1064.2 183900 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 184000 MOVE "00" TO CORRECT-A SQ1064.2 184100 MOVE "UNEXPECTED I-O STATUS ON READ" TO RE-MARK SQ1064.2 184200 MOVE "VII-3, VII-44,4.4.4(3)" TO ANSI-REFERENCE SQ1064.2 184300 PERFORM FAIL. SQ1064.2 184400 SEQ-TEST-21-01-END. SQ1064.2 184500* SQ1064.2 184600* CHECK THE IDENTITY OF THE RECORD RETURNED SQ1064.2 184700* SQ1064.2 184800 ADD 1 TO REC-CT. SQ1064.2 184900 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 185000 GO TO SEQ-DELETE-21-02. SQ1064.2 185100 GO TO SEQ-TEST-RD-21-02. SQ1064.2 185200 SEQ-DELETE-21-02. SQ1064.2 185300 PERFORM DE-LETE. SQ1064.2 185400 GO TO SEQ-TEST-21-02-END. SQ1064.2 185500 SEQ-TEST-RD-21-02. SQ1064.2 185600 IF XRECORD-NUMBER (1) = XRECORD-NUMBER (2) SQ1064.2 185700 PERFORM PASS SQ1064.2 185800 ELSE SQ1064.2 185900 MOVE XRECORD-NUMBER (2) TO COMPUTED-A SQ1064.2 186000 MOVE XRECORD-NUMBER (1) TO CORRECT-A SQ1064.2 186100 MOVE "UNEXPECTED RECORD RETURNED" TO RE-MARK SQ1064.2 186200 PERFORM FAIL. SQ1064.2 186300 SEQ-TEST-21-02-END. SQ1064.2 186400* SQ1064.2 186500* CHECK THE RECORD EXTENSION AREA SQ1064.2 186600* SQ1064.2 186700 ADD 1 TO REC-CT. SQ1064.2 186800 IF DELETE-SW NOT EQUAL TO SPACE SQ1064.2 186900 GO TO SEQ-DELETE-21-03. SQ1064.2 187000 GO TO SEQ-TEST-RD-21-03. SQ1064.2 187100 SEQ-DELETE-21-03. SQ1064.2 187200 PERFORM DE-LETE. SQ1064.2 187300 GO TO SEQ-TEST-21-03-END. SQ1064.2 187400 SEQ-TEST-RD-21-03. SQ1064.2 187500 IF SQ-VS6R2-SECOND-L = BUFFER-COPY-SECOND-L SQ1064.2 187600 PERFORM PASS SQ1064.2 187700 ELSE SQ1064.2 187800 MOVE SQ-VS6R2-SECOND-L TO COMPUTED-A SQ1064.2 187900 MOVE BUFFER-COPY-SECOND-L TO CORRECT-A SQ1064.2 188000 MOVE "INCORRECT VALUE IN BUFFER EXTENSION" TO RE-MARK SQ1064.2 188100 PERFORM FAIL. SQ1064.2 188200 SEQ-TEST-21-03-END. SQ1064.2 188300* SQ1064.2 188400* CHECK EXECUTION OF THE STATEMENT AFTER END-READ SQ1064.2 188500* SQ1064.2 188600 ADD 1 TO REC-CT. SQ1064.2 188700 IF DELETE-SW NOT = SPACE SQ1064.2 188800 GO TO SEQ-DELETE-21-04. SQ1064.2 188900 GO TO SEQ-TEST-RD-21-04. SQ1064.2 189000 SEQ-DELETE-21-04. SQ1064.2 189100 PERFORM DE-LETE. SQ1064.2 189200 GO TO SEQ-TEST-21-04-END. SQ1064.2 189300 SEQ-TEST-RD-21-04. SQ1064.2 189400 IF END-READ-FLAG = "EXECUTED" SQ1064.2 189500 PERFORM PASS SQ1064.2 189600 ELSE SQ1064.2 189700 MOVE END-READ-FLAG TO COMPUTED-A SQ1064.2 189800 MOVE "EXECUTED" TO CORRECT-A SQ1064.2 189900 MOVE "NOT END PATH NOT EXECUTED" TO RE-MARK SQ1064.2 190000 MOVE "IV-40, VII-47,4.4.4(14)" TO ANSI-REFERENCE SQ1064.2 190100 PERFORM FAIL. SQ1064.2 190200 SEQ-TEST-21-04-END. SQ1064.2 190300* SQ1064.2 190400* CHECK EXECUTION OF THE END PHRASE SQ1064.2 190500* SQ1064.2 190600 ADD 1 TO REC-CT. SQ1064.2 190700 IF DELETE-SW NOT = SPACE SQ1064.2 190800 GO TO SEQ-DELETE-21-05. SQ1064.2 190900 GO TO SEQ-TEST-RD-21-05. SQ1064.2 191000 SEQ-DELETE-21-05. SQ1064.2 191100 PERFORM DE-LETE. SQ1064.2 191200 GO TO SEQ-TEST-21-05-END. SQ1064.2 191300 SEQ-TEST-RD-21-05. SQ1064.2 191400 IF EOF-FLAG = "NOT EXECUTED" SQ1064.2 191500 PERFORM PASS SQ1064.2 191600 ELSE SQ1064.2 191700 MOVE EOF-FLAG TO COMPUTED-A SQ1064.2 191800 MOVE "NOT EXECUTED" TO CORRECT-A SQ1064.2 191900 MOVE "AT END BRANCH TAKEN BEFORE EOF" TO RE-MARK SQ1064.2 192000 MOVE "V11-46,4.4.4(10)" TO ANSI-REFERENCE SQ1064.2 192100 MOVE "*" TO DELETE-SW-2 SQ1064.2 192200 PERFORM FAIL. SQ1064.2 192300 SEQ-TEST-21-05-END. SQ1064.2 192400 MOVE SPACE TO DELETE-SW-3. SQ1064.2 192500* SQ1064.2 192600* SQ1064.2 192700* READ A LONG RECORD, SQ1064.2 192800* USING READ ... END ... END-READ SQ1064.2 192900* SQ1064.2 193000 SEQ-INIT-22. SQ1064.2 193100 MOVE 1 TO REC-CT. SQ1064.2 193200 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 193300 MOVE "**********" TO SQ-VS6R2-SECOND-L. SQ1064.2 193400 MOVE "LONG" TO BUFFER-COPY-L-OR-S. SQ1064.2 193500 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 193600 MOVE "**" TO SQ-STATUS. SQ1064.2 193700 MOVE "NOT EXECUTED" TO EOF-FLAG. SQ1064.2 193800 MOVE "NOT EXECUTED" TO NOT-EOF-FLAG. SQ1064.2 193900 MOVE "NOT EXECUTED" TO END-READ-FLAG. SQ1064.2 194000 MOVE "READ LONG END END-READ" TO FEATURE. SQ1064.2 194100 MOVE "SEQ-TEST-RD-22" TO PAR-NAME. SQ1064.2 194200 IF DELETE-SW NOT = SPACE SQ1064.2 194300 GO TO SEQ-DELETE-22. SQ1064.2 194400 GO TO SEQ-TEST-RD-22. SQ1064.2 194500 SEQ-DELETE-22. SQ1064.2 194600 MOVE "*" TO DELETE-SW-3. SQ1064.2 194700 GO TO SEQ-DELETE-22-01. SQ1064.2 194800* SQ1064.2 194900* EXECUTE THE READ STATEMENT SQ1064.2 195000* SQ1064.2 195100 SEQ-TEST-RD-22. SQ1064.2 195200 READ SQ-VS6 SQ1064.2 195300 END SQ1064.2 195400 MOVE "EXECUTED" TO EOF-FLAG SQ1064.2 195500 END-READ SQ1064.2 195600 MOVE "EXECUTED" TO END-READ-FLAG. SQ1064.2 195700 MOVE SQ-VS6R1-M-G-120 TO FILE-RECORD-INFO-P1-120 (2). SQ1064.2 195800 GO TO SEQ-TEST-RD-22-01. SQ1064.2 195900 SEQ-DELETE-22-01. SQ1064.2 196000 PERFORM DE-LETE. SQ1064.2 196100 GO TO SEQ-TEST-22-01-END. SQ1064.2 196200* SQ1064.2 196300* CHECK THE FILE STATUS RETURNED SQ1064.2 196400* SQ1064.2 196500 SEQ-TEST-RD-22-01. SQ1064.2 196600 IF SQ-STATUS = "00" SQ1064.2 196700 PERFORM PASS SQ1064.2 196800 ELSE SQ1064.2 196900 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 197000 MOVE "00" TO CORRECT-A SQ1064.2 197100 MOVE "UNEXPECTED I-O STATUS ON READ" TO RE-MARK SQ1064.2 197200 MOVE "VII-3, VII-44,4.4.4(3)" TO ANSI-REFERENCE SQ1064.2 197300 PERFORM FAIL. SQ1064.2 197400 SEQ-TEST-22-01-END. SQ1064.2 197500* SQ1064.2 197600* CHECK THE IDENTITY OF THE RECORD RETURNED SQ1064.2 197700* SQ1064.2 197800 ADD 1 TO REC-CT. SQ1064.2 197900 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 198000 GO TO SEQ-DELETE-22-02. SQ1064.2 198100 GO TO SEQ-TEST-RD-22-02. SQ1064.2 198200 SEQ-DELETE-22-02. SQ1064.2 198300 PERFORM DE-LETE. SQ1064.2 198400 GO TO SEQ-TEST-22-02-END. SQ1064.2 198500 SEQ-TEST-RD-22-02. SQ1064.2 198600 IF XRECORD-NUMBER (1) = XRECORD-NUMBER (2) SQ1064.2 198700 PERFORM PASS SQ1064.2 198800 ELSE SQ1064.2 198900 MOVE XRECORD-NUMBER (2) TO COMPUTED-A SQ1064.2 199000 MOVE XRECORD-NUMBER (1) TO CORRECT-A SQ1064.2 199100 MOVE "UNEXPECTED RECORD RETURNED" TO RE-MARK SQ1064.2 199200 PERFORM FAIL. SQ1064.2 199300 SEQ-TEST-22-02-END. SQ1064.2 199400* SQ1064.2 199500* CHECK THE RECORD EXTENSION AREA SQ1064.2 199600* SQ1064.2 199700 ADD 1 TO REC-CT. SQ1064.2 199800 IF DELETE-SW NOT EQUAL TO SPACE SQ1064.2 199900 GO TO SEQ-DELETE-22-03. SQ1064.2 200000 GO TO SEQ-TEST-RD-22-03. SQ1064.2 200100 SEQ-DELETE-22-03. SQ1064.2 200200 PERFORM DE-LETE. SQ1064.2 200300 GO TO SEQ-TEST-22-03-END. SQ1064.2 200400 SEQ-TEST-RD-22-03. SQ1064.2 200500 IF SQ-VS6R2-SECOND-L = BUFFER-COPY-SECOND-L SQ1064.2 200600 PERFORM PASS SQ1064.2 200700 ELSE SQ1064.2 200800 MOVE SQ-VS6R2-SECOND-L TO COMPUTED-A SQ1064.2 200900 MOVE BUFFER-COPY-SECOND-L TO CORRECT-A SQ1064.2 201000 MOVE "INCORRECT VALUE IN BUFFER EXTENSION" TO RE-MARK SQ1064.2 201100 PERFORM FAIL. SQ1064.2 201200 SEQ-TEST-22-03-END. SQ1064.2 201300* SQ1064.2 201400* CHECK EXECUTION OF THE STATEMENT AFTER END-READ SQ1064.2 201500* SQ1064.2 201600 ADD 1 TO REC-CT. SQ1064.2 201700 IF DELETE-SW NOT = SPACE SQ1064.2 201800 GO TO SEQ-DELETE-22-04. SQ1064.2 201900 GO TO SEQ-TEST-RD-22-04. SQ1064.2 202000 SEQ-DELETE-22-04. SQ1064.2 202100 PERFORM DE-LETE. SQ1064.2 202200 GO TO SEQ-TEST-22-04-END. SQ1064.2 202300 SEQ-TEST-RD-22-04. SQ1064.2 202400 IF END-READ-FLAG = "EXECUTED" SQ1064.2 202500 PERFORM PASS SQ1064.2 202600 ELSE SQ1064.2 202700 MOVE END-READ-FLAG TO COMPUTED-A SQ1064.2 202800 MOVE "EXECUTED" TO CORRECT-A SQ1064.2 202900 MOVE "NOT END PATH NOT EXECUTED" TO RE-MARK SQ1064.2 203000 MOVE "IV-40, VII-47,4.4.4(14)" TO ANSI-REFERENCE SQ1064.2 203100 PERFORM FAIL. SQ1064.2 203200 SEQ-TEST-22-04-END. SQ1064.2 203300* SQ1064.2 203400* CHECK EXECUTION OF THE END PHRASE SQ1064.2 203500* SQ1064.2 203600 ADD 1 TO REC-CT. SQ1064.2 203700 IF DELETE-SW NOT = SPACE SQ1064.2 203800 GO TO SEQ-DELETE-22-05. SQ1064.2 203900 GO TO SEQ-TEST-RD-22-05. SQ1064.2 204000 SEQ-DELETE-22-05. SQ1064.2 204100 PERFORM DE-LETE. SQ1064.2 204200 GO TO SEQ-TEST-22-05-END. SQ1064.2 204300 SEQ-TEST-RD-22-05. SQ1064.2 204400 IF EOF-FLAG = "NOT EXECUTED" SQ1064.2 204500 PERFORM PASS SQ1064.2 204600 ELSE SQ1064.2 204700 MOVE EOF-FLAG TO COMPUTED-A SQ1064.2 204800 MOVE "NOT EXECUTED" TO CORRECT-A SQ1064.2 204900 MOVE "AT END BRANCH TAKEN BEFORE EOF" TO RE-MARK SQ1064.2 205000 MOVE "V11-46,4.4.4(10)" TO ANSI-REFERENCE SQ1064.2 205100 MOVE "*" TO DELETE-SW-2 SQ1064.2 205200 PERFORM FAIL. SQ1064.2 205300 SEQ-TEST-22-05-END. SQ1064.2 205400 MOVE SPACE TO DELETE-SW-3. SQ1064.2 205500* SQ1064.2 205600* SQ1064.2 205700* READ A LONG RECORD, SQ1064.2 205800* USING READ ... AT END ... NOT AT END ... END-READ SQ1064.2 205900* SQ1064.2 206000 SEQ-INIT-23. SQ1064.2 206100 MOVE 1 TO REC-CT. SQ1064.2 206200 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 206300 MOVE "**********" TO SQ-VS6R2-SECOND-L. SQ1064.2 206400 MOVE "LONG" TO BUFFER-COPY-L-OR-S. SQ1064.2 206500 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 206600 MOVE "**" TO SQ-STATUS. SQ1064.2 206700 MOVE "NOT EXECUTED" TO EOF-FLAG. SQ1064.2 206800 MOVE "NOT EXECUTED" TO NOT-EOF-FLAG. SQ1064.2 206900 MOVE "NOT EXECUTED" TO END-READ-FLAG. SQ1064.2 207000 MOVE "READ LONG AT END NAE E-R" TO FEATURE. SQ1064.2 207100 MOVE "SEQ-TEST-RD-23" TO PAR-NAME. SQ1064.2 207200 IF DELETE-SW NOT = SPACE SQ1064.2 207300 GO TO SEQ-DELETE-23. SQ1064.2 207400 GO TO SEQ-TEST-RD-23. SQ1064.2 207500 SEQ-DELETE-23. SQ1064.2 207600 MOVE "*" TO DELETE-SW-3. SQ1064.2 207700 GO TO SEQ-DELETE-23-01. SQ1064.2 207800* SQ1064.2 207900* EXECUTE THE READ STATEMENT SQ1064.2 208000* SQ1064.2 208100 SEQ-TEST-RD-23. SQ1064.2 208200 READ SQ-VS6 SQ1064.2 208300 AT END SQ1064.2 208400 MOVE "EXECUTED" TO EOF-FLAG SQ1064.2 208500 NOT AT END SQ1064.2 208600 MOVE "EXECUTED" TO NOT-EOF-FLAG SQ1064.2 208700 END-READ SQ1064.2 208800 MOVE "EXECUTED" TO END-READ-FLAG. SQ1064.2 208900 MOVE SQ-VS6R1-M-G-120 TO FILE-RECORD-INFO-P1-120 (2). SQ1064.2 209000 GO TO SEQ-TEST-RD-23-01. SQ1064.2 209100 SEQ-DELETE-23-01. SQ1064.2 209200 PERFORM DE-LETE. SQ1064.2 209300 GO TO SEQ-TEST-23-01-END. SQ1064.2 209400* SQ1064.2 209500* CHECK THE FILE STATUS RETURNED SQ1064.2 209600* SQ1064.2 209700 SEQ-TEST-RD-23-01. SQ1064.2 209800 IF SQ-STATUS = "00" SQ1064.2 209900 PERFORM PASS SQ1064.2 210000 ELSE SQ1064.2 210100 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 210200 MOVE "00" TO CORRECT-A SQ1064.2 210300 MOVE "UNEXPECTED I-O STATUS ON READ" TO RE-MARK SQ1064.2 210400 MOVE "VII-3, VII-44,4.4.4(3)" TO ANSI-REFERENCE SQ1064.2 210500 PERFORM FAIL. SQ1064.2 210600 SEQ-TEST-23-01-END. SQ1064.2 210700* SQ1064.2 210800* CHECK THE IDENTITY OF THE RECORD RETURNED SQ1064.2 210900* SQ1064.2 211000 ADD 1 TO REC-CT. SQ1064.2 211100 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 211200 GO TO SEQ-DELETE-23-02. SQ1064.2 211300 GO TO SEQ-TEST-RD-23-02. SQ1064.2 211400 SEQ-DELETE-23-02. SQ1064.2 211500 PERFORM DE-LETE. SQ1064.2 211600 GO TO SEQ-TEST-23-02-END. SQ1064.2 211700 SEQ-TEST-RD-23-02. SQ1064.2 211800 IF XRECORD-NUMBER (1) = XRECORD-NUMBER (2) SQ1064.2 211900 PERFORM PASS SQ1064.2 212000 ELSE SQ1064.2 212100 MOVE XRECORD-NUMBER (2) TO COMPUTED-A SQ1064.2 212200 MOVE XRECORD-NUMBER (1) TO CORRECT-A SQ1064.2 212300 MOVE "UNEXPECTED RECORD RETURNED" TO RE-MARK SQ1064.2 212400 PERFORM FAIL. SQ1064.2 212500 SEQ-TEST-23-02-END. SQ1064.2 212600* SQ1064.2 212700* CHECK THE RECORD EXTENSION AREA SQ1064.2 212800* SQ1064.2 212900 ADD 1 TO REC-CT. SQ1064.2 213000 IF DELETE-SW NOT EQUAL TO SPACE SQ1064.2 213100 GO TO SEQ-DELETE-23-03. SQ1064.2 213200 GO TO SEQ-TEST-RD-23-03. SQ1064.2 213300 SEQ-DELETE-23-03. SQ1064.2 213400 PERFORM DE-LETE. SQ1064.2 213500 GO TO SEQ-TEST-23-03-END. SQ1064.2 213600 SEQ-TEST-RD-23-03. SQ1064.2 213700 IF SQ-VS6R2-SECOND-L = BUFFER-COPY-SECOND-L SQ1064.2 213800 PERFORM PASS SQ1064.2 213900 ELSE SQ1064.2 214000 MOVE SQ-VS6R2-SECOND-L TO COMPUTED-A SQ1064.2 214100 MOVE BUFFER-COPY-SECOND-L TO CORRECT-A SQ1064.2 214200 MOVE "INCORRECT VALUE IN BUFFER EXTENSION" TO RE-MARK SQ1064.2 214300 PERFORM FAIL. SQ1064.2 214400 SEQ-TEST-23-03-END. SQ1064.2 214500* SQ1064.2 214600* CHECK EXECUTION OF THE NOT END PATH SQ1064.2 214700* SQ1064.2 214800 ADD 1 TO REC-CT. SQ1064.2 214900 IF DELETE-SW NOT = SPACE SQ1064.2 215000 GO TO SEQ-DELETE-23-04. SQ1064.2 215100 GO TO SEQ-TEST-RD-23-04. SQ1064.2 215200 SEQ-DELETE-23-04. SQ1064.2 215300 PERFORM DE-LETE. SQ1064.2 215400 GO TO SEQ-TEST-23-04-END. SQ1064.2 215500 SEQ-TEST-RD-23-04. SQ1064.2 215600 IF NOT-EOF-FLAG = "EXECUTED" SQ1064.2 215700 PERFORM PASS SQ1064.2 215800 ELSE SQ1064.2 215900 MOVE NOT-EOF-FLAG TO COMPUTED-A SQ1064.2 216000 MOVE "EXECUTED" TO CORRECT-A SQ1064.2 216100 MOVE "NOT END PATH NOT EXECUTED" TO RE-MARK SQ1064.2 216200 MOVE "VII-46,4.4.4(11)" TO ANSI-REFERENCE SQ1064.2 216300 PERFORM FAIL. SQ1064.2 216400 SEQ-TEST-23-04-END. SQ1064.2 216500* SQ1064.2 216600* CHECK EXECUTION OF THE STATEMENT AFTER END-READ SQ1064.2 216700* SQ1064.2 216800 ADD 1 TO REC-CT. SQ1064.2 216900 IF DELETE-SW NOT = SPACE SQ1064.2 217000 GO TO SEQ-DELETE-23-05. SQ1064.2 217100 GO TO SEQ-TEST-RD-23-05. SQ1064.2 217200 SEQ-DELETE-23-05. SQ1064.2 217300 PERFORM DE-LETE. SQ1064.2 217400 GO TO SEQ-TEST-23-05-END. SQ1064.2 217500 SEQ-TEST-RD-23-05. SQ1064.2 217600 IF END-READ-FLAG = "EXECUTED" SQ1064.2 217700 PERFORM PASS SQ1064.2 217800 ELSE SQ1064.2 217900 MOVE END-READ-FLAG TO COMPUTED-A SQ1064.2 218000 MOVE "EXECUTED" TO CORRECT-A SQ1064.2 218100 MOVE "NOT END PATH NOT EXECUTED" TO RE-MARK SQ1064.2 218200 MOVE "IV-40, VII-47,4.4.4(14)" TO ANSI-REFERENCE SQ1064.2 218300 PERFORM FAIL. SQ1064.2 218400 SEQ-TEST-23-05-END. SQ1064.2 218500* SQ1064.2 218600* CHECK EXECUTION OF THE END PHRASE SQ1064.2 218700* SQ1064.2 218800 ADD 1 TO REC-CT. SQ1064.2 218900 IF DELETE-SW NOT = SPACE SQ1064.2 219000 GO TO SEQ-DELETE-23-06. SQ1064.2 219100 GO TO SEQ-TEST-RD-23-06. SQ1064.2 219200 SEQ-DELETE-23-06. SQ1064.2 219300 PERFORM DE-LETE. SQ1064.2 219400 GO TO SEQ-TEST-23-06-END. SQ1064.2 219500 SEQ-TEST-RD-23-06. SQ1064.2 219600 IF EOF-FLAG = "NOT EXECUTED" SQ1064.2 219700 PERFORM PASS SQ1064.2 219800 ELSE SQ1064.2 219900 MOVE EOF-FLAG TO COMPUTED-A SQ1064.2 220000 MOVE "NOT EXECUTED" TO CORRECT-A SQ1064.2 220100 MOVE "AT END BRANCH TAKEN BEFORE EOF" TO RE-MARK SQ1064.2 220200 MOVE "V11-46,4.4.4(10)" TO ANSI-REFERENCE SQ1064.2 220300 MOVE "*" TO DELETE-SW-2 SQ1064.2 220400 PERFORM FAIL. SQ1064.2 220500 SEQ-TEST-23-06-END. SQ1064.2 220600 MOVE SPACE TO DELETE-SW-3. SQ1064.2 220700* SQ1064.2 220800* SQ1064.2 220900* READ A SHORT RECORD, SQ1064.2 221000* USING READ ... END ... NOT AT END ... END-READ SQ1064.2 221100* SQ1064.2 221200 SEQ-INIT-24. SQ1064.2 221300 MOVE 1 TO REC-CT. SQ1064.2 221400 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 221500 MOVE "**********" TO SQ-VS6R2-SECOND-L. SQ1064.2 221600 MOVE "SHORT" TO BUFFER-COPY-L-OR-S. SQ1064.2 221700 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 221800 MOVE "**" TO SQ-STATUS. SQ1064.2 221900 MOVE "NOT EXECUTED" TO EOF-FLAG. SQ1064.2 222000 MOVE "NOT EXECUTED" TO NOT-EOF-FLAG. SQ1064.2 222100 MOVE "NOT EXECUTED" TO END-READ-FLAG. SQ1064.2 222200 MOVE "READ SHORT END N A R E-R" TO FEATURE. SQ1064.2 222300 MOVE "SEQ-TEST-RD-24" TO PAR-NAME. SQ1064.2 222400 IF DELETE-SW NOT = SPACE SQ1064.2 222500 GO TO SEQ-DELETE-24. SQ1064.2 222600 GO TO SEQ-TEST-RD-24. SQ1064.2 222700 SEQ-DELETE-24. SQ1064.2 222800 MOVE "*" TO DELETE-SW-3. SQ1064.2 222900 GO TO SEQ-DELETE-24-01. SQ1064.2 223000* SQ1064.2 223100* EXECUTE THE READ STATEMENT SQ1064.2 223200* SQ1064.2 223300 SEQ-TEST-RD-24. SQ1064.2 223400 READ SQ-VS6 SQ1064.2 223500 END SQ1064.2 223600 MOVE "EXECUTED" TO EOF-FLAG SQ1064.2 223700 NOT AT END SQ1064.2 223800 MOVE "EXECUTED" TO NOT-EOF-FLAG SQ1064.2 223900 END-READ SQ1064.2 224000 MOVE "EXECUTED" TO END-READ-FLAG. SQ1064.2 224100 MOVE SQ-VS6R1-M-G-120 TO FILE-RECORD-INFO-P1-120 (2). SQ1064.2 224200 GO TO SEQ-TEST-RD-24-01. SQ1064.2 224300* SQ1064.2 224400* CHECK THE FILE STATUS VALUE SQ1064.2 224500* SQ1064.2 224600 SEQ-DELETE-24-01. SQ1064.2 224700 PERFORM DE-LETE. SQ1064.2 224800 GO TO SEQ-TEST-24-01-END. SQ1064.2 224900 SEQ-TEST-RD-24-01. SQ1064.2 225000 IF SQ-STATUS = "00" SQ1064.2 225100 PERFORM PASS SQ1064.2 225200 ELSE SQ1064.2 225300 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 225400 MOVE "00" TO CORRECT-A SQ1064.2 225500 MOVE "UNEXPECTED I-O STATUS ON READ" TO RE-MARK SQ1064.2 225600 MOVE "VII-3, VII-44,4.4.4(3)" TO ANSI-REFERENCE SQ1064.2 225700 PERFORM FAIL. SQ1064.2 225800 SEQ-TEST-24-01-END. SQ1064.2 225900* SQ1064.2 226000* CHECK THE RECORD NUMBER OF THE RECORD READ SQ1064.2 226100* SQ1064.2 226200 ADD 1 TO REC-CT. SQ1064.2 226300 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 226400 GO TO SEQ-DELETE-24-02. SQ1064.2 226500 GO TO SEQ-TEST-RD-24-02. SQ1064.2 226600 SEQ-DELETE-24-02. SQ1064.2 226700 PERFORM DE-LETE. SQ1064.2 226800 GO TO SEQ-TEST-24-02-END. SQ1064.2 226900 SEQ-TEST-RD-24-02. SQ1064.2 227000 IF XRECORD-NUMBER (1) = XRECORD-NUMBER (2) SQ1064.2 227100 PERFORM PASS SQ1064.2 227200 ELSE SQ1064.2 227300 MOVE XRECORD-NUMBER (2) TO COMPUTED-A SQ1064.2 227400 MOVE XRECORD-NUMBER (1) TO CORRECT-A SQ1064.2 227500 MOVE "UNEXPECTED RECORD RETURNED" TO RE-MARK SQ1064.2 227600 PERFORM FAIL. SQ1064.2 227700 SEQ-TEST-24-02-END. SQ1064.2 227800* SQ1064.2 227900* CHECK THE EXTENDED PART OF THE RECORD SQ1064.2 228000* SQ1064.2 228100 ADD 1 TO REC-CT. SQ1064.2 228200* IF DELETE-SW NOT = TO SPACE SQ1064.2 228300* GO TO SEQ-DELETE-24-03. SQ1064.2 228400* GO TO SEQ-TEST-RD-24-03. SQ1064.2 228500 SEQ-DELETE-24-03. SQ1064.2 228600 PERFORM DE-LETE. SQ1064.2 228700 GO TO SEQ-TEST-24-03-END. SQ1064.2 228800 SEQ-TEST-RD-24-03. SQ1064.2 228900 IF SQ-VS6R2-SECOND-L NOT = BUFFER-COPY-SECOND-L SQ1064.2 229000 PERFORM PASS SQ1064.2 229100 ELSE SQ1064.2 229200 MOVE SQ-VS6R2-SECOND-L TO COMPUTED-A SQ1064.2 229300 MOVE "**UNDEFINED**" TO CORRECT-A SQ1064.2 229400 MOVE "BUFFER CONTENTS FOR LONG RECORD" TO RE-MARK SQ1064.2 229500 PERFORM FAIL. SQ1064.2 229600 SEQ-TEST-24-03-END. SQ1064.2 229700* SQ1064.2 229800* CHECK EXECUTION OF THE NOT END PATH SQ1064.2 229900* SQ1064.2 230000 ADD 1 TO REC-CT. SQ1064.2 230100 IF DELETE-SW NOT = SPACE SQ1064.2 230200 GO TO SEQ-DELETE-24-04. SQ1064.2 230300 GO TO SEQ-TEST-RD-24-04. SQ1064.2 230400 SEQ-DELETE-24-04. SQ1064.2 230500 PERFORM DE-LETE. SQ1064.2 230600 GO TO SEQ-TEST-24-04-END. SQ1064.2 230700 SEQ-TEST-RD-24-04. SQ1064.2 230800 IF NOT-EOF-FLAG = "EXECUTED" SQ1064.2 230900 PERFORM PASS SQ1064.2 231000 ELSE SQ1064.2 231100 MOVE NOT-EOF-FLAG TO COMPUTED-A SQ1064.2 231200 MOVE "EXECUTED" TO CORRECT-A SQ1064.2 231300 MOVE "NOT END PATH NOT EXECUTED" TO RE-MARK SQ1064.2 231400 MOVE "VII-46,4.4.4(11)" TO ANSI-REFERENCE SQ1064.2 231500 PERFORM FAIL. SQ1064.2 231600 SEQ-TEST-24-04-END. SQ1064.2 231700* SQ1064.2 231800* SQ1064.2 231900* CHECK EXECUTION OF THE STATEMENT AFTER END-READ SQ1064.2 232000* SQ1064.2 232100 ADD 1 TO REC-CT. SQ1064.2 232200 IF DELETE-SW NOT = SPACE SQ1064.2 232300 GO TO SEQ-DELETE-24-05. SQ1064.2 232400 GO TO SEQ-TEST-RD-24-05. SQ1064.2 232500 SEQ-DELETE-24-05. SQ1064.2 232600 PERFORM DE-LETE. SQ1064.2 232700 GO TO SEQ-TEST-24-05-END. SQ1064.2 232800 SEQ-TEST-RD-24-05. SQ1064.2 232900 IF END-READ-FLAG = "EXECUTED" SQ1064.2 233000 PERFORM PASS SQ1064.2 233100 ELSE SQ1064.2 233200 MOVE END-READ-FLAG TO COMPUTED-A SQ1064.2 233300 MOVE "EXECUTED" TO CORRECT-A SQ1064.2 233400 MOVE "NOT END PATH NOT EXECUTED" TO RE-MARK SQ1064.2 233500 MOVE "IV-40, VII-47,4.4.4(14)" TO ANSI-REFERENCE SQ1064.2 233600 PERFORM FAIL. SQ1064.2 233700 SEQ-TEST-24-05-END. SQ1064.2 233800* SQ1064.2 233900* CHECK EXECUTION OF THE END PATH SQ1064.2 234000* SQ1064.2 234100 ADD 1 TO REC-CT. SQ1064.2 234200 IF DELETE-SW NOT = SPACE SQ1064.2 234300 GO TO SEQ-DELETE-24-06. SQ1064.2 234400 GO TO SEQ-TEST-RD-24-06. SQ1064.2 234500 SEQ-DELETE-24-06. SQ1064.2 234600 PERFORM DE-LETE. SQ1064.2 234700 GO TO SEQ-TEST-24-06-END. SQ1064.2 234800 SEQ-TEST-RD-24-06. SQ1064.2 234900 IF EOF-FLAG = "NOT EXECUTED" SQ1064.2 235000 PERFORM PASS SQ1064.2 235100 ELSE SQ1064.2 235200 MOVE EOF-FLAG TO COMPUTED-A SQ1064.2 235300 MOVE "NOT EXECUTED" TO CORRECT-A SQ1064.2 235400 MOVE "AT END BRANCH TAKEN BEFORE EOF" TO RE-MARK SQ1064.2 235500 MOVE "V11-46, 4.4.4(10)" TO ANSI-REFERENCE SQ1064.2 235600 MOVE "*" TO DELETE-SW-2 SQ1064.2 235700 PERFORM FAIL. SQ1064.2 235800 SEQ-TEST-24-06-END. SQ1064.2 235900 MOVE SPACE TO DELETE-SW-3. SQ1064.2 236000* SQ1064.2 236100* SQ1064.2 236200* READ A SHORT RECORD, SQ1064.2 236300* USING READ ... AT END ... NOT END ... END-READ SQ1064.2 236400* SQ1064.2 236500 SEQ-INIT-25. SQ1064.2 236600 MOVE 1 TO REC-CT. SQ1064.2 236700 ADD 1 TO XRECORD-NUMBER (1). SQ1064.2 236800 MOVE "**********" TO SQ-VS6R2-SECOND-L. SQ1064.2 236900 MOVE "SHORT" TO BUFFER-COPY-L-OR-S. SQ1064.2 237000 ADD 1 TO BUFFER-COPY-RECNO. SQ1064.2 237100 MOVE "**" TO SQ-STATUS. SQ1064.2 237200 MOVE "NOT EXECUTED" TO EOF-FLAG. SQ1064.2 237300 MOVE "NOT EXECUTED" TO NOT-EOF-FLAG. SQ1064.2 237400 MOVE "NOT EXECUTED" TO END-READ-FLAG. SQ1064.2 237500 MOVE "READ SHORT A END N E E-R" TO FEATURE. SQ1064.2 237600 MOVE "SEQ-TEST-RD-25" TO PAR-NAME. SQ1064.2 237700 IF DELETE-SW NOT = SPACE SQ1064.2 237800 GO TO SEQ-DELETE-25. SQ1064.2 237900 GO TO SEQ-TEST-RD-25. SQ1064.2 238000 SEQ-DELETE-25. SQ1064.2 238100 MOVE "*" TO DELETE-SW-3. SQ1064.2 238200 GO TO SEQ-DELETE-25-01. SQ1064.2 238300* SQ1064.2 238400* EXECUTE THE READ STATEMENT SQ1064.2 238500* SQ1064.2 238600 SEQ-TEST-RD-25. SQ1064.2 238700 READ SQ-VS6 SQ1064.2 238800 AT END SQ1064.2 238900 MOVE "EXECUTED" TO EOF-FLAG SQ1064.2 239000 NOT END SQ1064.2 239100 MOVE "EXECUTED" TO NOT-EOF-FLAG SQ1064.2 239200 END-READ SQ1064.2 239300 MOVE "EXECUTED" TO END-READ-FLAG. SQ1064.2 239400 MOVE SQ-VS6R1-M-G-120 TO FILE-RECORD-INFO-P1-120 (2). SQ1064.2 239500 GO TO SEQ-TEST-RD-25-01. SQ1064.2 239600* SQ1064.2 239700* CHECK THE FILE STATUS VALUE SQ1064.2 239800* SQ1064.2 239900 SEQ-DELETE-25-01. SQ1064.2 240000 PERFORM DE-LETE. SQ1064.2 240100 GO TO SEQ-TEST-25-01-END. SQ1064.2 240200 SEQ-TEST-RD-25-01. SQ1064.2 240300 IF SQ-STATUS = "00" SQ1064.2 240400 PERFORM PASS SQ1064.2 240500 ELSE SQ1064.2 240600 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 240700 MOVE "00" TO CORRECT-A SQ1064.2 240800 MOVE "UNEXPECTED I-O STATUS ON READ" TO RE-MARK SQ1064.2 240900 MOVE "VII-3, VII-44,4.4.4(3)" TO ANSI-REFERENCE SQ1064.2 241000 PERFORM FAIL. SQ1064.2 241100 SEQ-TEST-25-01-END. SQ1064.2 241200* SQ1064.2 241300* CHECK THE RECORD NUMBER OF THE RECORD READ SQ1064.2 241400* SQ1064.2 241500 ADD 1 TO REC-CT. SQ1064.2 241600 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 241700 GO TO SEQ-DELETE-25-02. SQ1064.2 241800 GO TO SEQ-TEST-RD-25-02. SQ1064.2 241900 SEQ-DELETE-25-02. SQ1064.2 242000 PERFORM DE-LETE. SQ1064.2 242100 GO TO SEQ-TEST-25-02-END. SQ1064.2 242200 SEQ-TEST-RD-25-02. SQ1064.2 242300 IF XRECORD-NUMBER (1) = XRECORD-NUMBER (2) SQ1064.2 242400 PERFORM PASS SQ1064.2 242500 ELSE SQ1064.2 242600 MOVE XRECORD-NUMBER (2) TO COMPUTED-A SQ1064.2 242700 MOVE XRECORD-NUMBER (1) TO CORRECT-A SQ1064.2 242800 MOVE "UNEXPECTED RECORD RETURNED" TO RE-MARK SQ1064.2 242900 PERFORM FAIL. SQ1064.2 243000 SEQ-TEST-25-02-END. SQ1064.2 243100* SQ1064.2 243200* CHECK THE EXTENDED PART OF THE RECORD SQ1064.2 243300* SQ1064.2 243400 ADD 1 TO REC-CT. SQ1064.2 243500* IF DELETE-SW NOT = TO SPACE SQ1064.2 243600* GO TO SEQ-DELETE-25-03. SQ1064.2 243700* GO TO SEQ-TEST-RD-25-03. SQ1064.2 243800 SEQ-DELETE-25-03. SQ1064.2 243900 PERFORM DE-LETE. SQ1064.2 244000 GO TO SEQ-TEST-25-03-END. SQ1064.2 244100 SEQ-TEST-RD-25-03. SQ1064.2 244200 IF SQ-VS6R2-SECOND-L NOT = BUFFER-COPY-SECOND-L SQ1064.2 244300 PERFORM PASS SQ1064.2 244400 ELSE SQ1064.2 244500 MOVE SQ-VS6R2-SECOND-L TO COMPUTED-A SQ1064.2 244600 MOVE "**UNDEFINED**" TO CORRECT-A SQ1064.2 244700 MOVE "BUFFER CONTENTS FOR LONG RECORD" TO RE-MARK SQ1064.2 244800 PERFORM FAIL. SQ1064.2 244900 SEQ-TEST-25-03-END. SQ1064.2 245000* SQ1064.2 245100* CHECK EXECUTION OF THE NOT END PATH SQ1064.2 245200* SQ1064.2 245300 ADD 1 TO REC-CT. SQ1064.2 245400 IF DELETE-SW NOT = SPACE SQ1064.2 245500 GO TO SEQ-DELETE-25-04. SQ1064.2 245600 GO TO SEQ-TEST-RD-25-04. SQ1064.2 245700 SEQ-DELETE-25-04. SQ1064.2 245800 PERFORM DE-LETE. SQ1064.2 245900 GO TO SEQ-TEST-25-04-END. SQ1064.2 246000 SEQ-TEST-RD-25-04. SQ1064.2 246100 IF NOT-EOF-FLAG = "EXECUTED" SQ1064.2 246200 PERFORM PASS SQ1064.2 246300 ELSE SQ1064.2 246400 MOVE NOT-EOF-FLAG TO COMPUTED-A SQ1064.2 246500 MOVE "EXECUTED" TO CORRECT-A SQ1064.2 246600 MOVE "NOT END PATH NOT EXECUTED" TO RE-MARK SQ1064.2 246700 MOVE "VII-46,4.4.4(11)" TO ANSI-REFERENCE SQ1064.2 246800 PERFORM FAIL. SQ1064.2 246900 SEQ-TEST-25-04-END. SQ1064.2 247000* SQ1064.2 247100* SQ1064.2 247200* CHECK EXECUTION OF THE STATEMENT AFTER END-READ SQ1064.2 247300* SQ1064.2 247400 ADD 1 TO REC-CT. SQ1064.2 247500 IF DELETE-SW NOT = SPACE SQ1064.2 247600 GO TO SEQ-DELETE-25-05. SQ1064.2 247700 GO TO SEQ-TEST-RD-25-05. SQ1064.2 247800 SEQ-DELETE-25-05. SQ1064.2 247900 PERFORM DE-LETE. SQ1064.2 248000 GO TO SEQ-TEST-25-05-END. SQ1064.2 248100 SEQ-TEST-RD-25-05. SQ1064.2 248200 IF END-READ-FLAG = "EXECUTED" SQ1064.2 248300 PERFORM PASS SQ1064.2 248400 ELSE SQ1064.2 248500 MOVE END-READ-FLAG TO COMPUTED-A SQ1064.2 248600 MOVE "EXECUTED" TO CORRECT-A SQ1064.2 248700 MOVE "NOT END PATH NOT EXECUTED" TO RE-MARK SQ1064.2 248800 MOVE "IV-40, VII-47,4.4.4(14)" TO ANSI-REFERENCE SQ1064.2 248900 PERFORM FAIL. SQ1064.2 249000 SEQ-TEST-25-05-END. SQ1064.2 249100* SQ1064.2 249200* CHECK EXECUTION OF THE END PATH SQ1064.2 249300* SQ1064.2 249400 ADD 1 TO REC-CT. SQ1064.2 249500 IF DELETE-SW NOT = SPACE SQ1064.2 249600 GO TO SEQ-DELETE-25-06. SQ1064.2 249700 GO TO SEQ-TEST-RD-25-06. SQ1064.2 249800 SEQ-DELETE-25-06. SQ1064.2 249900 PERFORM DE-LETE. SQ1064.2 250000 GO TO SEQ-TEST-25-06-END. SQ1064.2 250100 SEQ-TEST-RD-25-06. SQ1064.2 250200 IF EOF-FLAG = "NOT EXECUTED" SQ1064.2 250300 PERFORM PASS SQ1064.2 250400 ELSE SQ1064.2 250500 MOVE EOF-FLAG TO COMPUTED-A SQ1064.2 250600 MOVE "NOT EXECUTED" TO CORRECT-A SQ1064.2 250700 MOVE "AT END BRANCH TAKEN BEFORE EOF" TO RE-MARK SQ1064.2 250800 MOVE "V11-46, 4.4.4(10)" TO ANSI-REFERENCE SQ1064.2 250900 MOVE "*" TO DELETE-SW-2 SQ1064.2 251000 PERFORM FAIL. SQ1064.2 251100 SEQ-TEST-25-06-END. SQ1064.2 251200 MOVE SPACE TO DELETE-SW-3. SQ1064.2 251300* SQ1064.2 251400* SQ1064.2 251500* READ AT END OF FILE, RAISING EOF CONDITION SQ1064.2 251600* USING READ ... END ... NOT END ... END-READ SQ1064.2 251700* SQ1064.2 251800 SEQ-INIT-26. SQ1064.2 251900 MOVE 1 TO REC-CT. SQ1064.2 252000 MOVE "**" TO SQ-STATUS. SQ1064.2 252100 MOVE "NOT EXECUTED" TO EOF-FLAG. SQ1064.2 252200 MOVE "NOT EXECUTED" TO NOT-EOF-FLAG. SQ1064.2 252300 MOVE "NOT EXECUTED" TO END-READ-FLAG. SQ1064.2 252400 MOVE "READ SHORT A END N E E-R" TO FEATURE. SQ1064.2 252500 MOVE "SEQ-TEST-RD-26" TO PAR-NAME. SQ1064.2 252600 IF DELETE-SW NOT = SPACE SQ1064.2 252700 GO TO SEQ-DELETE-26. SQ1064.2 252800 GO TO SEQ-TEST-RD-26. SQ1064.2 252900 SEQ-DELETE-26. SQ1064.2 253000 MOVE "*" TO DELETE-SW-3. SQ1064.2 253100 GO TO SEQ-DELETE-26-01. SQ1064.2 253200* SQ1064.2 253300* EXECUTE THE READ STATEMENT SQ1064.2 253400* SQ1064.2 253500 SEQ-TEST-RD-26. SQ1064.2 253600 READ SQ-VS6 SQ1064.2 253700 END SQ1064.2 253800 MOVE "EXECUTED" TO EOF-FLAG SQ1064.2 253900 NOT END SQ1064.2 254000 MOVE "EXECUTED" TO NOT-EOF-FLAG SQ1064.2 254100 END-READ SQ1064.2 254200 MOVE "EXECUTED" TO END-READ-FLAG. SQ1064.2 254300 MOVE SQ-VS6R1-M-G-120 TO FILE-RECORD-INFO-P1-120 (2). SQ1064.2 254400 GO TO SEQ-TEST-RD-26-01. SQ1064.2 254500* SQ1064.2 254600* CHECK THE FILE STATUS VALUE SQ1064.2 254700* SQ1064.2 254800 SEQ-DELETE-26-01. SQ1064.2 254900 PERFORM DE-LETE. SQ1064.2 255000 GO TO SEQ-TEST-26-01-END. SQ1064.2 255100 SEQ-TEST-RD-26-01. SQ1064.2 255200 IF SQ-STATUS = "10" SQ1064.2 255300 PERFORM PASS SQ1064.2 255400 ELSE SQ1064.2 255500 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 255600 MOVE "10" TO CORRECT-A SQ1064.2 255700 MOVE "I-O STATUS FOR EOF NOT RETURNED" TO RE-MARK SQ1064.2 255800 MOVE "VII-3, VII-44,4.4.4(3)" TO ANSI-REFERENCE SQ1064.2 255900 PERFORM FAIL. SQ1064.2 256000 SEQ-TEST-26-01-END. SQ1064.2 256100* SQ1064.2 256200* SQ1064.2 256300* CHECK EXECUTION OF THE NOT END PATH SQ1064.2 256400* SQ1064.2 256500 ADD 1 TO REC-CT. SQ1064.2 256600 IF DELETE-SW NOT = SPACE SQ1064.2 256700 GO TO SEQ-DELETE-26-02. SQ1064.2 256800 GO TO SEQ-TEST-RD-26-02. SQ1064.2 256900 SEQ-DELETE-26-02. SQ1064.2 257000 PERFORM DE-LETE. SQ1064.2 257100 GO TO SEQ-TEST-26-02-END. SQ1064.2 257200 SEQ-TEST-RD-26-02. SQ1064.2 257300 IF NOT-EOF-FLAG = "NOT EXECUTED" SQ1064.2 257400 PERFORM PASS SQ1064.2 257500 ELSE SQ1064.2 257600 MOVE NOT-EOF-FLAG TO COMPUTED-A SQ1064.2 257700 MOVE "NOT EXECUTED" TO CORRECT-A SQ1064.2 257800 MOVE "NOT END PATH EXECUTED AT EOF" TO RE-MARK SQ1064.2 257900 MOVE "VII-46,4.4.4(11)" TO ANSI-REFERENCE SQ1064.2 258000 PERFORM FAIL. SQ1064.2 258100 SEQ-TEST-26-02-END. SQ1064.2 258200* SQ1064.2 258300* SQ1064.2 258400* CHECK EXECUTION OF THE STATEMENT AFTER END-READ SQ1064.2 258500* SQ1064.2 258600 ADD 1 TO REC-CT. SQ1064.2 258700 IF DELETE-SW NOT = SPACE SQ1064.2 258800 GO TO SEQ-DELETE-26-03. SQ1064.2 258900 GO TO SEQ-TEST-RD-26-03. SQ1064.2 259000 SEQ-DELETE-26-03. SQ1064.2 259100 PERFORM DE-LETE. SQ1064.2 259200 GO TO SEQ-TEST-26-03-END. SQ1064.2 259300 SEQ-TEST-RD-26-03. SQ1064.2 259400 IF END-READ-FLAG = "EXECUTED" SQ1064.2 259500 PERFORM PASS SQ1064.2 259600 ELSE SQ1064.2 259700 MOVE END-READ-FLAG TO COMPUTED-A SQ1064.2 259800 MOVE "EXECUTED" TO CORRECT-A SQ1064.2 259900 MOVE "NOT END PATH NOT EXECUTED" TO RE-MARK SQ1064.2 260000 MOVE "IV-40, VII-47,4.4.4(14)" TO ANSI-REFERENCE SQ1064.2 260100 PERFORM FAIL. SQ1064.2 260200 SEQ-TEST-26-03-END. SQ1064.2 260300* SQ1064.2 260400* CHECK EXECUTION OF THE END PATH SQ1064.2 260500* SQ1064.2 260600 ADD 1 TO REC-CT. SQ1064.2 260700 IF DELETE-SW NOT = SPACE SQ1064.2 260800 GO TO SEQ-DELETE-26-04. SQ1064.2 260900 GO TO SEQ-TEST-RD-26-04. SQ1064.2 261000 SEQ-DELETE-26-04. SQ1064.2 261100 PERFORM DE-LETE. SQ1064.2 261200 GO TO SEQ-TEST-26-04-END. SQ1064.2 261300 SEQ-TEST-RD-26-04. SQ1064.2 261400 IF EOF-FLAG = "EXECUTED" SQ1064.2 261500 PERFORM PASS SQ1064.2 261600 ELSE SQ1064.2 261700 MOVE EOF-FLAG TO COMPUTED-A SQ1064.2 261800 MOVE "EXECUTED" TO CORRECT-A SQ1064.2 261900 MOVE "AT END BRANCH NOT TAKEN AT EOF" TO RE-MARK SQ1064.2 262000 MOVE "V11-46, 4.4.4(10)" TO ANSI-REFERENCE SQ1064.2 262100 PERFORM FAIL. SQ1064.2 262200 SEQ-TEST-26-04-END. SQ1064.2 262300 MOVE SPACE TO DELETE-SW-3. SQ1064.2 262400* SQ1064.2 262500* SQ1064.2 262600* THE END OF THE FILE HAS BEEN REACHED, SO IT CAN BE CLOSED SQ1064.2 262700* SQ1064.2 262800 SEQ-INIT-27. SQ1064.2 262900 MOVE 1 TO REC-CT. SQ1064.2 263000 MOVE "CLOSE FILE AFTER READING" TO FEATURE. SQ1064.2 263100 MOVE "SEQ-TEST-CL-27" TO PAR-NAME. SQ1064.2 263200 MOVE "**" TO SQ-STATUS. SQ1064.2 263300 IF DELETE-SW NOT EQUAL SPACE SQ1064.2 263400 GO TO SEQ-DELETE-27. SQ1064.2 263500 GO TO SEQ-TEST-CL-27. SQ1064.2 263600 SEQ-DELETE-27. SQ1064.2 263700 GO TO SEQ-DELETE-27-01. SQ1064.2 263800 SEQ-TEST-CL-27. SQ1064.2 263900 CLOSE SQ-VS6. SQ1064.2 264000 GO TO SEQ-TEST-CL-27-01. SQ1064.2 264100 SEQ-DELETE-27-01. SQ1064.2 264200 PERFORM DE-LETE. SQ1064.2 264300 GO TO SEQ-TEST-27-01-END. SQ1064.2 264400 SEQ-TEST-CL-27-01. SQ1064.2 264500 IF SQ-STATUS = "00" SQ1064.2 264600 PERFORM PASS SQ1064.2 264700 ELSE SQ1064.2 264800 MOVE SQ-STATUS TO COMPUTED-A SQ1064.2 264900 MOVE "00" TO CORRECT-A SQ1064.2 265000 MOVE "UNEXPECTED I-O STATUS FROM CLOSE" TO RE-MARK SQ1064.2 265100 MOVE "VII-3, VII-38,4.2.4(4)" TO ANSI-REFERENCE SQ1064.2 265200 PERFORM FAIL. SQ1064.2 265300 SEQ-TEST-27-01-END. SQ1064.2 265400* SQ1064.2 265500* SQ1064.2 265600 TERMINATE-ROUTINE. SQ1064.2 265700 EXIT. SQ1064.2 265800 CCVS-EXIT SECTION. SQ1064.2 265900 CCVS-999999. SQ1064.2 266000 GO TO CLOSE-FILES. SQ1064.2
¤ Dauer der Verarbeitung: 0.140 Sekunden (vorverarbeitet am 2026-05-01) ¤*© Formatika GbR, Deutschland |
|
||||||||||||||
2026-05-26