We have a CLIST that is invoked by putting the following at the
front of any CLIST/EXEC that needs protecting. It checks an ISPF table, by
userid, for authorization.
EdP
********************************* Top of Data
**********************************
PROC 0
/* */
/* */
/* CONTROL CONLIST SYMLIST LIST
/*--------------------------------------------------------------------*
/* CHECK AUTHORIZATION
/*--------------------------------------------------------------------*
%AUTH DBLOG
ISPEXEC VGET (AUTH)
IF &AUTH = &STR(N) THEN EXIT
/*--------------------------------------------------------------------*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
