SSL sq103a.cob   Sprache: Cobol

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

--> maximum size reached

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