|
000100 IDENTIFICATION DIVISION. DB3054.2
000200 PROGRAM-ID. DB3054.2
000300 DB305M. DB3054.2
000400*THE FOLLOWING PROGRAM TESTS THE FLAGGING OF LEVEL 1 DB3054.2
000500*OBSOLETE FEATURES THAT ARE USED IN DEBUGGING. DB3054.2
000600 ENVIRONMENT DIVISION. DB3054.2
000700 CONFIGURATION SECTION. DB3054.2
000800 SOURCE-COMPUTER. DB3054.2
000900 Card0130 DB3054.2
001000 WITH DEBUGGING MODE. DB3054.2
001100 OBJECT-COMPUTER. DB3054.2
001200 Card0131. DB3054.2
001300 DB3054.2
001400 INPUT-OUTPUT SECTION. DB3054.2
001500 FILE-CONTROL. DB3054.2
001600 SELECT TFIL ASSIGN DB3054.2
001700 "C0020" DB3054.2
001800 ORGANIZATION IS SEQUENTIAL DB3054.2
001900 ACCESS MODE IS SEQUENTIAL. DB3054.2
002000 DB3054.2
002100 DATA DIVISION. DB3054.2
002200 FILE SECTION. DB3054.2
002300 FD TFIL. DB3054.2
002400 01 FREC. DB3054.2
002500 03 RKEY PIC 9(8). DB3054.2
002600 DB3054.2
002700 PROCEDURE DIVISION. DB3054.2
002800 DB3054.2
002900 DECLARATIVES. DB3054.2
003000 DB3054.2
003100 BUGGING SECTION. DB3054.2
003200 DB3054.2
003300 USE FOR DEBUGGING ON ALL PROCEDURES. DB3054.2
003400*Message expected for above statement: OBSOLETE DB3054.2
003500 DB3054.2
003600 END DECLARATIVES. DB3054.2
003700 DB3054.2
003800 DB305-FLAGS SECTION. DB3054.2
003900 DB3054.2
004000 DB305M-CONTROL. DB3054.2
004100 DISPLAY "THIS IS A DUMMY PROCEDURE". DB3054.2
004200 STOP RUN. DB3054.2
004300 DB3054.2
004400*TOTAL NUMBER OF FLAGS EXPECTED = 1. DB3054.2
¤ Dauer der Verarbeitung: 0.33 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|
