Re: BPCS Access by Program

We created a service program procedure that wrapped a call to base SYS610B. This provides more understandable input/output parameters than expected by SYS610B. If not authorised, a message ID is returned giving the reason.

A SQL function was then created over this procedure.

This allows, for example, a statement to list all users authorisation to menu options: -

Select ZMO.MONAM,
ZMO.MOPROG,
ZMO.MODES,
ZXU.XUUSER,
a.ODOBTX
From ZMO,
ZXU,
table(users()) a
where SYS610B( ZXU.XUUSER, 'PGM', ZMO.MOPROG ) = ' '
and ZMO.MOTYP = 'D'
and a.ODOBNM = ZXU.XUUSER
order by
ZMO.MONAM,
ZXU.XUUSER



-----Original Message-----
From: bpcs-l-bounces@xxxxxxxxxxxx [mailto:bpcs-l-bounces@xxxxxxxxxxxx] On Behalf Of SRohatgi@xxxxxxxxxxxxxxxxxx
Sent: 11 May 2011 16:24
To: bpcs-l@xxxxxxxxxxxx
Subject: [BPCS-L] BPCS Access by Program

Hi There,

Has any one written a script which can identify list of all programs a user has access to? I would like to this for all active users.
We are on v 8.1


Thanks in advance for your help.


Sumit Rohatgi
Enterprise Applications Team Lead - Supply

Mother Parkers Tea & Coffee
p: 905-279-9100 ext. 2232
f: 905-279-9821

e: SRohatgi@xxxxxxxxxxxxxxxxxx


Please consider the environment before printing this email


This e-mail message is intended for the use of the addressee and may contain
privileged, confidential or personal information. If you are not the intended
recipient, please be advised that you are strictly prohibited from using,
disclosing, distributing or reproducing this email or the information contained
within. If you have received this email in error, please notify the sender
immediately by return e-mail and destroy the original message and any copies.


Ce message électronique est destiné uniquement à la personne à laquelle il a
été adressé et pourrait contenir des renseignements à caractère confidentiel et
personnel. Si vous n’êtes pas le destinataire, veuillez prendre note qu’il vous
est strictement défendu d’utiliser, de divulguer, de diffuser ou de reproduire
ce courriel ou les renseignements qu’il contient. Si vous avez reçu ce message
par erreur, veuillez le signaler à l’expéditeur immédiatement en répondant au
courriel et détruire le message original et toute copie.