View previous topic :: View next topic
|
Author |
Message |
venu.pamulapati
New User
Joined: 23 Oct 2010 Posts: 5 Location: bangalore
|
|
|
|
any body can explain with simple examples of refernce modification[/b] |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello and welcome to the forum,
When posting a question it is rather important to post in the correct part of the forum. . .
I suspect the question has nothing to do with db2, so it has been moved to the COBOL part of the forum.
A subject of "COBOL" will get few replies. One needs to use a proper subject. . .
At the top of the page is a link to "IBM Manuals". The first of these is for COBOL. Read about reference modification in one of the Language Reference manuals and if you find something that is not clear, post what you found and your doubt. Someone will be able to clarify.
You might also consider the forum SEARCH (in the blue bar above) as there have been several topics about reference modification. |
|
Back to top |
|
|
HectorSam101
New User
Joined: 04 Nov 2010 Posts: 3 Location: IN
|
|
|
|
01 WS-FIRST PIC X(05) VALUE 'FIRST'.
01 WS-SECOND PIC X(06) VALUE 'SECOND'.
01 WS-RESULT PIC X(11) VALUE SPACES.
MOVE WS-FIRST TO WS-RESULT
MOVE WS-SECOND TO WS-RESULT(6:6)
WS-RESULT --> FIRSTSECOND.
I used reference modification to place WS-SECOND at 6th position of WS-RESULT.
(6:6) --> (start-pos:length) ; length can be ignored if you are not concerned about it.. (start-pos : ).
This can be done otherway as well....
eg;
assuming WS-RESULT --> FIRSTSECOND
INITIALIZE WS-SECOND.
WS-SECOND --> ''
MOVE WS-RESULT(6:6) TO WS-SECOND
WS-SECOND --> SECOND
The same can be done with a numeric (9) field also.
hope this helps... |
|
Back to top |
|
|
|