Quelle sq226a.cob Sprache: Cobol

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

--> maximum size reached

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

quality96%

¤ Dauer der Verarbeitung: 0.33 Sekunden (vorverarbeitet) ¤

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.