Quellcode-Bibliothek cm303m.cob

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