Skip to Main Content
IBM Z Software


This portal is to open public enhancement requests against IBM Z Software products. To view all of your ideas submitted to IBM, create and manage groups of Ideas, or create an idea explicitly set to be either visible by all (public) or visible only to you and IBM (private), use the IBM Unified Ideas Portal (https://ideas.ibm.com).


Shape the future of IBM!

We invite you to shape the future of IBM, including product roadmaps, by submitting ideas that matter to you the most. Here's how it works:

Search existing ideas

Start by searching and reviewing ideas and requests to enhance a product or service. Take a look at ideas others have posted, and add a comment, vote, or subscribe to updates on them if they matter to you. If you can't find what you are looking for,

Post your ideas
  1. Post an idea.

  2. Get feedback from the IBM team and other customers to refine your idea.

  3. Follow the idea through the IBM Ideas process.


Specific links you will want to bookmark for future use

Welcome to the IBM Ideas Portal (https://www.ibm.com/ideas) - Use this site to find out additional information and details about the IBM Ideas process and statuses.

IBM Unified Ideas Portal (https://ideas.ibm.com) - Use this site to view all of your ideas, create new ideas for any IBM product, or search for ideas across all of IBM.

ideasibm@us.ibm.com - Use this email to suggest enhancements to the Ideas process or request help from IBM for submitting your Ideas.

Status Under review
Created by Guest
Created on Mar 3, 2024

AD - Program call graph for DL1 resource can be improved for certain ROLB scenario.

When IMS online program has the direct ROLB call without being accessing database segments, then AD call graph is shown as if program access multiple segments from the DBD. It looks to be little misleading from user aspect though the order of IMS-DB PCB'es are controlled by optional settings (NONE/CICSDBCTL or BMP or Batch depending on CMPAT parameter YES or NO) in build client. 

This issue was spotted in one of the live IDz/ADDI education to internal users.

Details:

Eg: Program PGM1 has direct ROLB call

---
---

001380 PROCEDURE DIVISION USING KRFW517I                 ---> 12PCB'es are received from the PROCEDURE DIVISION USING CLAUSE                       
001390                          xxxWxxxx                                        
001400                          xxxQIO                                          
001410                          xxxxxALT                                         
001420                          xxxQBNK                                         
001430                          xxxTFxx                                         
001440                          xxxAFxxx                                         
001450                          xxxEFxxx                                         
001460                          xxxEFxxx                                         
001470                          xxxEFxxx                                         
001480                          xxxAFxxx  


CALL 'CBLTDLI' USING WS-ROLB                                    
                                           xxxQIO    


PSB:                             ----> There are 13 PCB'es defined (1 PCB TP and 12 PCB DB'es)
****

        PCB   TYPE=TP,MODIFY=YES,PCBNAME=xxxx                               
        PCB   TYPE=DB,DBDNAME=yy1,PROCOPT=AP,KEYLEN=17,POS=SINGLE,*        
              PCBNAME=zz1                                                  
        SENSEG NAME=sxx1,PARENT=0                                           
        SENSEG NAME=syy1,PARENT=xxxx                                     
        SENSEG NAME=szz1,PARENT=xxxx                                     
        SENSEG NAME=saa1,PARENT=xxx                                     
        PCB   TYPE=DB
        --
        --                                                                                      
        PCB   TYPE=DB 
        --
        --                                        
        PCB   TYPE=DB
        --
        --
        PCB   TYPE=DB,
        --
        --                                 
        PCB   TYPE=DB
        --
        --                               
        PCB   TYPE=DB,    
        --
        --                                  
        PCB   TYPE=DB
        --
        --                                          
        PCB   TYPE=DB
        --
        --                                 
        PCB   TYPE=DB
        --
        --                             
        PCB   TYPE=DB
        --
        --                                  
        PSBGEN PSBNAME=xxxx,LANG=COBOL                                   
        END                                                                      


DBD:
****
    
        DBD   NAME=ddddd,ACCESS=DEDB,RMNAME=DBFHDC40                 
        AREA  DD1=xxxx1
        AREA  DD1=xxxx2
        AREA  DD1=xxxx3
        AREA  DD1=xxxx4
*                                                                       
        SEGM  NAME=ssg1,BYTES=(255,11)                              
        FIELD NAME=ff1
        FIELD NAME=ff2
        FIELD NAME=ff3
        SEGM  NAME=ssg2
        FIELD NAME=ff1
        SEGM  NAME=ssg3
        FIELD NAME=ff1
        SEGM  NAME=ssg4
        FIELD NAME=ff1
        DBDGEN                                                         
        FINISH                                                         
        END                                                            

 

Actual result       : Program call graph for PGM1 is displayed with database segments  ssg1, ssg2, ssg3, ssg4 from DBD 'ddddd', which is not expected.

 

Idea priority Medium