OFFSET zwischen POINTERs

[Fuerchau]

Nun ja, besser ist das schon.
Ich weiß nicht, was bei ACTGRP(*CALLER) passiert.
Im Zweifel ist ein Aufruf nicht möglich, wenn die ACTGRP bereits für *SNGLVL initialisiert ist.
Da ich keine Lust habe das zu testen, probier es doch einfach mal aus.

Was Pointer-Differenz in COBOL angeht, so kann man den Pointer redefinieren mit einer Struktur Filler x(10) und 9(9) comp-4 (Wichtig kein S!), ggf. geht auch 9(9) comp-5.
Somit kann man die Differenz zweier Pointer zumindest im Speicher berechnen.

[jsranko]

Hi Fuerchau,

genau das ist Antwort auf meine Frage! Super, ich danke dir.

Nur kleine Anpassung: FILLER muss X(12), weil die numerische Variable 9(9) BINARY ist 4Bytes groß und insgesamt muss es 16Bytes sein, weil Pointers 16Bytes allozieren.



IDENTIFICATION DIVISION.
PROGRAM-ID. PTRDIFF.


ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.


DATA DIVISION.
FILE SECTION.


WORKING-STORAGE SECTION.
01 TEST-STRING-1 PIC X(160)
VALUE "green eggs and ham".
01 TEST-STRING-1-PTR POINTER.
01 TEST-STRING-2-PTR POINTER.
01 TEST-STRING-1-PTRR REDEFINES TEST-STRING-1-PTR.
05 FILLER PIC X(12).
05 OFFSET1 PIC 9(9) BINARY.
01 TEST-STRING-2-PTRR REDEFINES TEST-STRING-2-PTR.
05 FILLER PIC X(12).
05 OFFSET2 PIC 9(9) BINARY.
01 OFFSET PIC 9(9) BINARY.


PROCEDURE DIVISION.
MAIN.


SET TEST-STRING-1-PTR TO ADDRESS OF TEST-STRING-1.
SET TEST-STRING-2-PTR TO ADDRESS OF TEST-STRING-1.
SET TEST-STRING-2-PTR UP BY 2.
COMPUTE OFFSET = OFFSET2 - OFFSET1.
DISPLAY OFFSET.




STOP RUN
.

[Fuerchau]

Mir dürfen doch auch schon mal Rechenfehler unterlaufen:).
Immerhin seid ihr ja auch gefordert.