000100 IDENTIFICATION DIVISION . SQ2114.2PROGRAM-ID . SQ2114.2000400**************************************************************** SQ2114.2 000500* * SQ2114.2 000600* VALIDATION FOR:- * SQ2114.2 000700* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ2114.2 000800* USING CCVS85 VERSION 3.0. * SQ2114.2 000900* * SQ2114.2 001000* CREATION DATE / VALIDATION DATE * SQ2114.2 001100* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ2114.2 001200* * SQ2114.2 001300**************************************************************** SQ2114.2 001400* * SQ2114.2 001500* X-CARDS USED BY THIS PROGRAM ARE :- * SQ2114.2 001600* * SQ2114.2 001700* X-01 SEQUENTIAL TAPE * SQ2114.2 001800* X-55 SYSTEM PRINTER * SQ2114.2 001900* X-82 SOURCE-COMPUTER * SQ2114.2 002000* X-83 OBJECT-COMPUTER. * SQ2114.2 002100* X-84 LABEL RECORDS OPTION * SQ2114.2 002200* * SQ2114.2 002300**************************************************************** SQ2114.2 002400* * SQ2114.2 002500* SQ211A TESTS THE CLOSE STATEMENT WITH THE WITH LOCK PHRASE* SQ2114.2 002600* A MAGNETIC TAPE FILE WITH ONE RECORD IS CREATED AND IS * SQ2114.2 002700* CLOSED WITH LOCK. THE FILE IS THEN RE-OPENED AFTER IT HAS* SQ2114.2 002800* BEEN CLOSED WITH LOCK. THERE ARE NO DECLARATIVE * SQ2114.2 002900* PROCEDURES. THE TEST FOR CORRECT I-O STATUS CODE IS IN * SQ2114.2 003000* THE MAIN LINE CODE, THEREFORE AN ABNORMAL TERMINATION IS * SQ2114.2 003100* POSSIBLE BEFORE THE TEST OF THE I-O STATUS CODE IS * SQ2114.2 003200* ACCOMPLISHED. * SQ2114.2 003300* * SQ2114.2 003400**************************************************************** SQ2114.2 003500* SQ2114.2 ENVIRONMENT DIVISION . SQ2114.2CONFIGURATION SECTION . SQ2114.2SOURCE-COMPUTER . SQ2114.2OBJECT-COMPUTER . SQ2114.2004200* SQ2114.2 INPUT-OUTPUT SECTION . SQ2114.2FILE-CONTROL . SQ2114.2SELECT PRINT-FILE ASSIGN TO SQ2114.2"C0085" . SQ2114.2004700* SQ2114.2 SELECT SQ-FS1 ASSIGN TO SQ2114.2"C0001" SQ2114.2FILE STATUS IS SQ-FS1-STATUS. SQ2114.2005100* SQ2114.2 005200* SQ2114.2 DATA DIVISION . SQ2114.2FILE SECTION . SQ2114.2FD PRINT-FILE SQ2114.2LABEL RECORDS SQ2114.2DATA RECORD IS PRINT-REC DUMMY-RECORD SQ2114.2PICTURE X(120). SQ2114.2PICTURE X(120). SQ2114.2006200* SQ2114.2 FD SQ-FS1 SQ2114.2LABEL RECORD IS STANDARD SQ2114.2PIC X(120). SQ2114.2006700* SQ2114.2 WORKING-STORAGE SECTION . SQ2114.2006900* SQ2114.2 007000*************************************************************** SQ2114.2 007100* * SQ2114.2 007200* WORKING-STORAGE DATA ITEMS SPECIFIC TO THIS TEST SUITE * SQ2114.2 007300* * SQ2114.2 007400*************************************************************** SQ2114.2 007500* SQ2114.2 PIC X. SQ2114.2PIC X. SQ2114.2007900* SQ2114.2 008000*************************************************************** SQ2114.2 008100* * SQ2114.2 008200* WORKING-STORAGE DATA ITEMS USED BY THE CCVS * SQ2114.2 008300* * SQ2114.2 008400*************************************************************** SQ2114.2 008500* SQ2114.2 PIC 99. SQ2114.2008700* SQ2114.2 FILLER PICTURE X(48) VALUE SQ2114.2"FILE= ,RECORD= /0,RECNO=000000,UPDT=00" . SQ2114.2FILLER PICTURE X(46) VALUE SQ2114.2",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000" . SQ2114.2FILLER PICTURE X(26) VALUE SQ2114.2",LFIL=000000,ORG= ,LBLR= " . SQ2114.2FILLER PICTURE X(37) VALUE SQ2114.2",RECKEY= " . SQ2114.2FILLER PICTURE X(38) VALUE SQ2114.2",ALTKEY1= " . SQ2114.2FILLER PICTURE X(38) VALUE SQ2114.2",ALTKEY2= " . SQ2114.2FILLER PICTURE X(7) VALUE SPACE .SQ2114.2OCCURS 10 TIMES. SQ2114.2FILLER PIC X(5). SQ2114.2PIC X(6). SQ2114.2FILLER PIC X(8). SQ2114.2PIC X(6). SQ2114.2FILLER PIC X(1). SQ2114.2PIC 9(1). SQ2114.2FILLER PIC X(7). SQ2114.2PIC 9(6). SQ2114.2FILLER PIC X(6). SQ2114.2PIC 9(2). SQ2114.2FILLER PIC X(5). SQ2114.2PIC 9(4). SQ2114.2FILLER PIC X(5). SQ2114.2PIC X(5). SQ2114.2FILLER PIC X(7). SQ2114.2PIC 9(6). SQ2114.2FILLER PIC X(7). SQ2114.2PIC X(2). SQ2114.2FILLER PIC X(1). SQ2114.2PIC 9(4). SQ2114.2FILLER PIC X(6). SQ2114.2PIC 9(6). SQ2114.2FILLER PIC X(5). SQ2114.2PIC X(2). SQ2114.2FILLER PIC X(6). SQ2114.2PIC X(1). SQ2114.2FILLER PIC X(8). SQ2114.2PIC X(29). SQ2114.2FILLER PIC X(9). SQ2114.2PIC X(29). SQ2114.2FILLER PIC X(9). SQ2114.2PIC X(29). SQ2114.2FILLER PIC X(7). SQ2114.2013900* SQ2114.2 FILLER PIC X VALUE SPACE . SQ2114.2PIC X(24) VALUE SPACE . SQ2114.2FILLER PIC X VALUE SPACE . SQ2114.2PIC X(5) VALUE SPACE . SQ2114.2FILLER PIC X VALUE SPACE . SQ2114.2FILLER PIC X(14) VALUE SPACE . SQ2114.2PIC X VALUE SPACE . SQ2114.2PIC 99 VALUE ZERO . SQ2114.2FILLER PIC X(9) VALUE SPACE . SQ2114.2PIC X(61). SQ2114.2FILLER PIC X(30) VALUE SPACE . SQ2114.2FILLER PIC X(17) VALUE " COMPUTED =" . SQ2114.2PIC X(20) VALUE SPACE . SQ2114.2REDEFINES COMPUTED-A PIC -9(9).9(9). SQ2114.2REDEFINES COMPUTED-A PIC -.9(18). SQ2114.2REDEFINES COMPUTED-A PIC -9(4).9(14). SQ2114.2REDEFINES COMPUTED-A PIC -9(14).9(4). SQ2114.2REDEFINES COMPUTED-A. SQ2114.2PIC -9(18). SQ2114.2FILLER PIC X. SQ2114.2FILLER PIC X(50) VALUE SPACE . SQ2114.2FILLER PIC X(30) VALUE SPACE . SQ2114.2FILLER PIC X(17) VALUE " CORRECT =" . SQ2114.2PIC X(20) VALUE SPACE . SQ2114.2REDEFINES CORRECT-A PIC -9(9).9(9). SQ2114.2REDEFINES CORRECT-A PIC -.9(18). SQ2114.2REDEFINES CORRECT-A PIC -9(4).9(14). SQ2114.2REDEFINES CORRECT-A PIC -9(14).9(4). SQ2114.2REDEFINES CORRECT-A. SQ2114.2PIC -9(18). SQ2114.2FILLER PIC X. SQ2114.2FILLER PIC X(2) VALUE SPACE . SQ2114.2PIC X(48) VALUE SPACE . SQ2114.2FILLER PIC IS X(4) VALUE SPACE . SQ2114.2FILLER PIC IS X(98) VALUE IS "FEATURE PASQ2114.2 "SS PARAGRAPH-NAME SQ2114.2 " REMARKS" . SQ2114.2FILLER PIC X(17) VALUE SPACE . SQ2114.2FILLER PIC XXXX VALUE SPACE . SQ2114.2FILLER PIC X(6) VALUE "TESTED" . SQ2114.2FILLER PIC X(16) VALUE SPACE . SQ2114.2FILLER PIC X(4) VALUE "FAIL" . SQ2114.2FILLER PIC X(90) VALUE SPACE . SQ2114.2PIC 9(2) VALUE ZERO . SQ2114.2PIC 99 VALUE ZERO . SQ2114.2PIC 999 VALUE ZERO . SQ2114.2PIC 999 VALUE ZERO . SQ2114.2PIC 999 VALUE ZERO . SQ2114.2PIC 999 VALUE ZERO . SQ2114.2PIC 999 VALUE ZERO . SQ2114.2PIC 999 VALUE ZERO . SQ2114.2PIC X(120) VALUE SPACE . SQ2114.2PIC 9(5) VALUE ZERO . SQ2114.2PIC X(48) VALUE SPACES . SQ2114.2FILLER PIC X(39) VALUE SPACES . SQ2114.2FILLER PIC X(42) VALUE SQ2114.2"OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . SQ2114.2FILLER PIC X(39) VALUE SPACES . SQ2114.2FILLER PIC X(40) VALUE SPACE . SQ2114.2FILLER PIC X(7) VALUE "CCVS85 " . SQ2114.2FILLER PIC XXXX VALUE SQ2114.2"4.2 " . SQ2114.2FILLER PIC X(28) VALUE SQ2114.2" COPY - NOT FOR DISTRIBUTION" . SQ2114.2FILLER PIC X(41) VALUE SPACE . SQ2114.2021500* SQ2114.2 FILLER PIC X(15) VALUE "TEST RESULT OF " . SQ2114.2PIC X(9). SQ2114.2FILLER PIC X(4) VALUE " IN " . SQ2114.2FILLER PIC X(12) VALUE SQ2114.2" HIGH " . SQ2114.2FILLER PIC X(22) VALUE SQ2114.2" LEVEL VALIDATION FOR " . SQ2114.2FILLER PIC X(58) VALUE SQ2114.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .SQ2114.2FILLER PIC X(34) VALUE SQ2114.2" FOR OFFICIAL USE ONLY " . SQ2114.2FILLER PIC X(58) VALUE SQ2114.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .SQ2114.2FILLER PIC X(28) VALUE SQ2114.2" COPYRIGHT 1985,1986 " . SQ2114.2FILLER PIC X(52) VALUE SPACE . SQ2114.2FILLER PIC X(14) VALUE IS "END OF TEST- " . SQ2114.2PIC X(9). SQ2114.2FILLER PIC X(45) VALUE SPACES . SQ2114.2FILLER PIC X(31) VALUE SPACE . SQ2114.2FILLER PIC X(21) VALUE SPACE . SQ2114.2PIC XXX VALUE SPACE . SQ2114.2FILLER PIC X VALUE SPACE . SQ2114.2PIC X(44) VALUE SQ2114.2"ERRORS ENCOUNTERED" . SQ2114.2FILLER PIC X(22) VALUE SQ2114.2" FOR OFFICIAL USE ONLY" . SQ2114.2FILLER PIC X(12) VALUE SPACE . SQ2114.2FILLER PIC X(58) VALUE SQ2114.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .SQ2114.2FILLER PIC X(8) VALUE SPACE . SQ2114.2FILLER PIC X(20) VALUE SQ2114.2" COPYRIGHT 1985,1986" . SQ2114.2PIC XXX VALUE SPACE . SQ2114.2FILLER PIC X(4) VALUE " OF " . SQ2114.2PIC XXX VALUE SPACE . SQ2114.2FILLER PIC X(40) VALUE SQ2114.2" TESTS WERE EXECUTED SUCCESSFULLY" . SQ2114.2FILLER PIC X(19) VALUE "*** INFORMATION ***" . SQ2114.2FILLER PIC X(8) VALUE SPACE . SQ2114.2PIC X(20). SQ2114.2FILLER PIC X(5) VALUE SPACE . SQ2114.2PIC X(20). SQ2114.2PIC X(48). SQ2114.2FILLER PIC IS X VALUE IS SPACE . SQ2114.2FILLER PIC IS X(65) VALUE IS "************************SQ2114.2 "*****************************************" . SQ2114.2FILLER PIC IS X(54) VALUE IS "************************SQ2114.2 "******************************" . SQ2114.2PIC X(9) VALUE SQ2114.2"SQ211A" . SQ2114.2027700* SQ2114.2 PROCEDURE DIVISION . SQ2114.2SECTION . SQ2114.2OPEN OUTPUT PRINT-FILE. SQ2114.2MOVE CCVS-PGM-ID TO TEST-ID. SQ2114.2MOVE CCVS-PGM-ID TO ID-AGAIN. SQ2114.2MOVE SPACE TO TEST-RESULTS. SQ2114.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. SQ2114.2MOVE ZERO TO REC-SKEL-SUB. SQ2114.2PERFORM CCVS-INIT-FILE 10 TIMES. SQ2114.2GO TO CCVS1-EXIT. SQ2114.2028900* SQ2114.2 ADD 1 TO REC-SKL-SUB. SQ2114.2MOVE FILE-RECORD-INFO-SKELETON TO SQ2114.2029400* SQ2114.2 PERFORM END-ROUTINE THRU END-ROUTINE-13. SQ2114.2CLOSE PRINT-FILE. SQ2114.2STOP RUN . SQ2114.2030000* SQ2114.2 MOVE "INSPT" TO P-OR-F. SQ2114.2ADD 1 TO INSPECT-COUNTER. SQ2114.2PERFORM PRINT-DETAIL. SQ2114.2MOVE "PASS " TO P-OR-F. SQ2114.2ADD 1 TO PASS-COUNTER. SQ2114.2PERFORM PRINT-DETAIL. SQ2114.2031000* SQ2114.2 MOVE "FAIL*" TO P-OR-F. SQ2114.2ADD 1 TO ERROR-COUNTER. SQ2114.2PERFORM PRINT-DETAIL. SQ2114.2031500* SQ2114.2 MOVE "****TEST DELETED****" TO RE-MARK. SQ2114.2MOVE "*****" TO P-OR-F. SQ2114.2ADD 1 TO DELETE-COUNTER. SQ2114.2PERFORM PRINT-DETAIL. SQ2114.2032100* SQ2114.2 IF REC-CT NOT EQUAL TO ZERO SQ2114.2MOVE "." TO PARDOT-X SQ2114.2MOVE REC-CT TO DOTVALUE. SQ2114.2MOVE TEST-RESULTS TO PRINT-REC. SQ2114.2PERFORM WRITE-LINE. SQ2114.2IF P-OR-F EQUAL TO "FAIL*" SQ2114.2PERFORM WRITE-LINE SQ2114.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX SQ2114.2ELSE SQ2114.2PERFORM BAIL-OUT THRU BAIL-OUT-EX. SQ2114.2MOVE SPACE TO P-OR-F. SQ2114.2MOVE SPACE TO COMPUTED-X. SQ2114.2MOVE SPACE TO CORRECT-X. SQ2114.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. SQ2114.2MOVE SPACE TO RE-MARK. SQ2114.2033800* SQ2114.2 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2114.2MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2114.2MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. SQ2114.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. SQ2114.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2114.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2114.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2114.2MOVE HYPHEN-LINE TO DUMMY-RECORD. SQ2114.2PERFORM WRITE-LINE 5 TIMES. SQ2114.2MOVE CCVS-E-1 TO DUMMY-RECORD. SQ2114.2PERFORM WRITE-LINE 2 TIMES. SQ2114.2035400* SQ2114.2 ADD ERROR-COUNTER TO ERROR-HOLD SQ2114.2ADD INSPECT-COUNTER TO ERROR-HOLD. SQ2114.2ADD DELETE-COUNTER TO ERROR-HOLD. SQ2114.2ADD PASS-COUNTER TO ERROR-HOLD. SQ2114.2MOVE PASS-COUNTER TO CCVS-E-4-1. SQ2114.2MOVE ERROR-HOLD TO CCVS-E-4-2. SQ2114.2MOVE CCVS-E-4 TO CCVS-E-2-2. SQ2114.2MOVE CCVS-E-2 TO DUMMY-RECORD SQ2114.2PERFORM WRITE-LINE. SQ2114.2MOVE "TEST(S) FAILED" TO ENDER-DESC. SQ2114.2IF ERROR-COUNTER IS EQUAL TO ZERO SQ2114.2MOVE "NO " TO ERROR-TOTAL SQ2114.2ELSE SQ2114.2MOVE ERROR-COUNTER TO ERROR-TOTAL. SQ2114.2MOVE CCVS-E-2 TO DUMMY-RECORD. SQ2114.2PERFORM WRITE-LINE. SQ2114.2IF DELETE-COUNTER IS EQUAL TO ZERO SQ2114.2MOVE "NO " TO ERROR-TOTAL SQ2114.2ELSE SQ2114.2MOVE DELETE-COUNTER TO ERROR-TOTAL. SQ2114.2MOVE "TEST(S) DELETED " TO ENDER-DESC. SQ2114.2MOVE CCVS-E-2 TO DUMMY-RECORD. SQ2114.2PERFORM WRITE-LINE. SQ2114.2IF INSPECT-COUNTER EQUAL TO ZERO SQ2114.2MOVE "NO " TO ERROR-TOTAL SQ2114.2ELSE SQ2114.2MOVE INSPECT-COUNTER TO ERROR-TOTAL. SQ2114.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. SQ2114.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2114.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2114.2038700* SQ2114.2 ADD 1 TO RECORD-COUNT. SQ2114.2IF RECORD-COUNT GREATER 50 SQ2114.2MOVE DUMMY-RECORD TO DUMMY-HOLD SQ2114.2MOVE SPACE TO DUMMY-RECORD SQ2114.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE SQ2114.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN SQ2114.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES SQ2114.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN SQ2114.2MOVE DUMMY-HOLD TO DUMMY-RECORD SQ2114.2MOVE ZERO TO RECORD-COUNT. SQ2114.2PERFORM WRT-LN. SQ2114.2040000* SQ2114.2 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. SQ2114.2MOVE SPACE TO DUMMY-RECORD. SQ2114.2PERFORM WRT-LN. SQ2114.2IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ2114.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ2114.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. SQ2114.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. SQ2114.2MOVE XXINFO TO DUMMY-RECORD. SQ2114.2PERFORM WRITE-LINE 2 TIMES. SQ2114.2MOVE SPACES TO INF-ANSI-REFERENCE. SQ2114.2GO TO FAIL-ROUTINE-EX. SQ2114.2MOVE TEST-COMPUTED TO PRINT-REC SQ2114.2PERFORM WRITE-LINE SQ2114.2MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. SQ2114.2MOVE TEST-CORRECT TO PRINT-REC SQ2114.2PERFORM WRITE-LINE 2 TIMES. SQ2114.2MOVE SPACES TO COR-ANSI-REFERENCE. SQ2114.2EXIT . SQ2114.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. SQ2114.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. SQ2114.2MOVE CORRECT-A TO XXCORRECT. SQ2114.2MOVE COMPUTED-A TO XXCOMPUTED. SQ2114.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. SQ2114.2MOVE XXINFO TO DUMMY-RECORD. SQ2114.2PERFORM WRITE-LINE 2 TIMES. SQ2114.2MOVE SPACES TO INF-ANSI-REFERENCE. SQ2114.2EXIT . SQ2114.2EXIT . SQ2114.2043800* SQ2114.2 043900**************************************************************** SQ2114.2 044000* * SQ2114.2 044100* THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND * SQ2114.2 044200* THE START OF THE TESTS OF SPECIFIC COBOL FEATURES. * SQ2114.2 044300* * SQ2114.2 044400**************************************************************** SQ2114.2 044500* SQ2114.2 SECTION . SQ2114.2044800* SQ2114.2 044900* THIS TEST CREATES FILE SQ-FS1 AND CLOSES IT WITH LOCK. SQ2114.2 045000* FIRST IT SETS UP A SKELETON RECORD IN WORKING STORAGE. SQ2114.2 045100* SQ2114.2 MOVE "SQ-FS1" TO XFILE-NAME (1). SQ2114.2MOVE "R1-F-G" TO XRECORD-NAME (1). SQ2114.2MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). SQ2114.2MOVE 120 TO XRECORD-LENGTH (1). SQ2114.2MOVE "RC" TO CHARS-OR-RECORDS (1). SQ2114.2MOVE 1 TO XBLOCK-SIZE (1). SQ2114.2MOVE 1 TO RECORDS-IN-FILE (1). SQ2114.2MOVE "SQ" TO XFILE-ORGANIZATION (1). SQ2114.2MOVE "S" TO XLABEL-TYPE (1). SQ2114.2MOVE 1 TO XRECORD-NUMBER (1). SQ2114.2046200* SQ2114.2 MOVE 1 TO REC-CT. SQ2114.2MOVE "WRITE-OPEN-01" TO PAR-NAME. SQ2114.2MOVE "OPEN OUTPUT - NEW FILE" TO FEATURE. SQ2114.2MOVE "**" TO SQ-FS1-STATUS. SQ2114.2OPEN OUTPUT SQ-FS1. SQ2114.2IF SQ-FS1-STATUS = "00" SQ2114.2PERFORM PASS SQ2114.2ELSE SQ2114.2MOVE "00" TO CORRECT-A SQ2114.2MOVE SQ-FS1-STATUS TO COMPUTED-A SQ2114.2MOVE "FILE OPEN FAILED, FURTHER TESTS ABANDONED" SQ2114.2TO RE-MARK SQ2114.2MOVE "VII-3, VII-40, FILE STATUS" TO ANSI-REFERENCE SQ2114.2PERFORM FAIL SQ2114.2GO TO CCVS-EXIT SQ2114.2END-IF . SQ2114.2048000* SQ2114.2 048100* WRITE A SINGLE RECORD TO THE FILE SQ2114.2 048200* SQ2114.2 MOVE 1 TO REC-CT. SQ2114.2MOVE "WRITE-TEST-01" TO PAR-NAME SQ2114.2MOVE "SEQUENTIAL WRITE" TO FEATURE. SQ2114.2MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-FS1R1-F-G-120. SQ2114.2WRITE SQ-FS1R1-F-G-120. SQ2114.2IF SQ-FS1-STATUS = "00" SQ2114.2PERFORM PASS SQ2114.2ELSE SQ2114.2MOVE "00" TO CORRECT-A SQ2114.2MOVE SQ-FS1-STATUS TO COMPUTED-A SQ2114.2MOVE "WRITING FAILED, FURTHER TESTS ABANDONED" SQ2114.2TO RE-MARK SQ2114.2MOVE "VII-3, VII-53, FILE STATUS" TO ANSI-REFERENCE SQ2114.2PERFORM FAIL SQ2114.2GO TO CCVS-EXIT SQ2114.2END-IF . SQ2114.2050100* SQ2114.2 050200* CLOSE THE FILE WITH LOCK, SO IT SHOULD NOT REOPEN SQ2114.2 050300* SQ2114.2 MOVE 1 TO REC-CT. SQ2114.2MOVE "CLOSE-TEST-01" TO PAR-NAME. SQ2114.2MOVE "CLOSE WITH LOCK" TO FEATURE. SQ2114.2MOVE "**" TO SQ-FS1-STATUS. SQ2114.2CLOSE SQ-FS1 WITH LOCK . SQ2114.2IF SQ-FS1-STATUS = "00" SQ2114.2PERFORM PASS SQ2114.2ELSE SQ2114.2MOVE "00" TO CORRECT-A SQ2114.2MOVE SQ-FS1-STATUS TO COMPUTED-A SQ2114.2MOVE "CLOSE WITH LOCK FAILED, FURTHER TESTS ABANDONED" SQ2114.2TO RE-MARK SQ2114.2MOVE "VII-3, VII-38, FILE STATUS" TO ANSI-REFERENCE SQ2114.2PERFORM FAIL SQ2114.2GO TO CCVS-EXIT SQ2114.2END-IF . SQ2114.2052200* SQ2114.2 052300* HAVING LOCKED THE FILE, WE NOW TRY TO REOPEN IT. SQ2114.2 052400* THE TEST PASSES IF THE FILE CANNOT BE OPENED AND SQ2114.2 052500* THE APPROPRIATE I-O STATUS VALUE IS RETURNED. SQ2114.2 052600* AN IMPLEMENTATION MAY TERMINATE EXECUTION OF THE SQ2114.2 052700* PROGRAM ON EXIT FROM THE DECLARATIVE ASSOCIATED SQ2114.2 052800* WITH THE FILE, OR MAY RETURN CONTROL TO THE SQ2114.2 052900* STATEMENT FOLLOWING THE OPEN STATEMENT. SQ2114.2 053000* SQ2114.2 053200* SQ2114.2 MOVE "OPEN AFTER LOCK" TO FEATURE. SQ2114.2MOVE "**" TO SQ-FS1-STATUS. SQ2114.2MOVE 1 TO REC-CT. SQ2114.2MOVE "OPEN-TEST-01" TO PAR-NAME. SQ2114.2MOVE "ABNORMAL TERMINATION AT THIS POINT IS ACCEPTABLE" SQ2114.2TO DUMMY-RECORD. SQ2114.2PERFORM WRITE-LINE 3 TIMES. SQ2114.2OPEN INPUT SQ-FS1. SQ2114.2IF SQ-FS1-STATUS = "38" SQ2114.2PERFORM PASS SQ2114.2ELSE SQ2114.2MOVE SQ-FS1-STATUS TO COMPUTED-A SQ2114.2MOVE "38" TO CORRECT-A SQ2114.2MOVE "STATUS OF OPEN AFTER CLOSE WITH LOCK INCORRECT" SQ2114.2TO RE-MARK SQ2114.2PERFORM FAIL SQ2114.2END-IF . SQ2114.2055100* SQ2114.2 SECTION . SQ2114.2GO TO CLOSE-FILES. SQ2114.2quality 98%
¤ Dauer der Verarbeitung: 0.20 Sekunden
(vorverarbeitet)
¤ *© Formatika GbR, Deutschland
