MVSFORUMS.com

Siddheart22 · Posted: Mon Oct 03, 2005 9:07 pm Post subject: Variable Data

Hi,

I have a DB2 unload file which contains a field [besides many others] - NAME-FIELD 100 bytes long.

This field could contain First Name, Last Name, or both. There could be one or more space/s between the first & last names.

E.g. of NAME-FIELD Content:
MR. JOHN HUNKINS
MRS. JEAN LIVINGSTON
MR. LEON B.
MR. YURI SHTEMBERG
MRS. BRIGITTE S.

My question is:
If I want to read every record and move only the data part of the NAME-FIELD excluding the trailing spaces after the last name, which is the most efficient way of doing it?

Thanks in advance,
Siddheart22.

ANIL SARATHY · Posted: Tue Oct 04, 2005 12:09 am Post subject:

Read the variable from right until you read first space character.

01 WS-NAME-CHK PIC X(30).
01 WS-END-OF-FIELD pic x(1)
88 END-FOUND value 'Y'

PERFORM VARYING WS-SUB-NAME FROM
30 BY -1
UNTIL END-FOUND OR WS-SUB-NAME = 0
IF WS-NAME-CHK(WS-SUB-NAME:1) NOT EQUAL TO SPACE
MOVE 'Y' TO WS-END-OF-FIELD
DISPLAY 'LENGTH ' WS-SUB-NAME
END-IF
END-PERFORM

use WS-NAME-CHK(1:WS-SUB-NAME) to move into a variable.
_________________
Anil Sarathy

Phantom · Posted: Tue Oct 04, 2005 12:31 am Post subject:

Siddheart22,

Try the following solutions.
http://mvsforums.com/helpboards/viewtopic.php?t=3185&highlight=length

Since you are getting the data from DB2, the solution above might be very useful for you.

Other methods,
http://www.mvsforums.com/helpboards/viewtopic.php?t=525&highlight=length
http://www.mvsforums.com/helpboards/viewtopic.php?t=1282&highlight=length

Thanks,
Phantom

kolusu · Posted: Tue Oct 04, 2005 4:48 am Post subject:

Siddheart22,

Check the function RTRIM to remove the trailing blanks

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DSNSQH11/3.2.71?SHELF=&DT=20010718164132&CASE=

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu