|
View previous topic :: View next topic
|
| Author |
Message |
dipanshu
New User
Joined: 16 Jan 2006
Posts: 53
Location: pune
|
|
|
|
Sub field is a seven character field, the characters in position 1-2 are alpha and characters in positions 3-7 are numeric, e.g. ?ON01234?. we have to remove leading zeroes from the sub field so that ?ON01234? becomes ?ON1234?
Sub is an array element say subarc(x)
By using chracter handling verbs or through refrence modifier
Pls assist with example
Regards & thanks
Dipanshu |
|
| Back to top |
|
 |
DavidatK
Active Member
Joined: 22 Nov 2005
Posts: 700
Location: Troy, Michigan USA
|
|
|
|
Dipanshu,
There are several ways to accomplish this, Here is one:
| Code: |
05 SUBARC PIC x(7).
PERFORM
UNTIL SUBARC(3:1) not = ?0?
MOVE SUBARC(4:4) to SUBARC(3:5)
END-PERFORM
|
Others will probably also have ideas
Enjoy
Dave, |
|
| Back to top |
|
|
|
|
