Quelle sg401m.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         SG4014.2
000200 PROGRAM-ID.                                                      SG4014.2
000300     SG401M.                                                      SG4014.2
000400*THE FOLLOWING PROGRAM TESTS THE FLAGGING OF LEVEL 2              SG4014.2
000500*FEATURES OF THE SEGMENTATION MODULE.                             SG4014.2
000600 ENVIRONMENT DIVISION.                                            SG4014.2
000700 CONFIGURATION SECTION.                                           SG4014.2
000800 SOURCE-COMPUTER.                                                 SG4014.2
000900     Card0130.                                                    SG4014.2
001000 OBJECT-COMPUTER.                                                 SG4014.2
001100     Card0131                                                     SG4014.2
001200     SEGMENT-LIMIT IS 18.                                         SG4014.2
001300*Message expected for above statement: NON-CONFORMING STANDARD    SG4014.2
001400                                                                  SG4014.2
001500                                                                  SG4014.2
001600 DATA DIVISION.                                                   SG4014.2
001700 PROCEDURE DIVISION.                                              SG4014.2
001800                                                                  SG4014.2
001900 NUMBER1 SECTION 18.                                              SG4014.2
002000                                                                  SG4014.2
002100 SG401M-CONTROL.                                                  SG4014.2
002200     EXIT.                                                        SG4014.2
002300                                                                  SG4014.2
002400 NUMBER2 SECTION 19.                                              SG4014.2
002500                                                                  SG4014.2
002600 SG401M-DUMMY.                                                    SG4014.2
002700     DISPLAY "THIS IS A DUMMY PARAGRAPH".                         SG4014.2
002800                                                                  SG4014.2
002900 NUMBER3 SECTION 18.                                              SG4014.2
003000*Message expected for above statement: NON-CONFORMING STANDARD    SG4014.2
003100 SG401M-DUMMY2.                                                   SG4014.2
003200     DISPLAY "THIS IS A DUMMY PARAGRAPH TOO!".                    SG4014.2
003300                                                                  SG4014.2
003400                                                                  SG4014.2
003500* A MESSAGE IS EXPECTED FOR THE EXISTENCE OF TWO SECTIONS         SG4014.2
003600* WITH THE SAME SECTION NUMBER THAT ARE NOT                       SG4014.2
003700* "PHYSICALLY CONTIGUOUS IN THE SOURCE PROGRAM".                  SG4014.2
003800                                                                  SG4014.2
003900*TOTAL NUMBER OF FLAGS EXPECTED = 2.                              SG4014.2

quality100%

¤ Dauer der Verarbeitung: 0.9 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.