Joined: 06 Jun 2008 Posts: 8281 Location: Dubuque, Iowa, USA
I do not understand what you mean by "leading space suppression". Do you mean the field should be left-justified? Leading spaces cannot be suppressed -- there has to be spaces, LOW-VALUES, or something in the character position.
You need to provide more details -- the variable picture and exactly what you want the variable output to look like.
Joined: 14 Jan 2008 Posts: 2504 Location: Atlanta, Georgia, USA
You can define (for example) an edit-field as PIC BBBBBBBBBX. In this example, if the value were right-justified (padded with high-order SPACES) with a low-order 'A', then the edit-field would equal 'bbbbbbbbbA', with each 'b' representing a BLANK/SPACE.
However, if the value is left-justified padded with low-order SPACES, then review the Intrinsic Function REVERSE, used together with the INSPECT verb.
This combination has been discussed on the board before.
Intrinsic Functions were introduced with COBOL/370, about 15-18 years ago.