|
000100 IDENTIFICATION DIVISION. NC1334.2
000200 PROGRAM-ID. NC1334.2
000300 NC133A. NC1334.2
000400**************************************************************** NC1334.2
000500* * NC1334.2
000600* VALIDATION FOR:- * NC1334.2
000700* * NC1334.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1334.2
000900* * NC1334.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1334.2
001100* * NC1334.2
001200**************************************************************** NC1334.2
001300* * NC1334.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC1334.2
001500* * NC1334.2
001600* X-55 - SYSTEM PRINTER NAME. * NC1334.2
001700* X-82 - SOURCE COMPUTER NAME. * NC1334.2
001800* X-83 - OBJECT COMPUTER NAME. * NC1334.2
001900* * NC1334.2
002000**************************************************************** NC1334.2
002100* NC1334.2
002200* PROGRAM NC133A TESTS THE USE OF FORMAT 1 OF THE SET NC1334.2
002300* STATEMENT USING VARIOUS INTEGERS, INDEX-NAMES AND NC1334.2
002400* IDENTIFIERS. NC1334.2
002500* REDEFINED SINGLE LEVEL TABLES ARE USED. NC1334.2
002600* NC1334.2
002700 ENVIRONMENT DIVISION. NC1334.2
002800 CONFIGURATION SECTION. NC1334.2
002900 SOURCE-COMPUTER. NC1334.2
003000 Card0130. NC1334.2
003100 OBJECT-COMPUTER. NC1334.2
003200 Card0131. NC1334.2
003300 INPUT-OUTPUT SECTION. NC1334.2
003400 FILE-CONTROL. NC1334.2
003500 SELECT PRINT-FILE ASSIGN TO NC1334.2
003600 "C0085" . NC1334.2
003700 DATA DIVISION. NC1334.2
003800 FILE SECTION. NC1334.2
003900 FD PRINT-FILE. NC1334.2
004000 01 PRINT-REC PICTURE X(120). NC1334.2
004100 01 DUMMY-RECORD PICTURE X(120). NC1334.2
004200 WORKING-STORAGE SECTION. NC1334.2
004300 77 SGN-IDX PIC S9(18) VALUE ZERO. NC1334.2
004400 77 UNSGN-IDX PIC 9(18) VALUE ZERO. NC1334.2
004500 77 USE-IDX USAGE INDEX. NC1334.2
004600 77 COMP-U-IDX18 PICTURE 9(18) COMPUTATIONAL VALUE ZERO. NC1334.2
004700 77 COMP-S-IDX18 PICTURE S9(18) COMPUTATIONAL VALUE ZERO. NC1334.2
004800 77 COMP-U-IDX1 PICTURE 9 COMPUTATIONAL VALUE ZERO. NC1334.2
004900 77 COMP-S-IDX1 PICTURE S9 COMPUTATIONAL VALUE ZERO. NC1334.2
005000 01 INDEX-VALUE PIC 9999. NC1334.2
005100 01 TABLE-A-VALUES PIC X(20) VALUE "11122233344415263748". NC1334.2
005200 01 TABLE-A. NC1334.2
005300 02 ENTRY-A-1 PICTURE XXX OCCURS 4 TIMES INDEXED IDX-1. NC1334.2
005400 02 ENTRY-A-2 OCCURS 4 TIMES INDEXED BY IDX-2. NC1334.2
005500 03 ENTRY-A-3 PIC X. NC1334.2
005600 03 ENTRY-A-4 PIC X. NC1334.2
005700 01 TABLE-A1 REDEFINES TABLE-A. NC1334.2
005800 02 ENTRY-A-5 PICTURE XXX OCCURS 4 TIMES. NC1334.2
005900 02 ENTRY-A-6 OCCURS 4 TIMES INDEXED BY IDX-X2. NC1334.2
006000 03 ENTRY-A-7 PIC X. NC1334.2
006100 03 ENTRY-A-8 PIC X. NC1334.2
006200 01 TABLE-B. NC1334.2
006300 02 ENTRY-B-1 PIC X(4) VALUE "1234". NC1334.2
006400 02 ENTRY-B-2 REDEFINES ENTRY-B-1 PIC 9 OCCURS 4 INDEXED NC1334.2
006500 BY IDX-3. NC1334.2
006600 01 TEST-RESULTS. NC1334.2
006700 02 FILLER PIC X VALUE SPACE. NC1334.2
006800 02 FEATURE PIC X(20) VALUE SPACE. NC1334.2
006900 02 FILLER PIC X VALUE SPACE. NC1334.2
007000 02 P-OR-F PIC X(5) VALUE SPACE. NC1334.2
007100 02 FILLER PIC X VALUE SPACE. NC1334.2
007200 02 PAR-NAME. NC1334.2
007300 03 FILLER PIC X(19) VALUE SPACE. NC1334.2
007400 03 PARDOT-X PIC X VALUE SPACE. NC1334.2
007500 03 DOTVALUE PIC 99 VALUE ZERO. NC1334.2
007600 02 FILLER PIC X(8) VALUE SPACE. NC1334.2
007700 02 RE-MARK PIC X(61). NC1334.2
007800 01 TEST-COMPUTED. NC1334.2
007900 02 FILLER PIC X(30) VALUE SPACE. NC1334.2
008000 02 FILLER PIC X(17) VALUE NC1334.2
008100 " COMPUTED=". NC1334.2
008200 02 COMPUTED-X. NC1334.2
008300 03 COMPUTED-A PIC X(20) VALUE SPACE. NC1334.2
008400 03 COMPUTED-N REDEFINES COMPUTED-A NC1334.2
008500 PIC -9(9).9(9). NC1334.2
008600 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC1334.2
008700 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC1334.2
008800 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC1334.2
008900 03 CM-18V0 REDEFINES COMPUTED-A. NC1334.2
009000 04 COMPUTED-18V0 PIC -9(18). NC1334.2
009100 04 FILLER PIC X. NC1334.2
009200 03 FILLER PIC X(50) VALUE SPACE. NC1334.2
009300 01 TEST-CORRECT. NC1334.2
009400 02 FILLER PIC X(30) VALUE SPACE. NC1334.2
009500 02 FILLER PIC X(17) VALUE " CORRECT =". NC1334.2
009600 02 CORRECT-X. NC1334.2
009700 03 CORRECT-A PIC X(20) VALUE SPACE. NC1334.2
009800 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC1334.2
009900 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC1334.2
010000 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC1334.2
010100 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC1334.2
010200 03 CR-18V0 REDEFINES CORRECT-A. NC1334.2
010300 04 CORRECT-18V0 PIC -9(18). NC1334.2
010400 04 FILLER PIC X. NC1334.2
010500 03 FILLER PIC X(2) VALUE SPACE. NC1334.2
010600 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC1334.2
010700 01 CCVS-C-1. NC1334.2
010800 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC1334.2
010900- "SS PARAGRAPH-NAME NC1334.2
011000- " REMARKS". NC1334.2
011100 02 FILLER PIC X(20) VALUE SPACE. NC1334.2
011200 01 CCVS-C-2. NC1334.2
011300 02 FILLER PIC X VALUE SPACE. NC1334.2
011400 02 FILLER PIC X(6) VALUE "TESTED". NC1334.2
011500 02 FILLER PIC X(15) VALUE SPACE. NC1334.2
011600 02 FILLER PIC X(4) VALUE "FAIL". NC1334.2
011700 02 FILLER PIC X(94) VALUE SPACE. NC1334.2
011800 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC1334.2
011900 01 REC-CT PIC 99 VALUE ZERO. NC1334.2
012000 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC1334.2
012100 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC1334.2
012200 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC1334.2
012300 01 PASS-COUNTER PIC 999 VALUE ZERO. NC1334.2
012400 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC1334.2
012500 01 ERROR-HOLD PIC 999 VALUE ZERO. NC1334.2
012600 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC1334.2
012700 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC1334.2
012800 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC1334.2
012900 01 CCVS-H-1. NC1334.2
013000 02 FILLER PIC X(39) VALUE SPACES. NC1334.2
013100 02 FILLER PIC X(42) VALUE NC1334.2
013200 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC1334.2
013300 02 FILLER PIC X(39) VALUE SPACES. NC1334.2
013400 01 CCVS-H-2A. NC1334.2
013500 02 FILLER PIC X(40) VALUE SPACE. NC1334.2
013600 02 FILLER PIC X(7) VALUE "CCVS85 ". NC1334.2
013700 02 FILLER PIC XXXX VALUE NC1334.2
013800 "4.2 ". NC1334.2
013900 02 FILLER PIC X(28) VALUE NC1334.2
014000 " COPY - NOT FOR DISTRIBUTION". NC1334.2
014100 02 FILLER PIC X(41) VALUE SPACE. NC1334.2
014200 NC1334.2
014300 01 CCVS-H-2B. NC1334.2
014400 02 FILLER PIC X(15) VALUE NC1334.2
014500 "TEST RESULT OF ". NC1334.2
014600 02 TEST-ID PIC X(9). NC1334.2
014700 02 FILLER PIC X(4) VALUE NC1334.2
014800 " IN ". NC1334.2
014900 02 FILLER PIC X(12) VALUE NC1334.2
015000 " HIGH ". NC1334.2
015100 02 FILLER PIC X(22) VALUE NC1334.2
015200 " LEVEL VALIDATION FOR ". NC1334.2
015300 02 FILLER PIC X(58) VALUE NC1334.2
015400 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1334.2
015500 01 CCVS-H-3. NC1334.2
015600 02 FILLER PIC X(34) VALUE NC1334.2
015700 " FOR OFFICIAL USE ONLY ". NC1334.2
015800 02 FILLER PIC X(58) VALUE NC1334.2
015900 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1334.2
016000 02 FILLER PIC X(28) VALUE NC1334.2
016100 " COPYRIGHT 1985 ". NC1334.2
016200 01 CCVS-E-1. NC1334.2
016300 02 FILLER PIC X(52) VALUE SPACE. NC1334.2
016400 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC1334.2
016500 02 ID-AGAIN PIC X(9). NC1334.2
016600 02 FILLER PIC X(45) VALUE SPACES. NC1334.2
016700 01 CCVS-E-2. NC1334.2
016800 02 FILLER PIC X(31) VALUE SPACE. NC1334.2
016900 02 FILLER PIC X(21) VALUE SPACE. NC1334.2
017000 02 CCVS-E-2-2. NC1334.2
017100 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC1334.2
017200 03 FILLER PIC X VALUE SPACE. NC1334.2
017300 03 ENDER-DESC PIC X(44) VALUE NC1334.2
017400 "ERRORS ENCOUNTERED". NC1334.2
017500 01 CCVS-E-3. NC1334.2
017600 02 FILLER PIC X(22) VALUE NC1334.2
017700 " FOR OFFICIAL USE ONLY". NC1334.2
017800 02 FILLER PIC X(12) VALUE SPACE. NC1334.2
017900 02 FILLER PIC X(58) VALUE NC1334.2
018000 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1334.2
018100 02 FILLER PIC X(13) VALUE SPACE. NC1334.2
018200 02 FILLER PIC X(15) VALUE NC1334.2
018300 " COPYRIGHT 1985". NC1334.2
018400 01 CCVS-E-4. NC1334.2
018500 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC1334.2
018600 02 FILLER PIC X(4) VALUE " OF ". NC1334.2
018700 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC1334.2
018800 02 FILLER PIC X(40) VALUE NC1334.2
018900 " TESTS WERE EXECUTED SUCCESSFULLY". NC1334.2
019000 01 XXINFO. NC1334.2
019100 02 FILLER PIC X(19) VALUE NC1334.2
019200 "*** INFORMATION ***". NC1334.2
019300 02 INFO-TEXT. NC1334.2
019400 04 FILLER PIC X(8) VALUE SPACE. NC1334.2
019500 04 XXCOMPUTED PIC X(20). NC1334.2
019600 04 FILLER PIC X(5) VALUE SPACE. NC1334.2
019700 04 XXCORRECT PIC X(20). NC1334.2
019800 02 INF-ANSI-REFERENCE PIC X(48). NC1334.2
019900 01 HYPHEN-LINE. NC1334.2
020000 02 FILLER PIC IS X VALUE IS SPACE. NC1334.2
020100 02 FILLER PIC IS X(65) VALUE IS "************************NC1334.2
020200- "*****************************************". NC1334.2
020300 02 FILLER PIC IS X(54) VALUE IS "************************NC1334.2
020400- "******************************". NC1334.2
020500 01 CCVS-PGM-ID PIC X(9) VALUE NC1334.2
020600 "NC133A". NC1334.2
020700 PROCEDURE DIVISION. NC1334.2
020800 CCVS1 SECTION. NC1334.2
020900 OPEN-FILES. NC1334.2
021000 OPEN OUTPUT PRINT-FILE. NC1334.2
021100 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC1334.2
021200 MOVE SPACE TO TEST-RESULTS. NC1334.2
021300 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC1334.2
021400 GO TO CCVS1-EXIT. NC1334.2
021500 CLOSE-FILES. NC1334.2
021600 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC1334.2
021700 TERMINATE-CCVS. NC1334.2
021800 EXIT PROGRAM. NC1334.2
021900 TERMINATE-CALL. NC1334.2
022000 STOP RUN. NC1334.2
022100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC1334.2
022200 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC1334.2
022300 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC1334.2
022400 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC1334.2
022500 MOVE "****TEST DELETED****" TO RE-MARK. NC1334.2
022600 PRINT-DETAIL. NC1334.2
022700 IF REC-CT NOT EQUAL TO ZERO NC1334.2
022800 MOVE "." TO PARDOT-X NC1334.2
022900 MOVE REC-CT TO DOTVALUE. NC1334.2
023000 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC1334.2
023100 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC1334.2
023200 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC1334.2
023300 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC1334.2
023400 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC1334.2
023500 MOVE SPACE TO CORRECT-X. NC1334.2
023600 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC1334.2
023700 MOVE SPACE TO RE-MARK. NC1334.2
023800 HEAD-ROUTINE. NC1334.2
023900 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1334.2
024000 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1334.2
024100 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1334.2
024200 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1334.2
024300 COLUMN-NAMES-ROUTINE. NC1334.2
024400 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1334.2
024500 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1334.2
024600 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1334.2
024700 END-ROUTINE. NC1334.2
024800 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1334.2
024900 END-RTN-EXIT. NC1334.2
025000 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1334.2
025100 END-ROUTINE-1. NC1334.2
025200 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC1334.2
025300 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC1334.2
025400 ADD PASS-COUNTER TO ERROR-HOLD. NC1334.2
025500* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC1334.2
025600 MOVE PASS-COUNTER TO CCVS-E-4-1. NC1334.2
025700 MOVE ERROR-HOLD TO CCVS-E-4-2. NC1334.2
025800 MOVE CCVS-E-4 TO CCVS-E-2-2. NC1334.2
025900 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC1334.2
026000 END-ROUTINE-12. NC1334.2
026100 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC1334.2
026200 IF ERROR-COUNTER IS EQUAL TO ZERO NC1334.2
026300 MOVE "NO " TO ERROR-TOTAL NC1334.2
026400 ELSE NC1334.2
026500 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC1334.2
026600 MOVE CCVS-E-2 TO DUMMY-RECORD. NC1334.2
026700 PERFORM WRITE-LINE. NC1334.2
026800 END-ROUTINE-13. NC1334.2
026900 IF DELETE-COUNTER IS EQUAL TO ZERO NC1334.2
027000 MOVE "NO " TO ERROR-TOTAL ELSE NC1334.2
027100 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC1334.2
027200 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC1334.2
027300 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1334.2
027400 IF INSPECT-COUNTER EQUAL TO ZERO NC1334.2
027500 MOVE "NO " TO ERROR-TOTAL NC1334.2
027600 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC1334.2
027700 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC1334.2
027800 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1334.2
027900 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1334.2
028000 WRITE-LINE. NC1334.2
028100 ADD 1 TO RECORD-COUNT. NC1334.2
028200 IF RECORD-COUNT GREATER 42 NC1334.2
028300 MOVE DUMMY-RECORD TO DUMMY-HOLD NC1334.2
028400 MOVE SPACE TO DUMMY-RECORD NC1334.2
028500 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC1334.2
028600 MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1334.2
028700 MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1334.2
028800 MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1334.2
028900 MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1334.2
029000 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC1334.2
029100 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN NC1334.2
029200 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC1334.2
029300 MOVE DUMMY-HOLD TO DUMMY-RECORD NC1334.2
029400 MOVE ZERO TO RECORD-COUNT. NC1334.2
029500 PERFORM WRT-LN. NC1334.2
029600 WRT-LN. NC1334.2
029700 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC1334.2
029800 MOVE SPACE TO DUMMY-RECORD. NC1334.2
029900 BLANK-LINE-PRINT. NC1334.2
030000 PERFORM WRT-LN. NC1334.2
030100 FAIL-ROUTINE. NC1334.2
030200 IF COMPUTED-X NOT EQUAL TO SPACE NC1334.2
030300 GO TO FAIL-ROUTINE-WRITE. NC1334.2
030400 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1334.2
030500 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1334.2
030600 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC1334.2
030700 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1334.2
030800 MOVE SPACES TO INF-ANSI-REFERENCE. NC1334.2
030900 GO TO FAIL-ROUTINE-EX. NC1334.2
031000 FAIL-ROUTINE-WRITE. NC1334.2
031100 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC1334.2
031200 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC1334.2
031300 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1334.2
031400 MOVE SPACES TO COR-ANSI-REFERENCE. NC1334.2
031500 FAIL-ROUTINE-EX. EXIT. NC1334.2
031600 BAIL-OUT. NC1334.2
031700 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC1334.2
031800 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC1334.2
031900 BAIL-OUT-WRITE. NC1334.2
032000 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC1334.2
032100 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1334.2
032200 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1334.2
032300 MOVE SPACES TO INF-ANSI-REFERENCE. NC1334.2
032400 BAIL-OUT-EX. EXIT. NC1334.2
032500 CCVS1-EXIT. NC1334.2
032600 EXIT. NC1334.2
032700 SECT-TH133A-001 SECTION. NC1334.2
032800 TH-04-001. NC1334.2
032900 IDX-INIT-A. NC1334.2
033000 MOVE "INDEXING " TO FEATURE. NC1334.2
033100 MOVE TABLE-A-VALUES TO TABLE-A. NC1334.2
033200 IF TABLE-A EQUAL TO TABLE-A-VALUES NC1334.2
033300 PERFORM PASS NC1334.2
033400 MOVE "TABLE CREATED CORRECTLY" TO RE-MARK NC1334.2
033500 GO TO INIT-WRITE. NC1334.2
033600 MOVE "TABLE CREATED INCORRECTLY" TO RE-MARK. NC1334.2
033700 PERFORM FAIL. NC1334.2
033800 PERFORM INIT-WRITE. NC1334.2
033900 GO TO CCVS-EXIT. NC1334.2
034000 INIT-WRITE. NC1334.2
034100 MOVE "TABLE BUILD" TO PAR-NAME. NC1334.2
034200 PERFORM PRINT-DETAIL. NC1334.2
034300 IDX-TEST-1. NC1334.2
034400 SET IDX-1 TO 3. NC1334.2
034500 IF ENTRY-A-1 (IDX-1) EQUAL TO "333" NC1334.2
034600 PERFORM PASS NC1334.2
034700 GO TO IDX-WRITE-1. NC1334.2
034800 MOVE ENTRY-A-1 (IDX-1) TO COMPUTED-A. NC1334.2
034900 MOVE "333" TO CORRECT-A. NC1334.2
035000 PERFORM FAIL. NC1334.2
035100 GO TO IDX-WRITE-1. NC1334.2
035200 IDX-DELETE-1. NC1334.2
035300 PERFORM DE-LETE. NC1334.2
035400 IDX-WRITE-1. NC1334.2
035500 MOVE "IDX-TEST-1 " TO PAR-NAME. NC1334.2
035600 PERFORM PRINT-DETAIL. NC1334.2
035700 IDX-TEST-2. NC1334.2
035800 SET IDX-1 TO 2. NC1334.2
035900 IF ENTRY-A-1 (IDX-1) EQUAL TO "222" NC1334.2
036000 PERFORM PASS NC1334.2
036100 GO TO IDX-WRITE-2. NC1334.2
036200 MOVE 222 TO CORRECT-A. NC1334.2
036300 MOVE ENTRY-A-1 (IDX-1) TO COMPUTED-A. NC1334.2
036400 PERFORM FAIL. NC1334.2
036500 GO TO IDX-WRITE-2. NC1334.2
036600 IDX-DELETE-2. NC1334.2
036700 PERFORM DE-LETE. NC1334.2
036800 IDX-WRITE-2. NC1334.2
036900 MOVE "IDX-TEST-2" TO PAR-NAME. NC1334.2
037000 PERFORM PRINT-DETAIL. NC1334.2
037100 IDX-TEST-3. NC1334.2
037200 SET IDX-1 TO 000001. NC1334.2
037300 IF ENTRY-A-1 (IDX-1) EQUAL TO "111" NC1334.2
037400 PERFORM PASS NC1334.2
037500 GO TO IDX-WRITE-3. NC1334.2
037600 MOVE ENTRY-A-1 (IDX-1) TO COMPUTED-A. NC1334.2
037700 MOVE 111 TO CORRECT-A. NC1334.2
037800 PERFORM FAIL. NC1334.2
037900 GO TO IDX-WRITE-3. NC1334.2
038000 IDX-DELETE-3. NC1334.2
038100 PERFORM DE-LETE. NC1334.2
038200 IDX-WRITE-3. NC1334.2
038300 MOVE "IDX-TEST-3" TO PAR-NAME. NC1334.2
038400 PERFORM PRINT-DETAIL. NC1334.2
038500 IDX-TEST-4. NC1334.2
038600 SET IDX-1 TO 000000000000000004. NC1334.2
038700 IF ENTRY-A-1 (IDX-1) EQUAL TO "444" NC1334.2
038800 PERFORM PASS NC1334.2
038900 GO TO IDX-WRITE-4. NC1334.2
039000 MOVE ENTRY-A-1 (IDX-1) TO COMPUTED-A. NC1334.2
039100 MOVE 444 TO CORRECT-A. NC1334.2
039200 PERFORM FAIL. NC1334.2
039300 GO TO IDX-WRITE-4. NC1334.2
039400 IDX-DELETE-4. NC1334.2
039500 PERFORM DE-LETE. NC1334.2
039600 IDX-WRITE-4. NC1334.2
039700 MOVE "IDX-TEST-4" TO PAR-NAME. NC1334.2
039800 PERFORM PRINT-DETAIL. NC1334.2
039900 IDX-TEST-5. NC1334.2
040000 MOVE 3 TO SGN-IDX. NC1334.2
040100 SET IDX-2 TO SGN-IDX. NC1334.2
040200 IF ENTRY-A-4 (IDX-2) EQUAL TO "7" NC1334.2
040300 PERFORM PASS NC1334.2
040400 GO TO IDX-WRITE-5. NC1334.2
040500 MOVE ENTRY-A-4 (IDX-2) TO COMPUTED-A. NC1334.2
040600 MOVE 7 TO CORRECT-A. NC1334.2
040700 PERFORM FAIL. NC1334.2
040800 GO TO IDX-WRITE-5. NC1334.2
040900 IDX-DELETE-5. NC1334.2
041000 PERFORM DE-LETE. NC1334.2
041100 IDX-WRITE-5. NC1334.2
041200 MOVE "IDX-TEST-5" TO PAR-NAME. NC1334.2
041300 PERFORM PRINT-DETAIL. NC1334.2
041400 MOVE "SET STATEMENT" TO FEATURE. NC1334.2
041500 IDX-TEST-6. NC1334.2
041600 MOVE 1 TO UNSGN-IDX. NC1334.2
041700 SET IDX-2 TO UNSGN-IDX. NC1334.2
041800 IF ENTRY-A-2 (IDX-2) EQUAL TO "15" NC1334.2
041900 PERFORM PASS NC1334.2
042000 GO TO IDX-WRITE-6. NC1334.2
042100 MOVE ENTRY-A-2 (IDX-2) TO COMPUTED-A. NC1334.2
042200 MOVE 15 TO CORRECT-A. NC1334.2
042300 PERFORM FAIL. NC1334.2
042400 GO TO IDX-WRITE-6. NC1334.2
042500 IDX-DELETE-6. NC1334.2
042600 PERFORM DE-LETE. NC1334.2
042700 IDX-WRITE-6. NC1334.2
042800 MOVE "IDX-TEST-6" TO PAR-NAME. NC1334.2
042900 PERFORM PRINT-DETAIL. NC1334.2
043000 IDX-TEST-7. NC1334.2
043100 SET IDX-1 TO 4. NC1334.2
043200 SET IDX-2 TO IDX-1. NC1334.2
043300 IF IDX-2 EQUAL TO 4 NC1334.2
043400 PERFORM PASS NC1334.2
043500 GO TO IDX-WRITE-7. NC1334.2
043600 MOVE 4 TO CORRECT-A. NC1334.2
043700 SET INDEX-VALUE TO IDX-2. NC1334.2
043800 MOVE INDEX-VALUE TO COMPUTED-18V0. NC1334.2
043900 PERFORM FAIL. NC1334.2
044000 GO TO IDX-WRITE-7. NC1334.2
044100 IDX-DELETE-7. NC1334.2
044200 PERFORM DE-LETE. NC1334.2
044300 IDX-WRITE-7. NC1334.2
044400 MOVE "IDX-TEST-7" TO PAR-NAME. NC1334.2
044500 PERFORM PRINT-DETAIL. NC1334.2
044600 IDX-TEST-8. NC1334.2
044700 SET IDX-1 TO 4. NC1334.2
044800 SET IDX-2 TO IDX-1. NC1334.2
044900 IF ENTRY-A-4 (IDX-2) EQUAL TO "8" NC1334.2
045000 PERFORM PASS NC1334.2
045100 GO TO IDX-WRITE-8. NC1334.2
045200 MOVE 8 TO CORRECT-A. NC1334.2
045300 MOVE ENTRY-A-4 (IDX-2) TO COMPUTED-A. NC1334.2
045400 PERFORM FAIL. NC1334.2
045500 GO TO IDX-WRITE-8. NC1334.2
045600 IDX-DELETE-8. NC1334.2
045700 PERFORM DE-LETE. NC1334.2
045800 IDX-WRITE-8. NC1334.2
045900 MOVE "IDX-TEST-8" TO PAR-NAME. NC1334.2
046000 PERFORM PRINT-DETAIL. NC1334.2
046100 IDX-TEST-9. NC1334.2
046200 SET IDX-X2 TO 02. NC1334.2
046300 SET USE-IDX TO IDX-X2. NC1334.2
046400 SET IDX-2 TO USE-IDX. NC1334.2
046500 IF IDX-2 EQUAL TO 2 NC1334.2
046600 PERFORM PASS NC1334.2
046700 GO TO IDX-WRITE-9. NC1334.2
046800 MOVE 2 TO CORRECT-A. NC1334.2
046900 SET INDEX-VALUE TO IDX-2. NC1334.2
047000 MOVE INDEX-VALUE TO COMPUTED-18V0. NC1334.2
047100 PERFORM FAIL. NC1334.2
047200 GO TO IDX-WRITE-9. NC1334.2
047300 IDX-DELETE-9. NC1334.2
047400 PERFORM DE-LETE. NC1334.2
047500 IDX-WRITE-9. NC1334.2
047600 MOVE "IDX-TEST-9" TO PAR-NAME. NC1334.2
047700 PERFORM PRINT-DETAIL. NC1334.2
047800 IDX-TEST-10. NC1334.2
047900 SET IDX-2 TO 4. NC1334.2
048000 SET USE-IDX TO IDX-2. NC1334.2
048100 SET IDX-X2 TO USE-IDX. NC1334.2
048200 IF ENTRY-A-8 (IDX-X2) EQUAL TO ENTRY-A-4 (IDX-2) NC1334.2
048300 PERFORM PASS NC1334.2
048400 GO TO IDX-WRITE-10. NC1334.2
048500 MOVE ENTRY-A-4 (IDX-2) TO COMPUTED-A. NC1334.2
048600 MOVE ENTRY-A-8 (IDX-X2) TO CORRECT-A. NC1334.2
048700 MOVE "TABLE ENTRIES SHOULD BE EQUAL" TO RE-MARK. NC1334.2
048800 PERFORM FAIL. NC1334.2
048900 GO TO IDX-WRITE-10. NC1334.2
049000 IDX-DELETE-10. NC1334.2
049100 PERFORM DE-LETE. NC1334.2
049200 IDX-WRITE-10. NC1334.2
049300 MOVE "IDX-TEST-10" TO PAR-NAME. NC1334.2
049400 PERFORM PRINT-DETAIL. NC1334.2
049500 IDX-TEST-11. NC1334.2
049600 SET IDX-3 TO 0004. NC1334.2
049700 IF ENTRY-B-2 (IDX-3) EQUAL TO 4 NC1334.2
049800 PERFORM PASS NC1334.2
049900 GO TO IDX-WRITE-11. NC1334.2
050000 MOVE ENTRY-B-2 (IDX-3) TO COMPUTED-A. NC1334.2
050100 MOVE 4 TO CORRECT-A. NC1334.2
050200 PERFORM FAIL. NC1334.2
050300 GO TO IDX-WRITE-11. NC1334.2
050400 IDX-DELETE-11. NC1334.2
050500 PERFORM DE-LETE. NC1334.2
050600 IDX-WRITE-11. NC1334.2
050700 MOVE "IDX-TEST-11" TO PAR-NAME. NC1334.2
050800 PERFORM PRINT-DETAIL. NC1334.2
050900 IDX-TEST-12. NC1334.2
051000 SET IDX-3 TO 0000002. NC1334.2
051100 IF ENTRY-B-2 (IDX-3) EQUAL TO 2 NC1334.2
051200 PERFORM PASS NC1334.2
051300 GO TO IDX-WRITE-12. NC1334.2
051400 MOVE ENTRY-B-2 (IDX-3) TO COMPUTED-A. NC1334.2
051500 MOVE 2 TO CORRECT-A. NC1334.2
051600 PERFORM FAIL. NC1334.2
051700 GO TO IDX-WRITE-12. NC1334.2
051800 IDX-DELETE-12. NC1334.2
051900 PERFORM DE-LETE. NC1334.2
052000 IDX-WRITE-12. NC1334.2
052100 MOVE "IDX-TEST-12" TO PAR-NAME. NC1334.2
052200 PERFORM PRINT-DETAIL. NC1334.2
052300 IDX-TEST-13. NC1334.2
052400 SET IDX-3 TO 000000000000000003. NC1334.2
052500 IF ENTRY-B-2 (IDX-3) EQUAL TO 3 NC1334.2
052600 PERFORM PASS NC1334.2
052700 GO TO IDX-WRITE-13. NC1334.2
052800 MOVE ENTRY-B-2 (IDX-3) TO COMPUTED-A. NC1334.2
052900 MOVE 3 TO CORRECT-A. NC1334.2
053000 PERFORM FAIL. NC1334.2
053100 GO TO IDX-WRITE-13. NC1334.2
053200 IDX-DELETE-13. NC1334.2
053300 PERFORM DE-LETE. NC1334.2
053400 IDX-WRITE-13. NC1334.2
053500 MOVE "IDX-TEST-13" TO PAR-NAME. NC1334.2
053600 PERFORM PRINT-DETAIL. NC1334.2
053700 IDX-TEST-14. NC1334.2
053800 SET IDX-3 TO 000000000000000004. NC1334.2
053900 IF ENTRY-B-2 (IDX-3) EQUAL TO 4 NC1334.2
054000 PERFORM PASS NC1334.2
054100 GO TO IDX-WRITE-14. NC1334.2
054200 MOVE ENTRY-B-2 (IDX-3) TO COMPUTED-A. NC1334.2
054300 MOVE 4 TO CORRECT-A. NC1334.2
054400 PERFORM FAIL. NC1334.2
054500 GO TO IDX-WRITE-14. NC1334.2
054600 IDX-DELETE-14. NC1334.2
054700 PERFORM DE-LETE. NC1334.2
054800 IDX-WRITE-14. NC1334.2
054900 MOVE "IDX-TEST-14" TO PAR-NAME. NC1334.2
055000 PERFORM PRINT-DETAIL. NC1334.2
055100 IDX-TEST-15. NC1334.2
055200 SET IDX-3 TO 000000000000000002. NC1334.2
055300 IF ENTRY-B-2 (IDX-3) EQUAL TO 2 NC1334.2
055400 PERFORM PASS NC1334.2
055500 GO TO IDX-WRITE-15. NC1334.2
055600 MOVE ENTRY-B-2 (IDX-3) TO COMPUTED-A. NC1334.2
055700 MOVE 2 TO CORRECT-A. NC1334.2
055800 PERFORM FAIL. NC1334.2
055900 GO TO IDX-WRITE-15. NC1334.2
056000 IDX-DELETE-15. NC1334.2
056100 PERFORM DE-LETE. NC1334.2
056200 IDX-WRITE-15. NC1334.2
056300 MOVE "IDX-TEST-15" TO PAR-NAME. NC1334.2
056400 PERFORM PRINT-DETAIL. NC1334.2
056500 IDX-TEST-16. NC1334.2
056600 SET IDX-3 TO 03. NC1334.2
056700 SET IDX-2 TO 03. NC1334.2
056800 IF ENTRY-A-3 (IDX-2) EQUAL TO ENTRY-B-2 (IDX-3) NC1334.2
056900 PERFORM PASS NC1334.2
057000 GO TO IDX-WRITE-16. NC1334.2
057100 MOVE ENTRY-A-3 (IDX-2) TO COMPUTED-A. NC1334.2
057200 MOVE ENTRY-B-2 (IDX-3) TO CORRECT-A. NC1334.2
057300 MOVE "TABLE ENTRIES SHOULD BE EQUAL" TO RE-MARK. NC1334.2
057400 PERFORM FAIL. NC1334.2
057500 GO TO IDX-WRITE-16. NC1334.2
057600 IDX-DELETE-16. NC1334.2
057700 PERFORM DE-LETE. NC1334.2
057800 IDX-WRITE-16. NC1334.2
057900 MOVE "IDX-TEST-16" TO PAR-NAME. NC1334.2
058000 PERFORM PRINT-DETAIL. NC1334.2
058100 IDX-TEST-17. NC1334.2
058200 MOVE 3 TO COMP-U-IDX18. NC1334.2
058300 SET IDX-1 TO COMP-U-IDX18. NC1334.2
058400 IF ENTRY-A-1 (IDX-1) EQUAL TO "333" NC1334.2
058500 PERFORM PASS NC1334.2
058600 GO TO IDX-WRITE-17. NC1334.2
058700 MOVE "333" TO CORRECT-A. NC1334.2
058800 MOVE ENTRY-A-1 (IDX-1) TO COMPUTED-A. NC1334.2
058900 PERFORM FAIL. NC1334.2
059000 GO TO IDX-WRITE-17. NC1334.2
059100 IDX-DELETE-17. NC1334.2
059200 PERFORM DE-LETE. NC1334.2
059300 IDX-WRITE-17. NC1334.2
059400 MOVE "IDX-TEST-17" TO PAR-NAME. NC1334.2
059500 PERFORM PRINT-DETAIL. NC1334.2
059600 IDX-TEST-18. NC1334.2
059700 MOVE 4 TO COMP-S-IDX18. NC1334.2
059800 SET IDX-2 TO COMP-S-IDX18. NC1334.2
059900 IF ENTRY-A-2 (IDX-2) EQUAL TO "48" NC1334.2
060000 PERFORM PASS NC1334.2
060100 GO TO IDX-WRITE-18. NC1334.2
060200 MOVE "48" TO CORRECT-A. NC1334.2
060300 MOVE ENTRY-A-2 (IDX-2) TO COMPUTED-A. NC1334.2
060400 PERFORM FAIL. NC1334.2
060500 GO TO IDX-WRITE-18. NC1334.2
060600 IDX-DELETE-18. NC1334.2
060700 PERFORM DE-LETE. NC1334.2
060800 IDX-WRITE-18. NC1334.2
060900 MOVE "IDX-TEST-18" TO PAR-NAME. NC1334.2
061000 PERFORM PRINT-DETAIL. NC1334.2
061100 IDX-TEST-19. NC1334.2
061200 MOVE 1 TO COMP-U-IDX1. NC1334.2
061300 SET IDX-3 TO COMP-U-IDX1. NC1334.2
061400 IF ENTRY-B-2 (IDX-3) EQUAL TO 1 NC1334.2
061500 PERFORM PASS NC1334.2
061600 GO TO IDX-WRITE-19. NC1334.2
061700 MOVE "1" TO CORRECT-A. NC1334.2
061800 MOVE ENTRY-B-2 (IDX-3) TO COMPUTED-A. NC1334.2
061900 PERFORM FAIL. NC1334.2
062000 GO TO IDX-WRITE-19. NC1334.2
062100 IDX-DELETE-19. NC1334.2
062200 PERFORM DE-LETE. NC1334.2
062300 IDX-WRITE-19. NC1334.2
062400 MOVE "IDX-TEST-19" TO PAR-NAME. NC1334.2
062500 PERFORM PRINT-DETAIL. NC1334.2
062600 IDX-TEST-20. NC1334.2
062700 MOVE 2 TO COMP-S-IDX1. NC1334.2
062800 SET IDX-2 TO COMP-S-IDX1. NC1334.2
062900 IF ENTRY-A-3 (IDX-2) EQUAL TO "2" NC1334.2
063000 PERFORM PASS NC1334.2
063100 GO TO IDX-WRITE-20. NC1334.2
063200 MOVE "2" TO CORRECT-A. NC1334.2
063300 MOVE ENTRY-A-3 (IDX-2) TO COMPUTED-A. NC1334.2
063400 PERFORM FAIL. NC1334.2
063500 GO TO IDX-WRITE-20. NC1334.2
063600 IDX-DELETE-20. NC1334.2
063700 PERFORM DE-LETE. NC1334.2
063800 IDX-WRITE-20. NC1334.2
063900 MOVE "IDX-TEST-20" TO PAR-NAME. NC1334.2
064000 PERFORM PRINT-DETAIL. NC1334.2
064100 IDX-TEST-21. NC1334.2
064200 SET IDX-1 TO 3. NC1334.2
064300 SET COMP-S-IDX18 TO IDX-1. NC1334.2
064400 IF COMP-S-IDX18 EQUAL TO +3 NC1334.2
064500 PERFORM PASS NC1334.2
064600 GO TO IDX-WRITE-21. NC1334.2
064700 MOVE +3 TO CORRECT-N. NC1334.2
064800 MOVE COMP-S-IDX18 TO COMPUTED-N. NC1334.2
064900 PERFORM FAIL. NC1334.2
065000 GO TO IDX-WRITE-21. NC1334.2
065100 IDX-DELETE-21. NC1334.2
065200 PERFORM DE-LETE. NC1334.2
065300 IDX-WRITE-21. NC1334.2
065400 MOVE "IDX-TEST-21" TO PAR-NAME. NC1334.2
065500 PERFORM PRINT-DETAIL. NC1334.2
065600 IDX-TEST-22. NC1334.2
065700 SET IDX-2 TO 2. NC1334.2
065800 SET COMP-U-IDX1 TO IDX-2. NC1334.2
065900 IF COMP-U-IDX1 EQUAL TO 2 NC1334.2
066000 PERFORM PASS NC1334.2
066100 GO TO IDX-WRITE-22. NC1334.2
066200 MOVE COMP-U-IDX1 TO COMPUTED-N. NC1334.2
066300 MOVE 2 TO CORRECT-N. NC1334.2
066400 PERFORM FAIL. NC1334.2
066500 GO TO IDX-WRITE-22. NC1334.2
066600 IDX-DELETE-22. NC1334.2
066700 PERFORM DE-LETE. NC1334.2
066800 IDX-WRITE-22. NC1334.2
066900 MOVE "IDX-TEST-22" TO PAR-NAME. NC1334.2
067000 PERFORM PRINT-DETAIL. NC1334.2
067100 IDX-TEST-23. NC1334.2
067200 MOVE 4 TO COMP-S-IDX18. NC1334.2
067300 SET IDX-2 TO COMP-S-IDX18. NC1334.2
067400 IF COMP-S-IDX18 EQUAL TO IDX-2 NC1334.2
067500 PERFORM PASS NC1334.2
067600 GO TO IDX-WRITE-23. NC1334.2
067700 SET INDEX-VALUE TO IDX-2. NC1334.2
067800 MOVE INDEX-VALUE TO COMPUTED-18V0. NC1334.2
067900 MOVE COMP-S-IDX18 TO CORRECT-18V0. NC1334.2
068000 MOVE "INDEX VALUES SHOULD BE EQUAL" TO RE-MARK. NC1334.2
068100 PERFORM FAIL. NC1334.2
068200 GO TO IDX-WRITE-23. NC1334.2
068300 IDX-DELETE-23. NC1334.2
068400 PERFORM DE-LETE. NC1334.2
068500 IDX-WRITE-23. NC1334.2
068600 MOVE "IDX-TEST-23" TO PAR-NAME. NC1334.2
068700 PERFORM PRINT-DETAIL. NC1334.2
068800 IDX-TEST-24. NC1334.2
068900 MOVE 2 TO COMP-U-IDX1. NC1334.2
069000 SET IDX-3 TO COMP-U-IDX1. NC1334.2
069100 IF IDX-3 EQUAL TO COMP-U-IDX1 NC1334.2
069200 PERFORM PASS NC1334.2
069300 GO TO IDX-WRITE-24. NC1334.2
069400 MOVE COMP-U-IDX1 TO CORRECT-18V0. NC1334.2
069500 SET INDEX-VALUE TO IDX-3. NC1334.2
069600 MOVE INDEX-VALUE TO COMPUTED-18V0. NC1334.2
069700 MOVE "INDEX VALUES SHOULD BE EQUAL" TO RE-MARK. NC1334.2
069800 PERFORM FAIL. NC1334.2
069900 GO TO IDX-WRITE-24. NC1334.2
070000 IDX-DELETE-24. NC1334.2
070100 PERFORM DE-LETE. NC1334.2
070200 IDX-WRITE-24. NC1334.2
070300 MOVE "IDX-TEST-24" TO PAR-NAME. NC1334.2
070400 PERFORM PRINT-DETAIL. NC1334.2
070500*IDX-TEST-25. NC1334.2
070600* THIS TEST WAS DELETED BY THE FCCTS SINCE IT DID NOT NC1334.2
070700* APPLY TO THE REVISED FEDERAL STANDARD - FIPS PUB 21-1. NC1334.2
070800*IDX-TEST-26. NC1334.2
070900* THIS TEST WAS DELETED BY THE FCCTS SINCE IT DID NOT NC1334.2
071000* APPLY TO THE REVISED FEDERAL STANDARD - FIPS PUB 21-1. NC1334.2
071100 CCVS-EXIT SECTION. NC1334.2
071200 CCVS-999999. NC1334.2
071300 GO TO CLOSE-FILES. NC1334.2
¤ Dauer der Verarbeitung: 0.136 Sekunden
(vorverarbeitet)
¤
|
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.
|
