Quelle  if401m.cob   Sprache: unbekannt

000100 IDENTIFICATION DIVISION.                                         IF4014.2
000200 PROGRAM-ID.                                                      IF4014.2
000300      IF401M.                                                     IF4014.2
000400                                                                  IF4014.2
000500                                                                  IF4014.2
000600*THIS PROGRAM TESTS THE FLAGGING OF HIGH SUBSET INTRINSIC FUNCTIONIF4014.2
000700*FEATURES.                                                        IF4014.2
000800******************************************************************IF4014.2
000900*    THIS PROGRAMS CONTAINS TESTS FOR THE FOLLOWING INTRINSIC    *IF4014.2
001000*    FUNCTIONS:  ACOS, ANNUITY, ASIN, ATAN, CHAR, COS,           *IF4014.2
001100*                CURRENT-DATE, DATE-OF-INTEGER, DAY-OF-INTEGER,  *IF4014.2
001200*                FACTORIAL, INTEGER, INTEGER-OF-DATE,            *IF4014.2
001300*                INTEGER-OF-DAY AND INTEGER-PART.                *IF4014.2
001400******************************************************************IF4014.2
001500                                                                  IF4014.2
001600 ENVIRONMENT DIVISION.                                            IF4014.2
001700 CONFIGURATION SECTION.                                           IF4014.2
001800 SOURCE-COMPUTER.                                                 IF4014.2
001900     Card0130.                                                    IF4014.2
002000 OBJECT-COMPUTER.                                                 IF4014.2
002100     Card0131.                                                    IF4014.2
002200                                                                  IF4014.2
002300 DATA DIVISION.                                                   IF4014.2
002400 FILE SECTION.                                                    IF4014.2
002500 WORKING-STORAGE SECTION.                                         IF4014.2
002600 01  TEMP1        PICTURE    X(21).                               IF4014.2
002700 01  WS-ANUM      PICTURE    X.                                   IF4014.2
002800                                                                  IF4014.2
002900 PROCEDURE DIVISION.                                              IF4014.2
003000 IF401M-ACOS.                                                     IF4014.2
003100     IF FUNCTION ACOS (1.0) = FUNCTION ACOS (1.0)                 IF4014.2
003200                 CONTINUE.                                        IF4014.2
003300*MESSAGE EXPECTED FOR ABOVE STATEMENT: NON-CONFORMING STANDARD    IF4014.2
003400                                                                  IF4014.2
003500 IF401M-ANNUITY.                                                  IF4014.2
003600     IF FUNCTION ANNUITY (0, 4) = FUNCTION ANNUITY (0, 4)         IF4014.2
003700                 CONTINUE.                                        IF4014.2
003800*MESSAGE EXPECTED FOR ABOVE STATEMENT: NON-CONFORMING STANDARD    IF4014.2
003900                                                                  IF4014.2
004000 IF401M-ASIN.                                                     IF4014.2
004100     IF FUNCTION ASIN (1.0) = FUNCTION ASIN (1.0)                 IF4014.2
004200                 CONTINUE.                                        IF4014.2
004300*MESSAGE EXPECTED FOR ABOVE STATEMENT: NON-CONFORMING STANDARD    IF4014.2
004400                                                                  IF4014.2
004500 IF401M-ATAN.                                                     IF4014.2
004600     IF FUNCTION ATAN (1.0) = FUNCTION ATAN (1.0)                 IF4014.2
004700                 CONTINUE.                                        IF4014.2
004800*MESSAGE EXPECTED FOR ABOVE STATEMENT: NON-CONFORMING STANDARD    IF4014.2
004900                                                                  IF4014.2
005000 IF401M-CHAR.                                                     IF4014.2
005100     MOVE FUNCTION CHAR (37) TO WS-ANUM.                          IF4014.2
005200*MESSAGE EXPECTED FOR ABOVE STATEMENT: NON-CONFORMING STANDARD    IF4014.2
005300                                                                  IF4014.2
005400 IF401M-COS.                                                      IF4014.2
005500     IF FUNCTION COS (1.0) = FUNCTION COS (1.0)                   IF4014.2
005600                 CONTINUE.                                        IF4014.2
005700*MESSAGE EXPECTED FOR ABOVE STATEMENT: NON-CONFORMING STANDARD    IF4014.2
005800                                                                  IF4014.2
005900 IF401M-CURRENT-DATE.                                             IF4014.2
006000     MOVE FUNCTION CURRENT-DATE TO TEMP1.                         IF4014.2
006100*MESSAGE EXPECTED FOR ABOVE STATEMENT: NON-CONFORMING STANDARD    IF4014.2
006200                                                                  IF4014.2
006300 IF401M-DATE-OF-INTEGER.                                          IF4014.2
006400     IF FUNCTION DATE-OF-INTEGER (1) =                            IF4014.2
006500        FUNCTION DATE-OF-INTEGER (1)                              IF4014.2
006600                 CONTINUE.                                        IF4014.2
006700*MESSAGE EXPECTED FOR ABOVE STATEMENT: NON-CONFORMING STANDARD    IF4014.2
006800                                                                  IF4014.2
006900 IF401M-DAY-OF-INTEGER.                                           IF4014.2
007000     IF FUNCTION DAY-OF-INTEGER (1) = FUNCTION DAY-OF-INTEGER (1) IF4014.2
007100                 CONTINUE.                                        IF4014.2
007200*MESSAGE EXPECTED FOR ABOVE STATEMENT: NON-CONFORMING STANDARD    IF4014.2
007300                                                                  IF4014.2
007400 IF401M-FACTORIAL.                                                IF4014.2
007500     IF FUNCTION FACTORIAL (1) = FUNCTION FACTORIAL (1)           IF4014.2
007600                 CONTINUE.                                        IF4014.2
007700*MESSAGE EXPECTED FOR ABOVE STATEMENT: NON-CONFORMING STANDARD    IF4014.2
007800                                                                  IF4014.2
007900 IF401M-INTEGER.                                                  IF4014.2
008000     IF FUNCTION INTEGER (1.0) = FUNCTION INTEGER (1.0)           IF4014.2
008100                 CONTINUE.                                        IF4014.2
008200*MESSAGE EXPECTED FOR ABOVE STATEMENT: NON-CONFORMING STANDARD    IF4014.2
008300                                                                  IF4014.2
008400 IF401M-INTEGER-OF-DATE.                                          IF4014.2
008500     IF FUNCTION INTEGER-OF-DATE (16010101) =                     IF4014.2
008600        FUNCTION INTEGER-OF-DATE (16010101)                       IF4014.2
008700                 CONTINUE.                                        IF4014.2
008800*MESSAGE EXPECTED FOR ABOVE STATEMENT: NON-CONFORMING STANDARD    IF4014.2
008900                                                                  IF4014.2
009000 IF401M-INTEGER-OF-DAY.                                           IF4014.2
009100     IF FUNCTION INTEGER-OF-DAY (1601001) =                       IF4014.2
009200        FUNCTION INTEGER-OF-DAY (1601001)                         IF4014.2
009300                 CONTINUE.                                        IF4014.2
009400*MESSAGE EXPECTED FOR ABOVE STATEMENT: NON-CONFORMING STANDARD    IF4014.2
009500                                                                  IF4014.2
009600 IF401M-INTEGER-PART.                                             IF4014.2
009700     IF FUNCTION INTEGER-PART (4.578) =                           IF4014.2
009800        FUNCTION INTEGER-PART (4.578)                             IF4014.2
009900                 CONTINUE.                                        IF4014.2
010000*MESSAGE EXPECTED FOR ABOVE STATEMENT: NON-CONFORMING STANDARD    IF4014.2
010100                                                                  IF4014.2
010200 IF401M-END.                                                      IF4014.2
010300                                                                  IF4014.2
010400*TOTAL NUMBER OF FLAGS EXPECTED = 14.                             IF4014.2