IDMS

Hi, Is there a way to list the DBKEY of Member Records in CULPRIT Report?.

I needed to list the DBKEY for Internal Report Purpose, but when we tried in execution, all we could get was the DBKEY of 1st Record of the PATH(Root Owner).

Kindly suggest me a way to solve this issue.

Below is the Culprit Code Executed:

 DATABASE  DICTNAME=DICTCA  DBNAME=CFSTST             
 PRO RELEASE=6  TS=Y,Y,Y  USER=GPS       PW=CFSADM
 IN 10000 DB(D) SS=ACFSUTG                         
 PATHAA R1001-MAINUNIT R1002-REFERENCE  R1005-RELATION
*       R1006-MEMBER                              
 PATHBB R1001-MAINUNIT R1002-REFERENCE  R1005-RELATION
 01OUT 133 PS
01$        
 013 CUSTOMER ENTRY SECTION
01$        
 010  COUNT  1          
 010  SUM-CST           
 010  WS-DB-KEY         
 010  DATE-FORM         
 01$                                                   
 01510003 CUSTOMER-ID-1001          HH 'CUST' '----'  
 01510010 DBKEY                 HH 'DBKEY  ------'     
$01510010 WS-DB-KEY             HH 'DBKEY  ------'     
$01510010 KEY-R1002-REFERENCE        HH 'R1002-REF ---'  
$01510030 DBKEY-LINE            HH 'DBKEY-LINE-'       
$01510050 DBKEY-PAGE     F0                            
$        HH  'DBKEY  PAGE--'                           
$01510070 DBKEY-ALPHA           HH 'DBKEY  ALPHA-'     
$01510090 LINK-ID-1005  F0     HH 'LINK-ID'          
 01610010 '   '                                        
 01$                                                   
 017      MOVE DBKEY FROM R1002-REFERENCE   TO WS-DB-KEY 
 01$                                                   
**************************** Bottom of Data ************

When This code is executed, the expected result was the DBkey of both R1001 & R1002 Records been listed, but I got error saying "FROM R1002-REFERENCE  " not recognized.

Is it possible to get the DBKeys of the member Records in Culprit?

I believe there is a way I will try to  whip up some examples later this ecening

Also – I don’t think you need 2 path statements – you can put the (bb) qualifier on pathaa top test for partial path logic

Again I will try to find something tomorrow

Chris Hoelscher

Technology Architect, Database Infrastructure Services

Technology Solution Services

: humana.com

123 East Main Street

Louisville, KY 40202

Humana.com

(502) 714-8615, (502) 476-2538

If you can, the correct syntax would be
017      MOVE DBKEY(R1002-REFERENCE)   TO WS-DB-KEY 
I do not have access to the mainframe right now, but I believe I have a Culprit that does just what you want.

I don't know what you want to do with it, but make sure that whatever process is using the result with the DBKeys runs right after this one.   A reorg done between the process that creates the list of DBKeys and the process that uses it, will ruin everything.

Hi Tommy,

Thank you very much for your suggestion. It worked like charm.