View previous topic :: View next topic
|
Author |
Message |
saji123
New User
Joined: 15 Jul 2009 Posts: 19 Location: Chennai
|
|
|
|
Hi all,
I have date in a variable with PIC s9(9) comp.
I want the value to be moved into the output field with lenght PIC x(8). Can anyone please tell me how can I move this?
Thanks |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
What you have tried on this?? |
|
Back to top |
|
|
saji123
New User
Joined: 15 Jul 2009 Posts: 19 Location: Chennai
|
|
|
|
I have tried:
I have DOCUMENT-DATE PIC X(08).
and W040-EQRFND-TRANSDTE pic s9(9) comp.
01 W10-TRANSDT-DATE.
03 W10-MACHDTE.
05 W10-MACHDTE-CC PIC XX.
05 W10-MACHDTE-YY PIC XX.
05 W10-MACHDTE-MM PIC XX.
05 W10-MACHDTE-DD PIC XX.
01 WS-MACH-DTE-TMP PIC 9(8) VALUE ZERO.
01 WS-MACH-DTE-COMP PIC S9(9) COMP.
MOVE W040-EQRFND-TRANSDTE (W040-EQRFND-SUB)
TO WS-MACH-DTE-COMP
MOVE WS-MACH-DTE-COMP TO WS-MACH-DTE-TMP
MOVE WS-MACH-DTE-TMP(1:2) TO W10-MACHDTE-CC
MOVE WS-MACH-DTE-TMP(3:2) TO W10-MACHDTE-YY
MOVE WS-MACH-DTE-TMP(5:2) TO W10-MACHDTE-MM
MOVE WS-MACH-DTE-TMP(7:2) TO W10-MACHDTE-DD
MOVE W10-MACHDTE TO DOCUMENT-DATE OF WEBIN02 |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8697 Location: Dubuque, Iowa, USA
|
|
|
|
Why not
Code: |
05 DOCUMENT-DATE-N PIC 9(08).
05 DOCUMENT-DATE REDEFINES DOCUMENT-DATE-N
PIC X(08).
MOVE W040-EQRFND-TRANSDTE TO DOCUMENT-DATE-N. |
You move the USAGE COMP field to a USAGE DISPLAY field that is numeric, redefine it, and use the alphanumeric field as you wish. |
|
Back to top |
|
|
smilingashutosh
New User
Joined: 08 Jun 2006 Posts: 22
|
|
|
|
TRY THIS...lemme know in case of error
I have DOCUMENT-DATE PIC X(08).
and W040-EQRFND-TRANSDTE pic s9(9) comp.
01 W10-TRANSDT-DATE.
03 W10-MACHDTE.
05 W10-MACHDTE-CC PIC XX.
05 W10-MACHDTE-YY PIC XX.
05 W10-MACHDTE-MM PIC XX.
05 W10-MACHDTE-DD PIC XX.
01 WS-MACH-DTE-TMP PIC 9(8) VALUE ZERO.
01 WS-MACH-DTE PIC 9(9).
MOVE W040-EQRFND-TRANSDTE (W040-EQRFND-SUB)
TO WS-MACH-DTE
MOVE WS-MACH-DTE(2:2) TO W10-MACHDTE-CC
MOVE WS-MACH-DTE(4:2) TO W10-MACHDTE-YY
MOVE WS-MACH-DTE(6:2) TO W10-MACHDTE-MM
MOVE WS-MACH-DTE(8:2) TO W10-MACHDTE-DD
MOVE W10-MACHDTE TO DOCUMENT-DATE OF WEBIN02 |
|
Back to top |
|
|
saji123
New User
Joined: 15 Jul 2009 Posts: 19 Location: Chennai
|
|
|
|
Thank you all
It is working fine now..
|
|
Back to top |
|
|
|