|
Set accept length of window field |
Source |
|
|
CALL SETLENG USING window field length |
|
Parameters |
|
Window |
The window id of the window containing the input field whose length you want to change. |
|
Field |
The name of the input field being changed. |
|
Length |
The new input length to be used for the field. |
|
Copybooks |
|
None |
|
|
Other Requirements |
|
The routine must be called before the window is invoked. |
|
Purpose |
|
This routine allows you to change the length of an alphanumeric data field used for input within a window. |
|
Exceptions |
|
STOP 40 |
Window did not contain any fields. |
|
STOP 41 |
Window did not contain specified field. |
|
STOP 42 |
Specified field was not a PIC X(nn) item. |
|
Example |
77 Z-LENGTH PIC 9(4) C * Used to adjust length of input field WINDOW W1 EDT 01 01 "Account" 01 09 W1ACCOUNT X(8) ENDWINDOW MOVE 6 TO Z-LENGTH CALL SETLENG USING W1 W1ACCOUNT Z-LENGTH |
|
The window now displays and accepts as if it had been compiled as a PIC X(6) instead of a PIC X(8) |
© 1998 TIS Software Ltd