| products/sources/formale sprachen/Cobol/Test-Suite/COBOL/OB/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: ic211a.cob Sprache: Cobol |
|
||||||
|
000100 IDENTIFICATION DIVISION. IC2114.2
000200 PROGRAM-ID. IC2114.2 000300 IC211A. IC2114.2 000400**************************************************************** IC2114.2 000500* * IC2114.2 000600* VALIDATION FOR:- * IC2114.2 000700* * IC2114.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IC2114.2 000900* * IC2114.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IC2114.2 001100* * IC2114.2 001200**************************************************************** IC2114.2 001300* * IC2114.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * IC2114.2 001500* * IC2114.2 001600* X-55 - SYSTEM PRINTER NAME. * IC2114.2 001700* X-82 - SOURCE COMPUTER NAME. * IC2114.2 001800* X-83 - OBJECT COMPUTER NAME. * IC2114.2 001900* * IC2114.2 002000**************************************************************** IC2114.2 002100* THIS IS SUBPROGRAM IC211. IC2114.2 002200**************************************************************** IC2114.2 002300 ENVIRONMENT DIVISION. IC2114.2 002400 CONFIGURATION SECTION. IC2114.2 002500 SOURCE-COMPUTER. IC2114.2 002600 Card0130. IC2114.2 002700 OBJECT-COMPUTER. IC2114.2 002800 Card0131. IC2114.2 002900 DATA DIVISION. IC2114.2 003000 LINKAGE SECTION. IC2114.2 003100 01 TEST-AREA. IC2114.2 003200 02 TEST1 PICTURE X. IC2114.2 003300 02 TEST2 PICTURE X. IC2114.2 003400 02 TEST3 PICTURE X. IC2114.2 003500 02 TEST4 PICTURE X. IC2114.2 003600 PROCEDURE DIVISION USING TEST-AREA. IC2114.2 003700 CALL-TEST-2. IC2114.2 003800 MOVE "Y" TO TEST2. IC2114.2 003900 IC211-EXIT. IC2114.2 004000 EXIT PROGRAM. IC2114.2 ¤ Dauer der Verarbeitung: 0.15 Sekunden (vorverarbeitet) ¤ |
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.Die farbliche Syntaxdarstellung ist noch experimentell.Bot Zugriff |
