| products/sources/formale sprachen/Isabelle/Doc/Tutorial/Recdef/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: st107a.cob Sprache: Cobol |
|
||||||
|
000100 IDENTIFICATION DIVISION. CM3034.2
000200 PROGRAM-ID. CM3034.2 000300 CM303M. CM3034.2 000400*THE FOLLOWING PROGRAM TESTS THE FLAGGING OF CM3034.2 000500*OBSOLETE FEATURES THAT ARE USED IN COMMUNICATIONS. CM3034.2 000600 ENVIRONMENT DIVISION. CM3034.2 000700 CONFIGURATION SECTION. CM3034.2 000800 SOURCE-COMPUTER. CM3034.2 000900 Card0130. CM3034.2 001000 OBJECT-COMPUTER. CM3034.2 001100 Card0131. CM3034.2 001200 CM3034.2 001300 CM3034.2 001400 DATA DIVISION. CM3034.2 001500 FILE SECTION. CM3034.2 001600*COMMUNICATION SECTION. CM3034.2 001700*CD COMMNAME FOR INITIAL INPUT. CM3034.2 001800*01 CREC. CM3034.2 001900* 03 CNAME1 PIC X(87). CM3034.2 002000* CM3034.2 002100 PROCEDURE DIVISION. CM3034.2 002200 CM3034.2 002300 CM303M-CONTROL. CM3034.2 002400 PERFORM CM303M-DISABLE THRU CM303M-ENABLE. CM3034.2 002500 STOP RUN. CM3034.2 002600 CM3034.2 002700 CM303M-DISABLE. CM3034.2 002800* DISABLE INPUT COMMNAME WITH KEY CNAME1. CM3034.2 002900*Message expected for above statement: OBSOLETE CM3034.2 003000 CM3034.2 003100 CM303M-ENABLE. CM3034.2 003200* ENABLE INPUT COMMNAME WITH KEY CNAME1. CM3034.2 003300*Message expected for above statement: OBSOLETE CM3034.2 003400 CM3034.2 003500*TOTAL NUMBER OF FLAGS EXPECTED = 2. CM3034.2 ¤ Dauer der Verarbeitung: 0.8 Sekunden (vorverarbeitet) ¤ |
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.Die farbliche Syntaxdarstellung ist noch experimentell.Bot Zugriff |
