ca.portal.admin

support-connect?

Discussion created by ca.portal.admin on May 21, 2007
Latest reply on May 21, 2007 by ca.portal.admin
is anyone (else) having problems using the ""new"" support connect?

i cannot get the ""my products"" to populate the dropdown menu in either
the knowledgebase or ""open new issue"" processes - making usage quite
difficult ...



This is Chris Hoelscher and I approved this message!

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: lines of ADS code
"We have CULPRITs that scan the IDD to do searches within dialog source.
Below, I've cobbled together an untested quickie that should give a
total line count per module/version as well as a grand total.

DATABASE DBNAME=???????? DICTNAME=SYSDIRL
IN DB SS=IDMSNWKA
PATH01 MODULE-067 TEXT-088
SEL MODULE-067 WHEN LANG-067 EQ 'PROCESS'
SORT MOD-NAME-067 + MOD-VER_067 +
0151 1 MOD-NAME-067
0151 40 MOD-VER-067
0151 0 COUNT-EM
0161 10 'TOTAL FOR : '
0161 25 MOD-NAME-067
0161 60 MOD-VER-067
0161 55 COUNT-EM
010 COUNT-EM 1
01OUT 132 T PS

If you need to know the owning dialogs of each process module (or
determine viable modules by dropping the orphans), you could use the
output from above as input to the following CULPRIT:

PATH01 MODULE-067 MODLST-055 PROG-051
KEY 132 KF=25 32
REC THE-REC (KEYFILE) 1 132
REC MOD-NAME (KEYFILE) 25 32
REC MOD-VER (KEYFILE) 60 3 2
01SORT PROG-NAME-051 PROG-VER-051 0
0151 1 PROG-NAME-051
0151 10 PROG-VER-051 FN SZ=3
0151 16 THE-REC (or other info

01OUT 160 D PS
01$$
017 IF MOD-VER EQ MOD-VER-067 020
017010 CALL DB-EXIT ('DUP' 'MODULE-067 ' MOD-NAME-067 MOD-NAME 32)
017 IF IDMS-STATUS EQ '0326' DROP
017 IF MOD-VER NE MOD-VER-067 010
017 IF IDMS-STATUS EQ '0326' DROP
017 CALL DB-EXIT ('NEXT' 'MODLST-055 ' 'MODULE-MODLST ')
017 IF IDMS-STATUS EQ '0307' DROP
017 CALL DB-EXIT ('OWNER' 'PROG-051 ' 'PROG-MODLST ')
017020 IF PROG-NAME-051 EQ SAVE-PROG-NAME
* AND PROG-VER-051 EQ SAVE-PROG-VER 25
017 M PROG-NAME-051 SAVE-PROG-NAME
017 M PROG-VER-051 SAVE-PROG-VER
017 TAKE 1
017025 TAKE 1
010 SAVE-PROG-NAME ' '
010 SAVE-PROG-VER

Outcomes