products/Sources/formale Sprachen/COBOL/verschiedene-Autoren/Judson-McClendon/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei:   Sprache: VDM

Haftungsausschluß.rtf KontaktHaskell {Haskell[162] Abap[342] [0]}diese Dinge liegen außhalb unserer Verantwortung

{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 Fixedsys;}{\f1\fmodern\fprq1\fcharset0 Fixedsys;}
{\colortbl;\red255\green0\blue0;\red0\green0\blue255;\red0\green0\blue128;\red0\green0\blue0;\red128\green0\blue0;\red0\green128\blue0;\red128\green128\blue128;\red0\green128\blue128;\red255\green0\blue255;}
{\*\generator Msftedit 5.41.15.1507;}
\viewkind4\uc1\pard\lang1031\f0\fs16}
       \cf1 \f1 IDENTIFICATION\cf0\f0  \cf1 \f1 DIVISION\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf1 \f1 PROGRAM-ID\cf0\f0 \cf2 \f1 .\cf0\f0     \cf4 \f1 EASTER\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf1 \f1 DATE-WRITTEN\cf0\f0 .  08/30/98.
\par 
\cf6 \f1       *\cf0\f0 
\par 
\cf6 \f1       *           Calculate Date of Easter.\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
\cf6 \f1       *        *******************************\cf0\f0 
\par 
\cf6 \f1       *        *                             *\cf0\f0 
\par 
\cf6 \f1       *        *     Judson D. McClendon     *\cf0\f0 
\par 
\cf6 \f1       *        *     Sun Valley Systems      *\cf0\f0 
\par 
\cf6 \f1       *        *     4522 Shadow Ridge Pkwy  *\cf0\f0 
\par 
\cf6 \f1       *        *     Pinson, AL 35126-2192   *\cf0\f0 
\par 
\cf6 \f1       *        *        205-680-0460         *\cf0\f0 
\par 
\cf6 \f1       *        *                             *\cf0\f0 
\par 
\cf6 \f1       *        *******************************\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf1 \f1 ENVIRONMENT\cf0\f0  \cf1 \f1 DIVISION\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf1 \f1 DATA\cf0\f0  \cf1 \f1 DIVISION\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf1 \f1 WORKING-STORAGE\cf0\f0  \cf1 \f1 SECTION\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
\cf6 \f1       ******************************************************************\cf0\f0 
\par 
\cf6 \f1       *                                                                *\cf0\f0 
\par 
\cf6 \f1       *                 E A S T E R   W O R K   A R E A                *\cf0\f0 
\par 
\cf6 \f1       *                                                                *\cf0\f0 
\par 
\cf6 \f1       ******************************************************************\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf3 \f1 01\cf0\f0   \cf4 \f1 EASTER-WORK-AREA\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
           \cf3 \f1 03\cf0\f0   \cf4 \f1 EW-DATE\cf0\f0                  \cf2 \f1 PIC\cf0\f0   9(\cf1 \f1 08) V\cf0\f0 A\cf1 \f1 LUE Z\cf0\f0 \cf2 \f1 E\cf0\f0 ROS.
\par 
           \cf3 \f1 03\cf0\f0   \cf4 \f1 EW-DATE-X\cf0\f0                \cf1 \f1 REDEFINES\cf0\f0  \cf4 \f1 EW-DATE\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
               \cf3 \f1 05\cf0\f0   \cf4 \f1 EW-YEAR\cf0\f0                  \cf2 \f1 PIC\cf0\f0   9(\cf2 \f1 0\cf0\f0 4).
\par 
               \cf3 \f1 05\cf0\f0   \cf4 \f1 EW-MONTH\cf0\f0                 \cf2 \f1 PIC\cf0\f0   9(\cf2 \f1 0\cf0\f0 2).
\par 
               \cf3 \f1 05\cf0\f0   \cf4 \f1 EW-DAY\cf0\f0                   \cf2 \f1 PIC\cf0\f0   9(\cf2 \f1 0\cf0\f0 2).
\par 
           \cf3 \f1 03\cf0\f0   \cf4 \f1 EW-GOLDEN-NBR\cf0\f0            \cf2 \f1 PIC\cf0\f0   9(\cf2 \f1 0\cf0\f0 6).
\par 
           \cf3 \f1 03\cf0\f0   \cf4 \f1 EW-CENT\cf0\f0                  \cf2 \f1 PIC\cf0\f0   9(\cf2 \f1 0\cf0\f0 3).
\par 
           \cf3 \f1 03\cf0\f0   \cf4 \f1 EW-LEAP-CENT\cf0\f0             \cf2 \f1 PIC\cf0\f0   9(\cf2 \f1 0\cf0\f0 6).
\par 
           \cf3 \f1 03\cf0\f0   \cf4 \f1 EW-LUNAR-CORR\cf0\f0            \cf2 \f1 PIC\cf0\f0   9(\cf2 \f1 0\cf0\f0 8).
\par 
           \cf3 \f1 03\cf0\f0   \cf4 \f1 EW-SUNDAY-CORR\cf0\f0           \cf2 \f1 PIC\cf0\f0   9(\cf2 \f1 0\cf0\f0 8).
\par 
           \cf3 \f1 03\cf0\f0   \cf4 \f1 EW-EPACT\cf0\f0                 \cf2 \f1 PIC\cf0\f0   9(\cf2 \f1 0\cf0\f0 8).
\par 
           \cf3 \f1 03\cf0\f0   \cf4 \f1 EW-FULL-MOON\cf0\f0             \cf2 \f1 PIC\cf0\f0   9(\cf2 \f1 0\cf0\f0 8).
\par 
           \cf3 \f1 03\cf0\f0   \cf4 \f1 EW-WORK1\cf0\f0                 \cf2 \f1 PIC\cf0\f0   9(\cf2 \f1 0\cf0\f0 8).
\par 
           \cf3 \f1 03\cf0\f0   \cf4 \f1 EW-WORK2\cf0\f0                 \cf2 \f1 PIC\cf0\f0   9(\cf2 \f1 0\cf0\f0 8).
\par 
           \cf3 \f1 03\cf0\f0   \cf4 \f1 EW-MONTH-NAMES\cf0\f0       \cf1 \f1 VALUE\cf0\f0 
\par 
                               \cf2 \f1 "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
               \cf3 \f1 05\cf0\f0   \cf4 \f1 EW-MONTH-NAME\cf0\f0        \cf1 \f1 OCCURS\cf0\f0  \cf3 \f1 12\cf0\f0  \cf1 \f1 TIMES\cf0\f0 
\par 
                                           \cf2 \f1 PIC\cf0\f0   X(\cf2 \f1 0\cf0\f0 3).
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf1 \f1 PROCEDURE\cf0\f0  \cf1 \f1 DIVISION\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf8 \f1 000000-CONTROL\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf1 \f1 DISPLAY\cf0\f0  \cf2 \f1 "ENTER YEAR FOR EASTER"\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
           \cf1 \f1 ACCEPT\cf0\f0  \cf4 \f1 EW-YEAR\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf1 \f1 PERFORM\cf0\f0  \cf4 \f1 001000-EASTER-CALC\cf0\f0 
\par 
              \cf1 \f1 THRU\cf0\f0  \cf4 \f1 001000-EXIT\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf1 \f1 DISPLAY\cf0\f0  \cf2 \f1 "EASTER FALLS ON "\cf0\f0 
\par 
                   \cf4 \f1 EW-MONTH-NAME\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 EW-MONTH\cf0\f0 \cf2 \f1 )\cf0\f0 
\par 
                   \cf2 \f1 " "\cf0\f0 
\par 
                   \cf4 \f1 EW-DAY\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf8 \f1 000000-EXIT\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
           \cf1 \f1 STOP\cf0\f0  \cf1 \f1 RUN\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
\cf6 \f1       ******************************************************************\cf0\f0 
\par 
\cf6 \f1       *                                                                *\cf0\f0 
\par 
\cf6 \f1       *                    E A S T E R   C A L C                       *\cf0\f0 
\par 
\cf6 \f1       *                                                                *\cf0\f0 
\par 
\cf6 \f1       *                                                                *\cf0\f0 
\par 
\cf6 \f1       *    CALCULATES THE DATE OF EASTER FOR ANY DATE IN THE           *\cf0\f0 
\par 
\cf6 \f1       *    GREGORIAN CALENDAR.                                         *\cf0\f0 
\par 
\cf6 \f1       *                                                                *\cf0\f0 
\par 
\cf6 \f1       *    USAGE:  MOVE <EASTER YEAR> TO EW-YEAR.                      *\cf0\f0 
\par 
\cf6 \f1       *            PERFORM 001000-EASTER-CALC                          *\cf0\f0 
\par 
\cf6 \f1       *               THRU 001000-EXIT.                                *\cf0\f0 
\par 
\cf6 \f1       *                                                                *\cf0\f0 
\par 
\cf6 \f1       *    RESULT: EW-DATE = DATE OF EASTER IN YYYYMMDD FORM.          *\cf0\f0 
\par 
\cf6 \f1       *                                                                *\cf0\f0 
\par 
\cf6 \f1       ******************************************************************\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf8 \f1 001000-EASTER-CALC\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
\cf6 \f1       **** COMPUTE EW-GOLDEN-NBR =\cf0\f0 
\par 
\cf6 \f1       ****     FUNCTION REM (EW-YEAR, 19) + 1.\cf0\f0 
\par 
           \cf1 \f1 DIVIDE\cf0\f0  \cf3 \f1 19\cf0\f0  \cf1 \f1 INTO\cf0\f0  \cf4 \f1 EW-YEAR\cf0\f0  \cf1 \f1 GIVING\cf0\f0  \cf4 \f1 EW-WORK1\cf0\f0 
\par 
               \cf1 \f1 REMAINDER\cf0\f0  \cf4 \f1 EW-GOLDEN-NBR\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
           \cf1 \f1 ADD\cf0\f0  \cf3 \f1 1\cf0\f0  \cf1 \f1 TO\cf0\f0  \cf4 \f1 EW-GOLDEN-NBR\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf1 \f1 COMPUTE\cf0\f0  \cf4 \f1 EW-CENT\cf0\f0  \cf2 \f1 =\cf0\f0 
\par 
               \cf2 \f1 (\cf0\f0 \cf4 \f1 EW-YEAR\cf0\f0  \cf2 \f1 /\cf0\f0  \cf3 \f1 100\cf0\f0 \cf2 \f1 )\cf0\f0  \cf2 \f1 +\cf0\f0  \cf3 \f1 1\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf1 \f1 COMPUTE\cf0\f0  \cf4 \f1 EW-LEAP-CENT\cf0\f0  \cf2 \f1 =\cf0\f0 
\par 
               \cf2 \f1 (\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 3\cf0\f0  \cf2 \f1 *\cf0\f0  \cf4 \f1 EW-CENT\cf0\f0 \cf2 \f1 )\cf0\f0  \cf2 \f1 /\cf0\f0  \cf3 \f1 4\cf0\f0 \cf2 \f1 )\cf0\f0  \cf2 \f1 -\cf0\f0  \cf3 \f1 12\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf1 \f1 COMPUTE\cf0\f0  \cf4 \f1 EW-LUNAR-CORR\cf0\f0  \cf2 \f1 =\cf0\f0 
\par 
               \cf2 \f1 (\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 8\cf0\f0  \cf2 \f1 *\cf0\f0  \cf4 \f1 EW-CENT\cf0\f0  \cf2 \f1 +\cf0\f0  \cf3 \f1 5\cf0\f0 \cf2 \f1 )\cf0\f0  \cf2 \f1 /\cf0\f0  \cf3 \f1 25\cf0\f0 \cf2 \f1 )\cf0\f0  \cf2 \f1 -\cf0\f0  \cf3 \f1 5\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf1 \f1 COMPUTE\cf0\f0  \cf4 \f1 EW-SUNDAY-CORR\cf0\f0  \cf2 \f1 =\cf0\f0 
\par 
               \cf2 \f1 (\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 5\cf0\f0  \cf2 \f1 *\cf0\f0  \cf4 \f1 EW-YEAR\cf0\f0 \cf2 \f1 )\cf0\f0  \cf2 \f1 /\cf0\f0  \cf3 \f1 4\cf0\f0 \cf2 \f1 )\cf0\f0  \cf2 \f1 -\cf0\f0  \cf4 \f1 EW-LEAP-CENT\cf0\f0  \cf2 \f1 -\cf0\f0  \cf3 \f1 10\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       * \cf0\f0 
\par 
\cf6 \f1       **** COMPUTE EW-EPACT =\cf0\f0 
\par 
\cf6 \f1       ****     FUNCTION REM ((11 * EW-GOLDEN-NBR + 20 \cf0\f0 
\par 
\cf6 \f1       ****                    + EW-LUNAR-CORR - EW-LEAP-CENT), 30).\cf0\f0 
\par 
           \cf1 \f1 COMPUTE\cf0\f0  \cf4 \f1 EW-EPACT\cf0\f0  \cf2 \f1 =\cf0\f0 
\par 
               \cf3 \f1 11\cf0\f0  \cf2 \f1 *\cf0\f0  \cf4 \f1 EW-GOLDEN-NBR\cf0\f0  \cf2 \f1 +\cf0\f0  \cf3 \f1 20\cf0\f0  \cf2 \f1 +\cf0\f0  \cf4 \f1 EW-LUNAR-CORR\cf0\f0  \cf2 \f1 -\cf0\f0  \cf4 \f1 EW-LEAP-CENT\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
           \cf1 \f1 DIVIDE\cf0\f0  \cf3 \f1 30\cf0\f0  \cf1 \f1 INTO\cf0\f0  \cf4 \f1 EW-EPACT\cf0\f0  \cf1 \f1 GIVING\cf0\f0  \cf4 \f1 EW-WORK1\cf0\f0 
\par 
               \cf1 \f1 REMAINDER\cf0\f0  \cf4 \f1 EW-EPACT\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       * \cf0\f0 
\par 
           \cf1 \f1 IF\cf0\f0  \cf2 \f1 (\cf0\f0 \cf4 \f1 EW-EPACT\cf0\f0  \cf2 \f1 =\cf0\f0  \cf3 \f1 24\cf0\f0 \cf2 \f1 )\cf0\f0 
\par 
               \cf1 \f1 OR\cf0\f0 
\par 
              \cf2 \f1 (\cf0\f0  \cf2 \f1 (\cf0\f0 \cf4 \f1 EW-EPACT\cf0\f0  \cf2 \f1 =\cf0\f0  \cf3 \f1 25\cf0\f0 \cf2 \f1 )\cf0\f0 
\par 
                 \cf1 \f1 AND\cf0\f0 
\par 
                \cf2 \f1 (\cf0\f0 \cf4 \f1 EW-GOLDEN-NBR\cf0\f0  \cf2 \f1 >\cf0\f0  \cf3 \f1 11\cf0\f0 \cf2 \f1 )\cf0\f0  \cf2 \f1 )\cf0\f0 
\par 
               \cf1 \f1 ADD\cf0\f0  \cf3 \f1 1\cf0\f0  \cf1 \f1 TO\cf0\f0  \cf4 \f1 EW-EPACT\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf1 \f1 COMPUTE\cf0\f0  \cf4 \f1 EW-FULL-MOON\cf0\f0  \cf2 \f1 =\cf0\f0  \cf3 \f1 44\cf0\f0  \cf2 \f1 -\cf0\f0  \cf4 \f1 EW-EPACT\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
           \cf1 \f1 IF\cf0\f0  \cf2 \f1 (\cf0\f0 \cf4 \f1 EW-FULL-MOON\cf0\f0  \cf2 \f1 <\cf0\f0  \cf3 \f1 21\cf0\f0 \cf2 \f1 )\cf0\f0 
\par 
               \cf1 \f1 ADD\cf0\f0  \cf3 \f1 30\cf0\f0  \cf1 \f1 TO\cf0\f0  \cf4 \f1 EW-FULL-MOON\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       * \cf0\f0 
\par 
\cf6 \f1       **** COMPUTE EW-DAY =\cf0\f0 
\par 
\cf6 \f1       ****     EW-FULL-MOON + 7\cf0\f0 
\par 
\cf6 \f1       ****         - FUNCTION REM ((EW-SUNDAY-CORR + EW-FULL-MOON), 7).\cf0\f0 
\par 
           \cf1 \f1 ADD\cf0\f0  \cf4 \f1 EW-SUNDAY-CORR\cf0\f0  \cf4 \f1 EW-FULL-MOON\cf0\f0  \cf1 \f1 GIVING\cf0\f0  \cf4 \f1 EW-WORK1\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
           \cf1 \f1 DIVIDE\cf0\f0  \cf3 \f1 7\cf0\f0  \cf1 \f1 INTO\cf0\f0  \cf4 \f1 EW-WORK1\cf0\f0  \cf1 \f1 GIVING\cf0\f0  \cf4 \f1 EW-WORK2\cf0\f0 
\par 
               \cf1 \f1 REMAINDER\cf0\f0  \cf4 \f1 EW-WORK1\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
           \cf1 \f1 COMPUTE\cf0\f0  \cf4 \f1 EW-DAY\cf0\f0  \cf2 \f1 =\cf0\f0 
\par 
               \cf4 \f1 EW-FULL-MOON\cf0\f0  \cf2 \f1 +\cf0\f0  \cf3 \f1 7\cf0\f0  \cf2 \f1 -\cf0\f0  \cf4 \f1 EW-WORK1\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf1 \f1 IF\cf0\f0  \cf2 \f1 (\cf0\f0 \cf4 \f1 EW-DAY\cf0\f0  \cf2 \f1 >\cf0\f0  \cf3 \f1 31\cf0\f0 \cf2 \f1 )\cf0\f0 
\par 
               \cf1 \f1 MOVE\cf0\f0  \cf3 \f1 4\cf0\f0  \cf1 \f1 TO\cf0\f0  \cf4 \f1 EW-MONTH\cf0\f0 
\par 
               \cf1 \f1 SUBTRACT\cf0\f0  \cf3 \f1 31\cf0\f0  \cf1 \f1 FROM\cf0\f0  \cf4 \f1 EW-DAY\cf0\f0 
\par 
           \cf1 \f1 ELSE\cf0\f0 
\par 
               \cf1 \f1 MOVE\cf0\f0  \cf3 \f1 3\cf0\f0  \cf1 \f1 TO\cf0\f0  \cf4 \f1 EW-MONTH\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
           \cf1 \f1 MOVE\cf0\f0  \cf4 \f1 EW-YEAR\cf0\f0  \cf1 \f1 TO\cf0\f0  \cf4 \f1 EW-YEAR\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf8 \f1 001000-EXIT\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
           \cf1 \f1 EXIT\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
 }l=16-Fil=1-Id=166-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=55)
       30(Lin=127-Col=16-Fil=1-Id=167-Typ=data-Ref=0-Base=binary-Len=0-Val=30-Loc=0)
   :=(Lin=132-Col=12-Fil=1-Id=168-Typ=symbol)
    ew-work1(Lin=132-Col=12-Fil=1-Id=169-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=63)
    +(Lin=132-Col=12-Fil=1-Id=170-Typ=symbol)
     ew-work1(Lin=132-Col=12-Fil=1-Id=171-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=63)
     ew-sunday-corr(Lin=132-Col=12-Fil=1-Id=172-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=39)
   :=(Lin=133-Col=12-Fil=1-Id=173-Typ=symbol)
    ew-work1(Lin=133-Col=12-Fil=1-Id=174-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=63)
    /(Lin=133-Col=12-Fil=1-Id=175-Typ=symbol)
     ew-work1(Lin=133-Col=12-Fil=1-Id=176-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=63)
     7(Lin=133-Col=12-Fil=1-Id=177-Typ=data-Ref=0-Base=binary-Len=0-Val=7-Loc=0)
   :=(Lin=133-Col=12-Fil=1-Id=178-Typ=symbol)
    ew-work1(Lin=133-Col=12-Fil=1-Id=179-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=63)
    modulo(Lin=133-Col=12-Fil=1-Id=180-Typ=symbol)
     ew-work1(Lin=133-Col=12-Fil=1-Id=181-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=63)
     7(Lin=133-Col=12-Fil=1-Id=182-Typ=data-Ref=0-Base=binary-Len=0-Val=7-Loc=0)
   :=(Lin=135-Col=12-Fil=1-Id=183-Typ=symbol)
    ew-day(Lin=135-Col=12-Fil=1-Id=184-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=14)
    -(Lin=135-Col=12-Fil=1-Id=185-Typ=symbol)
     +(Lin=135-Col=12-Fil=1-Id=186-Typ=symbol)
      ew-full-moon(Lin=135-Col=12-Fil=1-Id=187-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=55)
      7(Lin=135-Col=12-Fil=1-Id=188-Typ=data-Ref=0-Base=binary-Len=0-Val=7-Loc=0)
     ew-work1(Lin=135-Col=12-Fil=1-Id=189-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=63)
   if(Lin=142-Col=16-Fil=1-Id=190-Typ=function)
    Test(Lin=138-Col=12-Fil=1-Id=191-Typ=symbol)
     >(Lin=138-Col=12-Fil=1-Id=192-Typ=symbol)
      ew-day(Lin=138-Col=12-Fil=1-Id=193-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=14)
      31(Lin=138-Col=12-Fil=1-Id=194-Typ=data-Ref=0-Base=binary-Len=0-Val=31-Loc=0)
    then(Lin=140-Col=16-Fil=1-Id=195-Typ=function)
     :=(Lin=139-Col=16-Fil=1-Id=196-Typ=symbol)
      ew-month(Lin=139-Col=16-Fil=1-Id=197-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=12)
      4(Lin=139-Col=16-Fil=1-Id=198-Typ=data-Ref=0-Base=binary-Len=0-Val=4-Loc=0)
     :=(Lin=140-Col=16-Fil=1-Id=199-Typ=symbol)
      ew-day(Lin=140-Col=16-Fil=1-Id=200-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=14)
      -(Lin=140-Col=16-Fil=1-Id=201-Typ=symbol)
       ew-day(Lin=140-Col=16-Fil=1-Id=202-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=14)
       31(Lin=140-Col=16-Fil=1-Id=203-Typ=data-Ref=0-Base=binary-Len=0-Val=31-Loc=0)
    else(Lin=142-Col=16-Fil=1-Id=204-Typ=function)
     :=(Lin=142-Col=16-Fil=1-Id=205-Typ=symbol)
      ew-month(Lin=142-Col=16-Fil=1-Id=206-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=12)
      3(Lin=142-Col=16-Fil=1-Id=207-Typ=data-Ref=0-Base=binary-Len=0-Val=3-Loc=0)
   :=(Lin=143-Col=12-Fil=1-Id=208-Typ=symbol)
    ew-year(Lin=143-Col=12-Fil=1-Id=209-Typ=data-Ref=1-Base=bcd-Len=4-Dur=static-Fmt=9(04)-Lbd=1-Val=somevalue-Loc=8)
    ew-year(Lin=143-Col=12-Fil=1-Id=210-Typ=data-Ref=1-Base=bcd-Len=4-Dur=static-Fmt=9(04)-Lbd=1-Val=somevalue-Loc=8)
   stop(Lin=146-Col=12-Fil=1-Id=211-Typ=symbol)
    1(Lin=146-Col=12-Fil=1-Id=212-Typ=data-Ref=0-Base=binary-Len=0-Val=1-Loc=0)
Warnungen in easter.cob(Lin=1-Col=5-Fil=1-Typ=Error)
 easter (Lin=1-Col=5-Fil=1-Typ=Error)
  E1 Ana4007? Verlust der Genauigkeit bei ew-month-names(Lin=146-Col=12-Fil=1-Typ=Error)
 Constants(Lin=146-Col=12-Fil=1-Id=219-Typ=symbol)
  0(Lin=146-Col=12-Fil=1-Id=220-Typ=data-Ref=0-Base=binary-Len=0-Val=0-Loc=0)
  "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"(Lin=146-Col=12-Fil=1-Id=221-Typ=data-Ref=0-Base=octet-Len=38-Val="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"-Loc=0)
  -12(Lin=146-Col=12-Fil=1-Id=222-Typ=data-Ref=0-Base=binary-Len=0-Val=-12-Loc=0)
  95(Lin=146-Col=12-Fil=1-Id=223-Typ=data-Ref=0-Base=binary-Len=0-Val=95-Loc=0)
  23(Lin=146-Col=12-Fil=1-Id=224-Typ=data-Ref=0-Base=binary-Len=0-Val=23-Loc=0)
  40(Lin=146-Col=12-Fil=1-Id=225-Typ=data-Ref=0-Base=binary-Len=0-Val=40-Loc=0)
  13(Lin=146-Col=12-Fil=1-Id=226-Typ=data-Ref=0-Base=binary-Len=0-Val=13-Loc=0)
0G:K”Jeaster.1(Lin=146-Col=12-Fil=1-Id=1-Typ=function)
 :=(Lin=34-Col=16-Fil=1-Id=2-Typ=symbol)
  ew-date(Lin=34-Col=16-Fil=1-Id=3-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=0)
  0(Lin=34-Col=16-Fil=1-Id=4-Typ=data-Ref=0-Base=binary-Len=0-Val=0-Loc=0)
 :=(Lin=48-Col=16-Fil=1-Id=5-Typ=symbol)
  ew-month-names(Lin=48-Col=16-Fil=1-Id=6-Typ=data-Ref=1-Len=0-Dur=static-Lbd=1-Val=somevalue-Loc=79)
  "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"(Lin=48-Col=16-Fil=1-Id=7-Typ=data-Ref=0-Base=octet-Len=38-Val="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"-Loc=0)
 :=(Lin=58-Col=12-Fil=1-Id=8-Typ=symbol)
  $18(Lin=58-Col=12-Fil=1-Id=9-Typ=data-Ref=1-Base=octet-Len=0-Dur=temporary-Least=1-Ubd=1-Val=$18-Loc=82)
  "ENTER YEAR FOR EASTER"(Lin=58-Col=12-Fil=1-Id=10-Typ=data-Ref=0-Base=octet-Len=23-Val="ENTER YEAR FOR EASTER"-Loc=0)
 :=(Lin=59-Col=12-Fil=1-Id=11-Typ=symbol)
  ew-year(Lin=59-Col=12-Fil=1-Id=12-Typ=data-Ref=1-Base=bcd-Len=4-Dur=static-Fmt=9(04)-Lbd=1-Val=somevalue-Loc=8)
  $19(Lin=59-Col=12-Fil=1-Id=13-Typ=data-Ref=1-Base=octet-Len=0-Dur=temporary-Least=1-Ubd=1-Val=$19-Loc=82)
easter.3(Lin=146-Col=12-Fil=1-Id=14-Typ=function)
easter.4(Lin=146-Col=12-Fil=1-Id=15-Typ=function)
 001000-easter-calc(Lin=146-Col=12-Fil=1-Id=16-Typ=function)
 001000-exit(Lin=146-Col=12-Fil=1-Id=17-Typ=function)
easter.5(Lin=146-Col=12-Fil=1-Id=18-Typ=function)
 :=(Lin=64-Col=12-Fil=1-Id=19-Typ=symbol)
  $18(Lin=64-Col=12-Fil=1-Id=20-Typ=data-Ref=1-Base=octet-Len=0-Dur=temporary-Least=1-Ubd=1-Val=$18-Loc=82)
  "EASTER FALLS ON "(Lin=64-Col=12-Fil=1-Id=21-Typ=data-Ref=0-Base=octet-Len=18-Val="EASTER FALLS ON "-Loc=0)
 :=(Lin=64-Col=12-Fil=1-Id=22-Typ=symbol)
  $20(Lin=64-Col=12-Fil=1-Id=23-Typ=data-Ref=1-Base=octet-Len=0-Dur=temporary-Least=1-Ubd=1-Val=$20-Loc=82)
  [](Lin=64-Col=12-Fil=1-Id=24-Typ=symbol)
   ew-month-name(Lin=64-Col=12-Fil=1-Id=25-Typ=data-Ref=1-Base=octet-Len=3-Dur=static-Fmt=X(03)-Lbd=1-Val=ew-month-name-Loc=79)
   ew-month(Lin=64-Col=12-Fil=1-Id=26-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=12)
 :=(Lin=64-Col=12-Fil=1-Id=27-Typ=symbol)
  $21(Lin=64-Col=12-Fil=1-Id=28-Typ=data-Ref=1-Base=octet-Len=0-Dur=temporary-Least=1-Ubd=1-Val=$21-Loc=82)
  " "(Lin=64-Col=12-Fil=1-Id=29-Typ=data-Ref=0-Base=octet-Len=3-Val=" "-Loc=0)
 :=(Lin=64-Col=12-Fil=1-Id=30-Typ=symbol)
  $22(Lin=64-Col=12-Fil=1-Id=31-Typ=data-Ref=1-Base=octet-Len=0-Dur=temporary-Least=1-Ubd=1-Val=$22-Loc=82)
  ew-day(Lin=64-Col=12-Fil=1-Id=32-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=14)
easter.2(Lin=146-Col=12-Fil=1-Id=33-Typ=function)
easter.7(Lin=146-Col=12-Fil=1-Id=34-Typ=function)
easter.8(Lin=146-Col=12-Fil=1-Id=35-Typ=function)
easter.6(Lin=146-Col=12-Fil=1-Id=36-Typ=function)
 :=(Lin=94-Col=12-Fil=1-Id=37-Typ=symbol)
  ew-year(Lin=94-Col=12-Fil=1-Id=38-Typ=data-Ref=1-Base=bcd-Len=4-Dur=static-Fmt=9(04)-Lbd=1-Val=somevalue-Loc=8)
  /(Lin=94-Col=12-Fil=1-Id=39-Typ=symbol)
   ew-year(Lin=94-Col=12-Fil=1-Id=40-Typ=data-Ref=1-Base=bcd-Len=4-Dur=static-Fmt=9(04)-Lbd=1-Val=somevalue-Loc=8)
   19(Lin=94-Col=12-Fil=1-Id=41-Typ=data-Ref=0-Base=binary-Len=0-Val=19-Loc=0)
 :=(Lin=94-Col=12-Fil=1-Id=42-Typ=symbol)
  ew-golden-nbr(Lin=94-Col=12-Fil=1-Id=43-Typ=data-Ref=1-Base=bcd-Len=6-Dur=static-Fmt=9(06)-Lbd=1-Val=somevalue-Loc=16)
  modulo(Lin=94-Col=12-Fil=1-Id=44-Typ=symbol)
   /(Lin=146-Col=12-Fil=1-Id=45-Typ=symbol)
    ew-year(Lin=146-Col=12-Fil=1-Id=46-Typ=data-Ref=1-Base=bcd-Len=4-Dur=static-Fmt=9(04)-Lbd=1-Val=somevalue-Loc=8)
    19(Lin=146-Col=12-Fil=1-Id=47-Typ=data-Ref=0-Base=binary-Len=0-Val=19-Loc=0)
   19(Lin=94-Col=12-Fil=1-Id=48-Typ=data-Ref=0-Base=binary-Len=0-Val=19-Loc=0)
 :=(Lin=96-Col=12-Fil=1-Id=49-Typ=symbol)
  ew-golden-nbr(Lin=96-Col=12-Fil=1-Id=50-Typ=data-Ref=1-Base=bcd-Len=6-Dur=static-Fmt=9(06)-Lbd=1-Val=somevalue-Loc=16)
  +(Lin=96-Col=12-Fil=1-Id=51-Typ=symbol)
   modulo(Lin=146-Col=12-Fil=1-Id=52-Typ=symbol)
    /(Lin=146-Col=12-Fil=1-Id=53-Typ=symbol)
     ew-year(Lin=146-Col=12-Fil=1-Id=54-Typ=data-Ref=1-Base=bcd-Len=4-Dur=static-Fmt=9(04)-Lbd=1-Val=somevalue-Loc=8)
     19(Lin=146-Col=12-Fil=1-Id=55-Typ=data-Ref=0-Base=binary-Len=0-Val=19-Loc=0)
    19(Lin=146-Col=12-Fil=1-Id=56-Typ=data-Ref=0-Base=binary-Len=0-Val=19-Loc=0)
   1(Lin=96-Col=12-Fil=1-Id=57-Typ=

[ Seitenstruktur0.177Drucken  ]