Register 1 points to the data passed to the security exit, formatted as shown in the following example. This data is mapped by the ZSECC macro in the sysview.CNM4BMAC data set.
MACRO
ZSECC ,
SECC#### DSECT ,
*
SECC_Access DS XL1 Access flag
Access_Prompt EQU X'80' Prompt for password
Access_Fail EQU X'08' Fail command
Access_Msg EQU X'04' Display msg on console
Access_Allow EQU X'01' Allow command
*
SECCFLAG DS XL1 Control flag
SECRACT EQU X'80' Security is active
NLOGCALL EQU X'40' NO-LOG call
USESYST EQU X'20' Use resource system
USEQUAL EQU X'10' Use resource qualifier
SECCFCIM EQU X'08' Fail cmd in mult grps
SECCJSPL EQU X'04 Use JESSPOOL for JOBV
*
SECCCODE DS XL1 Command code
SUBCMND EQU X'10' Subcommand
PRIMCMND EQU X'08' Primary command
*
SECCENV DS XL1 Environment flag
TSOENV EQU X'80' TSO
CICSENV EQU X'40' CICS
VTAMENV EQU X'20' VTAM
SPFENV EQU X'08' ISPF
BATENV EQU X'04' BATCH
ETSOENV EQU X'02' Roscoe/etso
APIENV EQU X'01' Api
*
SECCGRPN DS CL8 Group name
SECCUSER DS CL8 User
SECCACTV DS CL8 Active command
SECCCMDA DS F Pointer to command
SECCCMDL DS H Length of command entered
SECCPRML DS H Parameter length
SECCPRMA DS F Pointer to parameters
*
SECCJESN DS CL4 JES subsystem name
SECCJCTA DS F Pointer to JCT
SECCSYST DS CL4 SMF system ID
SECCRESQ DS CL8 Resource qualifier
SECCREST DS CL8 Resource type
SECCRESV DS CL48 Resource value
SECCDSNM EQU SECCRESV,44 Output file dsname
SECCPASS EQU SECCRESV,17 Not used
SECCJOBN DS CL8 Jobname
SECCWTRN DS CL8 Writer name for output
SECCNTFY DS CL8 NOTIFY from JOB card
SECCJTYP DS CL3 Type (STC,TSU,JOB,INI,ATX)
SECCJNUM DS CL7 Job number
SECCDDNM DS CL8 DDname of output file
SECCSUSR DS CL8 Security user id for job
SECCSLBL DS CL8 Security label for job
SECCNODN DS CL8 JES node name
SECCOGRP DS CL8 Output group name
*
SECCJQUE DS XL1 Job queue
*
AIF (D'JQUEOUTP).SKPJQUE
*
JQUEOUTP EQU X'80' Output
JQUEEXEC EQU X'40' Executing
JQUEINP EQU X'20' Input
JQUERDR EQU X'10' Reader
JQUECONV EQU X'08' Converter
JQUEXMIT EQU X'04' Transmit
JQUERECV EQU X'02' Receive
JQUEPURG EQU X'01' Purge
.SKPJQUE ANOP ,
*
SECCACTC DS XL1 Action code
*
SECCMSGT DS XL1 Message type
SECCMSGA EQU X'80' Action
SECCMSGE EQU X'40' Error
SECCMSGW EQU X'20' Warning
SECCMSGI EQU X'10' Info
*
SECCMSG DS CL79 Message to be displayed
*
SECCFLG2 DS X Flag byte
SEC2DPRM EQU X'80' Don't prompt for password
*
SECCINTC DS XL1 Interface code
INTCAPI EQU 001 API
INTCBATC EQU 002 Batch
INTCCICS EQU 003 CICS
INTCISPF EQU 005 ISPF
INTCLCLD EQU 006 LCL3270D
INTCTSO EQU 007 TSO
INTCVTAM EQU 008 VTAM
INTCCAPT EQU 009 Capture
INTCXSSI EQU 010 Cross system
INTCXSXI EQU INTCXSSI Cross system
*
SECC_Access_Intent DS XL1 Access intent for entity
SECC_READ EQU X'02' READ access
SECC_UPDATE EQU X'04' UPDATE access
SECC_CONTROL EQU X'08' CONTROL access
SECC_ALTER EQU X'80' ALTER access
*
SECC_SAF_EntityLen DS H Length of Entity
SECC_SAF_EntityData DS CL255 Entity name
*
SECC_SAFClassLen DS AL1 Length of class
SECC_SAFClassName DS CL8 Class name
*
SECCRSV1 DS H Reserved
SECCEND DS 0D Align to doubleword
*
SECCL EQU *-SECC#### SECC length
SECL EQU SECCL Alias for SECCL
SECC EQU SECC####,SECL SECC name with len attr
*
USERWORK DS XL512 User work area
ORG USERWORK Reset location counter
MEND ,
|
Copyright © 2013 CA.
All rights reserved.
|
|