View previous topic :: View next topic
|
Author |
Message |
jruiza
New User
Joined: 31 Aug 2005 Posts: 23
|
|
|
|
this is what i want,,,
ws-b-caliper is 0.030
to be
zz-b-caliper 030 (only decimals in char attribute)
BELOW coding is not working...
MOVE WS-B-CALIPER TO ZZ-B-CALIPER
MOVE ZZ-B-CALIPER TO XX-B-CALIPER
01 WS-B-CALIPER PIC 9V999 COMP.
01 ZZ-B-CALIPER PIC 9V999.
01 XX-B-CALIPER PIC X(4).
"ZZ-B-CALIPER (NUMERIC NON-INTEGER)" AND "XX-B-CALIPER (ALPHANUMERIC)" DID NOT FOLLOW COMPATIBILITY RULES. THE STATEMENT WAS DISCARDED.
Any idea?
Thanks in advance,
Jordi |
|
Back to top |
|
|
prav_06 Warnings : 1 Active User
Joined: 13 Dec 2005 Posts: 154 Location: The Netherlands
|
|
|
|
Very simple U cannot move a assumed decimal variable to alphanumeric variable, but if ya try to move a numeric varible with no assumed decimal point it would work
Cheer's,
Thamilzan. |
|
Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
Code: |
01 filler.
05 WS-B-CALIPER PIC 9V999 COMP.
05 ZZ-B-CALIPER PIC 9V999.
05 XX-B-CALIPER redefines zz-b-caliper PIC X(4). |
MOVE WS-B-CALIPER TO ZZ-B-CALIPER
now XX-B-CALIPER is "0030" |
|
Back to top |
|
|
mshashio
New User
Joined: 24 Apr 2006 Posts: 4
|
|
|
|
Define 01 ZZ-B-CALIPER PIC 9V999 as
01 ZZ-B-CALIPER PIC 9.999
then it will work |
|
Back to top |
|
|
jruiza
New User
Joined: 31 Aug 2005 Posts: 23
|
|
|
|
IT'S WORKING NOW
T H A N K S |
|
Back to top |
|
|
mmwife
Super Moderator
Joined: 30 May 2003 Posts: 1592
|
|
|
|
The simplest solution:
Code: |
MOVE WS-B-CALIPER TO ZZ-B-CALIPER
MOVE ZZ-B-CALIPER(2:) TO XX-B-CALIPER |
If you want a leading space code XX-B-CALIPER with VALUE SPACE then
MOVE ZZ-B-CALIPER(2:) TO XX-B-CALIPER(2:)
If you want a leading zero code XX-B-CALIPER with VALUE ZERO and MOVE accordingly. |
|
Back to top |
|
|
|