|
000100 IDENTIFICATION DIVISION. IC2084.2
000200 PROGRAM-ID. IC2084.2
000300 IC208A. IC2084.2
000400**************************************************************** IC2084.2
000500* * IC2084.2
000600* VALIDATION FOR:- * IC2084.2
000700* * IC2084.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IC2084.2
000900* * IC2084.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IC2084.2
001100* * IC2084.2
001200**************************************************************** IC2084.2
001300* * IC2084.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * IC2084.2
001500* * IC2084.2
001600* X-55 - SYSTEM PRINTER NAME. * IC2084.2
001700* X-82 - SOURCE COMPUTER NAME. * IC2084.2
001800* X-83 - OBJECT COMPUTER NAME. * IC2084.2
001900* * IC2084.2
002000**************************************************************** IC2084.2
002100* THE SUBPROGRAM IC208 CONTAINS TABLES AND AN INDEX IC2084.2
002200* DATA ITEM WHICH ARE DEFINED IN THE LINKAGE SECTION IC2084.2
002300* AND NAMED AS OPERANDS IN THE USING PHRASE OF THE IC2084.2
002400* PROCEDURE DIVISION HEADER. ONE OF THE TABLES IS DEFINED IC2084.2
002500* WITH AN OCCURS DEPENDING ON CLAUSE AND HAS CONDITION-NAME IC2084.2
002600* ENTRIES ASSOCIATED WITH IT. THE SEARCH STATEMENT IS USED IC2084.2
002700* TO TEST THE VARIABLE LENGTH TABLE CAPABILITY. IC2084.2
002800**************************************************************** IC2084.2
002900 ENVIRONMENT DIVISION. IC2084.2
003000 CONFIGURATION SECTION. IC2084.2
003100 SOURCE-COMPUTER. IC2084.2
003200 Card0130. IC2084.2
003300 OBJECT-COMPUTER. IC2084.2
003400 Card0131. IC2084.2
003500 DATA DIVISION. IC2084.2
003600 LINKAGE SECTION. IC2084.2
003700 77 INDEX-1 USAGE IS INDEX. IC2084.2
003800 77 DN3 PICTURE 99. IC2084.2
003900 01 TABLE-01. IC2084.2
004000 02 DN1 PICTURE X IC2084.2
004100 OCCURS 1 TO 15 TIMES IC2084.2
004200 DEPENDING ON DN3 IC2084.2
004300 INDEXED BY IN1. IC2084.2
004400 88 CN1 VALUE "A". IC2084.2
004500 88 CN2 VALUE "H". IC2084.2
004600 88 CN3 VALUE "O". IC2084.2
004700 01 TABLE-02. IC2084.2
004800 02 DN2 PICTURE X IC2084.2
004900 OCCURS 8 TIMES. IC2084.2
005000 PROCEDURE DIVISION USING TABLE-01, TABLE-02, INDEX-1, DN3. IC2084.2
005100 SECT-IC208-0001 SECTION. IC2084.2
005200 LINK-TEST-01. IC2084.2
005300* THIS TEST USES THE INDEX DATA ITEM SET IN THE CALLING IC2084.2
005400* PROGRAM TO SET AN INDEX AND REFERENCE A TABLE ITEM. IC2084.2
005500 SET IN1 TO INDEX-1. IC2084.2
005600 MOVE DN1 (IN1) TO DN2 (1). IC2084.2
005700* LINK-TEST-02 TESTS THE VARIABLE LENGTH TABLE CAPABILITY IC2084.2
005800* WITH THE DATA-NAME WHOSE CONTENTS IS THE TABLE LENGTH IC2084.2
005900* DEFINED IN THE LINKAGE SECTION. IC2084.2
006000 LINK-TEST-02-01. IC2084.2
006100 SET IN1 TO 1. IC2084.2
006200 SEARCH DN1 VARYING IN1 IC2084.2
006300 AT END MOVE "Z" TO DN2 (2) IC2084.2
006400 WHEN DN1 (IN1) EQUAL TO "D" IC2084.2
006500 MOVE "D" TO DN2 (2). IC2084.2
006600 LINK-TEST-02-02. IC2084.2
006700 SET IN1 TO 1. IC2084.2
006800 SEARCH DN1 VARYING IN1 IC2084.2
006900 AT END MOVE "Y" TO DN2 (3) IC2084.2
007000 WHEN DN1 (IN1) EQUAL TO "B" IC2084.2
007100 MOVE "B" TO DN2 (3). IC2084.2
007200 LINK-TEST-02-03. IC2084.2
007300 MOVE 7 TO DN3. IC2084.2
007400 SET IN1 TO 1. IC2084.2
007500 SEARCH DN1 VARYING IN1 IC2084.2
007600 AT END MOVE "X" TO DN2 (4) IC2084.2
007700 WHEN DN1 (IN1) EQUAL TO "H" IC2084.2
007800 MOVE "H" TO DN2 (4). IC2084.2
007900 LINK-TEST-02-04. IC2084.2
008000 SET IN1 TO 1. IC2084.2
008100 SEARCH DN1 VARYING IN1 IC2084.2
008200 AT END MOVE "W" TO DN2 (5) IC2084.2
008300 WHEN DN1 (IN1) EQUAL TO "G" IC2084.2
008400 MOVE "G" TO DN2 (5). IC2084.2
008500 LINK-TEST-03. IC2084.2
008600 MOVE 10 TO DN3. IC2084.2
008700* LINK-TEST-03 TESTS THE USE OF CONDITION-NAMES WHICH IC2084.2
008800* WERE DEFINED IN THE LINKAGE SECTION. IC2084.2
008900 LINK-TEST-03-01. IC2084.2
009000 IF CN1 (1) MOVE "A" TO DN2 (6). IC2084.2
009100 LINK-TEST-03-02. IC2084.2
009200 IF CN1 (5) MOVE "N" TO DN2 (7) IC2084.2
009300 ELSE MOVE "V" TO DN2 (7). IC2084.2
009400 LINK-TEST-03-03. IC2084.2
009500 IF CN2 (8) MOVE "H" TO DN2 (8). IC2084.2
009600 LINK-TEST-04. IC2084.2
009700* THIS TEST SETS THE INDEX DATA ITEM AND TABLE LENGTH IC2084.2
009800* FOR REFERENCE IN THE CALLING PROGRAM. IC2084.2
009900 SET IN1 TO 2. IC2084.2
010000 SET INDEX-1 TO IN1. IC2084.2
010100 MOVE 9 TO DN3. IC2084.2
010200 EXIT-IC208. IC2084.2
010300 EXIT PROGRAM. IC2084.2
¤ Dauer der Verarbeitung: 0.26 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.
|
