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