Introduction:
How can I tell which SVCs have been DISABLED from SVC screening in an active CA-IDMS Central Version?
Instructions:
In a given CA-IDMS Central Version, SVC screening can be disabled for a particular SVC with the SYSIDMS parameter DISABLE_SVC_SCREEN=nnn where nnn is the number of the SVC in decimal. There can be more than one such parameter specification in SYSIDMS because it is possible to disable screening for more than one SVC.
If ECHO=ON is specified in SYSIDMS, the SYSIDMS parameters are echoed to the CV’s joblog. For example:
07.14.35 JOB43225 SYSIDMS parms --> ECHO=ON
07.14.35 JOB43225 SYSIDMS parms --> DMCL=GLBLDMCL
07.14.35 JOB43225 SYSIDMS parms --> DISABLE_SVC_SCREEN=02
However, if ECHO=ON is not set, there is no way to see in an active CV if SVC screening has been disabled for any SVCs.
The CSA field CSASCRNA points to a 256-byte table. Each entry in the table refers to each sequential SVC. If an entry is x’80’ then screening for that SVC has been disabled. If it is x’00’ then it hasn’t.
In r18.0, r18.5 and r19.0, the offset of CSASCRNA with the CSA is x’56C’.
For example, issue DCMT DISPLAY MEMORY CSA+56C:-
DISPLAY MEMORY CSA+56C
<Addr> <Offset> <Hex> <Character>
0002C31C 0000056C 0001D410 3AA04000 3A8010B0 0002ECF0 *..M... ........0*
Take the value at that offset, in this example it is 0001D410 and display 300 bytes of memory from that point with the command DCMT DISPLAY MEMORY 1D410 300:-
DISPLAY MEMORY 1D410 300
<Addr> <Offset> <Hex> <Character>
0001D410 00000000 00008000 00000000 00000000 00000000 *................*
0001D420 00000010 00000000 00000000 00000000 00000000 *................*
0001D430 00000020 00000000 00000000 00000000 00000000 *................*
0001D440 00000030 00000000 00000000 00000000 00000000 *................*
0001D450 00000040 00000000 00000000 00000000 00000000 *................*
0001D460 00000050 00000000 00000000 00000000 00000000 *................*
0001D470 00000060 00000000 00000000 00000000 00000000 *................*
0001D480 00000070 00000000 00000000 00000000 00000000 *................*
0001D490 00000080 00000000 00000000 00000000 00000000 *................*
0001D4A0 00000090 00000000 00000000 00000000 00000000 *................*
0001D4B0 000000A0 00000000 00000000 00000000 00000000 *................*
0001D4C0 000000B0 00000000 00000000 00000000 00000000 *................*
0001D4D0 000000C0 00000000 00000000 00000000 00000000 *................*
0001D4E0 000000D0 00000000 00000000 00000000 00000000 *................*
0001D4F0 000000E0 00000000 00000000 00000000 00000000 *................*
0001D500 000000F0 00000000 00000000 00000000 00000000 *................*
0001D510 00000100 C1E3C3C8 E2E4C2E3 90ECD00C 18CF4120 *ATCHSUBT..}.....*
0001D520 00000110 C1E85020 D00850D0 200418D2 58B0C578 *AY&.}.&}...K..E.*
0001D530 00000120 17339602 A6C75870 A5185810 *..o.wG..v... *
The byte at offset x’02’ from the start of this table is x’80’ indicating that SVC screening has been disabled in this CV for SVC 2.
Additional Information:
For more information about SVC screening, see the manual “CA IDMS Release Notes 18.0”, Chapter 7 “Administrative and Operational Enhancements”, under the section “SVC Screening Control”.
For more information about the DCMT DISPLAY MEMORY command, see the manual “System Tasks and Operator Commands” Chapter 4 “DCMT DISPLAY Commands”, under the section “DCMT DISPLAY MEMORY Command”.