Quelle sq151a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         SQ1514.2
000200 PROGRAM-ID.                                                      SQ1514.2
000300     SQ151A.                                                      SQ1514.2
000400****************************************************************  SQ1514.2
000500*                                                              *  SQ1514.2
000600*    VALIDATION FOR:-                                          *  SQ1514.2
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ1514.2
000800*    USING CCVS85 VERSION 3.0.                                 *  SQ1514.2
000900*                                                              *  SQ1514.2
001000*    CREATION DATE     /     VALIDATION DATE                   *  SQ1514.2
001100*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ1514.2
001200*                                                              *  SQ1514.2
001300****************************************************************  SQ1514.2
001400*                                                              *  SQ1514.2
001500*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  SQ1514.2
001600*                                                              *  SQ1514.2
001700*            X-01   SEQUENTIAL TAPE                            *  SQ1514.2
001800*            X-55   SYSTEM PRINTER                             *  SQ1514.2
001900*            X-82   SOURCE-COMPUTER                            *  SQ1514.2
002000*            X-83   OBJECT-COMPUTER                            *  SQ1514.2
002100*            X-84   LABEL RECORDS OPTION.                      *  SQ1514.2
002200*                                                              *  SQ1514.2
002300****************************************************************  SQ1514.2
002400*                                                              *  SQ1514.2
002500*    THIS PROGRAM CHECKS FOR THE CORRECT RESPONSE TO WRITING   *  SQ1514.2
002600*    A CLOSED FILE.  THE TEST FOR CORRECT I-O STATUS CODE 48   *  SQ1514.2
002700*    IS IN THE DECLARATIVES.  AN ABNORMAL TERMINATION IS       *  SQ1514.2
002800*    POSSIBLE AFTER THE TEST OF THE I-O STATUS CODE IS         *  SQ1514.2
002900*    ACCOMPLISHED BUT BEFORE CONTROL IS RETURNED TO THE MAIN   *  SQ1514.2
003000*    LINE CODE.                                                *  SQ1514.2
003100*                                                              *  SQ1514.2
003200****************************************************************  SQ1514.2
003300*                                                                 SQ1514.2
003400 ENVIRONMENT DIVISION.                                            SQ1514.2
003500 CONFIGURATION SECTION.                                           SQ1514.2
003600 SOURCE-COMPUTER.                                                 SQ1514.2
003700     Card0130.                                                    SQ1514.2
003800 OBJECT-COMPUTER.                                                 SQ1514.2
003900     Card0131.                                                    SQ1514.2
004000*                                                                 SQ1514.2
004100 INPUT-OUTPUT SECTION.                                            SQ1514.2
004200 FILE-CONTROL.                                                    SQ1514.2
004300     SELECT PRINT-FILE ASSIGN TO                                  SQ1514.2
004400     "C0085" .                                                    SQ1514.2
004500*                                                                 SQ1514.2
004600     SELECT SQ-FS1 ASSIGN TO                                      SQ1514.2
004700     "C0001"                                                      SQ1514.2
004800            FILE STATUS IS SQ-FS1-STATUS.                         SQ1514.2
004900*                                                                 SQ1514.2
005000*                                                                 SQ1514.2
005100 DATA DIVISION.                                                   SQ1514.2
005200 FILE SECTION.                                                    SQ1514.2
005300 FD  PRINT-FILE                                                   SQ1514.2
005400     LABEL RECORDS                                                SQ1514.2
005500     Card0132                                                     SQ1514.2
005600     DATA RECORD IS PRINT-REC DUMMY-RECORD                        SQ1514.2
005700               .                                                  SQ1514.2
005800 01  PRINT-REC    PICTURE X(120).                                 SQ1514.2
005900 01  DUMMY-RECORD PICTURE X(120).                                 SQ1514.2
006000*                                                                 SQ1514.2
006100 FD  SQ-FS1                                                       SQ1514.2
006200     LABEL RECORD IS STANDARD                                     SQ1514.2
006300                .                                                 SQ1514.2
006400 01  SQ-FS1R1-F-G-120 PIC X(120).                                 SQ1514.2
006500*                                                                 SQ1514.2
006600 WORKING-STORAGE SECTION.                                         SQ1514.2
006700*                                                                 SQ1514.2
006800***************************************************************   SQ1514.2
006900*                                                             *   SQ1514.2
007000*    WORKING-STORAGE DATA ITEMS SPECIFIC TO THIS TEST SUITE   *   SQ1514.2
007100*                                                             *   SQ1514.2
007200***************************************************************   SQ1514.2
007300*                                                                 SQ1514.2
007400 01  SQ-FS1-STATUS.                                               SQ1514.2
007500   03  SQ-FS1-KEY-1   PIC X.                                      SQ1514.2
007600   03  SQ-FS1-KEY-2   PIC X.                                      SQ1514.2
007700*                                                                 SQ1514.2
007800***************************************************************   SQ1514.2
007900*                                                             *   SQ1514.2
008000*    WORKING-STORAGE DATA ITEMS USED BY THE CCVS              *   SQ1514.2
008100*                                                             *   SQ1514.2
008200***************************************************************   SQ1514.2
008300*                                                                 SQ1514.2
008400 01  REC-SKEL-SUB   PIC 99.                                       SQ1514.2
008500*                                                                 SQ1514.2
008600 01  FILE-RECORD-INFORMATION-REC.                                 SQ1514.2
008700     03 FILE-RECORD-INFO-SKELETON.                                SQ1514.2
008800        05 FILLER                 PICTURE X(48)       VALUE       SQ1514.2
008900             "FILE= ,RECORD= /0,RECNO=000000,UPDT=00".  SQ1514.2
009000        05 FILLER                 PICTURE X(46)       VALUE       SQ1514.2
009100             ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000".    SQ1514.2
009200        05 FILLER                 PICTURE X(26)       VALUE       SQ1514.2
009300             ",LFIL=000000,ORG= ,LBLR= ".                        SQ1514.2
009400        05 FILLER                 PICTURE X(37)       VALUE       SQ1514.2
009500             ",RECKEY= ".             SQ1514.2
009600        05 FILLER                 PICTURE X(38)       VALUE       SQ1514.2
009700             ",ALTKEY1= ".            SQ1514.2
009800        05 FILLER                 PICTURE X(38)       VALUE       SQ1514.2
009900             ",ALTKEY2= ".            SQ1514.2
010000        05 FILLER                 PICTURE X(7)        VALUE SPACE.SQ1514.2
010100     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              SQ1514.2
010200        05 FILE-RECORD-INFO-P1-120.                               SQ1514.2
010300           07 FILLER              PIC X(5).                       SQ1514.2
010400           07 XFILE-NAME          PIC X(6).                       SQ1514.2
010500           07 FILLER              PIC X(8).                       SQ1514.2
010600           07 XRECORD-NAME        PIC X(6).                       SQ1514.2
010700           07 FILLER              PIC X(1).                       SQ1514.2
010800           07 REELUNIT-NUMBER     PIC 9(1).                       SQ1514.2
010900           07 FILLER              PIC X(7).                       SQ1514.2
011000           07 XRECORD-NUMBER      PIC 9(6).                       SQ1514.2
011100           07 FILLER              PIC X(6).                       SQ1514.2
011200           07 UPDATE-NUMBER       PIC 9(2).                       SQ1514.2
011300           07 FILLER              PIC X(5).                       SQ1514.2
011400           07 ODO-NUMBER          PIC 9(4).                       SQ1514.2
011500           07 FILLER              PIC X(5).                       SQ1514.2
011600           07 XPROGRAM-NAME       PIC X(5).                       SQ1514.2
011700           07 FILLER              PIC X(7).                       SQ1514.2
011800           07 XRECORD-LENGTH      PIC 9(6).                       SQ1514.2
011900           07 FILLER              PIC X(7).                       SQ1514.2
012000           07 CHARS-OR-RECORDS    PIC X(2).                       SQ1514.2
012100           07 FILLER              PIC X(1).                       SQ1514.2
012200           07 XBLOCK-SIZE         PIC 9(4).                       SQ1514.2
012300           07 FILLER              PIC X(6).                       SQ1514.2
012400           07 RECORDS-IN-FILE     PIC 9(6).                       SQ1514.2
012500           07 FILLER              PIC X(5).                       SQ1514.2
012600           07 XFILE-ORGANIZATION  PIC X(2).                       SQ1514.2
012700           07 FILLER              PIC X(6).                       SQ1514.2
012800           07 XLABEL-TYPE         PIC X(1).                       SQ1514.2
012900        05 FILE-RECORD-INFO-P121-240.                             SQ1514.2
013000           07 FILLER              PIC X(8).                       SQ1514.2
013100           07 XRECORD-KEY         PIC X(29).                      SQ1514.2
013200           07 FILLER              PIC X(9).                       SQ1514.2
013300           07 ALTERNATE-KEY1      PIC X(29).                      SQ1514.2
013400           07 FILLER              PIC X(9).                       SQ1514.2
013500           07 ALTERNATE-KEY2      PIC X(29).                      SQ1514.2
013600           07 FILLER              PIC X(7).                       SQ1514.2
013700*                                                                 SQ1514.2
013800 01  TEST-RESULTS.                                                SQ1514.2
013900     02 FILLER              PIC X      VALUE SPACE.               SQ1514.2
014000     02 FEATURE             PIC X(24)  VALUE SPACE.               SQ1514.2
014100     02 FILLER              PIC X      VALUE SPACE.               SQ1514.2
014200     02 P-OR-F              PIC X(5)   VALUE SPACE.               SQ1514.2
014300     02 FILLER              PIC X      VALUE SPACE.               SQ1514.2
014400     02  PAR-NAME.                                                SQ1514.2
014500       03 FILLER              PIC X(14)  VALUE SPACE.             SQ1514.2
014600       03 PARDOT-X            PIC X      VALUE SPACE.             SQ1514.2
014700       03 DOTVALUE            PIC 99     VALUE ZERO.              SQ1514.2
014800     02 FILLER              PIC X(9)   VALUE SPACE.               SQ1514.2
014900     02 RE-MARK             PIC X(61).                            SQ1514.2
015000 01  TEST-COMPUTED.                                               SQ1514.2
015100   02 FILLER  PIC X(30)  VALUE SPACE.                             SQ1514.2
015200   02 FILLER  PIC X(17)  VALUE " COMPUTED =".                SQ1514.2
015300   02 COMPUTED-X.                                                 SQ1514.2
015400     03 COMPUTED-A    PIC X(20)  VALUE SPACE.                     SQ1514.2
015500     03 COMPUTED-N    REDEFINES COMPUTED-A PIC -9(9).9(9).        SQ1514.2
015600     03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18).           SQ1514.2
015700     03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14).       SQ1514.2
015800     03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4).       SQ1514.2
015900     03       CM-18V0 REDEFINES COMPUTED-A.                       SQ1514.2
016000        04 COMPUTED-18V0                   PIC -9(18).            SQ1514.2
016100        04 FILLER                          PIC X.                 SQ1514.2
016200     03 FILLER PIC X(50) VALUE SPACE.                             SQ1514.2
016300 01  TEST-CORRECT.                                                SQ1514.2
016400     02 FILLER PIC X(30) VALUE SPACE.                             SQ1514.2
016500     02 FILLER PIC X(17) VALUE " CORRECT =".                SQ1514.2
016600     02 CORRECT-X.                                                SQ1514.2
016700     03 CORRECT-A                  PIC X(20) VALUE SPACE.         SQ1514.2
016800     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      SQ1514.2
016900     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         SQ1514.2
017000     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     SQ1514.2
017100     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     SQ1514.2
017200     03      CR-18V0 REDEFINES CORRECT-A.                         SQ1514.2
017300         04 CORRECT-18V0                     PIC -9(18).          SQ1514.2
017400         04 FILLER                           PIC X.               SQ1514.2
017500     03 FILLER PIC X(2) VALUE SPACE.                              SQ1514.2
017600     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     SQ1514.2
017700 01  CCVS-C-1.                                                    SQ1514.2
017800     02 FILLER  PIC IS X(4)     VALUE SPACE.                      SQ1514.2
017900     02 FILLER  PIC IS X(98)    VALUE IS "FEATURE PASQ1514.2
018000-    "SS PARAGRAPH-NAME SQ1514.2
018100-    " REMARKS".                                            SQ1514.2
018200     02 FILLER           PIC X(17)    VALUE SPACE.                SQ1514.2
018300 01  CCVS-C-2.                                                    SQ1514.2
018400     02 FILLER           PIC XXXX     VALUE SPACE.                SQ1514.2
018500     02 FILLER           PIC X(6)     VALUE "TESTED".             SQ1514.2
018600     02 FILLER           PIC X(16)    VALUE SPACE.                SQ1514.2
018700     02 FILLER           PIC X(4)     VALUE "FAIL".               SQ1514.2
018800     02 FILLER           PIC X(90)    VALUE SPACE.                SQ1514.2
018900 01  REC-SKL-SUB       PIC 9(2)     VALUE ZERO.                   SQ1514.2
019000 01  REC-CT            PIC 99       VALUE ZERO.                   SQ1514.2
019100 01  DELETE-COUNTER    PIC 999      VALUE ZERO.                   SQ1514.2
019200 01  ERROR-COUNTER     PIC 999      VALUE ZERO.                   SQ1514.2
019300 01  INSPECT-COUNTER   PIC 999      VALUE ZERO.                   SQ1514.2
019400 01  PASS-COUNTER      PIC 999      VALUE ZERO.                   SQ1514.2
019500 01  TOTAL-ERROR       PIC 999      VALUE ZERO.                   SQ1514.2
019600 01  ERROR-HOLD        PIC 999      VALUE ZERO.                   SQ1514.2
019700 01  DUMMY-HOLD        PIC X(120)   VALUE SPACE.                  SQ1514.2
019800 01  RECORD-COUNT      PIC 9(5)     VALUE ZERO.                   SQ1514.2
019900 01  ANSI-REFERENCE    PIC X(48)    VALUE SPACES.                 SQ1514.2
020000 01  CCVS-H-1.                                                    SQ1514.2
020100     02  FILLER          PIC X(39)    VALUE SPACES.               SQ1514.2
020200     02  FILLER          PIC X(42)    VALUE                       SQ1514.2
020300     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 SQ1514.2
020400     02  FILLER          PIC X(39)    VALUE SPACES.               SQ1514.2
020500 01  CCVS-H-2A.                                                   SQ1514.2
020600   02  FILLER            PIC X(40)  VALUE SPACE.                  SQ1514.2
020700   02  FILLER            PIC X(7)   VALUE "CCVS85 ".              SQ1514.2
020800   02  FILLER            PIC XXXX   VALUE                         SQ1514.2
020900     "4.2 ".                                                      SQ1514.2
021000   02  FILLER            PIC X(28)  VALUE                         SQ1514.2
021100            " COPY - NOT FOR DISTRIBUTION".                       SQ1514.2
021200   02  FILLER            PIC X(41)  VALUE SPACE.                  SQ1514.2
021300*                                                                 SQ1514.2
021400 01  CCVS-H-2B.                                                   SQ1514.2
021500   02  FILLER            PIC X(15)  VALUE "TEST RESULT OF ".      SQ1514.2
021600   02  TEST-ID           PIC X(9).                                SQ1514.2
021700   02  FILLER            PIC X(4)   VALUE " IN ".                 SQ1514.2
021800   02  FILLER            PIC X(12)  VALUE                         SQ1514.2
021900     " HIGH ".                                              SQ1514.2
022000   02  FILLER            PIC X(22)  VALUE                         SQ1514.2
022100            " LEVEL VALIDATION FOR ".                             SQ1514.2
022200   02  FILLER            PIC X(58)  VALUE                         SQ1514.2
022300     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1514.2
022400 01  CCVS-H-3.                                                    SQ1514.2
022500     02  FILLER          PIC X(34)  VALUE                         SQ1514.2
022600            " FOR OFFICIAL USE ONLY ".                         SQ1514.2
022700     02  FILLER          PIC X(58)  VALUE                         SQ1514.2
022800     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ1514.2
022900     02  FILLER          PIC X(28)  VALUE                         SQ1514.2
023000            " COPYRIGHT 1985,1986 ".                           SQ1514.2
023100 01  CCVS-E-1.                                                    SQ1514.2
023200     02 FILLER           PIC X(52)  VALUE SPACE.                  SQ1514.2
023300     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              SQ1514.2
023400     02 ID-AGAIN         PIC X(9).                                SQ1514.2
023500     02 FILLER           PIC X(45)  VALUE SPACES.                 SQ1514.2
023600 01  CCVS-E-2.                                                    SQ1514.2
023700     02  FILLER          PIC X(31)  VALUE SPACE.                  SQ1514.2
023800     02  FILLER          PIC X(21)  VALUE SPACE.                  SQ1514.2
023900     02  CCVS-E-2-2.                                              SQ1514.2
024000         03 ERROR-TOTAL    PIC XXX    VALUE SPACE.                SQ1514.2
024100         03 FILLER         PIC X      VALUE SPACE.                SQ1514.2
024200         03 ENDER-DESC     PIC X(44)  VALUE                       SQ1514.2
024300            "ERRORS ENCOUNTERED".                                 SQ1514.2
024400 01  CCVS-E-3.                                                    SQ1514.2
024500     02  FILLER          PIC X(22)  VALUE                         SQ1514.2
024600            " FOR OFFICIAL USE ONLY".                             SQ1514.2
024700     02  FILLER          PIC X(12)  VALUE SPACE.                  SQ1514.2
024800     02  FILLER          PIC X(58)  VALUE                         SQ1514.2
024900     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1514.2
025000     02  FILLER          PIC X(8)   VALUE SPACE.                  SQ1514.2
025100     02  FILLER          PIC X(20)  VALUE                         SQ1514.2
025200             " COPYRIGHT 1985,1986".                              SQ1514.2
025300 01  CCVS-E-4.                                                    SQ1514.2
025400     02 CCVS-E-4-1       PIC XXX    VALUE SPACE.                  SQ1514.2
025500     02 FILLER           PIC X(4)   VALUE " OF ".                 SQ1514.2
025600     02 CCVS-E-4-2       PIC XXX    VALUE SPACE.                  SQ1514.2
025700     02 FILLER           PIC X(40)  VALUE                         SQ1514.2
025800      " TESTS WERE EXECUTED SUCCESSFULLY".                       SQ1514.2
025900 01  XXINFO.                                                      SQ1514.2
026000     02 FILLER           PIC X(19)  VALUE "*** INFORMATION ***".  SQ1514.2
026100     02 INFO-TEXT.                                                SQ1514.2
026200       04 FILLER             PIC X(8)   VALUE SPACE.              SQ1514.2
026300       04 XXCOMPUTED         PIC X(20).                           SQ1514.2
026400       04 FILLER             PIC X(5)   VALUE SPACE.              SQ1514.2
026500       04 XXCORRECT          PIC X(20).                           SQ1514.2
026600     02 INF-ANSI-REFERENCE PIC X(48).                             SQ1514.2
026700 01  HYPHEN-LINE.                                                 SQ1514.2
026800     02 FILLER  PIC IS X VALUE IS SPACE.                          SQ1514.2
026900     02 FILLER  PIC IS X(65)    VALUE IS "************************SQ1514.2
027000-    "*****************************************".                 SQ1514.2
027100     02 FILLER  PIC IS X(54)    VALUE IS "************************SQ1514.2
027200-    "******************************".                            SQ1514.2
027300 01  CCVS-PGM-ID  PIC X(9)   VALUE                                SQ1514.2
027400     "SQ151A".                                                    SQ1514.2
027500*                                                                 SQ1514.2
027600 PROCEDURE DIVISION.                                              SQ1514.2
027700 DECLARATIVES.                                                    SQ1514.2
027800 SQ-FS1-DECLARATIVE SECTION.                                      SQ1514.2
027900     USE AFTER EXCEPTION PROCEDURE ON SQ-FS1.                     SQ1514.2
028000 OUTPUT-ERROR-PROCESS.                                            SQ1514.2
028100     IF  SQ-FS1-STATUS = "48"                                     SQ1514.2
028200             PERFORM DECL-PASS                                    SQ1514.2
028300             GO TO DECL-ABNORMAL-TERM                             SQ1514.2
028400     ELSE                                                         SQ1514.2
028500             MOVE "48" TO CORRECT-A                               SQ1514.2
028600             MOVE SQ-FS1-STATUS TO COMPUTED-A                     SQ1514.2
028700             MOVE "STATUS FOR WRITE TO CLOSED FILE INCORRECT"     SQ1514.2
028800                     TO RE-MARK                                   SQ1514.2
028900             MOVE "VII-5, 1.3.5(4)G" TO ANSI-REFERENCE            SQ1514.2
029000             PERFORM DECL-FAIL                                    SQ1514.2
029100             GO TO DECL-ABNORMAL-TERM                             SQ1514.2
029200     END-IF.                                                      SQ1514.2
029300*                                                                 SQ1514.2
029400 DECL-PASS.                                                       SQ1514.2
029500     MOVE   "PASS " TO P-OR-F.                                    SQ1514.2
029600     ADD     1 TO PASS-COUNTER.                                   SQ1514.2
029700     PERFORM DECL-PRINT-DETAIL.                                   SQ1514.2
029800*                                                                 SQ1514.2
029900 DECL-FAIL.                                                       SQ1514.2
030000     MOVE   "FAIL*" TO P-OR-F.                                    SQ1514.2
030100     ADD     1 TO ERROR-COUNTER.                                  SQ1514.2
030200     PERFORM DECL-PRINT-DETAIL.                                   SQ1514.2
030300*                                                                 SQ1514.2
030400 DECL-PRINT-DETAIL.                                               SQ1514.2
030500     IF REC-CT NOT EQUAL TO ZERO                                  SQ1514.2
030600             MOVE "." TO PARDOT-X                                 SQ1514.2
030700             MOVE REC-CT TO DOTVALUE.                             SQ1514.2
030800     MOVE    TEST-RESULTS TO PRINT-REC.                           SQ1514.2
030900     PERFORM DECL-WRITE-LINE.                                     SQ1514.2
031000     IF P-OR-F EQUAL TO "FAIL*"                                   SQ1514.2
031100         PERFORM DECL-WRITE-LINE                                  SQ1514.2
031200         PERFORM DECL-FAIL-ROUTINE THRU DECL-FAIL-EX              SQ1514.2
031300     ELSE                                                         SQ1514.2
031400         PERFORM DECL-BAIL THRU DECL-BAIL-EX.                     SQ1514.2
031500     MOVE    SPACE TO P-OR-F.                                     SQ1514.2
031600     MOVE    SPACE TO COMPUTED-X.                                 SQ1514.2
031700     MOVE    SPACE TO CORRECT-X.                                  SQ1514.2
031800     IF REC-CT EQUAL TO ZERO                                      SQ1514.2
031900         MOVE    SPACE TO PAR-NAME.                               SQ1514.2
032000     MOVE    SPACE TO RE-MARK.                                    SQ1514.2
032100*                                                                 SQ1514.2
032200 DECL-WRITE-LINE.                                                 SQ1514.2
032300     ADD     1 TO RECORD-COUNT.                                   SQ1514.2
032400     IF RECORD-COUNT GREATER 50                                   SQ1514.2
032500         MOVE    DUMMY-RECORD TO DUMMY-HOLD                       SQ1514.2
032600         MOVE    SPACE TO DUMMY-RECORD                            SQ1514.2
032700         WRITE   DUMMY-RECORD AFTER ADVANCING PAGE                SQ1514.2
032800         MOVE    CCVS-C-1 TO DUMMY-RECORD PERFORM DECL-WRT-LN     SQ1514.2
032900         MOVE    CCVS-C-2 TO DUMMY-RECORD                         SQ1514.2
033000         PERFORM DECL-WRT-LN 2 TIMES                              SQ1514.2
033100         MOVE    HYPHEN-LINE TO DUMMY-RECORD                      SQ1514.2
033200         PERFORM DECL-WRT-LN                                      SQ1514.2
033300         MOVE    DUMMY-HOLD TO DUMMY-RECORD                       SQ1514.2
033400         MOVE    ZERO TO RECORD-COUNT.                            SQ1514.2
033500     PERFORM DECL-WRT-LN.                                         SQ1514.2
033600*                                                                 SQ1514.2
033700 DECL-WRT-LN.                                                     SQ1514.2
033800     WRITE   DUMMY-RECORD AFTER ADVANCING 1 LINES.                SQ1514.2
033900     MOVE    SPACE TO DUMMY-RECORD.                               SQ1514.2
034000*                                                                 SQ1514.2
034100 DECL-FAIL-ROUTINE.                                               SQ1514.2
034200     IF COMPUTED-X NOT EQUAL TO SPACE GO TO DECL-FAIL-WRITE.      SQ1514.2
034300     IF CORRECT-X NOT EQUAL TO SPACE GO TO DECL-FAIL-WRITE.       SQ1514.2
034400     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE.                SQ1514.2
034500     MOVE   "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.  SQ1514.2
034600     MOVE    XXINFO TO DUMMY-RECORD.                              SQ1514.2
034700     PERFORM DECL-WRITE-LINE 2 TIMES.                             SQ1514.2
034800     MOVE    SPACES TO INF-ANSI-REFERENCE.                        SQ1514.2
034900     GO TO   DECL-FAIL-EX.                                        SQ1514.2
035000 DECL-FAIL-WRITE.                                                 SQ1514.2
035100     MOVE    TEST-COMPUTED TO PRINT-REC                           SQ1514.2
035200     PERFORM DECL-WRITE-LINE                                      SQ1514.2
035300     MOVE    ANSI-REFERENCE TO COR-ANSI-REFERENCE.                SQ1514.2
035400     MOVE    TEST-CORRECT TO PRINT-REC                            SQ1514.2
035500     PERFORM DECL-WRITE-LINE 2 TIMES.                             SQ1514.2
035600     MOVE    SPACES TO COR-ANSI-REFERENCE.                        SQ1514.2
035700 DECL-FAIL-EX.                                                    SQ1514.2
035800     EXIT.                                                        SQ1514.2
035900*                                                                 SQ1514.2
036000 DECL-BAIL.                                                       SQ1514.2
036100     IF COMPUTED-A NOT EQUAL TO SPACE GO TO DECL-BAIL-WRITE.      SQ1514.2
036200     IF CORRECT-A EQUAL TO SPACE GO TO DECL-BAIL-EX.              SQ1514.2
036300 DECL-BAIL-WRITE.                                                 SQ1514.2
036400     MOVE    CORRECT-A TO XXCORRECT.                              SQ1514.2
036500     MOVE    COMPUTED-A TO XXCOMPUTED.                            SQ1514.2
036600     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE.                SQ1514.2
036700     MOVE    XXINFO TO DUMMY-RECORD.                              SQ1514.2
036800     PERFORM DECL-WRITE-LINE 2 TIMES.                             SQ1514.2
036900     MOVE    SPACE TO  INF-ANSI-REFERENCE.                        SQ1514.2
037000 DECL-BAIL-EX.                                                    SQ1514.2
037100     EXIT.                                                        SQ1514.2
037200*                                                                 SQ1514.2
037300 DECL-ABNORMAL-TERM.                                              SQ1514.2
037400     MOVE SPACE TO DUMMY-RECORD.                                  SQ1514.2
037500     PERFORM DECL-WRITE-LINE.                                     SQ1514.2
037600     MOVE "ABNORMAL TERMINATION AT THIS POINT IS ACCEPTABLE"      SQ1514.2
037700             TO DUMMY-RECORD.                                     SQ1514.2
037800     PERFORM DECL-WRITE-LINE 3 TIMES.                             SQ1514.2
037900*                                                                 SQ1514.2
038000 END-DECLS.                                                       SQ1514.2
038100     EXIT.                                                        SQ1514.2
038200 END DECLARATIVES.                                                SQ1514.2
038300*                                                                 SQ1514.2
038400*                                                                 SQ1514.2
038500 CCVS1 SECTION.                                                   SQ1514.2
038600 OPEN-FILES.                                                      SQ1514.2
038700     OPEN    OUTPUT PRINT-FILE.                                   SQ1514.2
038800     MOVE    CCVS-PGM-ID TO TEST-ID.                              SQ1514.2
038900     MOVE    CCVS-PGM-ID TO ID-AGAIN.                             SQ1514.2
039000     MOVE    SPACE TO TEST-RESULTS.                               SQ1514.2
039100     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              SQ1514.2
039200     MOVE    ZERO TO REC-SKEL-SUB.                                SQ1514.2
039300     PERFORM CCVS-INIT-FILE 10 TIMES.                             SQ1514.2
039400     GO TO CCVS1-EXIT.                                            SQ1514.2
039500*                                                                 SQ1514.2
039600 CCVS-INIT-FILE.                                                  SQ1514.2
039700     ADD     1 TO REC-SKL-SUB.                                    SQ1514.2
039800     MOVE    FILE-RECORD-INFO-SKELETON TO                         SQ1514.2
039900                  FILE-RECORD-INFO (REC-SKL-SUB).                 SQ1514.2
040000*                                                                 SQ1514.2
040100 CLOSE-FILES.                                                     SQ1514.2
040200     PERFORM END-ROUTINE THRU END-ROUTINE-13.                     SQ1514.2
040300     CLOSE   PRINT-FILE.                                          SQ1514.2
040400 TERMINATE-CCVS.                                                  SQ1514.2
040500     STOP    RUN.                                                 SQ1514.2
040600*                                                                 SQ1514.2
040700 INSPT.                                                           SQ1514.2
040800     MOVE   "INSPT" TO P-OR-F.                                    SQ1514.2
040900     ADD     1 TO INSPECT-COUNTER.                                SQ1514.2
041000     PERFORM PRINT-DETAIL.                                        SQ1514.2
041100                                                                  SQ1514.2
041200 PASS.                                                            SQ1514.2
041300     MOVE   "PASS " TO P-OR-F.                                    SQ1514.2
041400     ADD     1 TO PASS-COUNTER.                                   SQ1514.2
041500     PERFORM PRINT-DETAIL.                                        SQ1514.2
041600*                                                                 SQ1514.2
041700 FAIL.                                                            SQ1514.2
041800     MOVE   "FAIL*" TO P-OR-F.                                    SQ1514.2
041900     ADD     1 TO ERROR-COUNTER.                                  SQ1514.2
042000     PERFORM PRINT-DETAIL.                                        SQ1514.2
042100*                                                                 SQ1514.2
042200 DE-LETE.                                                         SQ1514.2
042300     MOVE   "****TEST DELETED****" TO RE-MARK.                    SQ1514.2
042400     MOVE   "*****" TO P-OR-F.                                    SQ1514.2
042500     ADD     1 TO DELETE-COUNTER.                                 SQ1514.2
042600     PERFORM PRINT-DETAIL.                                        SQ1514.2
042700*                                                                 SQ1514.2
042800 PRINT-DETAIL.                                                    SQ1514.2
042900     IF REC-CT NOT EQUAL TO ZERO                                  SQ1514.2
043000         MOVE   "." TO PARDOT-X                                   SQ1514.2
043100         MOVE    REC-CT TO DOTVALUE.                              SQ1514.2
043200     MOVE    TEST-RESULTS TO PRINT-REC.                           SQ1514.2
043300     PERFORM WRITE-LINE.                                          SQ1514.2
043400     IF P-OR-F EQUAL TO "FAIL*"                                   SQ1514.2
043500         PERFORM WRITE-LINE                                       SQ1514.2
043600         PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                SQ1514.2
043700     ELSE                                                         SQ1514.2
043800         PERFORM BAIL-OUT THRU BAIL-OUT-EX.                       SQ1514.2
043900     MOVE    SPACE TO P-OR-F.                                     SQ1514.2
044000     MOVE    SPACE TO COMPUTED-X.                                 SQ1514.2
044100     MOVE    SPACE TO CORRECT-X.                                  SQ1514.2
044200     IF REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.             SQ1514.2
044300     MOVE    SPACE TO RE-MARK.                                    SQ1514.2
044400*                                                                 SQ1514.2
044500 HEAD-ROUTINE.                                                    SQ1514.2
044600     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  SQ1514.2
044700     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  SQ1514.2
044800     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  SQ1514.2
044900     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  SQ1514.2
045000 COLUMN-NAMES-ROUTINE.                                            SQ1514.2
045100     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ1514.2
045200     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SQ1514.2
045300     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        SQ1514.2
045400 END-ROUTINE.                                                     SQ1514.2
045500     MOVE    HYPHEN-LINE TO DUMMY-RECORD.                         SQ1514.2
045600     PERFORM WRITE-LINE 5 TIMES.                                  SQ1514.2
045700 END-RTN-EXIT.                                                    SQ1514.2
045800     MOVE    CCVS-E-1 TO DUMMY-RECORD.                            SQ1514.2
045900     PERFORM WRITE-LINE 2 TIMES.                                  SQ1514.2
046000*                                                                 SQ1514.2
046100 END-ROUTINE-1.                                                   SQ1514.2
046200     ADD     ERROR-COUNTER   TO ERROR-HOLD                        SQ1514.2
046300     ADD     INSPECT-COUNTER TO ERROR-HOLD.                       SQ1514.2
046400     ADD     DELETE-COUNTER  TO ERROR-HOLD.                       SQ1514.2
046500     ADD     PASS-COUNTER    TO ERROR-HOLD.                       SQ1514.2
046600     MOVE    PASS-COUNTER    TO CCVS-E-4-1.                       SQ1514.2
046700     MOVE    ERROR-HOLD      TO CCVS-E-4-2.                       SQ1514.2
046800     MOVE    CCVS-E-4        TO CCVS-E-2-2.                       SQ1514.2
046900     MOVE    CCVS-E-2        TO DUMMY-RECORD                      SQ1514.2
047000     PERFORM WRITE-LINE.                                          SQ1514.2
047100     MOVE   "TEST(S) FAILED" TO ENDER-DESC.                       SQ1514.2
047200     IF ERROR-COUNTER IS EQUAL TO ZERO                            SQ1514.2
047300         MOVE   "NO " TO ERROR-TOTAL                              SQ1514.2
047400     ELSE                                                         SQ1514.2
047500         MOVE    ERROR-COUNTER TO ERROR-TOTAL.                    SQ1514.2
047600     MOVE    CCVS-E-2 TO DUMMY-RECORD.                            SQ1514.2
047700     PERFORM WRITE-LINE.                                          SQ1514.2
047800 END-ROUTINE-13.                                                  SQ1514.2
047900     IF DELETE-COUNTER IS EQUAL TO ZERO                           SQ1514.2
048000         MOVE   "NO " TO ERROR-TOTAL                              SQ1514.2
048100     ELSE                                                         SQ1514.2
048200         MOVE    DELETE-COUNTER TO ERROR-TOTAL.                   SQ1514.2
048300     MOVE   "TEST(S) DELETED " TO ENDER-DESC.                 SQ1514.2
048400     MOVE    CCVS-E-2 TO DUMMY-RECORD.                            SQ1514.2
048500     PERFORM WRITE-LINE.                                          SQ1514.2
048600     IF INSPECT-COUNTER EQUAL TO ZERO                             SQ1514.2
048700         MOVE   "NO " TO ERROR-TOTAL                              SQ1514.2
048800     ELSE                                                         SQ1514.2
048900         MOVE    INSPECT-COUNTER TO ERROR-TOTAL.                  SQ1514.2
049000     MOVE   "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.           SQ1514.2
049100     MOVE    CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.        SQ1514.2
049200     MOVE    CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.        SQ1514.2
049300*                                                                 SQ1514.2
049400 WRITE-LINE.                                                      SQ1514.2
049500     ADD     1 TO RECORD-COUNT.                                   SQ1514.2
049600     IF RECORD-COUNT GREATER 50                                   SQ1514.2
049700         MOVE  DUMMY-RECORD TO DUMMY-HOLD                         SQ1514.2
049800         MOVE  SPACE TO DUMMY-RECORD                              SQ1514.2
049900         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  SQ1514.2
050000         MOVE  CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN            SQ1514.2
050100         MOVE  CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    SQ1514.2
050200         MOVE  HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN         SQ1514.2
050300         MOVE  DUMMY-HOLD TO DUMMY-RECORD                         SQ1514.2
050400         MOVE  ZERO TO RECORD-COUNT.                              SQ1514.2
050500     PERFORM WRT-LN.                                              SQ1514.2
050600*                                                                 SQ1514.2
050700 WRT-LN.                                                          SQ1514.2
050800     WRITE   DUMMY-RECORD AFTER ADVANCING 1 LINES.                SQ1514.2
050900     MOVE    SPACE TO DUMMY-RECORD.                               SQ1514.2
051000 BLANK-LINE-PRINT.                                                SQ1514.2
051100     PERFORM WRT-LN.                                              SQ1514.2
051200 FAIL-ROUTINE.                                                    SQ1514.2
051300     IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.   SQ1514.2
051400     IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.    SQ1514.2
051500     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE.                SQ1514.2
051600     MOVE   "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.  SQ1514.2
051700     MOVE    XXINFO TO DUMMY-RECORD.                              SQ1514.2
051800     PERFORM WRITE-LINE 2 TIMES.                                  SQ1514.2
051900     MOVE    SPACES TO INF-ANSI-REFERENCE.                        SQ1514.2
052000     GO TO   FAIL-ROUTINE-EX.                                     SQ1514.2
052100 FAIL-ROUTINE-WRITE.                                              SQ1514.2
052200     MOVE    TEST-COMPUTED  TO PRINT-REC                          SQ1514.2
052300     PERFORM WRITE-LINE                                           SQ1514.2
052400     MOVE    ANSI-REFERENCE TO COR-ANSI-REFERENCE.                SQ1514.2
052500     MOVE    TEST-CORRECT   TO PRINT-REC                          SQ1514.2
052600     PERFORM WRITE-LINE 2 TIMES.                                  SQ1514.2
052700     MOVE    SPACES         TO COR-ANSI-REFERENCE.                SQ1514.2
052800 FAIL-ROUTINE-EX.                                                 SQ1514.2
052900     EXIT.                                                        SQ1514.2
053000 BAIL-OUT.                                                        SQ1514.2
053100     IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.       SQ1514.2
053200     IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.               SQ1514.2
053300 BAIL-OUT-WRITE.                                                  SQ1514.2
053400     MOVE    CORRECT-A      TO XXCORRECT.                         SQ1514.2
053500     MOVE    COMPUTED-A     TO XXCOMPUTED.                        SQ1514.2
053600     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE.                SQ1514.2
053700     MOVE    XXINFO TO DUMMY-RECORD.                              SQ1514.2
053800     PERFORM WRITE-LINE 2 TIMES.                                  SQ1514.2
053900     MOVE    SPACES TO INF-ANSI-REFERENCE.                        SQ1514.2
054000 BAIL-OUT-EX.                                                     SQ1514.2
054100     EXIT.                                                        SQ1514.2
054200 CCVS1-EXIT.                                                      SQ1514.2
054300     EXIT.                                                        SQ1514.2
054400*                                                                 SQ1514.2
054500****************************************************************  SQ1514.2
054600*                                                              *  SQ1514.2
054700*    THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND *  SQ1514.2
054800*    THE START OF THE TESTS OF SPECIFIC COBOL FEATURES.        *  SQ1514.2
054900*                                                              *  SQ1514.2
055000****************************************************************  SQ1514.2
055100*                                                                 SQ1514.2
055200 SECT-SQ151A-0001 SECTION.                                        SQ1514.2
055300 WRITE-INIT-GF-01.                                                SQ1514.2
055400*                                                                 SQ1514.2
055500*        THIS TEST CREATES FILE SQ-FS1 AND CLOSES IT WITH LOCK.   SQ1514.2
055600*        FIRST IT SETS UP A SKELETON RECORD IN WORKING STORAGE.   SQ1514.2
055700*                                                                 SQ1514.2
055800     MOVE "SQ-FS1"     TO XFILE-NAME (1).                         SQ1514.2
055900     MOVE "R1-F-G"     TO XRECORD-NAME (1).                       SQ1514.2
056000     MOVE  CCVS-PGM-ID TO XPROGRAM-NAME (1).                      SQ1514.2
056100     MOVE 120          TO XRECORD-LENGTH (1).                     SQ1514.2
056200     MOVE "RC"         TO CHARS-OR-RECORDS (1).                   SQ1514.2
056300     MOVE 1            TO XBLOCK-SIZE (1).                        SQ1514.2
056400     MOVE 1            TO RECORDS-IN-FILE (1).                    SQ1514.2
056500     MOVE "SQ"         TO XFILE-ORGANIZATION (1).                 SQ1514.2
056600     MOVE "S"          TO XLABEL-TYPE (1).                        SQ1514.2
056700     MOVE 1            TO XRECORD-NUMBER (1).                     SQ1514.2
056800*                                                                 SQ1514.2
056900 WRITE-OPEN-01.                                                   SQ1514.2
057000     OPEN    OUTPUT SQ-FS1.                                       SQ1514.2
057100*                                                                 SQ1514.2
057200*        WRITE A SINGLE RECORD TO THE FILE                        SQ1514.2
057300*                                                                 SQ1514.2
057400 WRITE-TEST-01-01.                                                SQ1514.2
057500     MOVE    FILE-RECORD-INFO-P1-120 (1) TO SQ-FS1R1-F-G-120.     SQ1514.2
057600     WRITE   SQ-FS1R1-F-G-120.                                    SQ1514.2
057700*                                                                 SQ1514.2
057800*        CLOSE THE FILE.                                          SQ1514.2
057900*                                                                 SQ1514.2
058000 CLOSE-INIT-01.                                                   SQ1514.2
058100 CLOSE-TEST-01.                                                   SQ1514.2
058200     CLOSE   SQ-FS1.                                              SQ1514.2
058300*                                                                 SQ1514.2
058400*        WE WILL NOW ATTEMPT TO WRITE A RECORD TO THE CLOSED      SQ1514.2
058500*        FILE.  I-O STATUS 48 SHOULD BE GENERATED.                SQ1514.2
058600*                                                                 SQ1514.2
058700 WRITE-INIT-01.                                                   SQ1514.2
058800*                                                                 SQ1514.2
058900     MOVE "WRITE CLOSED FILE" TO FEATURE.                         SQ1514.2
059000     MOVE   "**" TO SQ-FS1-STATUS.                                SQ1514.2
059100     MOVE "WRITE-TEST-01" TO PAR-NAME.                            SQ1514.2
059200     MOVE 1 TO REC-CT.                                            SQ1514.2
059300 WRITE-TEST-01.                                                   SQ1514.2
059400     WRITE SQ-FS1R1-F-G-120.                                      SQ1514.2
059500*                                                                 SQ1514.2
059600 CCVS-EXIT SECTION.                                               SQ1514.2
059700 CCVS-999999.                                                     SQ1514.2
059800     GO TO CLOSE-FILES.                                           SQ1514.2

quality97%

¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.18Angebot 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.