Ram,

BASIC easily does it:

>LIST
   10 DIM N$[20]
   20 N$="002323S             "
   25 PRINT "Before: '"+N$+"'"
   30 IF N$[1,1]<>"0" THEN 100
   40 N$=N$[2,LEN(N$)]
   50 GOTO 30
  100 PRINT "After : '"+N$+"'"
  999 END
>RUN
Before: '002323S             '
After : '2323S             '

>

Frank

On Wed, 21 Feb 2001 16:18:58 -0500, Ram Thekkekara <Ram.Thekkekara@HICKORY-
FARMS.COM> wrote:

>Gurus,
>
>Is there any way I can remove leading zeros from a field in Quiz or
Suprtool ?
>(I checked the manuals for functions and I couldn't find one)
>
>If not available, can it be done in COBOL in an efficient way ?
>
>eg: I have an item# field which has length of 20 chars
>So if I have '000021             '  how do I convert
to '21                   '
>another example : '002323S             ' to convert as '2323S            '
>
>Thanks,
>
>Ram Thekkekara
>Hickory Farms, Inc
>Phone: (419) 893 7611 xt 376 EST
>Email : [log in to unmask]