Enterprise cobol llinkage section cics addressing

[djpjlj]

Migrating from os/vs cobol i encountered the following code
COMPUTE ETS-TOA-PTR = BLL-TS-PTR + 1057.
COMPUTE ETS-TIOA-PTR = BLL-TS-PTR + WS-QUE-ACTUAL.
Are these computations valid in enterprise cobol when updating a pointer ?

 

[slade]

How are the fields defined?

Regards, Jack.

"A problem well stated is a problem half solved" -- Charles F. Kettering

 

[djpjlj]

ws-que-actual pic s9999 comp value +3050.
ets-tioa-ptr pic s9(8) comp.
ets-toa-ptr pic s9(8) comp.
bll-ts-ptr pic s 9(8) comp.

 

[webrabbit]

The code, per se, is valid. If the fields are actially memory pointers, it will probably work, but they should be defined as POINTER and modified with the SET verb.

 

[djpjlj]

Thanks Jack.