I apologize for stepping into this conversation late and if someone has
already covered this ...
If you're talking about CA's VM:Batch, code executing on a worker machine
(i.e. the customer application) can issue the "VMBATCH SERVICE STACK $USER"
to place on the program stack the userid of the submitting job.
A more generic solution is the following rexx code which will obtain the
same information by perusing z/VM's VMDBK control block:
if substr(userid,1,6) = 'VMBAT0' then do
numeric digits 12
parse value diag(8,'CP LOCATE VMDBK ' userid) ,
with . '15'x . $vmdbk .
$addr = x2d($vmdbk) + x2d('5F0')
$addr = insert('.8',d2x($addr,8),8)
parse value diag(8,'CP D HT'$ADDR) with ,
. . . . . . $userids .
userid=strip(substr($userids,2,8))
end
Dennis
Mutual of Omaha
This e-mail and any files transmitted with it are confidential and are solely
for the use of the addressee. It may contain material that is legally
privileged, proprietary or subject to copyright belonging to Mutual of Omaha
Insurance Company and its affiliates, and it may be subject to protection under
federal or state law. If you are not the intended recipient, you are notified
that any use of this material is strictly prohibited. If you received this
transmission in error, please contact the sender immediately by replying to
this e-mail and delete the material from your system. Mutual of Omaha
Insurance Company may archive e-mails, which may be accessed by authorized
persons and may be produced to other parties, including public authorities, in
compliance with applicable laws.
