|
View previous topic :: View next topic
|
| Author |
Message |
pnkumar
Warnings : 2
New User
Joined: 27 Oct 2005
Posts: 24
|
|
|
|
Hi,
I have a copy book ABCRL having the following layout.
| Code: |
01 ABC-RECORD.
03 ABC-KEY.
05 ABC-NAME PIC X(20).
05 ABC-NO PIC 9(10).
03 ABC-VARIABLE-AREA.
05 ABC-ADD-AREA PIC X(4000). |
I have another copy book RSTRL having the following layout.
| Code: |
01 RST-RECORD.
02 RST-KEY1.
03 RST-MFR PIC X(25).
02 RST-RECORD.
03 RST-KEY.
05 RST-NAME PIC X(20).
05 RST-NO PIC 9(10).
03 RST-VARIABLE-AREA.
05 RST-ADD-DATA PIC X(4000). |
My Query is can i move the 01 level of ABCRL to 02 level of RSTRL i.e.
| Code: |
| MOVE ABC-RECORD TO RST-RECORD. |
I think from lower level (03) to higher level (01) group move is fine, but i am not sure about the above higher level 01 group move to 02 group level .
Please help me , if the move is not allowed then please let me know how it can be achieved.
Thanks,
Nagaraja |
|
| Back to top |
|
 |
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
There is no problem either way.
An alphanumeric move (group levels are alphanumeric) moves some number of bytes from one address to another. If the 2 are not of equal length, truncation or padding may occur but if they are the same it is just a straight move. |
|
| Back to top |
|
|
pnkumar
Warnings : 2
New User
Joined: 27 Oct 2005
Posts: 24
|
|
|
|
Thanks Dick Scherrer, for your quick response.
My confusion is with the levels, as per your answer i understood that there is no problem with the levels, the movement should be a straight one and if both are having the same length then no truncation will occur otherwise truncation will occur.
Please clarify if i am wrong.
Thanks,
Nagaraja |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
| Quote: |
| i understood that there is no problem with the levels, the movement should be a straight one and if both are having the same length then no truncation will occur otherwise truncation will occur. |
You are correct 
At the top of the page is a link to "IBM Manuals". Suggest you read about MOVE in the Language Reference for your release of COBOL.
d |
|
| Back to top |
|
|
|
|
