000100 IDENTIFICATIONDIVISION. IC1174.2
000200 PROGRAM-ID. IC1174.2
000300 IC117M. IC1174.2 000400**************************************************************** IC1174.2 000500* * IC1174.2 000600* VALIDATION FOR:- * IC1174.2 000700* * IC1174.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IC1174.2 000900* * IC1174.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IC1174.2 001100* * IC1174.2 001200**************************************************************** IC1174.2 001300* * IC1174.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * IC1174.2 001500* * IC1174.2 001600* X-55 - SYSTEM PRINTER NAME. * IC1174.2 001700* X-82 - SOURCE COMPUTER NAME. * IC1174.2 001800* X-83 - OBJECT COMPUTER NAME. * IC1174.2 001900* * IC1174.2 002000**************************************************************** IC1174.2 002100* IC1174.2 002200* THE SUBPROGRAM IC117 IS CALLED BY THE MAIN PROGRAM IC116.IC1174.2 002300* THE SUBPROGRAM IC117 DOES NOT CONTAIN A LINKAGE SECTION OR IC1174.2 002400* AN USING PHRASE IN THE PROCEDURE DIVISION HEADER. DISPLAY IC1174.2 002500* STATEMENTS ARE USED TO VERIFY THE PROGRAM EXECUTION SEQUENCE.IC1174.2 002600* THE SUBPROGRAM IC118 IS CALLED BY THE SUBPROGRAM IC117 AND IC1174.2 002700* THE CALL STATEMENT IN THE SUBPROGRAM ALSO DOES NOT HAVE AN IC1174.2 002800* USING PHRASE. IC1174.2 002900* IC1174.2 003000* REFERENCE - AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE IC1174.2 003100* COBOL, X3.23-1974 IC1174.2 003200* SECTION XII, INTER-PROGRAM COMMUNICATION MODULE. IC1174.2 003300* IC1174.2 003400******************************************************************IC1174.2
003500 ENVIRONMENTDIVISION. IC1174.2
003600 CONFIGURATIONSECTION. IC1174.2
003700 SOURCE-COMPUTER. IC1174.2
003800 Card0130. IC1174.2
003900 OBJECT-COMPUTER. IC1174.2
004000 Card0131. IC1174.2
004100 DATADIVISION. IC1174.2
004200 WORKING-STORAGESECTION. IC1174.2
004300 01 IC117-TEMP1 PICTURE 9. IC1174.2
004400 01 ONE PICTURE 9 VALUE 1. IC1174.2
004500 01 IC117-TEMP2 PICTURE 9 VALUE 0. IC1174.2
004600 PROCEDUREDIVISION. IC1174.2 004700*USNG-TEST-02. IC1174.2 004800* IC1174.2 004900* THIS TEST VERIFIES THAT A SUBPROGRAM PROCEDURE DIVISION IC1174.2 005000* HEADER IS NOT REQUIRED TO HAVE THE OPTIONAL USING PHRASE. IC1174.2 005100* IC1174.2
005200 USNG-VERIFY-02. IC1174.2
005300 MOVE 1 TO IC117-TEMP1. IC1174.2
005400 ADD ONE TO IC117-TEMP2. IC1174.2 005500* IC1174.2 005600* THE RESULTS OF THE ABOVE STATEMENTS ARE NOT TESTED. IC1174.2 005700* IC1174.2
005800 USNG-DISPLAY-02. IC1174.2
005900 DISPLAY" ". IC1174.2
006000 DISPLAY"IC117M CALLED". IC1174.2
006100 USNG-TEST-03. IC1174.2
006200 CALL"IC118M". IC1174.2 006300* IC1174.2 006400* THIS TEST CONTAINS A CALL STATEMENT WITHOUT THE OPTIONAL IC1174.2 006500* USING PHRASE. IC1174.2 006600* REFERENCE - X3.23-1995, PAGE X-27, 5.2, THE CALL STATEMENT. IC1174.2 006700* IC1174.2
006800 USNG-DISPLAY-03. IC1174.2
006900 DISPLAY"RETURNED TO IC117M". IC1174.2
007000 IC117-EXIT. IC1174.2
007100 EXITPROGRAM. IC1174.2
¤ Dauer der Verarbeitung: 0.11 Sekunden
(vorverarbeitet)
¤
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.
