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