MVSFORUMS.com

batu544 · Beginner Joined: 02 Aug 2005 Posts: 75 Topics: 27

hi all,
Can anyone tell me how to do solve the following problem?

I have one variable in my program . after reading a file , the field contains some data .

i want to trim all the space from that variable to use that modified variable.

e.g .. inputs are

43Q_36__A
144QCA__100_B
_46__RT_12

My output should be

43Q36A
144QCA100B
46RT12

here i can't use unstring command bcoz the space is not fixed . here one ( _ ) stands for a single space.
_________________
Regards,
batu

mask-of-zorro · Beginner Joined: 19 Nov 2005 Posts: 23 Topics: 10

Hi batu544,

As far as i know, no keywords in COBOL can help this.so incorporate a logic which will take this variable as input,check for spaces in every character..and write it to an array. Wherever spaces are found just skip and if non-blank write it to an output array.

__________________________________________

"No one will listen until you make a mistake"

kolusu · Posted: Thu Feb 23, 2006 5:45 am Post subject:

batu544,

Please search before posting. check this topic which discusses the exact same issue

http://mvsforums.com/helpboards/viewtopic.php?t=4658&highlight=inspect

Hope this helps...

Cheers

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

batu544 · Beginner Joined: 02 Aug 2005 Posts: 75 Topics: 27

thanks !!! Smile

_________________
Regards,
batu

gvnagendrareddy · Beginner Joined: 11 Oct 2007 Posts: 1 Topics: 0

hey i have the same issue can some one help me in this regard

hi all,
Can anyone tell me how to do solve the following problem?

I have one variable in my program . after reading a file , the field contains some data .

i want to trim all the space from that variable to use that modified variable.

e.g .. inputs are

43Q_36__A
144QCA__100_B
_46__RT_12

My output should be

43Q_36_A
144QCA_100_B
46_RT_12

here i can't use unstring command bcoz the space is not fixed . here one ( _ ) stands for a single space.my output should have one psace after each string

CraigG · Posted: Tue Oct 23, 2007 7:06 pm Post subject:

vkphani · Intermediate Joined: 05 Sep 2003 Posts: 483 Topics: 48

nagendra,

you have to open a new thread. Using a sort tool you can get the desired results. Try the below code.

Frank Yaeger · Posted: Wed Oct 24, 2007 10:06 am Post subject:

Actually, the correct DFSORT job would be:

vkphani · Intermediate Joined: 05 Sep 2003 Posts: 483 Topics: 48

Frank,

I got the below error with your code.

krisprems · Posted: Wed Oct 24, 2007 10:56 am Post subject:

vkphani
You are using SYNCSORT, and SYNCSORT doen't have a feature of SQZ Neutral

_________________
cHEERs
krisprems

vkphani · Intermediate Joined: 05 Sep 2003 Posts: 483 Topics: 48

krisprems,

ICEMAN is nothing but DFSORT right. Which pgm should we use for SQZ then?

krisprems · Posted: Wed Oct 24, 2007 12:08 pm Post subject:

Frank Yaeger · Posted: Wed Oct 24, 2007 2:51 pm Post subject:

vkphani,

PGM=ICEMAN and PGM=SORT invoke the primary sort product at your site. In your case, the WER messages indicate the primary sort product at your site is Syncsort, not DFSORT.

The job I provided works fine with DFSORT because DFSORT supports the SQZ function. Syncsort does not support the SQZ function so you can't use it unless your site licenses both Syncsort and DFSORT, which is unlikely. If your site does license both products, then since Syncsort is your primary sort, to use DFSORT you'd have to JOBLIB/STEPLIB to it using the libraries where your System Programmers installed it.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

vkphani · Intermediate Joined: 05 Sep 2003 Posts: 483 Topics: 48

Frank and Kris thanks for your inputs.