Given a process name and process type this program will display the Navigation of the panel/page for which the process is attached.


#include "setenv.sqc"

begin-report
Do Get-inputs
Do Pgrp_search($PNAME,$select_type)
end-report
!__________________________________________________________________________________
begin-procedure Get-inputs
do Init-DateTime
do Get-Current-DateTime
input $PNAME 'Enter the Process Name '
Let $PNAME = upper($PNAME)
do Get-Proces-Names
input #PTYPE maxlen=3 'Please Enter Period' type=number
Let $got_it='N'
Let $select_type=Dis_type.typename(#PTYPE)
show 'Process Name ' $PNAME
show 'Process Yype ' $select_type
end-procedure
!__________________________________________________________________________________
begin-procedure Pgrp_search($process_name,$prcstype)
begin-select
pnlgrpname
Let $got_it='Y'
Let $panel_grp = upper(&pnlgrpname)
!show $panel_grp
if $got_it='Y'
Do Find_navigation($panel_grp)
end-if
from PS_PRCSDEFNPNL
where prcsname=$process_name
and prcstype=$prcstype
end-select
if $got_it<>'Y'
Show '*********************PROCESS NAME-TYPE MISMATCH**************'
end-if
end-procedure Pgrp_search
!__________________________________________________________________________________
begin-procedure Find_navigation($panel_grp)
begin-select
mi.barlabel,
md.menulabel,
md.menugroup,
mi.itemlabel
Let $main_nav=&md.menugroup
Let $sub_nav=&md.menulabel
Let $sub1_nav=&mi.barlabel
Let $sub2_nav=&mi.itemlabel
show 'Navigation for the process' $process_name ' is......'
show ' '
show 'Go-> ' $main_nav '-> ' $sub_nav '-> ' $sub1_nav '->' $sub2_nav
from psmenuitem mi,psmenudefn md
where mi.pnlgrpname=$panel_grp
and mi.menuname=md.menuname
end-select
end-procedure Find_navigation
!__________________________________________________________________________________
begin-procedure Get-Proces-Names
Let #i=0
do Define-Array
begin-select
distinct(prcstype) &prcs_type

add 1 to #i
put #i &prcs_type into Dis_type(#i)
let $i= edit(#i,'99')
show $i ' ' &prcs_type
from ps_prcsdefn
end-select
end-procedure Get-Proces-Names
!__________________________________________________________________________________
begin-procedure Define-Array
create-array name=Dis_type size=100
field=no:number
field=typename:char
end-procedure

!**************************INCLUDE FILES******************************************
#include 'curdttim.sqc' ! Current Date and Time
#include 'datetime.sqc' ! Routines for date and time formatting



Display navigation for given process

Email this page Download Add Scripts to your Website

 

Right Click Here and choose "Save As" to download