View previous topic :: View next topic
|
Author |
Message |
deepali33
New User
Joined: 21 Sep 2008 Posts: 4 Location: pune
|
|
|
|
Hi,
I want to remove the leading space from 1 variable which has
PIC clause S9(16)V99.
Ex.
i/p is -145.35
then it is coming as ' -145.35'
Here I want to remove the leading space from this variable.
Please suggest.
Thanks in advance. |
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
Move the variable to a WS Edit Pattern and bump through it -
Code: |
03 WS-VARIABLE-V99 PIC S9(16)V99 VALUE -145.35.
03 WS-VARIABLE REDEFINES WS-VARIABLE-V99 PIC S9(18).
03 WS-PATTERN PIC Z(18).
03 WS-SUB PIC 9(08) COMP.
MOVE WS-VARIABLE TO WS-PATTERN.
IF WS-PATTERN (1:) NOT = SPACES
MOVE 1 TO WS-SUB
PERFORM UNTIL WS-SUB > LENGTH OF WS-PATTERN
IF WS-PATTERN (WS-SUB:1) NOT = SPACE
DISPLAY 'VARIABLE (WITH SPACES REMOVED) IS ===> ', WS-PATTERN (WS-SUB:)
MOVE LENGTH OF WS-PATTERN TO WS-SUB
END-IF
ADD 1 TO WS-SUB
END-PERFORM
ELSE
DISPLAY 'VARIABLE IS ALL ZEROS - PLEASE INVESTIGATE'
END-IF.
|
There are probably other ways to do this.
Bill |
|
Back to top |
|
|
deepali33
New User
Joined: 21 Sep 2008 Posts: 4 Location: pune
|
|
|
|
Hi Bill,
Thanks a lot for the solution. |
|
Back to top |
|
|
|