View previous topic :: View next topic |
Author |
Message |
ldushkin Beginner
Joined: 05 Apr 2006 Posts: 56 Topics: 20
|
Posted: Thu Jul 20, 2006 8:22 am Post subject: Modify LOW-VALUE |
|
|
Hi all,
Can we modify field which is LOW-VALUE through the COBOL pgm?
Thank you for the help |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
kolusu Site Admin
![Site Admin Site Admin](images/ranks/adminpic.jpg)
Joined: 26 Nov 2002 Posts: 12367 Topics: 75 Location: San Jose
|
Posted: Thu Jul 20, 2006 8:35 am Post subject: |
|
|
ldushkin,
huh? Do you want to modify the contents of figurative constant LOW-VALUE ? Low-value reprensts the lowest ordinal position in thecollating sequence used. For the EBCDIC collating sequence, the character is X'00'; for other collating sequences, the actual character used depends on the collating sequence used.
Why don't you show what you are trying to do with an example.
Kolusu _________________ Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
www.linkedin.com/in/kolusu |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
ldushkin Beginner
Joined: 05 Apr 2006 Posts: 56 Topics: 20
|
Posted: Thu Jul 20, 2006 10:20 am Post subject: |
|
|
this is file in HEX. I need to modify LOW-VALUE field in cobol
Code: |
------------------------------
000100 1111111 3333333
FFFFFFF000000FFFFFFF444
11111110000003333333000
------------------------------
|
|
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
kolusu Site Admin
![Site Admin Site Admin](images/ranks/adminpic.jpg)
Joined: 26 Nov 2002 Posts: 12367 Topics: 75 Location: San Jose
|
Posted: Thu Jul 20, 2006 10:25 am Post subject: |
|
|
ldushkin,
what do you want to change that low-value ? spaces? or someother value ? If Spaces then try this
Code: |
INSPECT ws-field-to-be-modified REPLACING ALL X'00' BY X'40'
|
Hope this helps...
Cheers
Kolusu _________________ Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
www.linkedin.com/in/kolusu |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
ldushkin Beginner
Joined: 05 Apr 2006 Posts: 56 Topics: 20
|
Posted: Thu Jul 20, 2006 10:29 am Post subject: |
|
|
Thank you |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
coolman Intermediate
Joined: 03 Jan 2003 Posts: 283 Topics: 27 Location: US
|
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
|
|