Previous Topic Next topic Print topic


ACCEPT Fields at the Edge of the Screen

Solution:

Change the definition of the relevant PICTURE clause from numeric to alphanumeric. Alternatively, change the PICTURE clause so that the field does not go beyond the edge of the screen.

Example:

If your program contains the following statement:

ACCEPT data-item AT COLUMN NUMBER 75.

where data-item is a numeric data item defined as PIC 9(10), a value of 123456 entered into the ACCEPT field will be held under this COBOL system as "0000123456". Under the RM/COBOL system, however, the value in the ACCEPT field would be held as "1234560000". To allow this COBOL system to emulate the behavior of this value when it is held in the ACCEPT field under the RM/COBOL system, alter the definition of the data item in your program to PIC X(10) or PIC 9(6).

Previous Topic Next topic Print topic