Determine which SVCs have had screening disabled

Products

• IDMS

Issue/Introduction

This article describes how to tell which SVCs have been DISABLED from SVC screening in an active IDMS CV.

Environment

Release: All supported releases.

Resolution

In an 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 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 (offset x'56C') 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.

For example, issue DCMT DISPLAY MEMORY CSA+56C% 256:-

      DISPLAY MEMORY CSA+56C% 256
 <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  *................*

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.