Haftungsausschluß.rtf KontaktHaskell {Haskell[176] Abap[346] [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 MONEYT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 DATE-WRITTEN\cf0\f0 . 05/27/96.
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * MODIFIED 10/18/97.\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 * * 329 37th Court N.E. *\cf0\f0
\par
\cf6 \f1 * * Birmingham, AL 35215 *\cf0\f0
\par
\cf6 \f1 * * 205-853-8440 *\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 CONFIGURATION\cf0\f0 \cf1 \f1 SECTION\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 INPUT-OUTPUT\cf0\f0 \cf1 \f1 SECTION\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 FILE-CONTROL\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 I-O-CONTROL\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 FILE\cf0\f0 \cf1 \f1 SECTION\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \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
\cf3 \f1 77\cf0\f0 \cf4 \f1 WS-AMOUNT\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(\cf1 \f1 15)V\cf0\f0 9\cf1 \f1 (02) \cf0\f0 C\cf3 \f1 O\cf0\f0 \cf2 \f1 M\cf0\f0 P VALUE 1.
\par
\cf6 \f1 *\cf0\f0
\par
\cf9 \f1 COPY\cf0\f0 \cf9 \f1 "MONEYW.COB\cf0\f0 ".
\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
\cf8 \f1 000000-CONTROL\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf2 \f1 " "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 PERFORM\cf0\f0 \cf4 \f1 000100-PROCESS\cf0\f0
\par
\cf1 \f1 THRU\cf0\f0 \cf4 \f1 000100-EXIT\cf0\f0
\par
\cf1 \f1 UNTIL\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 WS-AMOUNT\cf0\f0 \cf1 \f1 ZERO\cf0\f0 \cf2 \f1 )\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 * P R O C E S S\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 000100-PROCESS\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf2 \f1 "C O N V E R T E D D O L L A R A M O U N T"\cf0\f0
\par
\cf1 \f1 AT\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 1\cf0\f0 \cf1 \f1 COL\cf0\f0 \cf3 \f1 1\cf0\f0
\par
\cf1 \f1 WITH\cf0\f0 \cf1 \f1 ERASE\cf0\f0 \cf1 \f1 EOS\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 MW-MONEY-LINE\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 )\cf0\f0
\par
\cf1 \f1 AT\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 3\cf0\f0 \cf1 \f1 COL\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 MW-MONEY-LINE\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 2\cf0\f0 \cf2 \f1 )\cf0\f0
\par
\cf1 \f1 AT\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 4\cf0\f0 \cf1 \f1 COL\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 MW-MONEY-LINE\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 3\cf0\f0 \cf2 \f1 )\cf0\f0
\par
\cf1 \f1 AT\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 5\cf0\f0 \cf1 \f1 COL\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 MW-MONEY-LINE\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 4\cf0\f0 \cf2 \f1 )\cf0\f0
\par
\cf1 \f1 AT\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 6\cf0\f0 \cf1 \f1 COL\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 MW-MONEY-LINE\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 5\cf0\f0 \cf2 \f1 )\cf0\f0
\par
\cf1 \f1 AT\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 7\cf0\f0 \cf1 \f1 COL\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 MW-MONEY-LINE\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 6\cf0\f0 \cf2 \f1 )\cf0\f0
\par
\cf1 \f1 AT\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 8\cf0\f0 \cf1 \f1 COL\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf2 \f1 "Enter up to tttbbbmmmtttooo.cc (0 to exit): "\cf0\f0
\par
\cf1 \f1 AT\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 10\cf0\f0 \cf1 \f1 COL\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf1 \f1 ZERO\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 WS-AMOUNT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 ACCEPT\cf0\f0 \cf4 \f1 WS-AMOUNT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf4 \f1 WS-AMOUNT\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 MW-AMOUNT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 PERFORM\cf0\f0 \cf4 \f1 005000-MONEY\cf0\f0
\par
\cf1 \f1 THRU\cf0\f0 \cf4 \f1 005000-EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 000100-EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf9 \f1 COPY\cf0\f0 \cf9 \f1 MONEYP.CO\cf0\f0 B.
\par
}
[ Seitenstruktur0.131Drucken
]
