|
000100 IDENTIFICATION DIVISION. SQ1414.2
000200 PROGRAM-ID. SQ1414.2
000300 SQ141A. SQ1414.2
000400**************************************************************** SQ1414.2
000500* * SQ1414.2
000600* VALIDATION FOR:- * SQ1414.2
000700* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1414.2
000800* USING CCVS85 VERSION 1.0 ISSUED IN JANUARY 1986. * SQ1414.2
000900* REVISED 1986, AUGUST * SQ1414.2
001000* * SQ1414.2
001100* CREATION DATE / VALIDATION DATE * SQ1414.2
001200* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ1414.2
001300* * SQ1414.2
001400**************************************************************** SQ1414.2
001500* * SQ1414.2
001600* X-CARDS USED BY THIS PROGRAM ARE :- * SQ1414.2
001700* * SQ1414.2
001800* X-01 SEQUENTIAL MAGNETIC TAPE FILE. * SQ1414.2
001900* X-55 SYSTEM PRINTER * SQ1414.2
002000* X-82 SOURCE-COMPUTER * SQ1414.2
002100* X-83 OBJECT-COMPUTER. * SQ1414.2
002200* * SQ1414.2
002300* * SQ1414.2
002400**************************************************************** SQ1414.2
002500* * SQ1414.2
002600* SPLIT FROM SQ129A, THIS PROGRAM REPEATS THE SEQUENCE OF * SQ1414.2
002700* FILE HANDLING ROUTINES IN ORDER TO CARRY OUT THE ISOLATED * SQ1414.2
002800* SPLIT TEST THAT CHECKS FOR THE CORRECT RESPONSE TO AN * SQ1414.2
002900* OPEN FOR INPUT ON A TAPE FILE WHICH IS NOT PRESENT. * SQ1414.2
003000* (SEE SQ129A). * SQ1414.2
003100* * SQ1414.2
003200**************************************************************** SQ1414.2
003300* SQ1414.2
003400 ENVIRONMENT DIVISION. SQ1414.2
003500 CONFIGURATION SECTION. SQ1414.2
003600 SOURCE-COMPUTER. SQ1414.2
003700 Card0130. SQ1414.2
003800 OBJECT-COMPUTER. SQ1414.2
003900 Card0131. SQ1414.2
004000* SQ1414.2
004100 INPUT-OUTPUT SECTION. SQ1414.2
004200 FILE-CONTROL. SQ1414.2
004300 SELECT PRINT-FILE ASSIGN TO SQ1414.2
004400 "C0085" . SQ1414.2
004500* SQ1414.2
004600 SELECT RAW-DATA ASSIGN TO SQ1414.2
004700 "C0098" SQ1414.2
004800 ORGANIZATION IS INDEXED SQ1414.2
004900 ACCESS MODE IS RANDOM SQ1414.2
005000 RECORD KEY IS RAW-DATA-KEY. SQ1414.2
005100 SQ1414.2
005200 SELECT SQ-FS1 ASSIGN TO SQ1414.2
005300 "C0001" SQ1414.2
005400 FILE STATUS IS SQ-FS1-STATUS. SQ1414.2
005500* SQ1414.2
005600* SQ1414.2
005700 DATA DIVISION. SQ1414.2
005800 FILE SECTION. SQ1414.2
005900 FD PRINT-FILE SQ1414.2
006000 LABEL RECORDS SQ1414.2
006100 Card0132 SQ1414.2
006200 DATA RECORD IS PRINT-REC DUMMY-RECORD SQ1414.2
006300 . SQ1414.2
006400 01 PRINT-REC PICTURE X(120). SQ1414.2
006500 01 DUMMY-RECORD PICTURE X(120). SQ1414.2
006600 SQ1414.2
006700 FD RAW-DATA. SQ1414.2
006800 01 RAW-DATA-SATZ. SQ1414.2
006900 05 RAW-DATA-KEY PIC X(6). SQ1414.2
007000 05 C-DATE PIC 9(6). SQ1414.2
007100 05 C-TIME PIC 9(8). SQ1414.2
007200 05 NO-OF-TESTS PIC 99. SQ1414.2
007300 05 C-OK PIC 999. SQ1414.2
007400 05 C-ALL PIC 999. SQ1414.2
007500 05 C-FAIL PIC 999. SQ1414.2
007600 05 C-DELETED PIC 999. SQ1414.2
007700 05 C-INSPECT PIC 999. SQ1414.2
007800 05 C-NOTE PIC X(13). SQ1414.2
007900 05 C-INDENT PIC X. SQ1414.2
008000 05 C-ABORT PIC X(8). SQ1414.2
008100* SQ1414.2
008200 FD SQ-FS1 SQ1414.2
008300 LABEL RECORD IS STANDARD SQ1414.2
008400 . SQ1414.2
008500 01 SQ-FS1R1-F-G-120 PIC X(120). SQ1414.2
008600* SQ1414.2
008700 WORKING-STORAGE SECTION. SQ1414.2
008800* SQ1414.2
008900*************************************************************** SQ1414.2
009000* * SQ1414.2
009100* WORKING-STORAGE DATA ITEMS SPECIFIC TO THIS TEST SUITE * SQ1414.2
009200* * SQ1414.2
009300*************************************************************** SQ1414.2
009400* SQ1414.2
009500 01 SQ-FS1-STATUS. SQ1414.2
009600 03 SQ-FS1-KEY-1 PIC X. SQ1414.2
009700 03 SQ-FS1-KEY-2 PIC X. SQ1414.2
009800* SQ1414.2
009900 01 DECL-EXEC-SW PIC 9. SQ1414.2
010000* SQ1414.2
010100*************************************************************** SQ1414.2
010200* * SQ1414.2
010300* WORKING-STORAGE DATA ITEMS USED BY THE CCVS * SQ1414.2
010400* * SQ1414.2
010500*************************************************************** SQ1414.2
010600* SQ1414.2
010700 01 REC-SKEL-SUB PIC 99. SQ1414.2
010800* SQ1414.2
010900 01 FILE-RECORD-INFORMATION-REC. SQ1414.2
011000 03 FILE-RECORD-INFO-SKELETON. SQ1414.2
011100 05 FILLER PICTURE X(48) VALUE SQ1414.2
011200 "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". SQ1414.2
011300 05 FILLER PICTURE X(46) VALUE SQ1414.2
011400 ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". SQ1414.2
011500 05 FILLER PICTURE X(26) VALUE SQ1414.2
011600 ",LFIL=000000,ORG= ,LBLR= ". SQ1414.2
011700 05 FILLER PICTURE X(37) VALUE SQ1414.2
011800 ",RECKEY= ". SQ1414.2
011900 05 FILLER PICTURE X(38) VALUE SQ1414.2
012000 ",ALTKEY1= ". SQ1414.2
012100 05 FILLER PICTURE X(38) VALUE SQ1414.2
012200 ",ALTKEY2= ". SQ1414.2
012300 05 FILLER PICTURE X(7) VALUE SPACE.SQ1414.2
012400 03 FILE-RECORD-INFO OCCURS 10 TIMES. SQ1414.2
012500 05 FILE-RECORD-INFO-P1-120. SQ1414.2
012600 07 FILLER PIC X(5). SQ1414.2
012700 07 XFILE-NAME PIC X(6). SQ1414.2
012800 07 FILLER PIC X(8). SQ1414.2
012900 07 XRECORD-NAME PIC X(6). SQ1414.2
013000 07 FILLER PIC X(1). SQ1414.2
013100 07 REELUNIT-NUMBER PIC 9(1). SQ1414.2
013200 07 FILLER PIC X(7). SQ1414.2
013300 07 XRECORD-NUMBER PIC 9(6). SQ1414.2
013400 07 FILLER PIC X(6). SQ1414.2
013500 07 UPDATE-NUMBER PIC 9(2). SQ1414.2
013600 07 FILLER PIC X(5). SQ1414.2
013700 07 ODO-NUMBER PIC 9(4). SQ1414.2
013800 07 FILLER PIC X(5). SQ1414.2
013900 07 XPROGRAM-NAME PIC X(5). SQ1414.2
014000 07 FILLER PIC X(7). SQ1414.2
014100 07 XRECORD-LENGTH PIC 9(6). SQ1414.2
014200 07 FILLER PIC X(7). SQ1414.2
014300 07 CHARS-OR-RECORDS PIC X(2). SQ1414.2
014400 07 FILLER PIC X(1). SQ1414.2
014500 07 XBLOCK-SIZE PIC 9(4). SQ1414.2
014600 07 FILLER PIC X(6). SQ1414.2
014700 07 RECORDS-IN-FILE PIC 9(6). SQ1414.2
014800 07 FILLER PIC X(5). SQ1414.2
014900 07 XFILE-ORGANIZATION PIC X(2). SQ1414.2
015000 07 FILLER PIC X(6). SQ1414.2
015100 07 XLABEL-TYPE PIC X(1). SQ1414.2
015200 05 FILE-RECORD-INFO-P121-240. SQ1414.2
015300 07 FILLER PIC X(8). SQ1414.2
015400 07 XRECORD-KEY PIC X(29). SQ1414.2
015500 07 FILLER PIC X(9). SQ1414.2
015600 07 ALTERNATE-KEY1 PIC X(29). SQ1414.2
015700 07 FILLER PIC X(9). SQ1414.2
015800 07 ALTERNATE-KEY2 PIC X(29). SQ1414.2
015900 07 FILLER PIC X(7). SQ1414.2
016000* SQ1414.2
016100 01 TEST-RESULTS. SQ1414.2
016200 02 FILLER PIC X VALUE SPACE. SQ1414.2
016300 02 FEATURE PIC X(24) VALUE SPACE. SQ1414.2
016400 02 FILLER PIC X VALUE SPACE. SQ1414.2
016500 02 P-OR-F PIC X(5) VALUE SPACE. SQ1414.2
016600 02 FILLER PIC X VALUE SPACE. SQ1414.2
016700 02 PAR-NAME. SQ1414.2
016800 03 FILLER PIC X(14) VALUE SPACE. SQ1414.2
016900 03 PARDOT-X PIC X VALUE SPACE. SQ1414.2
017000 03 DOTVALUE PIC 99 VALUE ZERO. SQ1414.2
017100 02 FILLER PIC X(9) VALUE SPACE. SQ1414.2
017200 02 RE-MARK PIC X(61). SQ1414.2
017300 01 TEST-COMPUTED. SQ1414.2
017400 02 FILLER PIC X(30) VALUE SPACE. SQ1414.2
017500 02 FILLER PIC X(17) VALUE " COMPUTED =". SQ1414.2
017600 02 COMPUTED-X. SQ1414.2
017700 03 COMPUTED-A PIC X(20) VALUE SPACE. SQ1414.2
017800 03 COMPUTED-N REDEFINES COMPUTED-A PIC -9(9).9(9). SQ1414.2
017900 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). SQ1414.2
018000 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). SQ1414.2
018100 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). SQ1414.2
018200 03 CM-18V0 REDEFINES COMPUTED-A. SQ1414.2
018300 04 COMPUTED-18V0 PIC -9(18). SQ1414.2
018400 04 FILLER PIC X. SQ1414.2
018500 03 FILLER PIC X(50) VALUE SPACE. SQ1414.2
018600 01 TEST-CORRECT. SQ1414.2
018700 02 FILLER PIC X(30) VALUE SPACE. SQ1414.2
018800 02 FILLER PIC X(17) VALUE " CORRECT =". SQ1414.2
018900 02 CORRECT-X. SQ1414.2
019000 03 CORRECT-A PIC X(20) VALUE SPACE. SQ1414.2
019100 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). SQ1414.2
019200 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). SQ1414.2
019300 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). SQ1414.2
019400 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). SQ1414.2
019500 03 CR-18V0 REDEFINES CORRECT-A. SQ1414.2
019600 04 CORRECT-18V0 PIC -9(18). SQ1414.2
019700 04 FILLER PIC X. SQ1414.2
019800 03 FILLER PIC X(2) VALUE SPACE. SQ1414.2
019900 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. SQ1414.2
020000 01 CCVS-C-1. SQ1414.2
020100 02 FILLER PIC IS X(4) VALUE SPACE. SQ1414.2
020200 02 FILLER PIC IS X(98) VALUE IS "FEATURE PASQ1414.2
020300- "SS PARAGRAPH-NAME SQ1414.2
020400- " REMARKS". SQ1414.2
020500 02 FILLER PIC X(17) VALUE SPACE. SQ1414.2
020600 01 CCVS-C-2. SQ1414.2
020700 02 FILLER PIC XXXX VALUE SPACE. SQ1414.2
020800 02 FILLER PIC X(6) VALUE "TESTED". SQ1414.2
020900 02 FILLER PIC X(16) VALUE SPACE. SQ1414.2
021000 02 FILLER PIC X(4) VALUE "FAIL". SQ1414.2
021100 02 FILLER PIC X(90) VALUE SPACE. SQ1414.2
021200 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. SQ1414.2
021300 01 REC-CT PIC 99 VALUE ZERO. SQ1414.2
021400 01 DELETE-COUNTER PIC 999 VALUE ZERO. SQ1414.2
021500 01 ERROR-COUNTER PIC 999 VALUE ZERO. SQ1414.2
021600 01 INSPECT-COUNTER PIC 999 VALUE ZERO. SQ1414.2
021700 01 PASS-COUNTER PIC 999 VALUE ZERO. SQ1414.2
021800 01 TOTAL-ERROR PIC 999 VALUE ZERO. SQ1414.2
021900 01 ERROR-HOLD PIC 999 VALUE ZERO. SQ1414.2
022000 01 DUMMY-HOLD PIC X(120) VALUE SPACE. SQ1414.2
022100 01 RECORD-COUNT PIC 9(5) VALUE ZERO. SQ1414.2
022200 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. SQ1414.2
022300 01 CCVS-H-1. SQ1414.2
022400 02 FILLER PIC X(39) VALUE SPACES. SQ1414.2
022500 02 FILLER PIC X(42) VALUE SQ1414.2
022600 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". SQ1414.2
022700 02 FILLER PIC X(39) VALUE SPACES. SQ1414.2
022800 01 CCVS-H-2A. SQ1414.2
022900 02 FILLER PIC X(40) VALUE SPACE. SQ1414.2
023000 02 FILLER PIC X(7) VALUE "CCVS85 ". SQ1414.2
023100 02 FILLER PIC XXXX VALUE SQ1414.2
023200 "4.2 ". SQ1414.2
023300 02 FILLER PIC X(28) VALUE SQ1414.2
023400 " COPY - NOT FOR DISTRIBUTION". SQ1414.2
023500 02 FILLER PIC X(41) VALUE SPACE. SQ1414.2
023600* SQ1414.2
023700 01 CCVS-H-2B. SQ1414.2
023800 02 FILLER PIC X(15) VALUE "TEST RESULT OF ". SQ1414.2
023900 02 TEST-ID PIC X(9). SQ1414.2
024000 02 FILLER PIC X(4) VALUE " IN ". SQ1414.2
024100 02 FILLER PIC X(12) VALUE SQ1414.2
024200 " HIGH ". SQ1414.2
024300 02 FILLER PIC X(22) VALUE SQ1414.2
024400 " LEVEL VALIDATION FOR ". SQ1414.2
024500 02 FILLER PIC X(58) VALUE SQ1414.2
024600 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1414.2
024700 01 CCVS-H-3. SQ1414.2
024800 02 FILLER PIC X(34) VALUE SQ1414.2
024900 " FOR OFFICIAL USE ONLY ". SQ1414.2
025000 02 FILLER PIC X(58) VALUE SQ1414.2
025100 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ1414.2
025200 02 FILLER PIC X(28) VALUE SQ1414.2
025300 " COPYRIGHT 1985,1986 ". SQ1414.2
025400 01 CCVS-E-1. SQ1414.2
025500 02 FILLER PIC X(52) VALUE SPACE. SQ1414.2
025600 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". SQ1414.2
025700 02 ID-AGAIN PIC X(9). SQ1414.2
025800 02 FILLER PIC X(45) VALUE SPACES. SQ1414.2
025900 01 CCVS-E-2. SQ1414.2
026000 02 FILLER PIC X(31) VALUE SPACE. SQ1414.2
026100 02 FILLER PIC X(21) VALUE SPACE. SQ1414.2
026200 02 CCVS-E-2-2. SQ1414.2
026300 03 ERROR-TOTAL PIC XXX VALUE SPACE. SQ1414.2
026400 03 FILLER PIC X VALUE SPACE. SQ1414.2
026500 03 ENDER-DESC PIC X(44) VALUE SQ1414.2
026600 "ERRORS ENCOUNTERED". SQ1414.2
026700 01 CCVS-E-3. SQ1414.2
026800 02 FILLER PIC X(22) VALUE SQ1414.2
026900 " FOR OFFICIAL USE ONLY". SQ1414.2
027000 02 FILLER PIC X(12) VALUE SPACE. SQ1414.2
027100 02 FILLER PIC X(58) VALUE SQ1414.2
027200 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1414.2
027300 02 FILLER PIC X(8) VALUE SPACE. SQ1414.2
027400 02 FILLER PIC X(20) VALUE SQ1414.2
027500 " COPYRIGHT 1985,1986". SQ1414.2
027600 01 CCVS-E-4. SQ1414.2
027700 02 CCVS-E-4-1 PIC XXX VALUE SPACE. SQ1414.2
027800 02 FILLER PIC X(4) VALUE " OF ". SQ1414.2
027900 02 CCVS-E-4-2 PIC XXX VALUE SPACE. SQ1414.2
028000 02 FILLER PIC X(40) VALUE SQ1414.2
028100 " TESTS WERE EXECUTED SUCCESSFULLY". SQ1414.2
028200 01 XXINFO. SQ1414.2
028300 02 FILLER PIC X(19) VALUE "*** INFORMATION ***". SQ1414.2
028400 02 INFO-TEXT. SQ1414.2
028500 04 FILLER PIC X(8) VALUE SPACE. SQ1414.2
028600 04 XXCOMPUTED PIC X(20). SQ1414.2
028700 04 FILLER PIC X(5) VALUE SPACE. SQ1414.2
028800 04 XXCORRECT PIC X(20). SQ1414.2
028900 02 INF-ANSI-REFERENCE PIC X(48). SQ1414.2
029000 01 HYPHEN-LINE. SQ1414.2
029100 02 FILLER PIC IS X VALUE IS SPACE. SQ1414.2
029200 02 FILLER PIC IS X(65) VALUE IS "************************SQ1414.2
029300- "*****************************************". SQ1414.2
029400 02 FILLER PIC IS X(54) VALUE IS "************************SQ1414.2
029500- "******************************". SQ1414.2
029600 01 CCVS-PGM-ID PIC X(9) VALUE SQ1414.2
029700 "SQ141A". SQ1414.2
029800* SQ1414.2
029900* SQ1414.2
030000 PROCEDURE DIVISION. SQ1414.2
030100 DECLARATIVES. SQ1414.2
030200 SQ141A-DECLARATIVE-001-SECT SECTION. SQ1414.2
030300 USE AFTER STANDARD EXCEPTION PROCEDURE ON INPUT. SQ1414.2
030400 INPUT-ERROR-PROCEDURE. SQ1414.2
030500 IF DECL-EXEC-SW NOT = 9 SQ1414.2
030600 GO TO NOT-DECL-9. SQ1414.2
030700* SQ1414.2
030800* DECLARATIVE PROCEDURE ENTERED FROM OPEN INPUT SQ1414.2
030900* SQ1414.2
031000 DECL-OPEN-TEST. SQ1414.2
031100 MOVE SPACE TO DUMMY-RECORD SQ1414.2
031200 PERFORM DECL-WRITE-LINE SQ1414.2
031300 MOVE "ABNORMAL TERMINATION AT THIS POINT IS ACCEPTABLE" SQ1414.2
031400 TO DUMMY-RECORD SQ1414.2
031500 PERFORM DECL-WRITE-LINE 3 TIMES. SQ1414.2
031600 GO TO END-DECLS. SQ1414.2
031700* SQ1414.2
031800* SQ1414.2
031900 NOT-DECL-9. SQ1414.2
032000 MOVE "NOT-DECL-9" TO PAR-NAME. SQ1414.2
032100 MOVE DECL-EXEC-SW TO COMPUTED-18V0. SQ1414.2
032200 MOVE 9 TO CORRECT-18V0. SQ1414.2
032300 PERFORM DECL-FAIL. SQ1414.2
032400 GO TO END-DECLS. SQ1414.2
032500* SQ1414.2
032600* SQ1414.2
032700* SQ1414.2
032800 DECL-PASS. SQ1414.2
032900 MOVE "PASS " TO P-OR-F. SQ1414.2
033000 ADD 1 TO PASS-COUNTER. SQ1414.2
033100 PERFORM DECL-PRINT-DETAIL. SQ1414.2
033200* SQ1414.2
033300 DECL-FAIL. SQ1414.2
033400 MOVE "FAIL*" TO P-OR-F. SQ1414.2
033500 ADD 1 TO ERROR-COUNTER. SQ1414.2
033600 PERFORM DECL-PRINT-DETAIL. SQ1414.2
033700* SQ1414.2
033800 DECL-PRINT-DETAIL. SQ1414.2
033900 IF REC-CT NOT EQUAL TO ZERO SQ1414.2
034000 MOVE "." TO PARDOT-X SQ1414.2
034100 MOVE REC-CT TO DOTVALUE. SQ1414.2
034200 MOVE TEST-RESULTS TO PRINT-REC. SQ1414.2
034300 PERFORM DECL-WRITE-LINE. SQ1414.2
034400 IF P-OR-F EQUAL TO "FAIL*" SQ1414.2
034500 PERFORM DECL-WRITE-LINE SQ1414.2
034600 PERFORM DECL-FAIL-ROUTINE THRU DECL-FAIL-EX SQ1414.2
034700 ELSE SQ1414.2
034800 PERFORM DECL-BAIL THRU DECL-BAIL-EX. SQ1414.2
034900 MOVE SPACE TO P-OR-F. SQ1414.2
035000 MOVE SPACE TO COMPUTED-X. SQ1414.2
035100 MOVE SPACE TO CORRECT-X. SQ1414.2
035200 IF REC-CT EQUAL TO ZERO SQ1414.2
035300 MOVE SPACE TO PAR-NAME. SQ1414.2
035400 MOVE SPACE TO RE-MARK. SQ1414.2
035500* SQ1414.2
035600 DECL-WRITE-LINE. SQ1414.2
035700 ADD 1 TO RECORD-COUNT. SQ1414.2
035800 IF RECORD-COUNT GREATER 50 SQ1414.2
035900 MOVE DUMMY-RECORD TO DUMMY-HOLD SQ1414.2
036000 MOVE SPACE TO DUMMY-RECORD SQ1414.2
036100 WRITE DUMMY-RECORD AFTER ADVANCING PAGE SQ1414.2
036200 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM DECL-WRT-LN SQ1414.2
036300 MOVE CCVS-C-2 TO DUMMY-RECORD SQ1414.2
036400 PERFORM DECL-WRT-LN 2 TIMES SQ1414.2
036500 MOVE HYPHEN-LINE TO DUMMY-RECORD SQ1414.2
036600 PERFORM DECL-WRT-LN SQ1414.2
036700 MOVE DUMMY-HOLD TO DUMMY-RECORD SQ1414.2
036800 MOVE ZERO TO RECORD-COUNT. SQ1414.2
036900 PERFORM DECL-WRT-LN. SQ1414.2
037000* SQ1414.2
037100 DECL-WRT-LN. SQ1414.2
037200 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. SQ1414.2
037300 MOVE SPACE TO DUMMY-RECORD. SQ1414.2
037400* SQ1414.2
037500 DECL-FAIL-ROUTINE. SQ1414.2
037600 IF COMPUTED-X NOT EQUAL TO SPACE GO TO DECL-FAIL-WRITE. SQ1414.2
037700 IF CORRECT-X NOT EQUAL TO SPACE GO TO DECL-FAIL-WRITE. SQ1414.2
037800 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. SQ1414.2
037900 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. SQ1414.2
038000 MOVE XXINFO TO DUMMY-RECORD. SQ1414.2
038100 PERFORM DECL-WRITE-LINE 2 TIMES. SQ1414.2
038200 MOVE SPACES TO INF-ANSI-REFERENCE. SQ1414.2
038300 GO TO DECL-FAIL-EX. SQ1414.2
038400 DECL-FAIL-WRITE. SQ1414.2
038500 MOVE TEST-COMPUTED TO PRINT-REC SQ1414.2
038600 PERFORM DECL-WRITE-LINE SQ1414.2
038700 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. SQ1414.2
038800 MOVE TEST-CORRECT TO PRINT-REC SQ1414.2
038900 PERFORM DECL-WRITE-LINE 2 TIMES. SQ1414.2
039000 MOVE SPACES TO COR-ANSI-REFERENCE. SQ1414.2
039100 DECL-FAIL-EX. SQ1414.2
039200 EXIT. SQ1414.2
039300* SQ1414.2
039400 DECL-BAIL. SQ1414.2
039500 IF COMPUTED-A NOT EQUAL TO SPACE GO TO DECL-BAIL-WRITE. SQ1414.2
039600 IF CORRECT-A EQUAL TO SPACE GO TO DECL-BAIL-EX. SQ1414.2
039700 DECL-BAIL-WRITE. SQ1414.2
039800 MOVE CORRECT-A TO XXCORRECT. SQ1414.2
039900 MOVE COMPUTED-A TO XXCOMPUTED. SQ1414.2
040000 MOVE XXINFO TO DUMMY-RECORD. SQ1414.2
040100 PERFORM DECL-WRITE-LINE 2 TIMES. SQ1414.2
040200 DECL-BAIL-EX. SQ1414.2
040300 EXIT. SQ1414.2
040400* SQ1414.2
040500 END-DECLS. SQ1414.2
040600 MOVE ZERO TO DECL-EXEC-SW. SQ1414.2
040700 END DECLARATIVES. SQ1414.2
040800* SQ1414.2
040900* SQ1414.2
041000 CCVS1 SECTION. SQ1414.2
041100 OPEN-FILES. SQ1414.2
041200 OPEN I-O RAW-DATA. SQ1414.2
041300 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ1414.2
041400 READ RAW-DATA INVALID KEY GO TO END-E-1. SQ1414.2
041500 MOVE "ABORTED " TO C-ABORT. SQ1414.2
041600 ADD 1 TO C-NO-OF-TESTS. SQ1414.2
041700 ACCEPT C-DATE FROM DATE. SQ1414.2
041800 ACCEPT C-TIME FROM TIME. SQ1414.2
041900 REWRITE RAW-DATA-SATZ INVALID KEY CONTINUE. SQ1414.2
042000 END-E-1. SQ1414.2
042100 CLOSE RAW-DATA. SQ1414.2
042200 OPEN OUTPUT PRINT-FILE. SQ1414.2
042300 MOVE CCVS-PGM-ID TO TEST-ID. SQ1414.2
042400 MOVE CCVS-PGM-ID TO ID-AGAIN. SQ1414.2
042500 MOVE SPACE TO TEST-RESULTS. SQ1414.2
042600 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. SQ1414.2
042700 MOVE ZERO TO REC-SKEL-SUB. SQ1414.2
042800 PERFORM CCVS-INIT-FILE 10 TIMES. SQ1414.2
042900 GO TO CCVS1-EXIT. SQ1414.2
043000* SQ1414.2
043100 CCVS-INIT-FILE. SQ1414.2
043200 ADD 1 TO REC-SKL-SUB. SQ1414.2
043300 MOVE FILE-RECORD-INFO-SKELETON TO SQ1414.2
043400 FILE-RECORD-INFO (REC-SKL-SUB). SQ1414.2
043500* SQ1414.2
043600 CLOSE-FILES. SQ1414.2
043700 PERFORM END-ROUTINE THRU END-ROUTINE-13. SQ1414.2
043800 CLOSE PRINT-FILE. SQ1414.2
043900 OPEN I-O RAW-DATA. SQ1414.2
044000 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ1414.2
044100 READ RAW-DATA INVALID KEY GO TO END-E-2. SQ1414.2
044200 MOVE "OK. " TO C-ABORT. SQ1414.2
044300 MOVE PASS-COUNTER TO C-OK. SQ1414.2
044400 MOVE ERROR-HOLD TO C-ALL. SQ1414.2
044500 MOVE ERROR-COUNTER TO C-FAIL. SQ1414.2
044600 MOVE DELETE-CNT TO C-DELETED. SQ1414.2
044700 MOVE INSPECT-COUNTER TO C-INSPECT. SQ1414.2
044800 REWRITE RAW-DATA-SATZ INVALID KEY CONTINUE. SQ1414.2
044900 END-E-2. SQ1414.2
045000 CLOSE RAW-DATA. SQ1414.2
045100 TERMINATE-CCVS. SQ1414.2
045200 EXIT PROGRAM. SQ1414.2
045300 STOP RUN. SQ1414.2
045400* SQ1414.2
045500 INSPT. SQ1414.2
045600 MOVE "INSPT" TO P-OR-F. SQ1414.2
045700 ADD 1 TO INSPECT-COUNTER. SQ1414.2
045800 PERFORM PRINT-DETAIL. SQ1414.2
045900 SQ1414.2
046000 PASS. SQ1414.2
046100 MOVE "PASS " TO P-OR-F. SQ1414.2
046200 ADD 1 TO PASS-COUNTER. SQ1414.2
046300 PERFORM PRINT-DETAIL. SQ1414.2
046400* SQ1414.2
046500 FAIL. SQ1414.2
046600 MOVE "FAIL*" TO P-OR-F. SQ1414.2
046700 ADD 1 TO ERROR-COUNTER. SQ1414.2
046800 PERFORM PRINT-DETAIL. SQ1414.2
046900* SQ1414.2
047000 DE-LETE. SQ1414.2
047100 MOVE "****TEST DELETED****" TO RE-MARK. SQ1414.2
047200 MOVE "*****" TO P-OR-F. SQ1414.2
047300 ADD 1 TO DELETE-COUNTER. SQ1414.2
047400 PERFORM PRINT-DETAIL. SQ1414.2
047500* SQ1414.2
047600 PRINT-DETAIL. SQ1414.2
047700 IF REC-CT NOT EQUAL TO ZERO SQ1414.2
047800 MOVE "." TO PARDOT-X SQ1414.2
047900 MOVE REC-CT TO DOTVALUE. SQ1414.2
048000 MOVE TEST-RESULTS TO PRINT-REC. SQ1414.2
048100 PERFORM WRITE-LINE. SQ1414.2
048200 IF P-OR-F EQUAL TO "FAIL*" SQ1414.2
048300 PERFORM WRITE-LINE SQ1414.2
048400 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX SQ1414.2
048500 ELSE SQ1414.2
048600 PERFORM BAIL-OUT THRU BAIL-OUT-EX. SQ1414.2
048700 MOVE SPACE TO P-OR-F. SQ1414.2
048800 MOVE SPACE TO COMPUTED-X. SQ1414.2
048900 MOVE SPACE TO CORRECT-X. SQ1414.2
049000 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. SQ1414.2
049100 MOVE SPACE TO RE-MARK. SQ1414.2
049200* SQ1414.2
049300 HEAD-ROUTINE. SQ1414.2
049400 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ1414.2
049500 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ1414.2
049600 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. SQ1414.2
049700 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. SQ1414.2
049800 COLUMN-NAMES-ROUTINE. SQ1414.2
049900 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ1414.2
050000 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ1414.2
050100 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ1414.2
050200 END-ROUTINE. SQ1414.2
050300 MOVE HYPHEN-LINE TO DUMMY-RECORD. SQ1414.2
050400 PERFORM WRITE-LINE 5 TIMES. SQ1414.2
050500 END-RTN-EXIT. SQ1414.2
050600 MOVE CCVS-E-1 TO DUMMY-RECORD. SQ1414.2
050700 PERFORM WRITE-LINE 2 TIMES. SQ1414.2
050800* SQ1414.2
050900 END-ROUTINE-1. SQ1414.2
051000 ADD ERROR-COUNTER TO ERROR-HOLD SQ1414.2
051100 ADD INSPECT-COUNTER TO ERROR-HOLD. SQ1414.2
051200 ADD DELETE-COUNTER TO ERROR-HOLD. SQ1414.2
051300 ADD PASS-COUNTER TO ERROR-HOLD. SQ1414.2
051400 MOVE PASS-COUNTER TO CCVS-E-4-1. SQ1414.2
051500 MOVE ERROR-HOLD TO CCVS-E-4-2. SQ1414.2
051600 MOVE CCVS-E-4 TO CCVS-E-2-2. SQ1414.2
051700 MOVE CCVS-E-2 TO DUMMY-RECORD SQ1414.2
051800 PERFORM WRITE-LINE. SQ1414.2
051900 MOVE "TEST(S) FAILED" TO ENDER-DESC. SQ1414.2
052000 IF ERROR-COUNTER IS EQUAL TO ZERO SQ1414.2
052100 MOVE "NO " TO ERROR-TOTAL SQ1414.2
052200 ELSE SQ1414.2
052300 MOVE ERROR-COUNTER TO ERROR-TOTAL. SQ1414.2
052400 MOVE CCVS-E-2 TO DUMMY-RECORD. SQ1414.2
052500 PERFORM WRITE-LINE. SQ1414.2
052600 END-ROUTINE-13. SQ1414.2
052700 IF DELETE-COUNTER IS EQUAL TO ZERO SQ1414.2
052800 MOVE "NO " TO ERROR-TOTAL SQ1414.2
052900 ELSE SQ1414.2
053000 MOVE DELETE-COUNTER TO ERROR-TOTAL. SQ1414.2
053100 MOVE "TEST(S) DELETED " TO ENDER-DESC. SQ1414.2
053200 MOVE CCVS-E-2 TO DUMMY-RECORD. SQ1414.2
053300 PERFORM WRITE-LINE. SQ1414.2
053400 IF INSPECT-COUNTER EQUAL TO ZERO SQ1414.2
053500 MOVE "NO " TO ERROR-TOTAL SQ1414.2
053600 ELSE SQ1414.2
053700 MOVE INSPECT-COUNTER TO ERROR-TOTAL. SQ1414.2
053800 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. SQ1414.2
053900 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ1414.2
054000 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ1414.2
054100* SQ1414.2
054200 WRITE-LINE. SQ1414.2
054300 ADD 1 TO RECORD-COUNT. SQ1414.2
054400 IF RECORD-COUNT GREATER 50 SQ1414.2
054500 MOVE DUMMY-RECORD TO DUMMY-HOLD SQ1414.2
054600 MOVE SPACE TO DUMMY-RECORD SQ1414.2
054700 WRITE DUMMY-RECORD AFTER ADVANCING PAGE SQ1414.2
054800 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN SQ1414.2
054900 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES SQ1414.2
055000 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN SQ1414.2
055100 MOVE DUMMY-HOLD TO DUMMY-RECORD SQ1414.2
055200 MOVE ZERO TO RECORD-COUNT. SQ1414.2
055300 PERFORM WRT-LN. SQ1414.2
055400* SQ1414.2
055500 WRT-LN. SQ1414.2
055600 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. SQ1414.2
055700 MOVE SPACE TO DUMMY-RECORD. SQ1414.2
055800 BLANK-LINE-PRINT. SQ1414.2
055900 PERFORM WRT-LN. SQ1414.2
056000 FAIL-ROUTINE. SQ1414.2
056100 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ1414.2
056200 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ1414.2
056300 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. SQ1414.2
056400 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. SQ1414.2
056500 MOVE XXINFO TO DUMMY-RECORD. SQ1414.2
056600 PERFORM WRITE-LINE 2 TIMES. SQ1414.2
056700 MOVE SPACES TO INF-ANSI-REFERENCE. SQ1414.2
056800 GO TO FAIL-ROUTINE-EX. SQ1414.2
056900 FAIL-ROUTINE-WRITE. SQ1414.2
057000 MOVE TEST-COMPUTED TO PRINT-REC SQ1414.2
057100 PERFORM WRITE-LINE SQ1414.2
057200 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. SQ1414.2
057300 MOVE TEST-CORRECT TO PRINT-REC SQ1414.2
057400 PERFORM WRITE-LINE 2 TIMES. SQ1414.2
057500 MOVE SPACES TO COR-ANSI-REFERENCE. SQ1414.2
057600 FAIL-ROUTINE-EX. SQ1414.2
057700 EXIT. SQ1414.2
057800 BAIL-OUT. SQ1414.2
057900 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. SQ1414.2
058000 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. SQ1414.2
058100 BAIL-OUT-WRITE. SQ1414.2
058200 MOVE CORRECT-A TO XXCORRECT. SQ1414.2
058300 MOVE COMPUTED-A TO XXCOMPUTED. SQ1414.2
058400 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. SQ1414.2
058500 MOVE XXINFO TO DUMMY-RECORD. SQ1414.2
058600 PERFORM WRITE-LINE 2 TIMES. SQ1414.2
058700 MOVE SPACES TO INF-ANSI-REFERENCE. SQ1414.2
058800 BAIL-OUT-EX. SQ1414.2
058900 EXIT. SQ1414.2
059000 CCVS1-EXIT. SQ1414.2
059100 EXIT. SQ1414.2
059200* SQ1414.2
059300**************************************************************** SQ1414.2
059400* * SQ1414.2
059500* THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND * SQ1414.2
059600* THE START OF THE TESTS OF SPECIFIC COBOL FEATURES. * SQ1414.2
059700* * SQ1414.2
059800**************************************************************** SQ1414.2
059900* SQ1414.2
060000 SECT-SQ141A-MAIN SECTION. SQ1414.2
060100 OPEN-INIT-01. SQ1414.2
060200* SQ1414.2
060300* THIS PROGRAM ATTEMPTS TO OPEN A FILE WHICH IS NOT SQ1414.2
060400* PRESENT AND AVAILABLE TO IT. SQ1414.2
060500* SQ1414.2
060600 MOVE 1 TO REC-CT SQ1414.2
060700 MOVE "OPEN ABSENT FILE INPUT" TO FEATURE SQ1414.2
060800 MOVE "OPEN-TEST-01" TO PAR-NAME SQ1414.2
060900 MOVE 9 TO DECL-EXEC-SW SQ1414.2
061000 MOVE "**" TO SQ-FS1-STATUS. SQ1414.2
061100 OPEN-TEST-01. SQ1414.2
061200 OPEN INPUT SQ-FS1. SQ1414.2
061300 MOVE "OPEN-TEST-01" TO PAR-NAME. SQ1414.2
061400 MOVE 1 TO REC-CT. SQ1414.2
061500 IF DECL-EXEC-SW = 0 SQ1414.2
061600 PERFORM PASS SQ1414.2
061700 ELSE SQ1414.2
061800 MOVE DECL-EXEC-SW TO COMPUTED-18V0 SQ1414.2
061900 MOVE ZERO TO CORRECT-18V0 SQ1414.2
062000 MOVE "DECLARATIVE NOT EXECUTED" TO RE-MARK SQ1414.2
062100 MOVE "V11-2, 1.3.5" TO ANSI-REFERENCE SQ1414.2
062200 PERFORM FAIL. SQ1414.2
062300 CCVS-EXIT SECTION. SQ1414.2
062400 CCVS-999999. SQ1414.2
062500 GO TO CLOSE-FILES. SQ1414.2
¤ Dauer der Verarbeitung: 0.54 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.
|
