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