Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: bug_3212.v Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         CM4014.2
000200 PROGRAM-ID.                                                      CM4014.2
000300      CM401M.                                                     CM4014.2
000400*The following program tests the flagging of level 2              CM4014.2
000500*features of the communication module.                            CM4014.2
000600 ENVIRONMENT DIVISION.                                            CM4014.2
000700 CONFIGURATION SECTION.                                           CM4014.2
000800 SOURCE-COMPUTER.                                                 CM4014.2
000900     Card0130.                                                    CM4014.2
001000 OBJECT-COMPUTER.                                                 CM4014.2
001100     Card0131.                                                    CM4014.2
001200 DATA DIVISION.                                                   CM4014.2
001300 FILE SECTION.                                                    CM4014.2
001400*COMMUNICATION SECTION.                                           CM4014.2
001500*CD COMMNAME FOR INITIAL INPUT                                    CM4014.2
001600*Message expected for above statement: NON-CONFORMING STANDARD    CM4014.2
001700*    SYMBOLIC SUB-QUEUE-1 IS CQ.                                  CM4014.2
001800*Message expected for above statement: NON-CONFORMING STANDARD    CM4014.2
001900*01 CREC.                                                         CM4014.2
002000*    03 CNAME1   PIC X(8).                                        CM4014.2
002100*    03 CQ       PIC 9(8).                                        CM4014.2
002200*    03 FILLER   PIC X(62).                                       CM4014.2
002300*    03 CINT     PIC 9.                                           CM4014.2
002400*    03 FILLER   PIC X(8).                                        CM4014.2
002500*                                                                 CM4014.2
002600*CD COMM2 FOR OUTPUT                                              CM4014.2
002700*    DESTINATION TABLE OCCURS 7 TIMES.                            CM4014.2
002800*Message expected for above statement: NON-CONFORMING STANDARD    CM4014.2
002900*                                                                 CM4014.2
003000 PROCEDURE DIVISION.                                              CM4014.2
003100                                                                  CM4014.2
003200 CM401M-CONTROL.                                                  CM4014.2
003300     PERFORM CM401M-DISABLE THRU CM401M-SENDREP.                  CM4014.2
003400     STOP RUN.                                                    CM4014.2
003500                                                                  CM4014.2
003600 CM401M-DISABLE.                                                  CM4014.2
003700*    DISABLE INPUT COMMNAME WITH KEY CNAME1.                      CM4014.2
003800*Message expected for above statement: NON-CONFORMING STANDARD    CM4014.2
003900                                                                  CM4014.2
004000 CM401M-ENABLE.                                                   CM4014.2
004100*    ENABLE INPUT COMMNAME WITH KEY CNAME1.                       CM4014.2
004200*Message expected for above statement: NON-CONFORMING STANDARD    CM4014.2
004300                                                                  CM4014.2
004400                                                                  CM4014.2
004500 CM401M-PURGE.                                                    CM4014.2
004600*    PURGE COMM2.                                                 CM4014.2
004700*Message expected for above statement: NON-CONFORMING STANDARD    CM4014.2
004800                                                                  CM4014.2
004900 CM401M-SEND.                                                     CM4014.2
005000*    SEND COMM2 FROM CNAME1.                                      CM4014.2
005100*Message expected for above statement: NON-CONFORMING STANDARD    CM4014.2
005200                                                                  CM4014.2
005300 CM401M-SENDID.                                                   CM4014.2
005400*    SEND COMM2 FROM CNAME1 WITH CINT.                            CM4014.2
005500*Message expected for above statement: NON-CONFORMING STANDARD    CM4014.2
005600                                                                  CM4014.2
005700 CM401M-SENDESI.                                                  CM4014.2
005800*    SEND COMM2 FROM CNAME1 WITH ESI.                             CM4014.2
005900*Message expected for above statement: NON-CONFORMING STANDARD    CM4014.2
006000                                                                  CM4014.2
006100 CM401M-SENDREP.                                                  CM4014.2
006200*    SEND COMM2 WITH EMI REPLACING LINE.                          CM4014.2
006300*Message expected for above statement: NON-CONFORMING STANDARD    CM4014.2
006400                                                                  CM4014.2
006500*TOTAL NUMBER OF FLAGS EXPECTED = 10.                             CM4014.2

¤ Dauer der Verarbeitung: 0.34 Sekunden (vorverarbeitet) ¤

Druckansicht unsichere Verbindung
Druckansicht sprechenden Kalenders
in der Quellcodebibliothek suchen

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.