Thank you Jim! Your method works as long as all amounts are + In my
application (W2 submittal) this is the case. Also the next number covers up
any space or sign that would be on the right.
Great thinking!
----- Original Message -----
From: "James (Jim) Bentley" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, December 12, 2001 4:34 PM
Subject: Re: picture format problem 6.5++ dos
> Bernard,
>
> Try following:
> set var agrs = (format(.igrs,"[-]00000000000"))
>
> This will still give you a 12 character field but the space
> will be on the right.
>
> You then can use the LN2 syntax below to accomplish what
> you wish.
>
>
> --
> Jim Bentley
> American Celiac Society
> [EMAIL PROTECTED] - email
> (973) 776-3900 x5029 - voicemail/fax
>
>
>
> ---- "Bernard Lis" <[EMAIL PROTECTED]> wrote:
> > In the following code, I want to put 2 currency amounts
> > into a text line, right justified and zero filled. The
> > fields are 11 spaces each.
> > The first amount should go into 1 thru 11 and the second
> > amount should go into 12 thru 22.
> >
> > However, it seems that the format function is putting a
> > sign field in front of the digits and therefore truncating
> > the last digit.
> >
> > Anyone know how I can eliminate the extra space in front
> > of the amounts?
> >
> > set echo on
> >
> > set var gross curr = 35,123.45
> >
> > set var ftax curr = 2,345.56
> >
> > set var igrs int = (.gross * 1000/10)
> >
> > set var itax int = (.ftax * 1000/10)
> >
> > set var agrs = (format(.igrs,"[>]00000000000"))
> >
> > set var atax = (format(.itax,"[>]00000000000"))
> >
> > set var ln = " "
> >
> > set var ln = (sput(.ln,.agrs,1))
> >
> > set var ln = (sput(.ln,.atax,12))
> >
> > set var ln2 = " "
> >
> > set var ln2 = (smove(.agrs,1,11,.ln2,1))
> >
> > set var ln2 = (smove(.atax,1,11,.ln2,12))
> >
> > write .ln
> >
> > write .ln2
> >
> > set var ln3 = " "
> >
> > set var ln3 = (smove("ABCDE",1,5,.ln3,1))
> >
> > set var ln3 = (smove("fghij",1,5,.ln3,6))
> >
> > write .ln3
> >
> > set echo off
> >
> > return
> >
> >
>
> __________________________________________________
> FREE voicemail, email, and fax...all in one place.
> Sign Up Now! http://www.onebox.com
>
> ================================================
> TO SEE MESSAGE POSTING GUIDELINES:
> Send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: INTRO rbase-l
> ================================================
> TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
