MVSFORUMS.com

[Sarangadhar]

I need a DB2 TRIM equivalent of COBOl.

Below is the value in question:

[CICS Guy]

Is it just one space in front and one in back? Or an unknown number at either end?
Where do you want to put this value, into an area that pads trailing spaces?
Into a small array with an ODO value that gives the correct shortened length?

[Sarangadhar]

spaces at front and at back are known.

I dont want to pad any spaces. I would like to move it to a numeric value to perform numeric check. As numeric check fails what the spaces are padded, I would like to move it to numeric variable and perform numeric on it.

Requirement:
we will receive numeric item thru a alphanumeric field. there may be trailing and leading spaces around it. I would like to remove those, but i dont want to remove embedded spaces.
_________________
Thanks

[CICS Guy]

Arg!

If you have the Enterprise COBOL, just us the intrinsic function NUMVAL......

Oh, oops, no, you have a "numeric item" with "embedded spaces"...BUZZ, wrong answer, imbedded spaces are not "numeric"....

Your requirement needs to be more fully expanded upon..... Just try just explaining what your needs are and let the extensive available talent help provide a potential solution?

[Sarangadhar]

Okay, lemmi me write ny requirement here:

I'll receive amount value thru a character field.
if the input field is defined as PIC X(10) and the value comming thru input is 1234, then remaining 6 places are padded with spaces.

1. I can't perform numeric check as there are spaces padded
2. If I move to a numeric field, no right justification happens.


here is the program:
01 PGM-NAME.
10 VAR1 PIC X(5) VALUE "333".
10 VAR11 PIC X(9) VALUE "33 3 ".
10 VAR5 PIC 9(12).

PROCEDURE DIVISION.
0000-MAIN.
MOVE VAR1 TO VAR5 .
DISPLAY 'VAR5 =' VAR5 .

MOVE VAR11 TO VAR5 .
DISPLAY 'VAR66=' VAR5 .



output
VAR5 =0000000333 0
VAR66=00033 3 0
_________________
Thanks

[CICS Guy]

[Sarangadhar]

Hi,
I dont want to remove the spaces in between the value, if any.

in 2nd case - I want the VAR66 to be 00000000033 3.

If source system accidentally inserts a space in between, I want to catch it.
_________________
Thanks

[CICS Guy]

[sriramla]

You may want to do this:

1. Use INSPECT command with TALLYING FOR LEADING / TRAILING SPACES option to get the starting and ending positions of your actual input. For example if your input is coming as X(10) with 2 leading spaces, 3 trailing spaces then use the above INSPECT command to identify the positions 3 to 7 as your 'actual' data to be processed.

2. Next ,use the INSPECT again for X(3:7) to identify are there any spaces. If yes, then your data is not good. Perform appropriate error handling.

Note that I've considered only numbers and spaces in the input. If there are alphabets or multiple decimal points etc then you need special logic to handle them.

[Sarangadhar]

Sriramla,
INSPECT doesn't have TRAILING SPACES.

CICS Guy,
I dont want to remvoe the spaces that are embedded in between the value. Wanted to remove only trailing spaces.
_________________
Thanks

[CICS Guy]

[Sarangadhar]

sorry for the change...

in fact, leading spaces can be removed. but i am okay if not. But i surely need to remove the trailing spaces.

if you have both the processes, please let me know. For now, I am in the need of removing the trailing spaces.
_________________
Thanks

[sriramla]

For trailing spaces, use FUNCTION REVERSE with INSPECT LEADING.

[Sarangadhar]

many Thanks Sriramla..
it worked.. excellent..
_________________
Thanks