Quelle nc102a.cob Sprache: Cobol

0  .2
0020 PROGRAM-ID.2
04400MOVE6.4. GR3ANSI-REFERENCE
000400                                                                  NC1024.2
000500****************************************************************  NC1024.2
000600*                                                              *  NC1024.2
000700*    VALIDATION FOR:-                                          *  NC1024.2
000800*                                                              *  NC1024.2
000900*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC1024.2
001000*                                                              *  NC1024.2
001100*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC1024.2
001200*                                                              *  NC1024.2
001300****************************************************************  NC1024.2
001400*                                                              *  NC1024.2
001500*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC1024.2
001600*                                                              *  NC1024.2
001700*        X-55  - SYSTEM PRINTER NAME.                          *  NC1024.2
001800*        X-82  - SOURCE COMPUTER NAME.                         *  NC1024.2
001900*        X-83  - OBJECT COMPUTER NAME.                         *  NC1024.2
002000*                                                              *  NC1024.2
002100****************************************************************  NC1024.2
002200*                                                                 NC1024.2
002300*    THIS PROGRAM TESTS FORMATS 1, 2 AND 3 OF THE "PERFORM"       NC1024.2
002400*    STATEMENT, FORMATS 1 AND 2 OF THE "GO" STATEMENT AND         NC1024.2
002500*    THE "EXIT" STATEMENT.                                        NC1024.2
002600*                                                                 NC1024.2
00ENVIRONMENT.NC1024
002800 CONFIGURATION SECTION.                                           NC1024.2
090.
00     .
00 .                                                 00PERFORMNC1024
003200     Card0131.                                                    NC1024.2
003300 INPUT-OUTPUT8               GO--WRITE-F2-2.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0FILE-CONTROL.2
0050      PRINT-FILE                                  NC1024
0035         GO-TO-DEEP.                            .2
00370  DIVISION10   CORRECT-N
003800 FILE SECTION.                                                    NC1024.2
00390130.
1java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 80
004100400MOVE PAR-NAME
004200 WORKING-STORAGE SECTION.                                         NC1024.2
004300 01  PERFORM3    PIC 9    VALUE 5.                                047800*    NOTE THAT GO--PASS-F1-2 IS A SECTION-NAME0170 .                                                   .2
40 0  WRK-XN-18-1 X(18)                                       .2
0450001WRK-AN-X-18-1 WRK-XN-18-102000MOVE GO-TO-DEPEND2
004600 01  WRK-DU-X-18V0-1  REDEFINES WRK-XN-18-1 PIC80GO--DELETE-F1-205100GO--TEST-F2-3WRK-DU-1V5-1().C1024
00470600   PIC(17  3.457         .2
400   PICIF
41 PIC(1)VALUE00.NC1024
005000 01WRK-DU-1V0-1 9  ZERO.                               060 1WRK-DU-2V0-3 9                                         .2
000WRK-DU-1V1-1V911                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00  WRK-DU-1V1-2 V9 2.4                              .2
030 1WRK-DU-1V3-1 V999 1.01NC102420      GO--WRITE-F2-3NC1024
005400 01  WRK-DU-1V3-2 PIC 9V999 VALUE 1.001.                          580GO--A-F2-3NC1024.2
00550 0  WRK-DU-1V5-1 060 1WRK-DU-2V2-2V99 6089                          .2
0060 1  PIC9(1)VALUE6572.NC1024
005700 01  WRK-DU-2P6-1 PIC 99P(6) VALUE 99000000.                      NC1024.2
005800  java.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 80
59001WRK-DU-2V0-2 99.NC1024
006000 01  WRK-DU-2V0-3 PIC 99.                                         NC1024.2
006100 01  WRK-DU-2V1-1 PIC  P()  001.                        2
00620 0  WRK-DU-2V1-2 99V9.                                       .2
0630 0  WRK-DU-2V1-3 9030     TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006400 0  WRK-DU-2V2-1900 NC1024.2
006500 01  WRK-DU-2V2-2 PIC 99V99 VALUE 60.89.                          NC1024.2
006600 01  WRK-DU-2V2-3900GO--INIT-F2-2.
7  PIC VALUE 6.9.NC1024
PIC 9V99  10.00.                          .2
C 9(..2
007000    S9 -.                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007100 005370 GO--D-F2-3NC1024.2
007200 01  WRK-DU-6V0-1 PIC 9(6) 0970     GO    GO--PASS-F2-28 1WRK-DS-1V2-1S9V99 ZERONC1024
007300 1   PIC 9()  99999.0530     MOVETO                                    .2
007400 01  WRK-DU-16V2-1 PIC 9(16)054000 GO--E-F2-3.                 0PIC 09*   IS.                   2
007500 01  WRK-NE-X-1 PIC 9(16)080 01 WRK-DS-16V2-10GO
0 .
00770 1 PIC 2.                                 00      .                                             .2
00780 0  WRK-DS-1V2-1  VALUE                           .2
0079001  WRK-DS-2V0-1 S99 ZERO  PIC$9. .
008000 01  WRK-DS-2V1-1 PIC S99V9 VALUE ZERO.                           NC1024.2
008100 01  WRK-DS-2V2-1 PIC S99V990VALUENC102405500PERFORM0GO--PAS-F2-2NC1024
0  S99V99NC1024
008300 01  WRK-DS-16V2-1 PIC S9(16)V99 VALUE907  THREE IS  0050 .NC1024
008400
0     .999/9950              ASS2
0060 1WRK-NE-2*9.NC10242
008700 01  WRK-NE-3 PIC $99.99CR00              TO.                                .2
090GO--FAIL-F2-2NC1024
00890 77WRK-DS-02V00                 PICTURES99.                    NC1024
00900     ZERONC1024.2
009100                                  VALUE 2.                        .2
00                          9().NC1024
009300 77  THREE                              PICTURE5510MOVEGO--TEST-F2-3 PAR-NAMENC1024
009400 77  WS-FOUR                            PICTURE05100     MOVE1 TONC1024
009500 77  XRAY                               510     PERFORM
000DX .NC1024
009700     ZERO00      EPICTURESPACE.
009800 01  NOTE-RECORD00     2 PICTURE SPACENC1024
090010     MOVE  DEPENDING FEATURE00 XVALUE.2
010000     02 B     PICTURE X0100     "GO--TEST-F2-2 .2
0100       PICTURE SPACE.2
010200     02 D     PICTURE01600000  PICTUREVALUE.                              .2
010300     02 E     PICTURE X VALUE GO-TO-DEPEND 2 TO 150GO--INIT-F2-32
010400    2 F      X VALUE .                              NC10242
0     java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 80
06     2H     X VALUE010     MOVE0TO.
0GO--D-F2-4       .
18 0  XVALUENC1024
010900     02 K     PICTURE X VALUE0610GO--DELETE-F2-4NC1024
0110     2 PICTURENC1024
011100     02 M     PICTURE X VALUE SPACE020PERFORM.                                            .2
011201900                             PICTUREXXX.2
0100        GO-TO-DEPEND      .2
011400     02 P     PICTURE0.                                                      1 1PERFORM2  DEPENDING.NC1024
011500 01  GO-TABLE.                                                    0GO--DELETE-F2-3                                                 NC1024
011600     02 GO-SCRIPT OCCURS 8 TIMES PICTURE05670 GO--B-F2-4NC1024.2
170 GO-TO-DEPENDPICTURE 9 VALUEIS.2
011800 060MOVETO.                                    NC1024
011900 01069     GO GO--F-F2-4NC1024
12000VALUE SPACENC102400PERFORM-HOLD50 .NC1024
1                              IS           NC1024
IS0NC1024
012300 01  PERFORM4                           PICTURE IS S99V9.         NC1024.2
04 105            TO.2
012500     VALUE IS ZERO.                                               NC1024.2
1260 0  PERFORM-KEY                        PICTURE 9.             .2
012700 01  PERFORM-HOLD.                                                010     02 P-OR-FPIC(.2
20     0     TO                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
09
100002FILLER X      VALUE.NC1024
.          NC10242
013200     02 FILLER                   PIC X      VALUE SPACE.          NC1024.2
013300     02 P-OR-F6008         .NC102430       3PARDOT-X .          .2
01400                    PIC3DOTVALUE9   VALUE590NC1024
013500     02 PAR-NAMEIFEQUAL 5
000                  PIC()   SPACE.2
013000                PICVALUE.          .2
013800       03 DOTVALUE               PIC 99     VALUE ZERO.0520 .                                                   .2
000FILLER()VALUENC1024
014000     02 RE-MARK                  PIC X(61).                       NC1024.2
0.                                               .2
014200     02 FILLER                   PIC X010            COMPUTED
     FILLERX1VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01405850     MOVE     060     000GO--F-F2-3.2
015002 .                                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014600     03                PICX()VALUE.          .2
1700                             .
014800                                 .                       .2
0       REDEFINES-()         2
015000     03 COMPUTED-4V141 03COMPUTED-14V4 COMPUTED-A0                                                                 .2
015100     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC1024059050             REDEFINES .                       NC1024.
015200050         4FILLER510GO--INIT-F2-5.2
015300         04 COMPUTED-18V01500 FILLER  X(0  SPACE.                             NC1024
040         4FILLER X.NC10242
01550     3 FILLER PIC(5)  SPACE.                             NC1024.2
015001TEST-CORRECTNC1024
015705930          "87653"055000 GO--WRITE-F2-3.
82  X1) "090 java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 80
015900     02 CORRECT-X2 PERFORM
03PIC)VALUE.2
0600     REDEFINES     PIC99.2
603java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 80
0000050MOVENC1024
016400     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).0550     150     CR-18V0 CORRECT-ANC1024
01650     3CR-18V0 .                         NC1024
016600         04 CORRECT-18V0                     PIC -9(18).          NC1024.2
01700         4                             X.               .2
18060     0  PIC()VALUE..2
01900PIC419 0 java.lang.StringIndexOutOfBoundsException: Range [45, 32) out of bounds for length 80
070 1CCVS-C-1                                                    .2
01700    2 FILLER IS(95960NC1024
017200-    0700    SSNC1024
NC1024
7FILLER 2 SPACE00PICNC1024
075000.                                                    20PERFORM.                                            NC1024.
      2
017700     02FILLERPIC6      "TESTED".   .2
017800     02 FILLER                     PIC01800 FILLER                      X1) SPACENC102460 GO--A-F2-4NC1024.2
017900     02 FILLER                     0                    (     ZERO
60GOGO--D-F2-5.2
018100 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       NC10240830 0  DELETE-COUNTER                PIC 999      VALUE00GO--B-F2-4NC1024
018200 01  REC-CT                9       ZERO
01000GO
1400  ERROR-COUNTER90GO--D-F2-5.2
018500 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       NC1024.2
PASS-COUNTER 99ZERO2
018700 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       NC1024.2
801PICVALUE13 .NC1024
018900 01  DUMMY-HOLD       TO..2
0090 1RECORD-COUNT030GO--FAIL-F2-5
019100 010610       3.NC10240910 1  ANSI-REFERENCE X(8     SPACESNC1024
90 1CCVS-H-10MOVECOMPUTED-N
01930019300     2  FILLERPICX3)     SPACES.2
0190                           55             GO--F-F2-4.2
90     OFFICIAL" .2
0100560GO--E-F2-4

019800   02  FILLER                        PIC X(40)  VALUE SPACE.      NC1024.2
10FILLER X7    "CCVS85 .NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0206010PERFORMGO TO.NC1024
020100     "4.062300*==--> SINGLE PROCEDURE GO DEPENDING <--== .2
020200   02  FILLER                        PIC X(28)  VALUE800    PERFORM.                                               .2
230            "COPY - NOT FOR DISTRIBUTION".                       020     MOVE .                                     NC1024
020400   02  FILLER                        PIC X(41)  VALUE SPACE.      NC1024.2
020500                                                                  NC1024.2
26
020700   02  FILLER                        PIC X(15)  VALUE             NC1024.2
02080            " RESULT OF ".NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0209058900*                                                                 NC1024.2
0216300 .                                                 NC102405000*                                                                 NC1024.2
021100020 TO.                                      .2
021200   02  FILLER                        PIC X(12)  VALUE             NC1024.2
230HIGH                                              90         V1-88 ANSI-REFERENCE.
02105930     MOVE87542"TO GO-TABLE. NC1024.
021500            " LEVEL 000FILLERPIC XXXX VALUE .2
                                        2
02170000   02                         PIC8  VALUE                          PASS2
20 .                                                    NC1024
290     2FILLER X34              NC1024
.2
210      63000001 .                                                   .2
20" 5VERSION4,Apr 13 ..2
022300     02  FILLER                      PIC X(28)  VALUE             NC1024.2
022400            " COPYRIGHT 1985 ".                                NC1024.2
022500 01  CCVS-E-1NC1024.2
022600     02 FILLER                       PIC X(52)  VALUE SPACE.      NC10240100   0                          PIC(                NC1024
1     30MOVE TOTO2
022800     02 ID-AGAIN                     PIC X(9).                    NC1024.2
220                             5 ..2
.
02310000 GO.                                  2
30                              X(1 SPACE.2
023300     2 CCVS-E-2-2.                                               0                   .NC1024
023400         0302210     02FILLERPIC(5)VALUE.2
0250003                    PICX20      5  4,Apr9SSVG
06003ENDER-DESC44               NC1024.2
270            ERRORS                                 .2
030001CCVS-E-3.2
0239002  FILLERPIC(2)  VALUE             NC1024.2
024000            " FOR OFFICIAL USE ONLY".                             NC102450MOVE TO GO-TO-DEEPNC1024
0410     0  FILLER                      PIC X(12  VALUE SPACE.NC1024
0220024200      0TO                                     .2
20     ON-SITEINSTITUTE &TECH.2
24000  FILLER20225                                                     .2
024500     0 FILLER024500     02 FILLER                       PICGO    DEPENDING        .2
260              650            69           .NC1024
024700 03     2CCVS-E-2-2NC1024.
2400     2 CCVS-E-4-1 XXX    VALUE.      NC102400 ERROR-TOTAL    VALUE      .2
02050                             PIC SPACE.2
050     2CCVS-E-4-2XXX SPACE.2
0                    PIC X(40)  C1024
025200      " TESTS WERE EXECUTED 030 1CCVS-E-3.2
025300 01  XXINFO.                                                                     PASS9     2FILLERPIC2               NC102480        .
025400     02 FILLER                       PIC 000      VALIDATION  OF& ."2
050            * *" .2
025600     02 INFO-TEXT.                                                NC1024.0610GO GO--D-F2-7.                                      .2
02500 PIC()   VALUE.      NC1024
25800       04 XXCOMPUTEDPIC(2).                   NC1024
02060       GO-TO-DEEPNC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
200       0 XXCORRECT() NC1024
026100     02 INF-ANSI-REFERENCE           PIC680     MOVE     "GO--TEST-F2-5 TO290 2FILLERPIC (4 OF".     NC1024
026200 01  HYPHEN-LINE.                                                 010       PRINT-DETAIL.                                       NC1024
02630     2FILLER   VALUESPACE2
026400     02 FILLER  PIC IS X(65)    VALUE IS "************************NC1024.2
026500-062100*                                                                 NC102460.NC1024
2600INIT-F2-606900IF   2                               2
02670600               PASSGO GO--WRITE-F2-7070       4 FILLERPIC(   VALUE SPACE      NC1024
0  PIC
20NC102A
0200GO--TEST-F2-6060   .NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027100 CCVS1 SECTION.                                                   0          GO-TO-DEEP0IS    I ******NC1024
02060***********"2
20      .                                  NOTE  ISSECTION-NAME.2
2660    GO GO--FAIL-F2-6
027500     MOVE    SPACE TO TEST-RESULTS.                               NC1024.2
027600     PERFORM  070PERFORM.                                       .2
027700     067800*                                                                 PROCEDURE.2
027800 CLOSE-FILES.                                                     NC1024067900*                                                                 NC10240OPEN-FILESNC1024
027900     PERFORM0740     080         "1886..4GR1630IF TO .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
250MOVE0GOTO-TEST-F1-3.2
028100     EXIT PROGRAM02760     PERFORMHEAD-ROUTINE COLUMN-NAMES-ROUTINE.             NC1024.
028200 TERMINATE-CALL.063700             GO TO GO--WRITE-F2-6.                                .2
028300     STOP     3                                                  .2
200" TO.ADD .NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20.  MOVE" " TO      PROGRAM.
260FAIL   "FAIL* .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028700 DE-LETE.  MOVE40.. OVE  . ADD   INSPECT-COUNTER2
80     "**TESTDELETED*"TO                      .2
080 .NC10242
029000     IF REC-CT NOT080  GOTO-WRITE-F1-30.MOVE*"1.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029100             MOVE "." TO0MOVEGODEPENDING FEATURE29 PRINT-DETAIL
90MOVE TO DOTVALUENC1024
02930          TEST-RESULTS PRINT-REC WRITE-LINENC1024
029400     IF P-OR-F EQUAL TO "FAIL*"  0220MOVE TO0GOTO-WRITE-F1-3NC1024
029500PERFORM THRU230     MOVE TO. PERFORM.      NC1024030MOVE TO.                           .2
029600          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 NC1024.2
029700     MOVE SPACE TO 090 .                                                 06470                                                                 0ELSE BAIL-OUT                 .2
CORRECT-X.2
029900     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC1024.2
0      TONC1024
307000EXIT-DELETE-GF-1NC1024
030200     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1024.2
030300     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1024.2
004     MOVECCVS-H-2B.PERFORM 3 TIMES2
030500     MOVECCVS-H-30000MOVE TO. PERFORMWRITE-LINE.  NC1024.2
000
030700     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC10240      CCVS-C-1 DUMMY-RECORDPERFORM.           .2
030800     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1024.2
030900     MOVE5 .                                                       DE-LETE.2
300END-ROUTINENC10242
031100     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 02 .                                                    .2
031200 END-RTN-EXIT.                                                    NC10244 .                                                   .2
03130     MOVE CCVS-E-1 DUMMY-RECORD WRITE-LINE  TIMES.2
031400 END-ROUTINE-1.                                                   NC1024.2
35 70     PERFORM.
031600      ERROR-HOLDADD TO ERROR-HOLDNC1024
031700      ADD PASS-COUNTER06100100200MOVETO
031800*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1024.2
                            .
03000      MOVE ERROR-HOLD TO.                              NC1024.2
03200      MOVECCVS-E-4 CCVS-E-2-2.60          2 TO.                                    NC1024.2
320       CCVS-E-2 DUMMY-RECORD.           NC1024
060GO NC1024
032400      MOVE "TEST0 TEST ISFOR OPTION1AND 071600* LINE PERFORM. NC1024.2
02070PERFORM2
20" " ERROR-TOTAL2
032700         ELSE                                                     NC1024.2
032800         MOVE ERROR-COUNTER 0680 GO--D-F2-7.                                                      .2
29      CCVS-E-2DUMMY-RECORDNC1024
033000     PERFORM WRITE-LINE.                                          NC1024.2
033100 END-ROUTINE-13.                                                  NC1024.2
320     ZERO.2
03330340MOVE TOERROR-TOTAL.2
033400         MOVE350MOVETEST       ENDER-DESCNC1024610GO--FAIL-F2-7.                                                   .2
033500     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   NC1024.2
033600     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM 020GONC10242
03370   INSPECT-COUNTER ZERO.2
03380" TOERROR-TOTALNC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
390       MOVE INSPECT-COUNTER ERROR-TOTAL0PERFORM.NC1024
0340       "(SREQUIREINSPECTION .NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034100      MOVE  DUMMY-RECORD. PERFORMWRITE-LINE2
034200     MOVECCVS-E-3TO. PERFORM WRITE-LINE.           NC1024.2
.2
034400     ADD  TO RECORD-COUNT                                       NC1024
067800*                                                                 NC1024.2
034600         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC1024.2
034700         MOVE SPACE TO DUMMY-RECORD                               NC1024.2
0480          DUMMY-RECORD AFTER ADVANCING PAGE0          030MOVE TO
40MOVE DUMMY-RECORD    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03500          CCVS-H-2AMOVE DUMMY-RECORDWRT-LN
035100MOVE TO  PERFORM 3 TIMES.2
30MOVETO    3    .2
50MOVE  TO   WRT-LN
034007         ZERO.NC1024
03070.NC1024
00 TO.2
07          ZERO.                               .2
035800     06850     PERFORMDUMMY-RECORD  1LINES.2
50WRT-LN.2
036000     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES7000IF EQUAL060 BLANK-LINE-PRINTNC1024
0 SPACE.                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2 BLANK-LINE-PRINT0ELSE2
036300     PERFORM WRT-LN0          CORRECT-X 040 XYZ PERFORM1.2
036400 FAIL-ROUTINE.                                                    NC1024.2
03500          COMPUTED-X EQUAL TO                         NC1024
036600            GO TO FAIL-ROUTINE-WRITE.069000 P2.                                                              IFPERFORM-KEYTO60       " ,SEEPROGRAM"TONC1024
370     0900     PERFORM.                                                .2
036800     MOVE370     GO  FAIL-ROUTINE-EX                                      .
03900       "NO FURTHER INFORMATION, SEE PROGRAM." TO.   NC1024.2
037000     MOVE TO DUMMY-RECORD  WRITE-LINE 2TIMES.2
037100     MOVETO.                         0470PERFORMNC10242
037200     GO TO  FAIL-ROUTINE-EX.                                      NC1024.2
03700FAIL-ROUTINE-WRITENC1024
03740        TEST-COMPUTED PRINT-RECWRITE-LINE.2
037500     MOVE   ANSI-REFERENCE COR-ANSI-REFERENCE0030MOVE TO.                         .2
0700   TEST-CORRECT PRINT-REC WRITE-LINE. NC1024
377   SPACES COR-ANSI-REFERENCENC1024
037800 FAIL-ROUTINE-EX. EXIT.                                           NC1024.2
037900 BAIL-OUT.                                                        0MOVEV1-871.2"TOANSI-REFERENCE NC1024.2300 IFCOMPUTED-A73 NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
08000     IF  EQUAL TOGO TO BAIL-OUT-WRITE.2
038100     IFCORRECT-A TOSPACE TO.           NC1024.2
0800BAIL-OUT-WRITE                                                  .2
038300     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  NC1024.2
0800     MOVE TO INF-ANSI-REFERENCE                 NC1024
038500        XXINFO DUMMY-RECORD WRITE-LINE0        XXINFO .PERFORM 2 TIMES.2
038600     MOVE   SPACES TO80        SPACES  INF-ANSI-REFERENCE.                         .2
300 .                                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03880 CCVS1-EXITNC1024.2
03890     .                                                        .2
039000890     EXITNC10242
039100 GO--INIT-F1-1.                                                   NC10240.
03900        "V1-8861. "  TO.               NC10240      THREE.                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30
3     TO.2
039500     PERFORM      TO.                                      0
039600     GO TO    GO--WRITE-F1-1.                                     NC1024.2
DELETE-F1-1NC10240390 GO--DELETE-F1-1NC1024java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
039800     PERFORM  DE-LETE.                                            NC1024.2
039900     GO TO    GO--WRITE-F1-1.                                     NC1024.2
00.                                                   .2
040100     PERFORM.                                               2
420GO--WRITE-F1-1NC1024     "GOTO"TO.                                    .2
040300     MOVE "GO TO " TO FEATURE.                                    NC1024.2
040400     MOVE "GO--TEST-F1-1" TO PAR-NAME.                            NC1024.2
450  PRINT-DETAILNC1024
460GO--INIT-F2-1.2
0470    "V1-8861. GR3"  TO.               NC1024
00MOVE" TO 090MOVETOP-OR-F 2
490    MOVE TO.                                    NC1024
041000MOVE  "TOFEATURE .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04100     MOVE0 TO2 GO--TEST-F2-1NC1024
041200 GO--TEST-F2-1NC1024
041300     PERFORM  PRINT-DETAIL078100*    NOTE THIS4140     MOVESPACETO.                                   NC1024.2
41400MOVE TOFEATURE780*FIRST -IT  EXIT ANDPERFORM.2
041500     GO TO    GO--B060GO--DNC1024
0NC1024
041700              GO--C041800*    NOTE GO--TEST-F2-1 THRU                             .2
041800*    NOTE GO--TEST-F2-1 THRU GO--E TEST THE GO TO                 NC1024.2
041900*    DEPENDING OPTION FOR GO-TO-DEPEND EQUAL TO 0,1,3,2,4.        NC1024.2
042000*    NOTE INITIAL VALUE OF GO-TO-DEPEND IS ZERO.                  NC1024.2
0210    GO    GO--A.
042200 GO--DELETE-F2-1.                                                 NC1024220GO--DELETE-F2-1NC1024.2
4200     MOVE "GO--TEST-F2-1" TO PAR-NAME.                            NC1024.2
04240PERFORM.                                            .2
042500     GO TOGO--WRITE-F2-1                                     .2
042600      TOGO--WRITE-F2-1.                                     .2
2MOVE"TOPAR-NAMENC1024.2
042800     IF       GO-TO-DEPEND EQUAL TO 0                             NC1024.2
40PERFORM                                                      0NC1024
043000              ADD 1 TO GO-TO-DEPEND                               07000 EXIT-CHECK-GF-1                                                 .2
043100              GO TO30            GO-TO-DEPEND THANNC1024
043200     IF       GO-TO-DEPEND30GOTO.                                        NC1024
043300              GO TO GO--E.                                        NC1024.2
043400       FAILNC1024.2
043500              MOVE 1 TO GO-TO-DEPEND                              NC1024.2
0436               TOGO--TEST-F2-1NC1024
043700*    NOTE CONTROL SHOULD FALL THRU TO GO--A FOR GO-TO-DEPEND      NC1024.2
043800*    EQUAL TO 0, 4.                                               NC1024.2
04390 .                                                           .2
044000     MOVE "GO--B" TO PAR-NAME.                                    NC1024.2
0410         EQUAL2
044200              PERFORM FAIL                                        NC1024.2
044300              MOVE 3 TO GO-TO-DEPEND                              NC1024.2
04440430MOVE  GO-TO-DEPEND                              .2
0450     PERFORM.                                               .2
044600     ADD      2 TO GO-TO-DEPEND.                                  NC1024.2
040     GO    O--TEST-F2-1NC1024
044800 GO--C080800*    PERFORM TOTALLY 07      TO.                                      .2
044900     MOVE "GO--C" TO PAR-NAME.0490MOVEGO--C PAR-NAME.                                    .2
0400     IF NOT EQUAL 3NC1024
045100              PERFORM FAIL                                        NC1024.2
045200              MOVE 2 TO GO-TO-DEPEND                              NC1024.2
4500GO GO--TEST-F2-1.                               .2
045400     PERFORM  PASS.                                               GO GO--TEST-F2-1.                                .2
0070*LINE.                                                .2
0050  TO.                                      .2
08      "" TO.                                    NC1024
58      "" TO.                                    NC1024
4500IFGO-TO-DEPEND EQUAL  2                         071900             PERFORM PASS                                         NC1024
046000              PERFORM FAIL                                        04200               TO GO--TEST-F2-1NC1024.2
046100              MOVE 4 TO GO-TO-DEPEND                              NC1024.2
04620               TOGO--TEST-F2-1.2
046300     PERFORM  PASS.                                               NC1024.2
046400     ADD      2 TO GO-TO-DEPEND.                                  NC1024.2
046500     GO740      DE-LETE.NC1024.2
046600 GO--E.                                                           0670      "GO--E" TO.                                    NC10242
046700     MOVE "GO--E0690 PERFORM PASSNC1024.2
046800     IF       GO-TO-DEPEND EQUAL TO 4                             NC1024.2
046900PERFORMPASSNC1024
047000              GO TO GO--WRITE-F2-1.                               NC1024.2
047100     PERFORM  FAIL.                                               NC1024.2
047200 GO--WRITE-F2-1.                                                  NC1024.2
0730     PERFORM  PRINT-DETAILNC10242
047400 GO--INIT-F1-2.                                                   072      PRINT-DETAIL.                                        .2
04500     MOVE    "V1-88 6144 "  TO ANSI-REFERENCENC1024
0760 GO--TEST-F1-2.                                                   .2
470GOGO--PASS-F1-207300     MOVEV1-111   TO.             .2
047800*    NOTE THAT GO--PASS-F1-2 IS A SECTION-NAME.                   NC1024.2
FAIL.2
048000     GO TO    GO--WRITE-F1-2.                                     NC102403000780*NOTE GO--PASS-F1-2 ISA SECTION-NAME.                   NC1024.2
04810 .                                                 .2
048200     PERFORM DE-LETE.                                             NC1024.2
04830      TOGO--WRITE-F1-2NC10242
048400 GO--PASS-F1-2   SECTION.                                         NC1024.2
048500030                                                  .2
048600073700       DE-LETENC1024
0470 GO--WRITE-F1-2NC1024
048800     MOVE 07800    GO    PFM-WRITE-F1-2NC1024
490MOVEGO--TEST-F1-2 PAR-NAME.                           .2
00 PRINT-DETAIL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049100*                                                                 NC1024.2
049200*                                                                 NC1024.2
049300 GO--INIT-F2-2.                                                   NC1024.2
4940         V1-8844GR330""TO                             .
0495004900MOVEGO--TEST-F1-2 PAR-NAME.                            NC1024
049600 GO--TEST-F2-2.                                                   NC1024900PERFORM.                                        NC1024
049700     GO TO   GO--PASS-F2-2                                        NC1024.2
049800049300 GO--INIT-F2-.                                                   .2
049900*    NOTE THAT GO--PASS-F2-2 IS A SECTION-NAME.                   NC1024.2
050000     GO TO   GO--FAIL-F2-2.                                       NC1024.2
050100 .                                                 NC1024.2
05020      DE-LETE.                                             NC1024
050300     GO TO   GO--WRITE-F2-2.                                      049900*    NOTE THAT GO--PASS-F2-2 IS A SECTION-NAME10IF EQUAL TOXYZNC1024
050400 GO--PASS-F2-2   SECTION.                                         NC1024.2
050500 GO--PAS-F2-2.                                                    NC1024.2
5000    IF EQUAL TO 1                                .2
0070             PERFORMPASSNC1024.2
050800             GO TO GO--WRITE-F2-2.                                NC1024.2
050900 GO--FAIL-F2-2.                                                   NC1024.2
010MOVE TO.                            NC1024
0510         1 TO                                      .2
051200     PERFORM07500    MOVEPFM-TEST-F1-2TO.                            NC1024.2
051300 GO--WRITE-F2-2.                                                  NC1024.2
051400     MOVE "GO TO DEPENDING" TO FEATURE.                           NC1024.2
05150MOVE"" TO.                            NC1024
051600     PERFORM PRINT-DETAIL.                                        110     MOVE    1  CORRECT-N                                      .2
051700 GO--INIT-F2-30PFM-INIT-F2-1NC1024
051800     00    "V1-108.02 TOANSI-REFERENCE.NC1024010 "  DEPENDING.                           NC1024.2
075100MOVEGO--TEST-F2-2PAR-NAME.
05200160      PRINT-DETAIL.                                        NC1024.2
052100 GO--TEST-F2-3.                                                   05170 GO--INIT-F2-3NC1024.2
50630     PERFORM 3 TIMES                                       2
0530              ONGO-TO-DEPEND ELSE TO      NC1024.
052400             GO--D-F2-3 052000     MOVE    2 TO GO-TO-DEPEND.
052500 GO--DELETE-F2-3NC10240    NOTE THIS IS OPTIONNC1024
560PERFORM.                                            .
20     T GO--WRITE-F2-3java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052800 GO--A-F2-3.                                                      760             PERFORM FAILNC1024
50     1TO
053000     GO       TO0700PFM-DELETE-F2-120      .
053100 GO--B-F2-3.                                                      NC1024.2
053200     MOVE590     MOVE     1  GO-TO-DEEP.                                    .2
053300     GOTOGO--F-F2-3NC1024.
053400 GO--C-F2-3.
050MOVENC1024
053600     GO .                                      .2
5 .
5380           4  GO-TO-DEEP.                                    2
0590            GO--F-F2-3NC1024
054000 GO--E-F2-3.                                                      NC1024.2
054100     07780     MOVE570GO--D-F2-3.
054200     GO       TO GO--F-F2-3.                                      NC10240         4  GO-TO-DEEPNC1024
030 GO--F-F2-3NC1024
054400     IF       GO-TO-DEEP EQUAL TO 2                               NC1024.2
054500               PASSGO GO--WRITE-F2-3.                  .2
NC1024
054700     PERFORM  FAIL.                                               NC1024.2
054800     MOVE     GO-TO-DEEP.                                                      .2
0590          2  CORRECT-NNC1024
055000 GO--WRITE-F2-3 PASS.                  .2
0510MOVETO.                       .2
055200       FAIL.2
055300 GO--INIT-F2-4.                                                   NC1024
055400     MOVE    "V1-88 6.14.4 GR3"  TO ANSI-REFERENCE.               NC1024.2
055500055100          " PAR-NAME. .2
  3 TO                                  2
055700 GO--TEST-F2-4NC1024
05580IF EQUAL 2 GO GO--A-F2-4 NC1024
05050 MOVE GO-TO-DEEP.2
056000              GO--D-F2-4079              TONC1024
050 .
056200     PERFORM  DE-LETE.                                            NC1024.2
056300     GO       TO GO--WRITE-F2-4.                                  ELSENC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040GO--A-F2-4NC10242
05740MOVE TO                     NC1024
060090PERFORM
50 .                                                     2
056800     MOVE     2 TO GO-TO-DEEP.                                    NC102405200     PERFORM90PFM-DELETE-F1-3.2
056900GO GO--F-F2-4NC10242
057000 GO--C-F2-4.                                                      PERFORM  .                                            NC1024
0MOVE GO-TO-DEEPNC10242
057200     GO       TO GO--F-F2-4.                                      NC1024.2
070.                                                      .2
05740          4 TOGO-TO-DEEP                                    .2
057500     GO       TO GO--F-F2-4.                                      NC1024.2
057600 GO--E-F2-4.                                                      NC1024.2
7     TONC1024
07800           TOGO--F-F2-4NC10240GO--C-F2-4NC10242
057900 GO--F-F2-4.                                                      NC1024.2
058000     IF       GO-TO-DEEP EQUAL TO08020     PERFORMPRINT-DETAILNC1024
058100              PERFORM PASS GO TO GO--WRITE-F2-4.                  NC1024.2
057400     MOVE     4  GO-TO-DEEP                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
058300     PERFORM  FAIL70 GO--E-F2-4.                                                      NC1024
0840MOVE TO.                           .2
550      5TO.
058600 GO--WRITE-F2-4.                                                  NC1024.2
058700     MOVE     "GO--TEST-F2-4 " TO PAR-NAME0              PERFORM GO TO.                  NC1024
05880     PERFORM.                                       .2
058900*                                                                 NC1024.2
059000*                                                                 NC1024.2
059100 GO--INIT-F2-5.                                                    MOVE TOCOMPUTED-N.2
05920     MOVEV1-884GR3 ANSI-REFERENCE.2
059300     MOVE     "87654321" TO GO-TABLE.                             NC1024.2
059400     MOVE     0 TO GO-TO-DEEP.                                    570MOVE " TO PAR-NAME. .2
059500 GO--TEST-F2-5.                                                   NC1024.2
059600     GO       TO GO--A-F2-5 GO--B-F2-5 GO--C-F2-5 DEPENDING ON    NC1024.2
059700              GO-SCRIPT (059100 .                                                   NC1024
059800 GO--DELETE-F2-5                                                 .2
059900     PERFORM  DE-LETE.                                            NC1024.2
0600            TO.                                  .2
0.
       .2
060300     GO90GO-SCRIPTNC1024
060400 GO--B-F2-580GO--DELETE-F2-5NC1024
060500     MOVE     2 TO GO-TO-DEEP0PERFORM.                                            NC1024
060600     GO       TO 000 GO GO--WRITE-F2-5NC1024
060700 GO--C-F2-5.                                                      0GO--A-F2-5NC10242
060800     MOVE     3 TO GO-TO-DEEP.                                    NC1024.2
060900     GO       TOGO--D-F2-5NC10242
061000 GO--D-F2-5.                                                      NC1024.2
061100     IF       GO-TO-DEEP EQUAL TO 2                               NC1024.2
061200              040.
061300 GO--FAIL-F2-5.                                                   NC1024.2
061400     PERFORM  FAIL.                                               NC1024.2
061500     MOVE     GO-TO-DEEP TO COMPUTED-N.                           NC1024.2
061600     MOVE     2 TO CORRECT-N.                                     NC1024.2
061700 GO--WRITE-F2-5.                                                  NC1024.2
0     " "  PAR-NAME
061900     PERFORM  PRINT-DETAIL.                                       NC1024.2
062000*                                                                 NC1024.2
062100*                                                                 NC1024.2
062200 GO--INIT-F2-6.                                                   NC1024.2
062300*==--> SINGLE PROCEDURE GO DEPENDING <--==                        NC1024.2
062400     MOVE    "V1-88 6.1406100PERFORM . NC1024.2
0200MOVE TO GO-TO-DEEP                                     NC1024
062600 GO--TEST-F2-6.                                                   NC102410          2 TO.                                     NC1024.2
062700     GO TO   GO--PASS-F2-6180MOVEGO--TEST-F2-5 TO PAR-NAME.                       NC1024.2
062800*    NOTE THAT GO--PASS-F2-6 IS A SECTION-NAME.                   NC1024.2
062900     GOTOGO--FAIL-F2-6NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
06300 .                                                 .2
063100     PERFORM DE-LETE.                                             NC1024.2
063200     GO TO   GO--WRITE-F2-6.                                      NC1024.2
063300 GO--PASS-F2-6   SECTION.                                         NC1024.2
063400 GO--PAS-F2-6.                                                    20     MOVE    "V1-886.4. GR3"  TO ANSI-REFERENCENC1024
063500     IF      GO-TO-DEEP EQUAL TO 1                                NC1024.2
063600             PERFORM PASS                                         NC1024.2
0670             TO                                .2
063800 GO--FAIL-F2-6.                                                   NC1024.2
063900     MOVE TO.                            .2
064000     MOVE    1 TO CORRECT-N00GO--DELETE-F2-6NC1024
064100     PERFORM 030      DE-LETENC1024
064200 GO--WRITE-F2-6.                                                  NC1024.2
064300     MOVE "GO TO DEPENDING" TO FEATURE.                           030   SECTION.2
064400     MOVEGO--TEST-F2-6 PAR-NAMENC1024
064500     PERFORM PRINT-DETAIL.                                        NC1024.2
064600*                                                                 NC1024.2
064700*                                                                 NC1024.2
064800 GO--INIT-F2-7.                                                   NC1024.2
064900     MOVEV1-884GR3 ANSI-REFERENCE               .2
065000*    ==--> OPTIONAL "TO"  <--==                                   NC1024.2
065100     MOVE   "87654321" TO GO-TABLE0 GO--FAIL-F2-6.                                                   NC1024.2
065200     MOVE    0 TO GO-TO-DEEP.                                     NC1024.2
06530 GO--TEST-F2-7-0NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050           GO--A-F2-7 GO--C-F2-7 ON.2
065500             GO-SCRIPT (7).                                       NC10240410PERFORM.                                                NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
065600 GO--DELETE-F2-7.                                                 NC1024.2
0670       DE-LETENC1024
065800     GO       TO GO--WRITE-F2-7.                                  NC1024.2
065900 GO--A-F2-7.                                                      NC1024.2
066000     MOVE     1 TO GO-TO-DEEP.                                    NC1024.2
0040 .                                                   .2
066200 GO--B-F2-7NC1024
066300     MOVE     2 TO GO-TO-DEEP.                                    NC1024.2
066400     GO       TO GO--D-F2-7.                                      NC1024.2
066500 GO--C-F2-7.                                                      NC1024.2
066600     MOVE     3 TO GO-TO-DEEP.                                    NC1024.2
066700     GO       TO GO--D-F2-7.                                      NC1024.2
680 GO--D-F2-7NC1024.2
066900     IF       GO-TO-DEEP EQUAL TO 2                               NC1024.2
067000              PERFORM PASS GO TO GO--WRITE-F2-7.                  NC1024.2
067100 GO--FAIL-F2-7.                                                   NC1024.2
067200     PERFORM  FAIL.                                               GO--A-F2-7                                                      NC1024
0630     MOVEGO-TO-DEEP COMPUTED-N.NC1024
067400     MOVE     2 TO CORRECT-N.                                     NC1024060 GO--B-F2-7NC10242
067500 GO--WRITE-F2-7.                                                  NC10240     MOVETO GO-TO-DEEPNC1024
067600     MOVE     "GO--TEST-F2-7 " TO PAR-NAME.                       NC1024.2
0660          3 TOGO-TO-DEEPNC10242
067800*                                                                 NC1024.2
067900*                                                                 NC1024.2
068000 GO--INIT-F1-3.                                                   NC1024.2
068100     MOVE    "V1-88 6.14.4 GR1"  TO ANSI-REFERENCE.               NC1024.2
068200 GOTO-TEST-F1-3.                                                  NC1024.2
068300     GO P2.                                                       NC1024.2
068400 GOTO-FAIL-F1-3.                                                  NC1024.2
068500     PERFORM FAIL.                                                NC1024740    MOVE     2 CORRECT-NNC1024
068600     GO TO GOTO-WRITE-F1-3.                                       NC1024.2
068700 GOTO-DELETE-F1-3.                                                NC1024.2
068800     PERFORM DE-LETE.                                             NC1024067800*                                                                 NC1024.2
068900     GO TO GOTO-WRITE-F1-3.                                       NC1024.2
0900 P2NC1024.
069100     PERFORM PASS.                                                NC1024.2
069200 GOTO-WRITE-F1-3.                                                 NC102420 GOTO-TEST-F1-3NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
069300     MOVE "GOTO-TEST-F1-3" TO PAR-NAME.                           NC1024.2
0680 .                                                  NC1024
069500 PRINT-DETAIL                                        2
069600 EXIT--INIT-GF-1.                                                 NC1024.2
069700     MOVE    "V1-87 6.13.2 "  TO ANSI-REFERENCE.80.                                                .2
069800 EXIT-TEST-GF-1.                                                  NC1024.080GO GOTO-WRITE-F1-3NC1024
069900     GO TO    EXIT-CHECK-GF-1.                                    NC1024.2
00EXIT-DELETE-GF-1.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070100     PERFORM  DE-LETE.                                            NC1024.2
070200     GO TO    EXIT-WRITE-GF-1.                                    NC1024.2
070300 EXIT-CHECK-GF-1.                                                 NC1024.2
070400     EXIT09700         "V1-87 .1. TO . NC1024.
00500EXIT-PASS-GF-1NC1024.
070600     PERFORM  PASS.                                               NC1024.2
070700 EXIT-WRITE-GF-1.                                                 NC1024.2
070800     MOVE0700 .                                                NC1024
070900     MOVE "EXIT-TEST-GF-1" TO PAR-NAME.                           NC1024.2
071000     PERFORM PRINT-DETAIL.                                        NC1024.2
071100 PFM-INIT-F1-1.                                                   NC1024.2
071200     MOVE    "V1-111 6.20.4 GR10"  TO ANSI-REFERENCE.             NC1024.2
071300     MOVE    1 TO PERFORM-KEY.                                    NC1024.2
071400 PFM-TEST-F1-1.                                                   NC1024.2
071500*    NOTE THIS TEST IS FOR OPTION 1 AND TESTS SIMPLE OUT OF       NC1024.2
071600*    LINE PERFORM.                                                NC1024.2
071700     PERFORM PFM-A.                                               NC1024.2
071800     IF      PERFORM1 EQUAL TO "ABC"                              NC1024.2
010 PFM-INIT-F1-1NC1024
072000     ELSE                                                         071200     MOVE    "V1-111 6.20.4 GR10"  TO ANSI-REFERENCE.             NC1024
072100             PERFORM FAIL.                                        NC1024.2
072200     GO TO   PFM-WRITE-F1-1.                                      NC1024.2
072300 PFM-DELETE-F1-1.                                                 NC1024.2
072400     PERFORM DE-LETE.                                             NC1024.2
072500 PFM-WRITE-F1-1071500*    NOTE THIS TEST IS FOR OPTION 1 AND TESTS SIMPLE OUT 071600*    LINE PERFORM.                                                NC1024.2
0260MOVEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
072700     MOVE  "PFM-TEST-F1-1" TO PAR-NAME.                           NC1024.2
072800     PERFORM PRINT-DETAIL.                                        NC1024.2
072900 PFM-INIT-F1-2.                                                   NC1024.2
00230 PFM-DELETE-F1-1.NC1024
073100     MOVE400PERFORM.                                             .2
073200 PFM-TEST-F1-2.                                                   NC1024.2
073300*    NOTE THIS TEST IS DESIGNED TO TEST ENTERING A PROCEDURE      NC1024.2
073400*    IN LINE WHICH IS ALSO REFERENCED BY AN OUT OF LINE PERFORM.  NC1024.2
0350GO    PFM-ANC1024
073600 PFM-DELETE-F1-2.                                                 NC1024.2
073700     PERFORM  DE-LETE.                                            NC1024.2
073800     GO TO    PFM-WRITE-F1-2.                                     NC1024.2
073900 PFM-A.                                                           NC1024.2
074000            PERFORM-KEY TONC1024
074100              MOVE "ABC" TO PERFORM10290                                                    2
074200     ELSE                                                         NC1024.2
074300              MOVE "XYZ" TO PERFORM1.                             NC1024.2
074400 PFM-B.                                                           NC1024.2
074500     IF       PERFORM-KEY EQUAL TO 1073300*    NOTE THIS TEST IS DESIGNED TO TEST ENTERING A PROCEDURE      NC1024073400*    IN LINE WHICH IS ALSO REFERENCED BY AN OUT OF LINE PERFORM0350GO    PFM-ANC1024
07400PERFORM                                        NC1024.2
074700              PERFORM PRINT-DETAIL                                NC1024.2
074800              GO TO PFM-TEST-F1-2.                                NC1024.2
074900*    NOTE FOR PFM-TEST-F1-1 CONTROL SHOULD NOT BE TRANSFERRED     NC1024.2
075000*    TO THIS PARAGRAPH BUT FOR PFM-TEST-F1-2 IT SHOULD BE.        NC1024.2
075100     IF       PERFORM1 EQUAL TO "XYZ"                             NC1024.2
075200              PERFORM PASS074200     ELSE
075300              ELSE                                                NC1024.2
075400              PERFORM FAIL.                                       NC1024.2
075500 PFM-WRITE-F1-2.                                                  NC1024.2
075600     MOVE "PERFORM" TO FEATURE.                                   NC1024.2
075700     MOVE "PFM-TEST-F1-2" TO PAR-NAME.                            NC1024.2
075800     PERFORM PRINT-DETAIL.                                        NC1024.2
075900 PFM-INIT-F2-1075000*    TO THIS PARAGRAPH BUT FOR PFM-TEST-F1-2 IT SHOULD BE.        NC1024.2
076000     MOVE    "V1-108 6.20.2"  TO ANSI-REFERENCE.                  NC1024075100    IFPERFORM1 TO XYZNC1024
076100     MOVE  3 TO THREE.                                            NC1024.2
076200 PFM-TEST-F2-1.                                                   NC1024.2
076300     PERFORM PFM-C 3 TIMES.                                       NC1024.2
0740     PERFORM THREE TIMES                                   .2
076500*    NOTE THIS TEST IS FOR OPTION 2.                              NC1024.2
076600     IF      PERFORM2 EQUAL TO 56                                 NC1024.2
070              PASS.2
076800     ELSE                                                         NC1024.2
076900             PERFORM FAIL.                                        NC1024.2
077000     GO750 .                                                   NC1024
077100 PFM-DELETE-F2-1.                                                 NC1024.2
077200     PERFORM DE-LETE02 .                                                   2
077300 PFM-WRITE-F2-1.                                                   PFM-C .
0770760           PERFORM2NC1024
00   "" TONC1024
077600     PERFORM0680ELSENC1024
077060PERFORM.                                        .2
077800     MOVE    "V1-111 6.20.4 GR10"  TO70GO   PFM-WRITE-F2-1NC1024
790PFM-TEST-F1-3NC1024
078000     PERFORM PFM-E THRU0PERFORM.                                             NC1024
078100*    NOTE THIS TEST IS FOR A NESTED PERFORM WITH THE INCLUDED     NC1024.2
078200*    PERFORM TOTALLY INCLUDED IN THE SEQUENCE REFERENCED BY THE   NC1024.2
078300*    FIRST PERFORM - IT ALSO TESTS THE EXIT VERB AND PERFORM      NC1024.2
078400*    THRU.                                                        NC1024.2
078500     IF       PERFORM1 NOT EQUAL TO "CSW"                         NC1024.2
078600              MOVE "CSW" TO CORRECT-A                             NC1024.2
078700              MOVE PERFORM1 TO COMPUTED-A                         NC1024.070         "V1-11162. "  TO.             NC1024
078800              PERFORM FAIL                                        NC1024.2
078900              GO TO PFM-WRITE-F1-3.                               NC1024078100*    NOTE THIS TEST IS FOR A NESTED PERFORM WITH THE INCLUDED078200*    PERFORM TOTALLY INCLUDED IN THE SEQUENCE REFERENCED BY THE   NC1024.2
079000     IF       PERFORM4 EQUAL TO 70.0                              NC1024MOVE CSW                              NC1024
1               PASS.2
079207890               TO.
9               70.  CORRECT-N.2
070910              PASS.2
9                                                              .2
079600     GO TO    PFM-WRITE-F1-3.                                     NC1024.2
079700 PFM-DELETE-F1-3                                                 .2
079800     PERFORM  DE-LETE.                                            NC1024.2
079900 PFM-WRITE-F1-3.                                                  NC1024.2
8      " THRU"TO.NC1024
080100     MOVE "PFM-TEST-F1-3" TO PAR-NAME.                            NC1024.2
080200     PERFORM  PRINT-DETAIL.                                       NC1024.2
080300 PFM-INIT-F1-4.                                                   NC1024.2
080400     MOVE    "V1-111 6.20.4 GR10"  TO ANSI-REFERENCE.             NC1024.208000     MOVENESTED  FEATURE                       .2
080500 PFM-TEST-F1-4.                                                   NC1024.2
080600     PERFORM  PFM-J.                                              NC1024.2
080700*    NOTE THIS TEST IS FOR A NESTED PERFORM WITH THE INCLUDED     NC1024.2
080800*    PERFORM TOTALLY EXCLUDED FROM THE SEQUENCE REFERENCED BY     NC1024.2
080900*    THE FIRST PERFORM.                                           NC1024.2
--> --------------------

--> maximum size reached

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

quality93%

¤ Dauer der Verarbeitung: 0.28 Sekunden ¤

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.