Quelle  sq114a.cob   Sprache: Cobol

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

--> maximum size reached

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