Skip to main content

Problem:

Would like a function that will give a list of all relations for a specific component or import, or UID

Resolution:

Using the attached function (showrel), a Revolve user will be able to determine all the relationships of a component/import/UID.

Giving the Revolve user:

Starting Element==>system_component_cobol :  ORDER.CBL  { D:\\TPS6244\\SAMPLES\\ENTERPRISE\\ORDERAPP\\SOURCE\\ORDER\\ORDER.CBL }

==========================================================================

:>attr_reql_component-error                    ==> 0

:>attr_reql_component-line                     ==> 1331

:>attr_reql_component-notice                   ==> 0

:>attr_reql_component-warning                  ==> 0

:>attr_reql_dbtime                             ==> 1147071780

:>attr_reql_lastuid                            ==> 35997763

:>attr_reql_lines                              ==> 1331

:>attr_reql_location                           ==>  {ORDER.CBL at 1,1 }

:>attr_reql_name                               ==> ORDER.CBL

:>attr_reql_pseq                               ==> 0

:>attr_reql_px                                 ==> 1

:>attr_reql_py                                 ==> 1

:>attr_reql_status                             ==> Loaded

:>attr_reql_text_line                          ==>        IDENTIFICATION DIVISION.

:>attr_reql_type                               ==> type :    system_component_cobol

:>attr_reql_version                            ==> 6.2.45

:>attr_reql_width                              ==> 82

:>attr_reql_x                                  ==> 1

:>attr_reql_y                                  ==> 1

:>attr_system_comp-param-d_flavor-name         ==> cobol_flavor_general

:>attr_system_comp-param-d_twswdr-filename     ==> rvmfasm.dll

:>attr_system_comp-param-f                     ==> 4096

:>attr_system_comp-param-f_word-storage        ==> 1

:>attr_system_comp-param-i_align-offset        ==> 0

:>attr_system_comp-param-i_cobol-flavor        ==> 8918

:>attr_system_comp-param-i_end-column          ==> 0

:>attr_system_comp-param-i_io-pcb              ==> 0

:>attr_system_comp-param-i_jcl-schid           ==> 0

:>attr_system_comp-param-i_job-stream-type     ==> 0

:>attr_system_comp-param-i_pli-start-column    ==> 7

:>attr_system_comp-param-i_start-column        ==> 7

:>attr_system_component-uid                    ==> 35995648

:>attr_system_file-name                        ==> D:\\TPS6244\\SAMPLES\\ENTERPRISE\\ORDERAPP\\SOURCE\\ORDER\\ORDER.CBL

:>attr_system_file-time                        ==> 988263240

:>attr_system_is-annotation-uid                ==> 0

:>attr_system_is-local-uid                     ==> 1

:>attr_system_is-syswide-uid                   ==> 0

:>attr_system_is-unknown-uid                   ==> 0

:>attr_system_is-virtual-uid                   ==> 0

:>attr_system_parse-checksum                   ==> -1892903032

:>attr_system_path                             ==> D:\\TPS6244\\SAMPLES\\ENTERPRISE\\ORDERAPP\\SOURCE\\ORDER\\

:>attr_system_path_code                        ==> D:\\TPS6244\\SAMPLES\\ENTERPRISE\\ORDERAPP\\SOURCE\\ORDER\\

:>hasa                                         ==> system_cobol_program : ORDERS  {ORDER.CBL at 1,1 }

:>hasa_system_cobol                            ==> system_cobol_program : ORDERS  {ORDER.CBL at 1,1 }

:>hasa_system_cobol_program                    ==> system_cobol_program : ORDERS  {ORDER.CBL at 1,1 }

:>system_belongs-to                            ==> system_code_cobol :  ORDER.CBL  { D:\\TPS6244\\SAMPLES\\ENTERPRISE\\ORDERAPP\\SOURCE\\ORDER\\ORDER.CBL }

:>system_having                                211 found, 1 shown ==> system_cobol_program : ORDERS  {ORDER.CBL at 1,1 }

:<system_in                                    211 found, 1 shown ==> system_cobol_program : ORDERS  {ORDER.CBL at 1,1 }

:>system_in-synch                              ==> system_component_cobol :  ORDER.CBL  { D:\\TPS6244\\SAMPLES\\ENTERPRISE\\ORDERAPP\\SOURCE\\ORDER\\ORDER.CBL }

:>system_inst-of                               ==> type :    system_component_cobol

:<system_usedin                                221 found, 1 shown ==> constant :    constant_low-values

:>system_using                                 221 found, 1 shown ==> constant :    constant_low-values

==============================End of Report==============================

Attachments:

showrel.RQC

Old KB# 1081

#EnterpriseAnalyzer
#SupportTip