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

Quelle  sq214a.cob   Sprache: Cobol

 
000100 IDENTIFICATION DIVISION.                                         SQ2144.2
000200 PROGRAM-ID.                                                      SQ2144.2
000300     SQ214A.                                                      SQ2144.2
000400****************************************************************  SQ2144.2
000500*                                                              *  SQ2144.2
000600*    VALIDATION FOR:-                                          *  SQ2144.2
000700*    " HIGH       ".                                              SQ2144.2
000800*                                                              *  SQ2144.2
000900*    CREATION DATE     /     VALIDATION DATE                   *  SQ2144.2
001000*    "4.2 ".                                                      SQ2144.2
001100*                                                              *  SQ2144.2
001200*                                                                 SQ2144.2
001300*                                                                 SQ2144.2
001400*    SQ214A TESTS OPERATIONS INVOLVING FORMAT 2 OCCURS CLAUSES,   SQ2144.2
001500*    I.E.  ...OCCURS INTEGER-1 TO INTEGER-2 TIMES DEPENDING ON    SQ2144.2
001600*          DATA-NAME-1 ....                                       SQ2144.2
001700*    X3.23-1976, PAGE III-4, 2.1.4(3) STATES, IN PART, THAT       SQ2144.2
001800*    INTEGER-2 REPRESENTS THE MAXIMUM NUMBER OF OCCURRENCES AND   SQ2144.2
001900*    THAT ONLY THE NUMBER OF OCCURRENCES, AND NOT THE ITEM LENGTH,SQ2144.2
002000*    IS VARIABLE.  WHENEVER THE PARENT GROUP ITEM IS REFERENCED,  SQ2144.2
002100*    ONLY THE PORTION OF THE TABLE SPECIFIED BY THE CURRENT VALUE SQ2144.2
002200*    OF DATA-NAME-1 WILL BE USED IN THE OPERATION.                SQ2144.2
002300*                                                                 SQ2144.2
002400*    THE FOLLOWING VERBS ARE EXERCIZED,                           SQ2144.2
002500*        READ                                                     SQ2144.2
002600*        WRITE                                                    SQ2144.2
002700*                                                                 SQ2144.2
002800*                                                                 SQ2144.2
002900 ENVIRONMENT DIVISION.                                            SQ2144.2
003000 CONFIGURATION SECTION.                                           SQ2144.2
003100 SOURCE-COMPUTER.                                                 SQ2144.2
003200     Card0130.                                                    SQ2144.2
003300 OBJECT-COMPUTER.                                                 SQ2144.2
003400     Card0131.                                                    SQ2144.2
003500 INPUT-OUTPUT SECTION.                                            SQ2144.2
003600 FILE-CONTROL.                                                    SQ2144.2
003700     SELECT RAW-DATA   ASSIGN TO                                  SQ2144.2
003800     "C0098"                                                      SQ2144.2
003900            ORGANIZATION IS INDEXED                               SQ2144.2
004000            ACCESS MODE IS RANDOM                                 SQ2144.2
004100            RECORD KEY IS RAW-DATA-KEY.                           SQ2144.2
004200     SELECT PRINT-FILE ASSIGN TO                                  SQ2144.2
004300     "C0085" .                                                    SQ2144.2
004400     SELECT  SQ-FS1  ASSIGN TO                                    SQ2144.2
004500     "C0020" .                                                    SQ2144.2
004600 DATA DIVISION.                                                   SQ2144.2
004700 FILE SECTION.                                                    SQ2144.2
004800                                                                  SQ2144.2
004900 FD  RAW-DATA.                                                    SQ2144.2
005000                                                                  SQ2144.2
005100 01  RAW-DATA-SATZ.                                               SQ2144.2
005200     05  RAW-DATA-KEY        PIC X(6).                            SQ2144.2
005300     05  C-DATE              PIC 9(6).                            SQ2144.2
005400     05  C-TIME              PIC 9(8).                            SQ2144.2
005500     05  C-NO-OF-TESTS       PIC 99.                              SQ2144.2
005600     05  C-OK                PIC 999.                             SQ2144.2
005700     05  C-ALL               PIC 999.                             SQ2144.2
005800     05  C-FAIL              PIC 999.                             SQ2144.2
005900     05  C-DELETED           PIC 999.                             SQ2144.2
006000     05  C-INSPECT           PIC 999.                             SQ2144.2
006100     05  C-NOTE              PIC X(13).                           SQ2144.2
006200     05  C-INDENT            PIC X.                               SQ2144.2
006300     05  C-ABORT             PIC X(8).                            SQ2144.2
006400 FD  PRINT-FILE                                                   SQ2144.2
006500     LABEL RECORDS                                                SQ2144.2
006600     Card0132                                                     SQ2144.2
006700     DATA RECORD IS PRINT-REC DUMMY-RECORD                        SQ2144.2
006800               .                                                  SQ2144.2
006900 01  PRINT-REC PICTURE X(120).                                    SQ2144.2
007000 01  DUMMY-RECORD PICTURE X(120).                                 SQ2144.2
007100 FD  SQ-FS1                                                       SQ2144.2
007200     LABEL RECORD IS STANDARD                                     SQ2144.2
007300                .                                                 SQ2144.2
007400 01  SQ-FS1R1-F-G-140.                                            SQ2144.2
007500     02 FS1R1-XN-120 PIC X(120).                                  SQ2144.2
007600     02  FS1R1-XN-20.                                             SQ2144.2
007700         03  FS1R1-XN-13  PIC X(13).                              SQ2144.2
007800         03  FS1R1-XN-6   PIC X(6).                               SQ2144.2
007900         03  FILLER       PIC X.                                  SQ2144.2
008000 WORKING-STORAGE SECTION.                                         SQ2144.2
008100 01  ODO-RECORD.                                                  SQ2144.2
008200     02  FILLER PIC X(120).                                       SQ2144.2
008300     02  GRP-ODO.                                                 SQ2144.2
008400         03  DOI-DU-01V00 PIC 9.                                  SQ2144.2
008500         03  ODO-XN-00009  PIC X(9).                              SQ2144.2
008600         03  ODO-GRP-00009.                                       SQ2144.2
008700         04  ODO-XN-00001-O009D OCCURS 1 TO 9 TIMES DEPENDING ON  SQ2144.2
008800                 DOI-DU-01V00 ASCENDING KEY ODO-XN-00001-O009D    SQ2144.2
008900                 INDEXED BY ODO-IX PIC X.                         SQ2144.2
009000 01  STATIC-VALUE.                                                SQ2144.2
009100     02  FILLER PIC 9 VALUE 9.                                    SQ2144.2
009200     02  FILLER PIC X(18) VALUE " ACTIVE: 123456789".             SQ2144.2
009300 01  WRK-GRP-00019.                                               SQ2144.2
009400     02  WRK-DU-01V00 PIC 9.                                      SQ2144.2
009500     02  WRK-XN-00009-1 PIC X(9).                                 SQ2144.2
009600     02  WRK-XN-00009-2 PIC X(9).                                 SQ2144.2
009700 01  WRK-GRP-00009.                                               SQ2144.2
009800     02  ODO-XN-00007  PIC X(7).                                  SQ2144.2
009900     02  ODO-XN-00002  PIC XX.                                    SQ2144.2
010000 01  WRK-GRP-00009A  REDEFINES  WRK-GRP-00009.                    SQ2144.2
010100     02  ODO-XN-00005  PIC X(5).                                  SQ2144.2
010200     02  ODO-XN-00004  PIC X(4).                                  SQ2144.2
010300 01  WRK-DU-05V00 PIC 9(5).                                       SQ2144.2
010400 01  WRK-XN-00020 PIC X(20).                                      SQ2144.2
010500 01  WRK-XN-00010 PIC X(10).                                      SQ2144.2
010600 01  FILE-RECORD-INFORMATION-REC.                                 SQ2144.2
010700     03 FILE-RECORD-INFO-SKELETON.                                SQ2144.2
010800        05 FILLER                 PICTURE X(48)       VALUE       SQ2144.2
010900             "FILE= ,RECORD= /0,RECNO=000000,UPDT=00".  SQ2144.2
011000        05 FILLER                 PICTURE X(46)       VALUE       SQ2144.2
011100             ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000".    SQ2144.2
011200        05 FILLER                 PICTURE X(26)       VALUE       SQ2144.2
011300             ",LFIL=000000,ORG= ,LBLR= ".                        SQ2144.2
011400        05 FILLER                 PICTURE X(37)       VALUE       SQ2144.2
011500             ",RECKEY= ".             SQ2144.2
011600        05 FILLER                 PICTURE X(38)       VALUE       SQ2144.2
011700             ",ALTKEY1= ".            SQ2144.2
011800        05 FILLER                 PICTURE X(38)       VALUE       SQ2144.2
011900             ",ALTKEY2= ".            SQ2144.2
012000        05 FILLER                 PICTURE X(7)        VALUE SPACE.SQ2144.2
012100     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              SQ2144.2
012200        05 FILE-RECORD-INFO-P1-120.                               SQ2144.2
012300           07 FILLER              PIC X(5).                       SQ2144.2
012400           07 XFILE-NAME           PIC X(6).                      SQ2144.2
012500           07 FILLER              PIC X(8).                       SQ2144.2
012600           07 XRECORD-NAME         PIC X(6).                      SQ2144.2
012700           07 FILLER              PIC X(1).                       SQ2144.2
012800           07 REELUNIT-NUMBER     PIC 9(1).                       SQ2144.2
012900           07 FILLER              PIC X(7).                       SQ2144.2
013000           07 XRECORD-NUMBER       PIC 9(6).                      SQ2144.2
013100           07 FILLER              PIC X(6).                       SQ2144.2
013200           07 UPDATE-NUMBER       PIC 9(2).                       SQ2144.2
013300           07 FILLER              PIC X(5).                       SQ2144.2
013400           07 ODO-NUMBER          PIC 9(4).                       SQ2144.2
013500           07 FILLER              PIC X(5).                       SQ2144.2
013600           07 XPROGRAM-NAME        PIC X(5).                      SQ2144.2
013700           07 FILLER              PIC X(7).                       SQ2144.2
013800           07 XRECORD-LENGTH       PIC 9(6).                      SQ2144.2
013900           07 FILLER              PIC X(7).                       SQ2144.2
014000           07 CHARS-OR-RECORDS    PIC X(2).                       SQ2144.2
014100           07 FILLER              PIC X(1).                       SQ2144.2
014200           07 XBLOCK-SIZE          PIC 9(4).                      SQ2144.2
014300           07 FILLER              PIC X(6).                       SQ2144.2
014400           07 RECORDS-IN-FILE     PIC 9(6).                       SQ2144.2
014500           07 FILLER              PIC X(5).                       SQ2144.2
014600           07 XFILE-ORGANIZATION   PIC X(2).                      SQ2144.2
014700           07 FILLER              PIC X(6).                       SQ2144.2
014800           07 XLABEL-TYPE          PIC X(1).                      SQ2144.2
014900        05 FILE-RECORD-INFO-P121-240.                             SQ2144.2
015000           07 FILLER              PIC X(8).                       SQ2144.2
015100           07 XRECORD-KEY          PIC X(29).                     SQ2144.2
015200           07 FILLER              PIC X(9).                       SQ2144.2
015300           07 ALTERNATE-KEY1      PIC X(29).                      SQ2144.2
015400           07 FILLER              PIC X(9).                       SQ2144.2
015500           07 ALTERNATE-KEY2      PIC X(29).                      SQ2144.2
015600           07 FILLER              PIC X(7).                       SQ2144.2
015700 01  TEST-RESULTS.                                                SQ2144.2
015800     02 FILLER                    PICTURE X VALUE SPACE.          SQ2144.2
015900     02 FEATURE                   PICTURE X(20) VALUE SPACE.      SQ2144.2
016000     02 FILLER                    PICTURE X VALUE SPACE.          SQ2144.2
016100     02 P-OR-F                    PICTURE X(5) VALUE SPACE.       SQ2144.2
016200     02 FILLER                    PICTURE X  VALUE SPACE.         SQ2144.2
016300     02  PAR-NAME.                                                SQ2144.2
016400       03 FILLER PICTURE X(12) VALUE SPACE.                       SQ2144.2
016500       03  PARDOT-X PICTURE X  VALUE SPACE.                       SQ2144.2
016600       03 DOTVALUE PICTURE 99  VALUE ZERO.                        SQ2144.2
016700       03 FILLER PIC X(5) VALUE SPACE.                            SQ2144.2
016800     02 FILLER PIC X(10) VALUE SPACE.                             SQ2144.2
016900     02 RE-MARK PIC X(61).                                        SQ2144.2
017000 01  TEST-COMPUTED.                                               SQ2144.2
017100     02 FILLER PIC X(30) VALUE SPACE.                             SQ2144.2
017200     02 FILLER PIC X(17) VALUE " COMPUTED=".                SQ2144.2
017300     02 COMPUTED-X.                                               SQ2144.2
017400     03 COMPUTED-A                PICTURE X(20) VALUE SPACE.      SQ2144.2
017500     03 COMPUTED-N REDEFINES COMPUTED-A PICTURE -9(9).9(9).       SQ2144.2
017600     03 COMPUTED-0V18 REDEFINES COMPUTED-A  PICTURE -.9(18).      SQ2144.2
017700     03 COMPUTED-4V14 REDEFINES COMPUTED-A  PICTURE -9(4).9(14).  SQ2144.2
017800     03 COMPUTED-14V4 REDEFINES COMPUTED-A  PICTURE -9(14).9(4).  SQ2144.2
017900     03       CM-18V0 REDEFINES COMPUTED-A.                       SQ2144.2
018000         04 COMPUTED-18V0                   PICTURE -9(18).       SQ2144.2
018100         04 FILLER                          PICTURE X.            SQ2144.2
018200     03 FILLER PIC X(50) VALUE SPACE.                             SQ2144.2
018300 01  TEST-CORRECT.                                                SQ2144.2
018400     02 FILLER PIC X(30) VALUE SPACE.                             SQ2144.2
018500     02 FILLER PIC X(17) VALUE " CORRECT =".                SQ2144.2
018600     02 CORRECT-X.                                                SQ2144.2
018700     03 CORRECT-A                 PICTURE X(20) VALUE SPACE.      SQ2144.2
018800     03 CORRECT-N REDEFINES CORRECT-A PICTURE -9(9).9(9).         SQ2144.2
018900     03 CORRECT-0V18 REDEFINES CORRECT-A    PICTURE -.9(18).      SQ2144.2
019000     03 CORRECT-4V14 REDEFINES CORRECT-A    PICTURE -9(4).9(14).  SQ2144.2
019100     03 CORRECT-14V4 REDEFINES CORRECT-A    PICTURE -9(14).9(4).  SQ2144.2
019200     03      CR-18V0 REDEFINES CORRECT-A.                         SQ2144.2
019300         04 CORRECT-18V0                    PICTURE -9(18).       SQ2144.2
019400         04 FILLER                          PICTURE X.            SQ2144.2
019500     03 FILLER PIC X(50) VALUE SPACE.                             SQ2144.2
019600 01  CCVS-C-1.                                                    SQ2144.2
019700     02 FILLER PICTURE IS X(99) VALUE IS " FEATURE PASQ2144.2
019800-    "SS PARAGRAPH-NAME SQ2144.2
019900-    " REMARKS".                                           SQ2144.2
020000     02 FILLER PICTURE IS X(20) VALUE IS SPACE.                   SQ2144.2
020100 01  CCVS-C-2.                                                    SQ2144.2
020200     02 FILLER PICTURE IS X VALUE IS SPACE.                       SQ2144.2
020300     02 FILLER PICTURE IS X(6) VALUE IS "TESTED".                 SQ2144.2
020400     02 FILLER PICTURE IS X(15) VALUE IS SPACE.                   SQ2144.2
020500     02 FILLER PICTURE IS X(4) VALUE IS "FAIL".                   SQ2144.2
020600     02 FILLER PICTURE IS X(94) VALUE IS SPACE.                   SQ2144.2
020700 01  REC-SKL-SUB PICTURE 9(2) VALUE ZERO.                         SQ2144.2
020800 01  REC-CT PICTURE 99 VALUE ZERO.                                SQ2144.2
020900 01  DELETE-CNT                   PICTURE 999  VALUE ZERO.        SQ2144.2
021000 01  ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO.                  SQ2144.2
021100 01  INSPECT-COUNTER PIC 999 VALUE ZERO.                          SQ2144.2
021200 01  PASS-COUNTER PIC 999 VALUE ZERO.                             SQ2144.2
021300 01  TOTAL-ERROR PIC 999 VALUE ZERO.                              SQ2144.2
021400 01  ERROR-HOLD PIC 999 VALUE ZERO.                               SQ2144.2
021500 01  DUMMY-HOLD PIC X(120) VALUE SPACE.                           SQ2144.2
021600 01  RECORD-COUNT PIC 9(5) VALUE ZERO.                            SQ2144.2
021700 01  CCVS-H-1.                                                    SQ2144.2
021800     02  FILLER   PICTURE X(27)  VALUE SPACE.                     SQ2144.2
021900     02 FILLER PICTURE X(67) VALUE                                SQ2144.2
022000     " FEDERAL SOFTWARE TESTING CENTER COBOL COMPILER VALIDATION SQ2144.2
022100-    " SYSTEM".                                                   SQ2144.2
022200     02  FILLER     PICTURE X(26)  VALUE SPACE.                   SQ2144.2
022300 01  CCVS-H-2.                                                    SQ2144.2
022400     02 FILLER PICTURE X(52) VALUE IS                             SQ2144.2
022500     "CCVS85 FSTC COPY, NOT FOR DISTRIBUTION.".                   SQ2144.2
022600     02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- ".   SQ2144.2
022700     02 TEST-ID PICTURE IS X(9).                                  SQ2144.2
022800     02 FILLER PICTURE IS X(40) VALUE IS SPACE.                   SQ2144.2
022900 01  CCVS-H-3.                                                    SQ2144.2
023000     02  FILLER PICTURE X(34) VALUE                               SQ2144.2
023100     " FOR OFFICIAL USE ONLY ".                                SQ2144.2
023200     02  FILLER PICTURE X(58) VALUE                               SQ2144.2
023300     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ2144.2
023400     02  FILLER PICTURE X(28) VALUE                               SQ2144.2
023500     " COPYRIGHT 1985 ".                                       SQ2144.2
023600 01  CCVS-E-1.                                                    SQ2144.2
023700     02 FILLER PICTURE IS X(52) VALUE IS SPACE.                   SQ2144.2
023800     02 FILLER PICTURE IS X(14) VALUE IS "END OF TEST- ".        SQ2144.2
023900     02 ID-AGAIN PICTURE IS X(9).                                 SQ2144.2
024000     02 FILLER PICTURE X(45) VALUE IS                             SQ2144.2
024100     " NTIS DISTRIBUTION COBOL 85".                               SQ2144.2
024200 01  CCVS-E-2.                                                    SQ2144.2
024300     02  FILLER                   PICTURE X(31)  VALUE            SQ2144.2
024400     SPACE.                                                       SQ2144.2
024500     02  FILLER                   PICTURE X(21)  VALUE SPACE.     SQ2144.2
024600     02 CCVS-E-2-2.                                               SQ2144.2
024700         03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE.            SQ2144.2
024800         03 FILLER PICTURE IS X VALUE IS SPACE.                   SQ2144.2
024900         03 ENDER-DESC PIC X(46) VALUE "ERRORS ENCOUNTERED".      SQ2144.2
025000 01  CCVS-E-3.                                                    SQ2144.2
025100     02  FILLER PICTURE X(22) VALUE                               SQ2144.2
025200     " FOR OFFICIAL USE ONLY".                                    SQ2144.2
025300     02  FILLER PICTURE X(12) VALUE SPACE.                        SQ2144.2
025400     02  FILLER PICTURE X(58) VALUE                               SQ2144.2
025500     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ2144.2
025600     02  FILLER PICTURE X(13) VALUE SPACE.                        SQ2144.2
025700     02 FILLER PIC X(15) VALUE " COPYRIGHT 1985".                 SQ2144.2
025800 01  CCVS-E-4.                                                    SQ2144.2
025900     02 CCVS-E-4-1 PIC XXX VALUE SPACE.                           SQ2144.2
026000     02 FILLER PIC XXXX VALUE " OF ".                             SQ2144.2
026100     02 CCVS-E-4-2 PIC XXX VALUE SPACE.                           SQ2144.2
026200     02 FILLER PIC X(40) VALUE                                    SQ2144.2
026300      " TESTS WERE EXECUTED SUCCESSFULLY".                       SQ2144.2
026400 01  XXINFO.                                                      SQ2144.2
026500     02 FILLER PIC X(30) VALUE " *** INFORMATION ***".    SQ2144.2
026600     02 INFO-TEXT.                                                SQ2144.2
026700     04 FILLER PIC X(20) VALUE SPACE.                             SQ2144.2
026800     04 XXCOMPUTED PIC X(20).                                     SQ2144.2
026900     04 FILLER PIC X(5) VALUE SPACE.                              SQ2144.2
027000     04 XXCORRECT PIC X(20).                                      SQ2144.2
027100 01  HYPHEN-LINE.                                                 SQ2144.2
027200     02 FILLER PICTURE IS X VALUE IS SPACE.                       SQ2144.2
027300     02 FILLER PICTURE IS X(65) VALUE IS "************************SQ2144.2
027400-    "*****************************************".                 SQ2144.2
027500     02 FILLER PICTURE IS X(54) VALUE IS "************************SQ2144.2
027600-    "******************************".                            SQ2144.2
027700 01  CCVS-PGM-ID PIC X(6) VALUE                                   SQ2144.2
027800     "SQ214A".                                                    SQ2144.2
027900 PROCEDURE DIVISION.                                              SQ2144.2
028000 CCVS1 SECTION.                                                   SQ2144.2
028100 OPEN-FILES.                                                      SQ2144.2
028200     OPEN I-O RAW-DATA.                                           SQ2144.2
028300     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            SQ2144.2
028400     READ RAW-DATA INVALID KEY GO TO END-E-1.                     SQ2144.2
028500     MOVE "ABORTED " TO C-ABORT.                                  SQ2144.2
028600     ADD 1 TO C-NO-OF-TESTS.                                      SQ2144.2
028700     ACCEPT C-DATE  FROM DATE.                                    SQ2144.2
028800     ACCEPT C-TIME  FROM TIME.                                    SQ2144.2
028900     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1.             SQ2144.2
029000 END-E-1.                                                         SQ2144.2
029100     CLOSE RAW-DATA.                                              SQ2144.2
029200     OPEN     OUTPUT PRINT-FILE.                                  SQ2144.2
029300     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   SQ2144.2
029400     MOVE    SPACE TO TEST-RESULTS.                               SQ2144.2
029500     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             SQ2144.2
029600     MOVE ZERO TO REC-SKL-SUB.                                    SQ2144.2
029700     PERFORM CCVS-INIT-FILE 9 TIMES.                              SQ2144.2
029800 CCVS-INIT-FILE.                                                  SQ2144.2
029900     ADD 1 TO REC-SKL-SUB.                                        SQ2144.2
030000     MOVE FILE-RECORD-INFO-SKELETON TO                            SQ2144.2
030100                  FILE-RECORD-INFO (REC-SKL-SUB).                 SQ2144.2
030200 CCVS-INIT-EXIT.                                                  SQ2144.2
030300     GO TO CCVS1-EXIT.                                            SQ2144.2
030400 CLOSE-FILES.                                                     SQ2144.2
030500     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   SQ2144.2
030600     OPEN I-O RAW-DATA.                                           SQ2144.2
030700     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            SQ2144.2
030800     READ RAW-DATA INVALID KEY GO TO END-E-2.                     SQ2144.2
030900     MOVE "OK. " TO C-ABORT.                                  SQ2144.2
031000     MOVE PASS-COUNTER TO C-OK.                                   SQ2144.2
031100     MOVE ERROR-HOLD   TO C-ALL.                                  SQ2144.2
031200     MOVE ERROR-COUNTER TO C-FAIL.                                SQ2144.2
031300     MOVE DELETE-CNT TO C-DELETED.                                SQ2144.2
031400     MOVE INSPECT-COUNTER TO C-INSPECT.                           SQ2144.2
031500     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2.             SQ2144.2
031600 END-E-2.                                                         SQ2144.2
031700     CLOSE RAW-DATA.                                              SQ2144.2
031800 TERMINATE-CCVS.                                                  SQ2144.2
031900     EXIT PROGRAM.                                                SQ2144.2
032000 TERMINATE-CALL.                                                  SQ2144.2
032100     STOP     RUN.                                                SQ2144.2
032200 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         SQ2144.2
032300 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           SQ2144.2
032400 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          SQ2144.2
032500 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-CNT.          SQ2144.2
032600     MOVE "****TEST DELETED****" TO RE-MARK.                      SQ2144.2
032700 PRINT-DETAIL.                                                    SQ2144.2
032800     IF REC-CT NOT EQUAL TO ZERO                                  SQ2144.2
032900             MOVE "." TO PARDOT-X                                 SQ2144.2
033000             MOVE REC-CT TO DOTVALUE.                             SQ2144.2
033100     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      SQ2144.2
033200     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               SQ2144.2
033300        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 SQ2144.2
033400          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 SQ2144.2
033500     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              SQ2144.2
033600     MOVE SPACE TO CORRECT-X.                                     SQ2144.2
033700     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         SQ2144.2
033800     MOVE     SPACE TO RE-MARK.                                   SQ2144.2
033900 HEAD-ROUTINE.                                                    SQ2144.2
034000     MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SQ2144.2
034100     MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.   SQ2144.2
034200     MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.   SQ2144.2
034300 COLUMN-NAMES-ROUTINE.                                            SQ2144.2
034400     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ2144.2
034500     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SQ2144.2
034600     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        SQ2144.2
034700 END-ROUTINE.                                                     SQ2144.2
034800     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.SQ2144.2
034900 END-RTN-EXIT.                                                    SQ2144.2
035000     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SQ2144.2
035100 END-ROUTINE-1.                                                   SQ2144.2
035200      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      SQ2144.2
035300      ERROR-HOLD. ADD DELETE-CNT TO ERROR-HOLD.                   SQ2144.2
035400      ADD PASS-COUNTER TO ERROR-HOLD.                             SQ2144.2
035500*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   SQ2144.2
035600      MOVE PASS-COUNTER TO CCVS-E-4-1.                            SQ2144.2
035700      MOVE ERROR-HOLD TO CCVS-E-4-2.                              SQ2144.2
035800      MOVE CCVS-E-4 TO CCVS-E-2-2.                                SQ2144.2
035900      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           SQ2144.2
036000  END-ROUTINE-12.                                                 SQ2144.2
036100      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        SQ2144.2
036200     IF       ERROR-COUNTER IS EQUAL TO ZERO                      SQ2144.2
036300         MOVE "NO " TO ERROR-TOTAL                                SQ2144.2
036400         ELSE                                                     SQ2144.2
036500         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       SQ2144.2
036600     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           SQ2144.2
036700     PERFORM WRITE-LINE.                                          SQ2144.2
036800 END-ROUTINE-13.                                                  SQ2144.2
036900     IF DELETE-CNT IS EQUAL TO ZERO                               SQ2144.2
037000         MOVE "NO " TO ERROR-TOTAL  ELSE                          SQ2144.2
037100         MOVE DELETE-CNT TO ERROR-TOTAL.                          SQ2144.2
037200     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   SQ2144.2
037300     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ2144.2
037400      IF   INSPECT-COUNTER EQUAL TO ZERO                          SQ2144.2
037500          MOVE "NO " TO ERROR-TOTAL                               SQ2144.2
037600      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   SQ2144.2
037700      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            SQ2144.2
037800      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          SQ2144.2
037900     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ2144.2
038000 WRITE-LINE.                                                      SQ2144.2
038100     ADD 1 TO RECORD-COUNT.                                       SQ2144.2
038200     IF RECORD-COUNT GREATER 50                                   SQ2144.2
038300         MOVE DUMMY-RECORD TO DUMMY-HOLD                          SQ2144.2
038400         MOVE SPACE TO DUMMY-RECORD                               SQ2144.2
038500         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  SQ2144.2
038600         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             SQ2144.2
038700         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     SQ2144.2
038800         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          SQ2144.2
038900         MOVE DUMMY-HOLD TO DUMMY-RECORD                          SQ2144.2
039000         MOVE ZERO TO RECORD-COUNT.                               SQ2144.2
039100     PERFORM WRT-LN.                                              SQ2144.2
039200 WRT-LN.                                                          SQ2144.2
039300     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               SQ2144.2
039400     MOVE SPACE TO DUMMY-RECORD.                                  SQ2144.2
039500 BLANK-LINE-PRINT.                                                SQ2144.2
039600     PERFORM WRT-LN.                                              SQ2144.2
039700 FAIL-ROUTINE.                                                    SQ2144.2
039800     IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.   SQ2144.2
039900     IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.    SQ2144.2
040000     MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.    SQ2144.2
040100     MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.     SQ2144.2
040200     GO TO FAIL-ROUTINE-EX.                                       SQ2144.2
040300 FAIL-ROUTINE-WRITE.                                              SQ2144.2
040400     MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE           SQ2144.2
040500     MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES.   SQ2144.2
040600 FAIL-ROUTINE-EX. EXIT.                                           SQ2144.2
040700 BAIL-OUT.                                                        SQ2144.2
040800     IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.       SQ2144.2
040900     IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.               SQ2144.2
041000 BAIL-OUT-WRITE.                                                  SQ2144.2
041100     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  SQ2144.2
041200     MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.     SQ2144.2
041300 BAIL-OUT-EX. EXIT.                                               SQ2144.2
041400 CCVS1-EXIT.                                                      SQ2144.2
041500     EXIT.                                                        SQ2144.2
041600 BEGIN-SQ214A-TESTS SECTION.                                      SQ2144.2
041700 WRITE-INIT-GF-01.                                                SQ2144.2
041800     MOVE STATIC-VALUE TO WRK-GRP-00019.                          SQ2144.2
041900     MOVE 9 TO DOI-DU-01V00.                                      SQ2144.2
042000     MOVE " ACTIVE: " TO ODO-XN-00009.                            SQ2144.2
042100     MOVE "1" TO ODO-XN-00001-O009D (1).                          SQ2144.2
042200     MOVE "2" TO ODO-XN-00001-O009D (2).                          SQ2144.2
042300     MOVE "3" TO ODO-XN-00001-O009D (3).                          SQ2144.2
042400     MOVE "4" TO ODO-XN-00001-O009D (4).                          SQ2144.2
042500     MOVE "5" TO ODO-XN-00001-O009D (5).                          SQ2144.2
042600     MOVE "6" TO ODO-XN-00001-O009D (6).                          SQ2144.2
042700     MOVE "7" TO ODO-XN-00001-O009D (7).                          SQ2144.2
042800     MOVE "8" TO ODO-XN-00001-O009D (8).                          SQ2144.2
042900     MOVE "9" TO ODO-XN-00001-O009D (9).                          SQ2144.2
043000 WRITE-SQ-FS1 SECTION.                                            SQ2144.2
043100 WRITE-SQ-FS1-PARA1.                                              SQ2144.2
043200     OPEN OUTPUT SQ-FS1.                                          SQ2144.2
043300     MOVE "SQ-FS1" TO XFILE-NAME (1).                             SQ2144.2
043400     MOVE "FS1R1 " TO XRECORD-NAME (1).                           SQ2144.2
043500     MOVE "SQ214"  TO XPROGRAM-NAME (1).                          SQ2144.2
043600     MOVE 140 TO XRECORD-LENGTH (1).                              SQ2144.2
043700     MOVE "1R" TO CHARS-OR-RECORDS (1).                           SQ2144.2
043800     MOVE 4000 TO RECORDS-IN-FILE (1).                            SQ2144.2
043900     MOVE "SQ" TO XFILE-ORGANIZATION (1).                         SQ2144.2
044000     MOVE "S" TO XLABEL-TYPE (1).                                 SQ2144.2
044100     MOVE 1 TO XRECORD-NUMBER (1).                                SQ2144.2
044200     MOVE 3 TO ODO-NUMBER (1).                                    SQ2144.2
044300     MOVE FILE-RECORD-INFO-P1-120 (1) TO ODO-RECORD.              SQ2144.2
044400     PERFORM WRITE-INIT-GF-01.                                    SQ2144.2
044500     MOVE 3 TO DOI-DU-01V00.                                      SQ2144.2
044600     WRITE SQ-FS1R1-F-G-140 FROM ODO-RECORD.                      SQ2144.2
044700     MOVE 2 TO XRECORD-NUMBER (1).                                SQ2144.2
044800     MOVE 7 TO ODO-NUMBER (1).                                    SQ2144.2
044900     MOVE FILE-RECORD-INFO-P1-120 (1) TO ODO-RECORD.              SQ2144.2
045000     PERFORM WRITE-INIT-GF-01.                                    SQ2144.2
045100     MOVE 7 TO DOI-DU-01V00.                                      SQ2144.2
045200     WRITE SQ-FS1R1-F-G-140 FROM ODO-RECORD.                      SQ2144.2
045300     PERFORM WRITE-SQ-FS1-PARA2 VARYING ODO-IX FROM 3 BY 1        SQ2144.2
045400         UNTIL ODO-IX IS GREATER THAN 4000.                       SQ2144.2
045500     GO TO WRITE-SQ-FS1-PARA3.                                    SQ2144.2
045600 WRITE-SQ-FS1-PARA2.                                              SQ2144.2
045700     SET XRECORD-NUMBER (1) TO ODO-IX.                            SQ2144.2
045800     MOVE 9 TO ODO-NUMBER (1).                                    SQ2144.2
045900     MOVE FILE-RECORD-INFO-P1-120 (1) TO ODO-RECORD.              SQ2144.2
046000     PERFORM WRITE-INIT-GF-01.                                    SQ2144.2
046100     WRITE SQ-FS1R1-F-G-140 FROM ODO-RECORD.                      SQ2144.2
046200 WRITE-SQ-FS1-PARA3.                                              SQ2144.2
046300     CLOSE SQ-FS1.                                                SQ2144.2
046400     OPEN INPUT SQ-FS1.                                           SQ2144.2
046500     MOVE "OCCURS DEPENDING ON" TO FEATURE.                       SQ2144.2
046600 END-OF-WRITE-SQ-FS1 SECTION.                                     SQ2144.2
046700 WRITE-TEST-GF-01.                                                SQ2144.2
046800     MOVE SPACES TO SQ-FS1R1-F-G-140.                             SQ2144.2
046900     READ SQ-FS1 AT END GO TO WRITE-DELETE-GF-01.                 SQ2144.2
047000     IF FS1R1-XN-13     IS EQUAL TO "3 ACTIVE: 123" AND           SQ2144.2
047100        FS1R1-XN-6  IS NOT EQUAL TO "456789"                      SQ2144.2
047200         PERFORM PASS                                             SQ2144.2
047300         ELSE                                                     SQ2144.2
047400         PERFORM FAIL                                             SQ2144.2
047500       MOVE "VI-26 OCCURS & VII-44 READ / VII-52 WRITE" TO RE-MARKSQ2144.2
047600         MOVE "3 ACTIVE: 123" TO CORRECT-A                        SQ2144.2
047700         MOVE FS1R1-XN-20 TO COMPUTED-A.                          SQ2144.2
047800     GO TO WRITE-WRITE-GF-01.                                     SQ2144.2
047900 WRITE-DELETE-GF-01.                                              SQ2144.2
048000     PERFORM DE-LETE.                                             SQ2144.2
048100 WRITE-WRITE-GF-01.                                               SQ2144.2
048200     MOVE "WRITE-TEST-GF-01" TO PAR-NAME.                         SQ2144.2
048300     MOVE "WRITE FROM PARTIAL ODO" TO RE-MARK.                    SQ2144.2
048400     PERFORM PRINT-DETAIL.                                        SQ2144.2
048500 READ-TEST-GF-01.                                                 SQ2144.2
048600     MOVE SPACES TO SQ-FS1R1-F-G-140.                             SQ2144.2
048700     MOVE 9 TO DOI-DU-01V00.                                      SQ2144.2
048800     MOVE SPACES TO ODO-RECORD.                                   SQ2144.2
048900     MOVE 9 TO DOI-DU-01V00.                                      SQ2144.2
049000     READ SQ-FS1 INTO ODO-RECORD AT END GO TO READ-DELETE-GF-01.  SQ2144.2
049100     MOVE 9 TO DOI-DU-01V00.                                      SQ2144.2
049200     MOVE ODO-GRP-00009 TO WRK-GRP-00009.                         SQ2144.2
049300     IF ODO-XN-00007 IS EQUAL TO "1234567"  AND                   SQ2144.2
049400        ODO-XN-00002 IS NOT EQUAL TO "89"                         SQ2144.2
049500         PERFORM PASS                                             SQ2144.2
049600         ELSE                                                     SQ2144.2
049700       MOVE "VI-26 OCCURS & VII-44 READ / VII-52 WRITE" TO RE-MARKSQ2144.2
049800         PERFORM FAIL                                             SQ2144.2
049900         MOVE "1234567" TO CORRECT-A                              SQ2144.2
050000         MOVE ODO-GRP-00009 TO COMPUTED-A.                        SQ2144.2
050100     GO TO READ-WRITE-GF-01.                                      SQ2144.2
050200 READ-DELETE-GF-01.                                               SQ2144.2
050300     PERFORM DE-LETE.                                             SQ2144.2
050400 READ-WRITE-GF-01.                                                SQ2144.2
050500     MOVE "READ-TEST-GF-01" TO PAR-NAME.                          SQ2144.2
050600     MOVE "READ PARTIAL ODO INTO FULL ODO" TO RE-MARK.            SQ2144.2
050700     PERFORM PRINT-DETAIL.                                        SQ2144.2
050800 WRITE-TEST-GF-02.                                                SQ2144.2
050900     MOVE SPACES TO SQ-FS1R1-F-G-140.                             SQ2144.2
051000     READ SQ-FS1 AT END GO TO WRITE-DELETE-GF-02.                 SQ2144.2
051100     IF FS1R1-XN-20     IS EQUAL TO "9 ACTIVE: 123456789"         SQ2144.2
051200         PERFORM PASS                                             SQ2144.2
051300         ELSE                                                     SQ2144.2
051400       MOVE "VI-26 OCCURS & VII-44 READ / VII-52 WRITE" TO RE-MARKSQ2144.2
051500         PERFORM FAIL                                             SQ2144.2
051600         MOVE "9 ACTIVE: 123456789" TO CORRECT-A                  SQ2144.2
051700         MOVE FS1R1-XN-20     TO COMPUTED-A.                      SQ2144.2
051800     GO TO WRITE-WRITE-GF-02.                                     SQ2144.2
051900 WRITE-DELETE-GF-02.                                              SQ2144.2
052000     PERFORM DE-LETE.                                             SQ2144.2
052100 WRITE-WRITE-GF-02.                                               SQ2144.2
052200     MOVE "WRITE-TEST-GF-02" TO PAR-NAME.                         SQ2144.2
052300     MOVE "WRITE FROM FULL ODO" TO RE-MARK.                       SQ2144.2
052400     PERFORM PRINT-DETAIL.                                        SQ2144.2
052500 READ-TEST-GF-02.                                                 SQ2144.2
052600     MOVE 9 TO DOI-DU-01V00.                                      SQ2144.2
052700     MOVE SPACES TO SQ-FS1R1-F-G-140   ODO-RECORD.                SQ2144.2
052800     MOVE 9 TO DOI-DU-01V00.                                      SQ2144.2
052900     READ SQ-FS1 INTO ODO-RECORD AT END GO TO READ-DELETE-GF-02.  SQ2144.2
053000     IF GRP-ODO IS EQUAL TO "9 ACTIVE: 123456789"                 SQ2144.2
053100         PERFORM PASS                                             SQ2144.2
053200         ELSE                                                     SQ2144.2
053300       MOVE "VI-26 OCCURS & VII-44 READ / VII-52 WRITE" TO RE-MARKSQ2144.2
053400         PERFORM FAIL                                             SQ2144.2
053500         MOVE "9 ACTIVE: 123456789" TO CORRECT-A                  SQ2144.2
053600         MOVE GRP-ODO TO COMPUTED-A.                              SQ2144.2
053700     GO TO READ-WRITE-GF-02.                                      SQ2144.2
053800 READ-DELETE-GF-02.                                               SQ2144.2
053900     PERFORM DE-LETE.                                             SQ2144.2
054000 READ-WRITE-GF-02.                                                SQ2144.2
054100     MOVE "READ-TEST-GF-02" TO PAR-NAME.                          SQ2144.2
054200     MOVE "READ FULL ODO INTO FULL ODO" TO RE-MARK.               SQ2144.2
054300     PERFORM PRINT-DETAIL.                                        SQ2144.2
054400 READ-TEST-GF-03.                                                 SQ2144.2
054500     MOVE 9 TO DOI-DU-01V00.                                      SQ2144.2
054600     MOVE SPACES TO SQ-FS1R1-F-G-140   ODO-RECORD.                SQ2144.2
054700     MOVE 5 TO DOI-DU-01V00.                                      SQ2144.2
054800     READ SQ-FS1 INTO ODO-RECORD AT END GO TO READ-DELETE-GF-03.  SQ2144.2
054900     MOVE 9 TO DOI-DU-01V00.                                      SQ2144.2
055000     MOVE ODO-GRP-00009 TO WRK-GRP-00009.                         SQ2144.2
055100     IF ODO-XN-00005 IS EQUAL TO "12345"  AND                     SQ2144.2
055200        ODO-XN-00004 IS EQUAL TO "6789"                           SQ2144.2
055300         PERFORM PASS                                             SQ2144.2
055400         ELSE                                                     SQ2144.2
055500       MOVE "VI-28 OCCURS & VII-44 READ / VII-52 WRITE" TO RE-MARKSQ2144.2
055600         PERFORM FAIL                                             SQ2144.2
055700         MOVE "123456789" TO CORRECT-A                            SQ2144.2
055800         MOVE ODO-GRP-00009 TO COMPUTED-A.                        SQ2144.2
055900     GO TO READ-WRITE-GF-03.                                      SQ2144.2
056000 READ-DELETE-GF-03.                                               SQ2144.2
056100     PERFORM DE-LETE.                                             SQ2144.2
056200 READ-WRITE-GF-03.                                                SQ2144.2
056300     MOVE "READ-TEST-GF-03" TO PAR-NAME.                          SQ2144.2
056400     MOVE "READ FULL ODO INTO PARTIAL ODO" TO RE-MARK.            SQ2144.2
056500     PERFORM PRINT-DETAIL.                                        SQ2144.2
056600 END-OF-SQ214A-TESTS.                                             SQ2144.2
056700     CLOSE SQ-FS1.                                                SQ2144.2
056800 CCVS-EXIT SECTION.                                               SQ2144.2
056900 CCVS-999999.                                                     SQ2144.2
057000     GO TO CLOSE-FILES.                                           SQ2144.2

96%


¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.30Angebot  Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können  ¤

*Eine klare Vorstellung vom Zielzustand




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.