|
* Subject: ACCEPT -BAD WORK
* Message from r_jaro 7/30/2008
* HI
* This is my structure data.
ID DIVISION.
PROGRAM-ID. BadWork.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. xyz.
OBJECT-COMPUTER. xyz.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 CUSTOMER-DETAILS.
02 ID-CUSTOMER PIC 9(3).
02 CUSTOMER-NAME.
03 LAST-NAME PIC X(20).
03 FIRST-NAME PIC X(20).
02 ADDRESS-1.
03 TOWN PIC X(20).
03 STREET PIC X(20).
03 NUMBER-HOUSE PIC 9(3).
02 NIP PIC X(13).
*and i try initialize this record.
procedure division.
INIT-CUSTOMER-RECORD.
MOVE SPACE TO CUSTOMER-DETAILS.
MOVE ZEROES TO ID-CUSTOMER.
MOVE ZEROES TO NUMBER-HOUSE.
ENTER-CUSTOMER-RECORD.
DISPLAY "ENTER ID-CUSTOMER (001-999)".
ACCEPT ID-CUSTOMER.
DISPLAY "ENTER LAST NAME".
ACCEPT LAST-NAME.
DISPLAY "ENTER FIRST-NAME".
ACCEPT FIRST-NAME.
DISPLAY "ENTER TOWN".
ACCEPT TOWN
DISPLAY "ENTER STREET".
ACCEPT STREET.
DISPLAY "ENTER NUMBER HOUSE (001 - 999)".
ACCEPT NUMBER-HOUSE.
DISPLAY "ENTER NIP".
ACCEPT NIP.
*When i run program and enter number - is ok
*but next field length 30 charset
*and i enter example:
*Johnny [enter]
*and i dont see next DISPLAY FIELD because
*len(johnny) = 6 and my field is 30 letter.
*I dont no how i can enter next field-record.
*When i enter 30 letter then every thing is ok.
¤ Dauer der Verarbeitung: 0.32 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
