| products/sources/formale sprachen/Cobol/verschiedene-Autoren/Judson-McClendon/money/ |
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei: moneyw.cob Sprache: Cobol
|
Untersuchungsergebnis.rtf Download desHaskell {Haskell[176] Abap[346] [0]}zum Wurzelverzeichnis wechseln {\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 Fixedsys;}{\f1\fmodern\ {\colortbl;\red255\green0\blue0;\red0\green0\blue255;\red0\green0\blue128;\red0\ {\*\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\cf \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 \ \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\ \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\f \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 \c \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\f \par \cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 MW-MONEY-LINE\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 2\cf0\f0 \c \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\f \par \cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 MW-MONEY-LINE\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 3\cf0\f0 \c \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\f \par \cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 MW-MONEY-LINE\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 4\cf0\f0 \c \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\f \par \cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 MW-MONEY-LINE\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 5\cf0\f0 \c \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\f \par \cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 MW-MONEY-LINE\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 6\cf0\f0 \c \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\f \par \cf6 \f1 *\cf0\f0 \par \cf1 \f1 DISPLAY\cf0\f0 \cf2 \f1 "Enter up to tttbbbmmmtttooo.cc (0 to exit): "\cf0\f \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\ \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 \ \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 \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 } [ zur Elbe Produktseite wechseln0.138Quellennavigators ] |