Quelle  sq124a.cob   Sprache: Cobol

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

--> --------------------