| products/Sources/formale Sprachen/COBOL/verschiedene-Autoren/Judson-McClendon/loan/ |
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei: Apache.LICENSE.txt Sprache: HTML
|
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 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\cf \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\c \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\c \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\f \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\ \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\ \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\ \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\ \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 \f \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\ \par \cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 03\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\ \par \cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 ZZZZZ9.9\cf1 \f1 9 \cf0\f0 \cf4 \f1 USING LW-\cf0\f0 \c \par \cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 04\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\ \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 \ \par \cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 05\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\ \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 \c \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\ \par \cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 ZZZ,ZZ9\cf1 \f1 .99 \cf0\f0 \cf4 \f1 FROM LW-\cf0\f0 \c \par \cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 08\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\ \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 \ \par \cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 09\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\ \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 \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\ \par \cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 03\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\ \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 \ \par \cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 04\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\ \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 \ \par \cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 05\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\ \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 \c \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\ \par \cf3 \f1 03\cf0\f0 \cf2 \f1 PIC\cf0\f0 ZZZ,ZZ9\cf1 \f1 .99 \cf0\f0 \cf4 \f1 FROM LW\cf0\f0 \cf \par \cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 08\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\ \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 \ \par \cf3 \f1 03\cf0\f0 \cf1 \f1 LINE\cf0\f0 \cf3 \f1 09\cf0\f0 \cf1 \f1 COLUMN\cf0\f0 \cf3 \f1 01\ \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 \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\ \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 \ \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 \cf \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 \cf \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" \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" \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 \c \par \cf1 \f1 MOVE\cf0\f0 \cf2 \f1 "PARAMETER ERROR"\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 WS-ERR-M \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 \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 [ Verzeichnis aufwärts0.362unsichere Verbindung ] |