rahmenlose Ansicht.rtf DruckansichtHaskell {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 LOANT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 DATE-WRITTEN\cf0\f0 . 04/16/84.
\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
\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
\cf1 \f1 WORKING-STORAGE\cf0\f0 \cf1 \f1 SECTION\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * ALPHA 77'S\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf3 \f1 77\cf0\f0 \cf4 \f1 WS-ANSWER\cf0\f0 \cf2 \f1 PIC\cf0\f0 X(\cf1 \f1 01) V\cf0\f0 A\cf1 \f1 LUE S\cf0\f0 \cf2 \f1 P\cf0\f0 ACE.
\par
\cf3 \f1 77\cf0\f0 \cf4 \f1 WS-COMMAND\cf0\f0 \cf2 \f1 PIC\cf0\f0 X(\cf1 \f1 01) V\cf0\f0 A\cf1 \f1 LUE S\cf0\f0 \cf2 \f1 P\cf0\f0 ACE.
\par
\cf3 \f1 77\cf0\f0 \cf4 \f1 WS-ERR-MSG\cf0\f0 \cf2 \f1 PIC\cf0\f0 X(\cf1 \f1 40) V\cf0\f0 A\cf1 \f1 LUE SP\cf0\f0 \cf2 \f1 A\cf0\f0 CES.
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * NUMERIC 77'S\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf3 \f1 77\cf0\f0 \cf4 \f1 WS-ESCAPE-FLAG\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(01) \cf1 \f1 V\cf0\f0 A\cf1 \f1 LUE \cf0\f0 \cf2 \f1 Z\cf0\f0 ERO.
\par
\cf6 \f1 *\cf0\f0
\par
\cf9 \f1 COPY\cf0\f0 \cf9 \f1 LOANW.CO\cf0\f0 B.
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 SCREEN\cf0\f0 \cf1 \f1 SECTION\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * C O M M A N D S C R E E N\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 COMMAND-SCREEN\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 BLANK\cf0\f0 \cf1 \f1 SCREEN\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 20\cf0\f0 \cf1 \f1 VALUE\cf0\f0
\par
\cf2 \f1 "L O A N C O M P U T A T I O N"\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 03\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 VALUE\cf0\f0
\par
\cf2 \f1 "Press: P=Compute Payment Amount,"\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 04\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 08\cf0\f0 \cf1 \f1 VALUE\cf0\f0
\par
\cf2 \f1 "L=Compute Loan Amount,"\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 05\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 05\cf0\f0 \cf1 \f1 VALUE\cf0\f0
\par
\cf2 \f1 "or ESCape to exit: "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 X \cf1 \f1 TO\cf0\f0 \cf4 \f1 WS-COMMAND\cf0\f0 \cf4 \f1 AUTO\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * L O A N S C R E E N\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 LOAN-SCREEN\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 03\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 ERASE\cf0\f0 \cf1 \f1 EOS\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 03\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 VALUE\cf0\f0 \cf2 \f1 "Payment Amt: "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 ZZZZZ9.9\cf1 \f1 9 \cf0\f0 \cf4 \f1 USING LW-\cf0\f0 \cf2 \f1 P\cf0\f0 MT-AMT.
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 04\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 VALUE\cf0\f0 \cf2 \f1 "Interest Rate: "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 Z9.99 \cf1 \f1 US\cf0\f0 I\cf4 \f1 NG LW-INT-R\cf0\f0 \cf2 \f1 A\cf0\f0 TE.
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 05\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 VALUE\cf0\f0 \cf2 \f1 "Number Payments: "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 ZZ9 \cf1 \f1 USI\cf0\f0 N\cf4 \f1 G LW-NBR-PM\cf0\f0 \cf2 \f1 T\cf0\f0 S.
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * L O A N A N S W E R S C R E E N\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 LOAN-ANSWER-SCREEN\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 07\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 VALUE\cf0\f0 \cf2 \f1 "Loan Amount: "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 ZZZ,ZZ9\cf1 \f1 .99 \cf0\f0 \cf4 \f1 FROM LW-\cf0\f0 \cf2 \f1 L\cf0\f0 OAN-AMT.
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 08\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 VALUE\cf0\f0 \cf2 \f1 "Total Inter: "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 ZZZ,ZZ9\cf1 \f1 .99 \cf0\f0 \cf4 \f1 FROM LW-T\cf0\f0 \cf2 \f1 O\cf0\f0 TAL-INT.
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 09\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 VALUE\cf0\f0 \cf2 \f1 "Total Pmts: "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 ZZZ,ZZ9\cf1 \f1 .99 \cf0\f0 \cf4 \f1 FROM LW-TO\cf0\f0 \cf2 \f1 T\cf0\f0 AL-PMTS.
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * P A Y M E N T S C R E E N\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 PAYMENT-SCREEN\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 03\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 ERASE\cf0\f0 \cf1 \f1 EOS\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 03\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 VALUE\cf0\f0 \cf2 \f1 "Loan Amount: "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 ZZZZZ9.9\cf1 \f1 9 \cf0\f0 \cf4 \f1 USING LW-L\cf0\f0 \cf2 \f1 O\cf0\f0 AN-AMT.
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 04\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 VALUE\cf0\f0 \cf2 \f1 "Interest Rate: "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 Z9.99 \cf1 \f1 US\cf0\f0 I\cf4 \f1 NG LW-INT-R\cf0\f0 \cf2 \f1 A\cf0\f0 TE.
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 05\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 VALUE\cf0\f0 \cf2 \f1 "Number Payments: "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 ZZ9 \cf1 \f1 USI\cf0\f0 N\cf4 \f1 G LW-NBR-PM\cf0\f0 \cf2 \f1 T\cf0\f0 S.
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * P A Y M E N T A N S W E R S C R E E N\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 PAYMENT-ANSWER-SCREEN\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 07\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 VALUE\cf0\f0 \cf2 \f1 "Payment Amt: "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 ZZZ,ZZ9\cf1 \f1 .99 \cf0\f0 \cf4 \f1 FROM LW\cf0\f0 \cf2 \f1 -\cf0\f0 PMT-AMT.
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 08\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 VALUE\cf0\f0 \cf2 \f1 "Total Inter: "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 ZZZ,ZZ9\cf1 \f1 .99 \cf0\f0 \cf4 \f1 FROM LW-T\cf0\f0 \cf2 \f1 O\cf0\f0 TAL-INT.
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 09\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\cf0\f0 \cf1 \f1 VALUE\cf0\f0 \cf2 \f1 "Total Pmts: "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 ZZZ,ZZ9\cf1 \f1 .99 \cf0\f0 \cf4 \f1 FROM LW-TO\cf0\f0 \cf2 \f1 T\cf0\f0 AL-PMTS.
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * E R R O R S C R E E N\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 ERROR-SCREEN\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 24\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 20\cf0\f0 \cf1 \f1 HIGHLIGHT\cf0\f0 \cf1 \f1 BLANK\cf0\f0 \cf1 \f1 LINE\cf0\f0
\par
\cf2 \f1 PIC\cf0\f0 X(40) \cf1 \f1 \cf0\f0 F\cf4 \f1 ROM WS-ERR\cf0\f0 \cf2 \f1 -\cf0\f0 MSG.
\par
\cf3 \f1 03\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 70\cf0\f0
\par
\cf2 \f1 PIC\cf0\f0 X \cf1 \f1 TO\cf0\f0 \cf4 \f1 WS-ANSWER\cf0\f0 \cf4 \f1 AUTO\cf0\f0 \cf2 \f1 .\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
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * C O N T R O L\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 INITIALIZE\cf0\f0 \cf4 \f1 LOAN-WORK-AREA\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 COMMAND-SCREEN\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 PERFORM\cf0\f0 \cf4 \f1 000100-GET-COMMAND\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-ESCAPE-FLAG\cf0\f0 \cf2 \f1 =\cf0\f0 \cf3 \f1 1\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 * G E T C O M M A N D\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 000100-GET-COMMAND\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf1 \f1 SPACE\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 WS-COMMAND\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 ACCEPT\cf0\f0 \cf4 \f1 COMMAND-SCREEN\cf0\f0
\par
\cf1 \f1 ON\cf0\f0 \cf1 \f1 ESCAPE\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf3 \f1 1\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 WS-ESCAPE-FLAG\cf0\f0
\par
\cf1 \f1 GO\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 000100-EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 INSPECT\cf0\f0 \cf4 \f1 WS-COMMAND\cf0\f0
\par
\cf1 \f1 CONVERTING\cf0\f0 \cf2 \f1 "abcdefghijklmnopqrstuvwxyz"\cf0\f0
\par
\cf1 \f1 TO\cf0\f0 \cf2 \f1 "ABCDEFGHIJKLMNOPQRSTUVWXYZ"\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 IF\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 WS-COMMAND\cf0\f0 \cf2 \f1 =\cf0\f0 \cf2 \f1 "P"\cf0\f0 \cf2 \f1 )\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 PAYMENT-SCREEN\cf0\f0
\par
\cf1 \f1 PERFORM\cf0\f0 \cf4 \f1 000500-FIND-PAYMENT\cf0\f0
\par
\cf1 \f1 THRU\cf0\f0 \cf4 \f1 000500-EXIT\cf0\f0
\par
\cf1 \f1 ELSE\cf0\f0
\par
\cf1 \f1 IF\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 WS-COMMAND\cf0\f0 \cf2 \f1 =\cf0\f0 \cf2 \f1 "L"\cf0\f0 \cf2 \f1 )\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 LOAN-SCREEN\cf0\f0
\par
\cf1 \f1 PERFORM\cf0\f0 \cf4 \f1 000600-FIND-LOAN\cf0\f0
\par
\cf1 \f1 THRU\cf0\f0 \cf4 \f1 000600-EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 COMMAND-SCREEN\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
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * F I N D P A Y M E N T\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 000500-FIND-PAYMENT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 ACCEPT\cf0\f0 \cf4 \f1 PAYMENT-SCREEN\cf0\f0
\par
\cf1 \f1 ON\cf0\f0 \cf1 \f1 ESCAPE\cf0\f0
\par
\cf1 \f1 GO\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 000500-EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 PERFORM\cf0\f0 \cf4 \f1 004000-COMPUTE-PAYMENT\cf0\f0
\par
\cf1 \f1 THRU\cf0\f0 \cf4 \f1 004000-EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 IF\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 LW-LOAN-ERROR-FLAG\cf0\f0 \cf2 \f1 =\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 )\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf2 \f1 "PARAMETER ERROR"\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 WS-ERR-MSG\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 ERROR-SCREEN\cf0\f0
\par
\cf1 \f1 GO\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 000500-FIND-PAYMENT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 PAYMENT-ANSWER-SCREEN\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf2 \f1 "PRESS A KEY TO CONTINUE"\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 WS-ERR-MSG\cf0\f0 \cf2 \f1 .\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 ERROR-SCREEN.
\par
ACCEPT ERROR-SCREEN.
\par
*
\par
000500-EXIT.
\par
EXIT.
\par
*
\par
*
\par
* F I N D L O A N
\par
*
\par
000600-FIND-LOAN.
\par
*
\par
ACCEPT LOAN-SCREEN
\par
ON ESCAPE
\par
GO TO 000600-EXIT.
\par
*
\par
PERFORM 004100-COMPUTE-LOAN
\par
THRU 004100-EXIT.
\par
*
\par
IF (LW-LOAN-ERROR-FLAG = 1)
\par
MOVE "PARAMETER ERROR" TO WS-ERR-MSG
\par
DISPLAY ERROR-SCREEN
\par
GO TO 000600-FIND-LOAN.
\par
*
\par
DISPLAY LOAN-ANSWER-SCREEN.
\par
*
\par
MOVE "PRESS A KEY TO CONTINUE" TO WS-ERR-MSG..
\par
DISPLAY ERROR-SCREEN.
\par
ACCEPT ERROR-SCREEN.
\par
*
\par
000600-EXIT.
\par
EXIT.
\par
COPY "LOANP.COB".
\par
} nu kw id st co la st kw st co co co co co co co co co co co co co co co co co co co co co co co co co co co co co co la st co co co kw id kw id st kw id kw id st kw id kw id st co kw id kw id st kw id kw id st kw id kw id st co co co kw st id st id st kw id kw id st kw id st id st id st co kw st id st id st kw id kw id st kw id st id st id st co kw id st id st id st co la st kw st co co co la st co kw nu kw id st co kw st id st nu st kw id kw id st co kw st id st nu st kw nu kw id st nu st kw nu kw id kw id kw id kw st id st nu st kw nu kw id st nu st kw kw nu kw id kw id kw id kw st id kw st nu st kw nu kw id kw id kw id kw st id st nu st kw nu kw id st nu st st co kw id st id st kw id st co la st kw st co co co la st co kw nu kw id st co kw nu kw id st co la st kw st co co co co co co co co co co co co co co co co co co co co co co la st co kw id kw id st co kw id kw id st co kw id kw id st co kw nu kw id kw id st co kw nu kw id st co kw nu kw id st co kw id kw id st co kw id kw id kw id st co la st kw st co co co co co co co co co co co co co co co co co co co co co la st co kw nu kw id kw id st co kw nu kw id st co kw nu kw id st co kw id kw id st co kw id kw id st co la st kw st co co co co co co co co co co co co co co co co co co co co co co la st co kw id kw id st co kw id kw id st co kw st id st nu st kw nu kw id kw id kw id kw kw st id st nu st kw nu kw id kw id kw id st co co co kw id kw nu
[ Verzeichnis aufwärts0.355unsichere Verbindung
]
