| View previous topic :: View next topic |
| Author |
Message |
shootingstar
Beginner
Joined: 19 Sep 2004
Posts: 14
Topics: 11
Location: Dallas, TX
|
 Posted: Thu Jan 20, 2005 8:45 pm Post subject: Getting the RACF user Id in a program |
 |
|
Is it possible to determine what RACF id a program is running under? I user the RACF calls about 15 yrs ago but don't remember much about the calls. I was hoping the ID hides in an MVS control block somewhere. For maintenance reasons I'd prefer to write the program in COBOL but assembler is OK if there is no other way.
The program in question runs as a sub-task within the NDM address space. I occasionally see a failure related to security, but it does not show up as a RACF error anywhere. I am using the Call Attachment Facility of DB2 and the connect is failing for security reasons. I want to display the RACF-id associated with the requestor when that error occurs. |
|
| Back to top |
|
 |
semigeezer
Supermod
Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis
|
| Posted: Thu Jan 20, 2005 8:51 pm Post subject: |
|
|
| Check the acee control block. I think it is in there. (google for acee & you'll probably find the details if I am right). |
|
| Back to top |
|
|
semigeezer
Supermod
Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis
|
| Posted: Thu Jan 20, 2005 8:53 pm Post subject: |
|
|
| Oh wait... I'm not familiar with that environment. The acee may reflect the address space itself. |
|
| Back to top |
|
|
Bithead
Advanced
Joined: 03 Jan 2003
Posts: 550
Topics: 23
Location: Michigan, USA
|
|
| Back to top |
|
|
bauer
Intermediate
Joined: 10 Oct 2003
Posts: 315
Topics: 49
Location: Germany
|
| Posted: Tue Jan 25, 2005 3:04 am Post subject: |
|
|
Hi,
PL/1 solution:
| Code: |
/* PREFIXED SAVE AREA, liegt fix auf Adress ZERO / SYSNULL */
DCL 1 PSA BASED(SYSNULL()),
2 FILLER CHAR(548),
2 PSAAOLD PTR ;
/* ADRESS SPACE CONTROL BLOCK */
DCL 1 ASCB BASED(PSA.PSAAOLD) ,
2 FILLER CHAR(108) ,
2 ASCBASXB PTR ;
/* ADRESS SAPCE EXTENSION BLOCK */
DCL 1 ASXB BASED(ASCB.ASCBASXB) ,
2 FILLER CHAR(192) ,
2 ASXBUSER CHAR(7) ; /* User-ID fuer die Job oder */
/* Session ausgefuehrt wird. */
/* Linksbuendig gefuellt mit */
/* HEX '40' = BLANK gepadded. */
|
|
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
