| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/SQ/ Datei vom 4.1.2008 mit Größe 213 kB |
|
Quelle sq106a.cob Sprache: 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 --> -------------------- --> maximum size reached --> -------------------- ¤ Dauer der Verarbeitung: 0.41 Sekunden (vorverarbeitet) ¤*© Formatika GbR, Deutschland |
|
2026-03-28