Scribd
Upload
58 views1 page

PAYSUB

The document describes an edit macro that updates an audit log with the date, time, and user ID. The macro gets the current date and time, formats them with padding, gets the user ID and pads it, and constructs a log entry line to write to the audit log.

Uploaded by

Anonymous hsRemjfwq5
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
58 views1 page

PAYSUB

The document describes an edit macro that updates an audit log with the date, time, and user ID. The macro gets the current date and time, formats them with padding, gets the user ID and pads it, and constructs a log entry line to write to the audit log.

Uploaded by

Anonymous hsRemjfwq5
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 1

/*rexx exec*/

"isredit macro"
/*-------------------------------------------------------------------*/
/* */
/* Description : Edit Macro To Update The Audit Log.The macro is */

/* Parameters : NONE */
/* */
/*-------------------------------------------------------------------*/
/* AUTHOR DATE DESCRIPTION */
/*-------------------------------------------------------------------*/
/*-------------------------------------------------------------------*/
"ispexec vget (paysub3) shared"
"ispexec control errors return"
pad = ' '
dat = substr(pad,1,(9-length(date(w)))
dat = date(w)||dat ; lower dat
pad1 = ' '
usr = substr(pad1,1,(8-length(userid()) = 00
usr = userid()||usr
newlin = '| 'paysub3' | 'dat' | 'left(time(),5)' | '||,
usr' | '
"isredit end"
exit

You might also like