Quelle  sq113a.cob   Sprache: Cobol

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

--> maximum size reached

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