![]() |
![]() |
![]() |
![]() |
![]() |
Table 9‑1 CICS Command Partial Support only SYNCLEVEL 0 Partial Support only SYNCLEVEL 0
•
• Supports only INTRDR ExternWriteOperator receives all parameters of the WRITE OPERATOR and simply returns zero in the return code and nothing else.The WRITE OPERATOR passes the following parameters and expects a return code in signed int format.Listing 9‑1 WRITE OPERATOR ParametersS9(9) COMP-5 is equivalent to a signed int.The parameters REPLY and REPLYLENGTH may be returned to the WRITE OPERATOR function if requested, that is to say, if MAXLENGTH > zero.Listing 9‑2 Example ExternWriteOperator.cbl CodeThe delivered ExternQuerySecurity stub receives all parameters of the QUERY SECURITY, it always allows access to the resources and returns zero in the return code. It can be replaced by a customer function that respects the interface described below.The QUERY SECURITY passes the following parameters:Listing 9‑3 Query Security Extern IntefaceListing 9‑4 Example COBOL Code for ExternQuerySecurity
2. Generate an "ExternQuerySecurity.o", and link it in ART servers (STRN, STR1, ATRN, ATR1, CTRN, CTR1).
3. In the makefile_intg (Cics_Rt/tools), add the "ExternQuerySecurity.o" in object variables for each server (STRN_OBJS, STR1_OBJS, ATRN_OBJS, ATR1_OBJS, CTRN_OBJS, CTR1_OBJS)
Note: recognized means function is not achieved, but there are no errors when doing MAPGEN compilation.