ca.portal.admin

Re: [IDMSVENDOR-L] Programming question

Discussion created by ca.portal.admin on Oct 24, 2007
This should work we have a security program (in assembler) that issues
the #SECCHECK macro. An returns condition codes.


#SECHECK SRB=SECRB,RESTYPE='ACTI',AUTHRTY=(EXECUTE), ***
RESNAME=ACTIVITY_RESOURCE,
***
APPLFNC=(R5),CLEAR=YES
----------------------------------------------------------

| 5) IF RC=(0=FOUND, 4=RESOURCE WAS NOT FOUND, |
| 8=ACIVITY FOUND--FUNCTION NOT AUTHORIZED |
| C=SYNTAX TYPE OF ERROR |
----------------------------------------------------------
LTR R15,R15 Q. TEST RESULTS
BZ @SEC#OK A. ZERO...OK IT FOUND IT
CH R15,=H'8' Q. COMPARE AGAINST AN 8
BE @SEC#OK A. OK, BUT NOT AUTHORIZED FOR FUNCTION
BH @SYNTAX A. HIGH, SYNTAX ERROR
B @NOTFD04 ELSE LOW; NOT FOUND
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: [IDMSVENDOR-L] Programming question
"Thank you. This is very helpful.

Does anyone have an example for checking security on COBOL or assembler
programs (type 'SPGM')? I am confused as to whether I should specify
RESTYPE/RESNAME, CATEGRY, or both.

Outcomes