Hi Dan,
R16 SP4 adds the User Id to the Journal BEGN records but if this is
for an Audit trail for
Sarbanes-Oxley or just your Auditors, having only the User Id may not
be enough. You
may want additional information such as Terminal Id, etc. which we
capture by adding a
USER record in the Journal with EXIT 14.
Feel free to contact me directly if you would like the EXIT and info
on how we report on it.
John Abell
International Software Products
________________________________________________________________________
Check out the new AOL. Most comprehensive set of free safety and security tools, free access to millions of high-quality videos from across the web, free AOL Mail and more.
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP
Normal
Normal
Re: DBNAME
"Dan,
Here is what I use:
05 WS-DBNAME PIC X(08).
05 IDMSIN01-CODES.
10 IDMSIN01-REQUEST-CODE PIC S9(8) COMP.
10 IDMSIN01-REQUEST-RETURN PIC S9(8) COMP.
05 IDMSIN01-RPB PIC X(36).
05 IDMSIN01-KEYWORD PIC X(08).
05 IDMSIN01-VALUE PIC X(32).
*-------------------------------------------------------------
*- DETERMINE INITIAL DBNAME TO BIND WITH
*- SYSIDMS MUST HAVE ""USERCAT=OFF"" TO PICK UP SYSIDMS DBNAME
*- OTHERWISE THE ACID'S PROFILE DBNAME IS RETURNED
*-------------------------------------------------------------
MOVE 2 TO IDMSIN01-REQUEST-CODE
MOVE 'DBNAME' TO IDMSIN01-KEYWORD
CALL 'IDMSIN01' USING IDMSIN01-RPB IDMSIN01-CODES
IDMSIN01-KEYWORD IDMSIN01-VALUE
MOVE IDMSIN01-VALUE TO WS-DBNAME
Take a look at Callable Services r16 SP2
Let me know if you have any further questions,
Richard Kenney
Richard.Kenney@lfg.com
207-842-9658