Return to the RPG Tips
Obtaining user name in a subprocedure
If you're on V4R4, try this: - ---------------------------- H nomain D uname pr 10a P uname b export D uname pi 10a D username s 10a inz(*user) C return username P uname e - ---------------------------- If you're not yet on V4R4, you can still use a program-status data structure, but declared outside the subprocedure: - ---------------------------- H nomain D psds sds D username 254 263a D uname pr 10a P uname b export D uname pi 10a D ds C return username P uname e - ----------------------------
[report a broken link by clicking here]