Something like this (although many other ways too):
/* MYREXX EXEC */
/* Create a stem with userids */
... your logic here...
'PIPE STEM USERIDS. | ADDPW | STEM USERIDS_AND_PWS.'
where ADDPW REXX looks:
/* ADDPW REXX - add a random password to each input record */
signal on error
do forever
'PEEKTO input_record' /* Peek at the input record */
'CALLPIPE (END \) random 36 |substr 4.1|take' random(6,8) '|join *|x: xlate
1-*| var pw',
'\literal 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ|x:'
'OUTPUT' input_record pw /* Write an output record */
'READTO' /* Consume the input record */
end
Error:
exit 12*(rc<>12)
Mark Wheeler
UnitedHealth Group
> Date: Tue, 20 Jul 2010 10:32:41 -0500
> From: [email protected]
> Subject: Re: [CMS-PIPELINES] PIPE to generate random passwords
> To: [email protected]
>
> Hmmmm....okay how do I feed this to a list of users. (Rather than a single
> use PIPE.)
>
> I guess I'm trying to say: How do I generate one of these for each item in a
> stream?
>
>
> Frank M. Ramaekers Jr.
>
_________________________________________________________________
The New Busy is not the too busy. Combine all your e-mail accounts with Hotmail.
http://www.windowslive.com/campaign/thenewbusy?tile=multiaccount&ocid=PID28326::T:WLMTAGL:ON:WL:en-US:WM_HMP:042010_4
