MVSFORUMS.com

meeran · Beginner Joined: 23 Dec 2002 Posts: 7 Topics: 3

I have two pointer varible say A and B.How can i get the displacement between the address using cobol program?

kolusu · Posted: Thu Feb 06, 2003 12:53 pm Post subject:

meeran,

Techincally you can't perform arithmetic on pointers.ie. you cannot add or subtract with pointers.However you can REDEFINE it as a numeric type, making a correct but non-portable assumption about the physical representation of a pointer.

Hope this helps...

cheers

kolusu

zatlas · Beginner Joined: 17 Dec 2002 Posts: 43 Topics: 4

Hi
Many years ago when I've learned C, my teacher told me something that was a revelation for me. He said "a pointer is the same as an index (or subscript)". Relate to the whole entity that these pointers pointing to a s big array of one character elements, use idices and voila, the solution is easy.
It works, I've used this technique myself and could point you to examples.
ZA

CaptBill · Posted: Thu Feb 06, 2003 2:51 pm Post subject:

Can't speak for C but an index and subscript are very different things in COBOL.

An index is a displacement value while a subscript is an occurrance number.

For example if you have a table of month names, each occupying 9 bytes and you elect to use the fifth entry in the table, then the index would have the value of 36. The subscript would have the value of 5.

This is true for VISION: Results (DYL-280) and other higher level languages I am familiar with.

semigeezer · Posted: Thu Feb 06, 2003 3:08 pm Post subject:

Preface: I don't know COBOL (thank goodness)...

I think what he means is that a pointer is just an 'index' into an implied array of characters starting at location 0. I have no idea how COBOL handles pointers, but at the assembly level it is dangerous to do arithmatic on them directly because some methods of getting pointers include the high order bit from the PSW so that (for 31 bit addresses) the number is treated as a negative number when used in arithmetic operations or (for 24 bit addresses) the number may contain garbage in the 1st byte. Usually XORing the 1st bit off is a good thing to do.

DaveyC · Posted: Thu Feb 06, 2003 9:47 pm Post subject:

Good point by semigeezer, I wouldn't have thought of that. As pointer arithmetic is not supported by COBOL without a REDEFINEs workaround I would bear that in mind.