Hi Peter!
The SERVICE string is part of the TIMESTAMP/VERSION information. It's a 2-byte
length prefix followed by the character string at offset 20 (X'14')
The offset from the PPA2 to the TIMESTAMP/VERSION information can be found
at the 4-byte field in the PPA2 beginning at offset 12 (X'0C') in the PPA2.
The PPA2 can be found using the CEEYEPAF LE service given an address
in a running function's DSA.
So, the path is DSA -> PPA2 -> TIMESTAMP/VERSION where you can
find the SERVICE string.
This is all described in the LE VENDOR INTERFACEs documentation.
The 6.2 PL/I compiler for z/OS also has a preprocessor builtin (SERVICE) that
returns the value of the SERVICE option. I don't know if COBOL has something
similar?
- Dave Rivers -
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
