| View previous topic :: View next topic |
| Author |
Message |
nadh
Intermediate
Joined: 08 Oct 2004
Posts: 192
Topics: 89
|
 Posted: Wed Feb 29, 2012 12:27 pm Post subject: Data Movement |
 |
|
Hi,
I've been not coding since one year. I've this problem below. I doubt something going wrong in the below code.
I've declarations as below
| Code: |
05 ALL-NINES PIC 9(05) COMP-3
VALUE 99999.
05 TYPE-OF-MAINTENANCE-SEQUENCE
PIC 9(04) COMP
VALUE ZERO.
05 SEQUENCE-NUMBER PIC 9(03) COMP-3
VALUE ZERO. |
Can we write like below..is it ok
| Code: |
MOVE ALL-NINES TO
TYPE-OF-MAINTENANCE-SEQUENCE
SEQUENCE-NUMBER
|
Also I've below declaration
| Code: |
AA-NUMBER-BREAKDOWN OF WORK-AREAS
05 AA-NUMBER-BREAKDOWN.
07 ATA-CODE PIC 9(04) VALUE ZERO.
07 DASH-FILLER PIC X(01) VALUE SPACE.
07 ENGINEERING-ID-SEQUENCE
PIC 9(05) VALUE ZERO.
03 LC-KEY.
05 ENGINEERING-DOCUMENT-ID.
07 ATA-CODE PIC 9(05) COMP-3
VALUE ZERO.
07 ENGINEERING-ID-SEQUENCE
PIC S9(05) COMP-3
VALUE ZERO.
|
Can we move data from AA-NUMBER-BREAKDOWN TO LC-KEY...i.e.,
CORRESPONDING ATA-CODE AND ENGINEERING-ID-SEQUENCE data in both ways?
Thanks
Nadh |
|
| Back to top |
|
 |
nadh
Intermediate
Joined: 08 Oct 2004
Posts: 192
Topics: 89
|
| Posted: Wed Feb 29, 2012 12:39 pm Post subject: |
|
|
Hi,
Sorry I forgot to tell that this code is used in IMS. Program is working correctly. The problem is occuring when data exceeds 9999 value.But they all look to be duplicates, the only value that changes is the sequence number.when there is more than 9999 records does the data overlay onto the next field or exactly what?
Please clarigy.
Thanks
nadh |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
