RE: batch validation list update

["Berg, Dan" <berg@xxxxxxxxxxxxxxxx>]

Simon,
Thanks for the info!

Dan

-----Original Message-----
From: Simon Coulter [mailto:shc@flybynight.com.au]
Sent: Wednesday, January 23, 2002 8:58 PM
To: midrange-l@midrange.com
Subject: Re: batch validation list update



Hello Dan,

You wrote:
>Is there a batch validation list update process that is documented?
>I have found several references to the API, but not any actual process.

The system provides only the APIs which are documented in the Information
Center and the Security API manual and the HTTP interface.  There are
various sources of free code that use these APIs.  I believe News/400 and
Midrange Computing had a few articles on them.  The CGIDEV code has some
stuff to handle validation lists.

>I am trying to set up Lawson SEA employee self service and I do not
>want to enter 1200 employee userids manually into the http admin page.

That would be a good way to waste time!!

>Or am I making this harder then I need to? Is there a simple answer?

Yes there is a simple answer presuming that you have a list of these users
and their passwords in a file or something like that (or have some method
for generating passwords) and don't mind buying an inexpensive product to
help you -- VENDOR WARNING --  How about:

        DCLF    SEA_USERS

        CRTVLDL   SEA_USERS

LOOP:   RCVF
        MONMSG CPF0864 exec(got eof)

        ADDVLDLE  VLDL(SEA_USERS) +
                  ENTRYID(&username) +
                  ENCRYPT(&password) +
                  DATA('Lawson SEA user')

        GOTO LOOP
EOF:
        RETURN
        ENDPGM

That was easy!  Of course, to get the ADDVLDLE command (and lots of other
stuff) you'll need to buy our ONcmd product.  You can read more about it
and download a trial copy at
http://www.flybynight.com.au/oncmd.html

Regards,
Simon Coulter.

--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists
   http://www.flybynight.com.au/

   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.