ca.portal.admin

Re: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: Z/OS 1.9
"Rene,

I didn't think there was any storage keys specified in UCFCICS and I thought CICS uses hardware protection so I'm not sure what your talking about, can you clarify?

Thanks,
Steve Harmeson

Outcomes