|
000100 IDENTIFICATION DIVISION. SG3024.2
000200 PROGRAM-ID. SG3024.2
000300 SG302M. SG3024.2
000400*THE FOLLOWING PROGRAM TESTS THE FLAGGING OF SG3024.2
000500*OBSOLETE FEATURES THAT ARE USED IN SEGMENTATION LEVEL 1. SG3024.2
000600 ENVIRONMENT DIVISION. SG3024.2
000700 CONFIGURATION SECTION. SG3024.2
000800 SOURCE-COMPUTER. SG3024.2
000900 Card0130. SG3024.2
001000 OBJECT-COMPUTER. SG3024.2
001100 Card0131. SG3024.2
001200 SG3024.2
001300 SG3024.2
001400 DATA DIVISION. SG3024.2
001500 PROCEDURE DIVISION. SG3024.2
001600 BEANO SECTION 1. SG3024.2
001700*Message expected for above statement: OBSOLETE SG3024.2
001800 SG302M-CONTROL. SG3024.2
001900 DISPLAY "THIS IS A DUMMY PARAGRAPH". SG3024.2
002000 STOP RUN. SG3024.2
002100*TOTAL NUMBER OF FLAGS EXPECTED = 1. SG3024.2
¤ Dauer der Verarbeitung: 0.15 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.
|
