That's a good example to keep on your WEB page, since it's easily forgotten,
but very handy to know/have access to.

Thanks.

> -----Original Message-----
> From: Paul Gobes [SMTP:[log in to unmask]]
> Sent: Friday, August 17, 2001 4:31 PM
> To:   [log in to unmask]
> Subject:      Re: Supertool : Leading Zeroes
>
> OK, I'm wrong for a 2nd time today!
>
> It's time to actually create an example:
>
> Here's a file with one field, X4, leading spaces:
>
> >fo data
>     File: DATA.PAUL.TECHSUP     (SD Version B.00.00)
>        Entry:                     Offset
>           X4                   X4      1
>     Limit: 3  EOF: 3  Entry Length: 4  Blocking: 64
> >in data;o*;x
>   23
>    5
>  123
> IN=3, OUT=3. CPU-Sec=1. Wall-Sec=1.
>
> Now define a new DISPLAY field and perform and arithmetic
> operation on it, so that Suprtool actually zero fills the field:
>
> >in data
> >def z4,1,4,display
> >ext z4 = z4 * 1
> >out data2
> >x
> Warning:  Using Output DATA2,Link
> IN=3, OUT=3. CPU-Sec=1. Wall-Sec=1.
>
>
> Now let's look at the file, and what the data looks like now:
>
> >fo data2
>     File: DATA2.PAUL.TECHSUP     (SD Version B.00.00)
>        Entry:                     Offset
>           Z4                   Z4      1
>     Limit: 3  EOF: 3  Entry Length: 4  Blocking: 64
> >in data2;o*;x
> 0023
> 0005
> 0123
> IN=3, OUT=3. CPU-Sec=1. Wall-Sec=1.
>
>
> Sorry for the misleading previous posts.
>
> /paul
>
> -----------------------------------------
> Paul Gobes, Technical Support Mgr.
> Robelle Solutions Technology Inc.
> 888 ROBELLE (762-3553)  or 1-604-582-1700
> [log in to unmask]   fax: 1-604-582-1799
>
> -----------------------------------------
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *