Sample 'EXEC CICS QUERY SECURITY RESCLASS(PPT)' CICS Security Call

Products

• Top Secret

Issue/Introduction

 How do you issue a CICS Command Level program security call?
ESM is Top Secret.

Resolution

Sample:

QUERY SECURITY RESCLASS(PPT) RESID(ABCD) RESIDL(8) NOLOG

 STATUS:  COMMAND EXECUTION COMPLETE                         NAME= 
 EXEC CICS  Query Security 
 ( RESType() | RESClass( 'PPT     ' ) RESIDLength( +0000000008 ) ) 
 RESID( 'ABCD                                           ' ... ) 
 < LOGMessage() | LOG | Nolog > 
 < REAd( +0000000036 ) > 
 < Update( +0000000038 ) > 
 < Update( +0000000038 ) > 
 < Control( +0000000057 ) > 
 < Alter( +0000000053 ) > 
   

Note: 'ABCD' is the program name.