ca.portal.admin

Re:Re: Z/OS 1.9

Discussion created by ca.portal.admin on Oct 18, 2007
Kay,
TEC433613 also points to QI82742 which will tell you what to do if you are running in ECSA and if you must use the new default setting of AllowUserKeyCSA(NO). To determine which key you are using look at the 1st screen of the DCPROFIL transaction. This shows a field called PRIMARY STORAGE PROTECT KEY: (it is on the right side, 1/2 way down).
This is the user key that is mentioned in TEC433613. IBM considers any key of 8 - 15 to be a 'user key'.

Hope this answers your question.


Dan Hall
GE
Capital Solutions
Danbury, CT

T 513.217.5060
E dan.hall@ge.com
http://www.ge.com/capitalsolutions/
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Map Reports
"Hello All:
I am trying to report on all the map variables on all of the maps to
database or work record variables.
I am thinking of the following logical steps -
1) List of all maps
2) List of screen variables attached to each map
3) Source for each of the screen variables (Database or Work Record Field).
Is there a standard Culprit Report that can do this? If not, does anyone
have anything that can produce something like this?
Bill Allen
(704) 641-0296




************************************** See what's new at http://www.aol.com
"
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] Map Reports
"
Bill - sounds like a job for SUPER-CULPRIT ....

just off the top of my head

path01 OOAK-012 MAP-098 MAPFLD-124 MAPRCD-125 RCDSYN-079 SR-036
key ooak-key-012 'OOAK'

and report on:

map-name-098
map-ver-098
mfldfldn-124
sr-nam-036
rcd-vers-036



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






Bill Allen
<ARCHCONB@AOL.COM
> To
Sent by: IDMS IDMSVENDOR-L@LISTSERV.IUASSN.COM
3rd-party cc
providers forum
<IDMSVENDOR-L@LIS Subject
TSERV.IUASSN.COM> [IDMSVENDOR-L] Map Reports


10/25/2007 11:00
AM


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






Hello All:
I am trying to report on all the map variables on all of the maps to
database or work record variables.
I am thinking of the following logical steps -
1) List of all maps
2) List of screen variables attached to each map
3) Source for each of the screen variables (Database or Work Record
Field).
Is there a standard Culprit Report that can do this? If not, does anyone
have anything that can produce something like this?
Bill Allen
(704) 641-0296




************************************** See what's new at http://www.aol.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: [IDMSVENDOR-L] Map Reports
"In a class this morning . . . Chris is correct . . . I haven't tested
this, but it comes from years ago . . .

IN 2000 DB SS=IDMSNWKA
00$--------------------------------------------------------------
00$ LIST ELEMENTS AS USED BY MAPS.
00$--------------------------------------------------------------
PATHME OOAK-012 MAP-098 MAPFLD-124 NAMESYN-083 SDR-042 INQ-058
PATH-- SR-036
00$--------------------------------------------------------------
00OUT 200 D LP=53
00SORT MAP-NAME-098,1 SEQ-042
000 CTR 0
00$--------------------------------------------------------------
003SPECIAL DBA REPORT
00410034 'MAP FIELD ELEMENTS'
00420001 'MAPXELE FOR'
00420013 MAP-NAME-098
00420037 'AS USED'
00420067 'SOFTWARE BY DEM'
00430001 ' '
00510001 DR-LVL-042 FM '99' HH 'LV'
00510004 MFLDFLDN-124 SZ=32 HH 'FIELD NAME'
00510037 DATAFLD-INDEX-124 FM 'ZZ9' HH 'REF' 'NBR'
00510041 PIC-042 SZ=16 HH 'EXTERNAL' 'PICTURE'
00510058 PIC-058.1 SZ=15 HH 'INTERNAL' 'PICTURE'
00510075 SEQ-042 FM '999999' HH 'SEQ-NO'
00510082 SR-NAM-036 SZ=32 HH 'RECORD NAME'
00510115 INQ-NAM-058 SZ=32 HH 'ELEMENT NAME'
00$-------------------------------------------------------------
007 IF PATH-ID NE 'ME' DROP $
007 IF MFLLIT-124 EQ 1 DROP $ NO LITERALS
007 IF MFLEXPIC-124 EQ 0 DROP $ MUST HAVE EXT-PIC
007 C CTR + 1 CTR $
007 IF CTR GT 299 STOP-RUN $ temp for debugging <<<<<<<<<<<<
007 CALL DB-EXIT ('OWNER' 'SR-036 ' 'SR-SDR ')
007 TAKE $
007 $

Outcomes