That's the way I would do it.

Bob Thomas
perotsystems
[log in to unmask]
(972) 340-5631


-----Original Message-----
From: John Hurt [mailto:[log in to unmask]]
Sent: Wednesday, May 03, 2000 11:01 AM
To: Bob Thomas
Subject: FW: COBOL- Justify Right for data


Can you help her?

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]]On
Behalf Of TAWNY TRAN
Sent: Wednesday, May 03, 2000 10:53 AM
To: [log in to unmask]
Subject: COBOL- Justify Right for data


Dear Listers,
I haven't code COBOL for a while, so I wonder if there is other way to do
right justify for an alphanumeric field from input?

The input is from 12 to 16 digits.  If there are 12 digits, I must discard
all trailing spaces, so only I can think of is PERFORM
...VARYING  indexed FROM 16 BY -1 UNTIL...... to do the job.

Or is something new I don't know...?

Thanks,