ca.portal.admin

Re: Dialogs with diagnostic table turned on

Discussion created by ca.portal.admin on Jun 21, 2007
An ADS report will show this:

ADSORPTS CAGJG0 COMPUTER ASSOCIATES INTERNATIONAL, INC. --
CA-ADS
DIALOG = D474M100 VERSION = 0001 ***** REQUEST 1
*****

MAINLINE DIALOG...: D474M100 SCHEMA...: TXIXSCHM ONLINE
MAP: M474M
VERS.: 0001 VERS.: 0100
VERS.: 0001
DATE.: 04/26/07 SUBSCHEMA: A474M218
DATE.: 04/26
TIME.: 194450
TIME.: 19404
FDB SIZE: 9360 ENTRY PT: PREMAP
ACCESS MOD: D474M100

**** OPTIONS ****

SYMBOL TABLE....: YES DIAGNOSTIC TABLES.: YES
COBOL MOVE......: NO ACTIVITY LOGGING..: NO
MESSAGE PREFIX..: DC RETRIEVAL LOCKING.: YES
AUTOSTATUS......: YES
SQL DATE........: SQL COMPLIANCE....:
SQL TIME........:
PAGEABLE MAP....: NO PAGING OPTION.....:
PAGING UPDATE...: PAGING AUTODISPLAY:
PAGING BACKPAGE.:

RECORD...: ADSO-STAT-DEF-REC
VER
02 ERROR-STATUS
PIC
88 DB-STATUS-OK
VALU


----- Original message -----
From: ""Riddle, Allen [IDR]"" <Allen.Riddle@IOWA.GOV>
To: IDMS-L@LISTSERV.IUASSN.COM
Date: Thu, 21 Jun 2007 12:15:21 -0500
Subject: Dialogs with diagnostic table turned on

Hi, All.



I've been given the task of identifying all our dialogs that have the
diagnostic and/or symbolic tables turned on.



I have been unable to find a command or job that will allow me to do
this easily.



Does anyone have a method I can use other than going into each and every
dialog to check?



Thanks in advance,







Allen Riddle

Department of Revenue

State of Iowa

(515) 281-3973

"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: [IDMSVENDOR-L] Dialogs with diagnostic table turned on
"its my opinion (for what that is worth???) that the only valid way to know
what is IN a ADS load module is to EXAMINE the ADS load module - how can
one do this? there have been culprits posted here that look for the
presence of certain records in the load area that indicate the presence of
diagnostics/symbol table flags tuned on

another option is to DECOMPILE from LOAD - this might return the flag
settings and indicate the flags in which you are interested

I have worked in enough shops where the dictionary does not represent what
is im the load areas (or load libs) that run queries or reports against the
PROG-051 records (and subordinate records) may not provide accurate results
as to what is sitting in loadarea or loadlib land. But dictionary reports
can supplement loadarea/loadlib information




Chris Hoelscher
Senior IDMS & DB2 Database Administrator
Humana Inc
502-476-2538
choelscher@humana.com



The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information.
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Dialogs with diagnostic table turned on
"Allen,

Look in the progcmt-050 record in the dictionary
CMT-INFO-050 byte 7 = 'S' means Symbol Table
CMT-INFO-050 byte 9 = 'D' means Diagnostics Table

PROG-051 ---> PROGCMT-050

PROG-051 has the program name and version.

As far as I remember you can also look at the LOADHDR-156 to see if SYMBOL
table is on, but not diagnostics table.

Culprit should be able to do it:

//SYSIN DD *
DATABASE DICTNAME=SYSDIRL DBNAME=yourdict
PARAM LIST
PROFILE RELEASE=6 EX=E PARMLIB=STANDARD
IN 2000 DB SS=IDMSNWKA
PATH01 PROGCMT-050 PROG-051
REC SYMBOLTAB(PROGCMT-050) 11 1
REC DIAGNOSTAB(PROGCMT-050) 13 1
SELECT PROGCMT-050 WHEN IDD-SEQ-050 EQ 1
* AND (SYMBOLTAB EQ 'S' OR DIAGNOSTAB EQ 'D' )
SELECT PROG-051 WHEN PROG-FLAG1-051 EQ 16
01510001 PROG-NAME-051 HH 'DIALOG'
01510011 PROG-VER-051 FM 'ZZZ9' HH 'VERSION'
01510021 SYMBOLTAB HH 'S TAB'
01510031 DIAGNOSTAB HH 'D TAB'
/*




Tommy Petersen




""Riddle, Allen
[IDR]""
<Allen.Riddle@IOW To
A.GOV> IDMS-L@LISTSERV.IUASSN.COM
Sent by: IDMS cc
Public Discussion
Forum Subject
<IDMS-L@LISTSERV. Dialogs with diagnostic table
IUASSN.COM> turned on


06/21/2007 01:15
PM


Please respond to
IDMS Public
Discussion Forum
<IDMS-L@LISTSERV.
IUASSN.COM>






Hi, All.



I've been given the task of identifying all our dialogs that have the
diagnostic and/or symbolic tables turned on.



I have been unable to find a command or job that will allow me to do
this easily.



Does anyone have a method I can use other than going into each and every
dialog to check?



Thanks in advance,







Allen Riddle

Department of Revenue

State of Iowa

(515) 281-3973
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Dialogs with diagnostic table turned on
"At 2007-06-21 11:15 Thursday, Riddle, Allen [IDR] wrote:
[...]
I've been given the task of identifying all our dialogs that have the
diagnostic and/or symbolic tables turned on.
[...]
I wrote this CULPRIT program to check on the status of various bits
for dialogs:

$ DIALOG OPTIONS
IN 3000 DB SS=IDMSNWKA
PATHPR
* OOAK-012
* PROG-051
* PROGCMT-050
SELECT PROG-051 WHEN
* PROG-FLAG1-051 EQ 16
* AND PROG-VER-051 EQ 1
SELECT PROGCMT-050 WHEN
* CMT-ID-050 EQ -23
REC AUTOSTATUS (PROGCMT-050) 5 1
REC ACT-LOG (PROGCMT-050) 6 1
REC PAGING-OPT (PROGCMT-050) 7 1
REC PAGING-MODE (PROGCMT-050) 8 1
REC BACKPAGE (PROGCMT-050) 9 1
REC COBOL-MOVE (PROGCMT-050) 10 1
REC SYMBOL-TAB (PROGCMT-050) 11 1
REC EXEC-CODE (PROGCMT-050) 12 1
REC DIAG-TAB (PROGCMT-050) 13 1
REC ENTRY-PT (PROGCMT-050) 14 1
REC RETR-LOCK (PROGCMT-050) 23 1
REC MSG-PREFIX (PROGCMT-050) 24 2
REC AUTO-DISP (PROGCMT-050) 26 1
01OUT 80 D
01SORT
* PROG-NAME-051
013DIALOG OPTIONS
01D1*300 PROG-NAME-051
01D1*301 ENTRY-PT HH 'ENPT'
01D1*302 SYMBOL-TAB HH 'SYMT'
01D1*303 COBOL-MOVE HH 'COBM'
01D1*304 MSG-PREFIX HH 'MPRF'
01D1*305 DIAG-TAB HH 'DIAT'
01D1*306 ACT-LOG HH 'ACTL'
01D1*307 RETR-LOCK HH 'RTRL'
01D1*308 PAGING-OPT HH 'POPT'
01D1*309 PAGING-MODE HH 'PMOD'
01D1*310 BACKPAGE HH 'BACK'
01D1*311 AUTO-DISP HH 'ADIS'
01D1*312 AUTOSTATUS HH 'ASTT'
01D1*313 EXEC-CODE HH 'EXEC'
01I TAKE

Patricia
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: SUBSCHEMA-CTRL record
"The subschema-ctrl from a CA-IDMS install is in the DISTSRC library in
member DLODPROT but as Gary has said many shops, including our, has
added more 88 levels. And the record length is the important point, an
increase or decrease could cause lots of problems.

Steve Harmeson

Outcomes