* Subject: ACCEPT -BAD WORK
* Message from r_jaro 7/30/2008
* HI
* This is my structure data.
ID DIVISION. PROGRAM-ID. BadWork. ENVIRONMENTDIVISION. CONFIGURATIONSECTION. SOURCE-COMPUTER. xyz. OBJECT-COMPUTER. xyz. DATADIVISION. WORKING-STORAGESECTION.
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. proceduredivision.
INIT-CUSTOMER-RECORD. MOVESPACETO 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 runprogramandenter number - is ok
*but next field length 30 charset
*and i enter example:
*Johnny [enter]
*and i dont see nextDISPLAY FIELD because
*len(johnny) = 6 and my field is 30 letter.
*I dont no how i can enternext field-record.
*When i enter 30 letter thenevery thing is ok.
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.
