Girish Firke
New User
Joined: 04 Feb 2009 Posts: 5 Location: Mumbai
|
|
|
|
Hi Raki,
First move S9(9) comp-3 into 9(9) field-B.
Then you can move last 6 bytes of field-B to another field-C.
please see below example.
Working-storage section.
01 WS-A PIC S9(9) comp-3.
01 WS-B PIC 9(9).
01 WS-C PIC X(6).
PROCEDURE DIVISION.
MOVE WS-A TO WS-B.
MOVE WS-B(6:4) TO WS-C(1:4).
MOVE WS-B(4:2) TO WS-C(5:2).
GOBACK.
Thanks,
Girish |
|