How to add % towards the end of my field value

abdulrafi · Posted: Fri Apr 22, 2016 2:51 pm

Hi,

I have a field like,

PART-NO=123456

Actually this field is of 15 bytes. But if I give partial value to this field I need to pad a % towards the end and search it in the DB2 table.

Could you please help me on how can I pad it.

Expected value=123456%

Bill Woodger · Posted: Fri Apr 22, 2016 3:07 pm

You mean you want to use LIKE for find all 15-digit numbers which start with those six numbers?

You will need to pad with % to the end of your field, not just have one.

INSPECT changing space to % is probably common. There's setting the field to ALL % and then STRING or reference-modification. Other ways. Depends on what you actually want, local standards, etc.

abdulrafi · Posted: Fri Apr 22, 2016 3:25 pm

What you said is correct. I need to pad a single % only to 123456 and look like 123456%.

Can I achieve it via INSPECT to pad it towards the end ?.

Bill Woodger · Posted: Fri Apr 22, 2016 3:50 pm

If all your data is six digits and you want to put one % at the end, just do it with the data-defintion.

01 a-nice-name.
05 the-six-digit-part-nicely-named PIC X(6).
05 the-trailing-percent-for-like PIC X value "%".

You put your six-digit field in the obvious place, and use a-nice-name for the seven-byte field with the trailing percent.

If doing something which does not allow group items, just use REDEFINES as well.

Rohit Umarjikar · Posted: Fri Apr 22, 2016 11:28 pm

Now, You confirmed that you have a DB2 then what stops you using a DB2 functions? like e.g.

Nic Clouston · Posted: Sun Apr 24, 2016 9:28 pm

Why waste DB2 resources when you can do it so much quicker within the program?

Rohit Umarjikar · Posted: Sun Apr 24, 2016 10:00 pm

I don't see a waste you when you query on sysibm.sysdummy1 in a cobol-db2 program and in my shop such formatting is easy and quick to expand in future changes than making some fancy cobol code.

Bill Woodger · Posted: Mon Apr 25, 2016 12:34 pm

You mean you don't see that there would be any difference between a VALUE statement (set once, when the program is loaded) and a DB2 statement per program use? Even if done only once, the DB2 solution is "longer" and "hides" the fact that a "%" is wanted at position seven. Nothing else.

Pandora-Box · Posted: Mon Apr 25, 2016 1:07 pm

I second what Bill said having just one '%' might not be working as expected. You need to pad '%' for the rest of the string

Nic Clouston · Posted: Mon Apr 25, 2016 7:42 pm

The DB2 solution incurs the overhead of leaving your program, getting DB2 to do something that is easy within your program whilst it could be doing some more useful DB2 stuff, and then returning to your program.

Rohit Umarjikar · Posted: Mon Apr 25, 2016 8:52 pm

Unless I misunderstand the situation of the original post of the starter , 123456 is just an example and the values may vary between 1-15 and if this is true then he needs to be handling it dynamically than a static. But id that is always a 6 bytes then Bill's way of handling can be chosen.
Regarding the overhead, I would consider that to be very minimal but either way TS now has a choice based on sites standards.
DB2 Solution

murugan_mf · Posted: Fri Apr 29, 2016 11:46 am

You can use this code:

Bill Woodger · Posted: Fri Apr 29, 2016 2:08 pm

Well, I suppose that will be quicker than using DB2...

Rohit Umarjikar · Posted: Tue May 03, 2016 10:05 pm

I wouldn't disagree anymore

don.leahy · Posted: Wed May 04, 2016 12:16 am

Trailing blanks in the host variable can be significant if LIKE is used with wildcards.

There is a complete discussion in:

www.ibm.com/support/knowledgecenter/SSEPEK_11.0.0/com.ibm.db2z11.doc.sqlref/src/tpc/db2z_likepredicate.dita

Especially see the section that discusses the the LIKE_BLANK_INSIGNIFICANT subsystem parameter.

Rijit · Active User Joined: 15 Apr 2010 Posts: 168 Location: Pune

I would say you can try this approach and see if works.

>> In working storage set a literal lit1 x(1) to a value of %

>>move the value 123456 or whatever into a alphanumeric variable
var1 x(15) . Instead of 123456 it could be 123456789 also.

If the length of Var1 < 15 do below operation

>>String Var1 delimited by space with lit1 delimited by size into a new output variable which is also x(15)

Else
Continue
Endif