Comments on: Clear leading zeros

By: bigkat

bigkat — Tue, 03 Nov 2009 12:56:52 +0000

Darn you Sloopy, distracting me with a phone call

I’ll beat you next time (or maybe the one after that or…)

By: sloopy

sloopy — Mon, 02 Nov 2009 16:51:02 +0000

Kat, who do think made the phone call?

By: neild

neild — Fri, 30 Oct 2009 15:07:28 +0000

EVALR trimmed = %triml( myField : ’0 ’)

Brilliant, thanks for everyones help.

Neil.

By: bigkat

bigkat — Fri, 30 Oct 2009 13:44:48 +0000

whoops

Guess Sloopy beat me in with the answer while I got tied up on a phone call!

Darn work getting in the way of things!

By: bigkat

bigkat — Fri, 30 Oct 2009 13:41:51 +0000

d field1          s             10a   inz('0000098030')      
d field2          s             10a                          
c                   evalr     field2 = %triml(field1:'0')    
c                   eval      *inlr = *on                    
c                   dump(a)                                  

FIELD1                CHAR(10)             '0000098030'
FIELD2                CHAR(10)             '     98030'

By: nullfields

nullfields — Fri, 30 Oct 2009 13:37:45 +0000

In COBOL you can use the INSPECT verb with the REPLACE LEADING ZEROES option.

By: sloopy

sloopy — Fri, 30 Oct 2009 13:15:35 +0000

Oh – forgot. You need to use the opcode EVALR, which will right-adjust the result.

EVALR trimmed = %triml( myField : ’0 ’)

By: sloopy

sloopy — Fri, 30 Oct 2009 13:13:17 +0000

You have a number in a character field, and want the leading zeros removed.

So, use this:

trimmed = %triml( myField : ’0 ’)

The second parameter contains a zero and a blank. The Trim Left BIF will trim BOTH those values off the LEFT side of the value, and place the result in the field TRIMMED.

Regards,

Sloopy

By: neild

neild — Fri, 30 Oct 2009 09:42:07 +0000

What data type is the column in “another file”? If it’s also CHAR(10), do you want left-or right-justified?

Tom

Hi,

Both fields are 10A and I need it right justified.

Neil.

By: tomliotta

tomliotta — Fri, 30 Oct 2009 02:07:56 +0000

I need to remove the leading zeros prior to inserting the field into another file.

What data type is the column in “another file”? If it’s also CHAR(10), do you want left-or right-justified?

Tom