Hello All,

We need to truncate a 200 character field to 100 characters using a define statement.

field100/A100 = Edit(field200);
didn't work.

Can you tell me what would?
The truncated positions could contain any characters, not just spaces or zeros.

Thanks to all!

FOCUS 7.2.5
IBM mainframe Z/OS

This message has been edited. Last edited by: Kerry,

Function SUBSTR should work.

FIELD100/A100 = SUBSTR(200,FIELD200,1,100,100,'A100');

[SOLVED] THANKS

Please make yourself familiar with the functionsa available in FOCUS, they are all in the technical documentations.

Although you can use EDIT to put a smaller field into a larger one, you cannot put a larger field into a smaller one without using a mask. Dan's use of SUBSTR is probably the shortest way to get what you want. You could also use EDIT in the following manner to get the first 100 characters of the field (there are 100 9's)

field100/A100 = EDIT(field200,'9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999');

The trailing $ signs are not necessary if you're just excluding al remaining characters. Refer to the documentation for proper use of the EDIT command.