Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/SQ/     Datei vom 4.1.2008 mit Größe 60 kB image not shown  

SSL sq105a.cob   Sprache: Cobol

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

--> maximum size reached

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

93%


¤ Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.0.27Bemerkung:  Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können  ¤

*Bot Zugriff




Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.