View previous topic :: View next topic
|
Author |
Message |
nani556 Currently Banned New User
Joined: 10 Jul 2010 Posts: 7 Location: banglore
|
|
|
|
Hi friends
i have a req that po-no in input record is declared as s9(7) comp-3 and in output record the last digit of po-num is declared as s9(7) comp-3,last digit should be padded with 8.
i can move 8 directly to that position or i need to move any working storage element and after i need to move to out put field.
Plz help me. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
You need to more clearly explain what you are trying to do.
Suggest you show a few "input" values and the output you want when these are processed. |
|
Back to top |
|
|
sambit_mech
New User
Joined: 14 Jul 2010 Posts: 13 Location: India
|
|
|
|
WS-PO-NO PIC +9999999.
MOVE PO-NO to WS-PO-NO-ZD
MOVE 8 TO WS-PO-NO-ZD (8:1)
MOVE WS-PO-NO-ZD TO PO-NUM
This should work. |
|
Back to top |
|
|
nani556 Currently Banned New User
Joined: 10 Jul 2010 Posts: 7 Location: banglore
|
|
|
|
HI THANKS FOR YOUR QUICK RESPONSE. |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
Quote: |
last digit should be padded with 8. |
Please define what you mean by 'padded'.....
nani556 wrote: |
i have a req that po-no in input record is declared as s9(7) comp-3 and in output record the last digit of po-num is declared as s9(7) comp-3,last digit should be padded with 8.
i can move 8 directly to that position or i need to move any working storage element and after i need to move to out put field. |
No.
sambit_mech wrote: |
WS-PO-NO PIC +9999999.
MOVE PO-NO to WS-PO-NO-ZD
MOVE 8 TO WS-PO-NO-ZD (8:1)
MOVE WS-PO-NO-ZD TO PO-NUM
This should work. |
Not if WS-PO-NO is comp-3 as specified. |
|
Back to top |
|
|
|