|
000100 IDENTIFICATION DIVISION. DB3014.2
000200 PROGRAM-ID. DB3014.2
000300 DB301M. DB3014.2
000400*THE FOLLOWING PROGRAM TESTS THE FLAGGING OF LEVEL 1 DB3014.2
000500*FEATURES OF THE DEBUGGING MODULE. DB3014.2
000600 ENVIRONMENT DIVISION. DB3014.2
000700 CONFIGURATION SECTION. DB3014.2
000800 SOURCE-COMPUTER. DB3014.2
000900 Card0130 DB3014.2
001000 WITH DEBUGGING MODE. DB3014.2
001100 OBJECT-COMPUTER. DB3014.2
001200 Card0131. DB3014.2
001300 INPUT-OUTPUT SECTION. DB3014.2
001400 FILE-CONTROL. DB3014.2
001500 SELECT TFIL ASSIGN DB3014.2
001600 "C0020" DB3014.2
001700 ORGANIZATION IS SEQUENTIAL DB3014.2
001800 ACCESS MODE IS SEQUENTIAL. DB3014.2
001900 DATA DIVISION. DB3014.2
002000 FILE SECTION. DB3014.2
002100 FD TFIL. DB3014.2
002200 01 FREC. DB3014.2
002300 03 RKEY PIC 9(8). DB3014.2
002400 DB3014.2
002500 PROCEDURE DIVISION. DB3014.2
002600 DB3014.2
002700 DECLARATIVES. DB3014.2
002800 DB3014.2
002900 DB3014.2
003000 BUGGING-2 SECTION. DB3014.2
003100 DB3014.2
003200 DB3014.2
003300 USE FOR DEBUGGING ON ALL PROCEDURES. DB3014.2
003400*Message expected for above statement: NON-CONFORMING STANDARD DB3014.2
003500 DB3014.2
003600 DB3014.2
003700 END DECLARATIVES. DB3014.2
003800 DB3014.2
003900 DB301M-FLAGS SECTION. DB3014.2
004000 DB301M-CONTROL. DB3014.2
004100 DISPLAY "THIS IS A DUMMY PROCEDURE". DB3014.2
004200 STOP RUN. DB3014.2
004300 DB3014.2
004400 DB3014.2
004500*TOTAL NUMBER OF FLAGS EXPECTED = 1. DB3014.2
¤ Dauer der Verarbeitung: 0.20 Sekunden
(vorverarbeitet)
¤
|
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.
|
