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