how to pass the parameter value to the qad program

[Namasiva]

Hi,

I have created a program which will ckeck the usr_access_loc and so_site

Pls find below the codes
" {mfdtitle.i "b+ "}
define variable nbr like so_nbr.
define variable nbr1 like so_nbr.



form
nbr colon 25
nbr1 label {t001.i} colon 50

with frame a width 80 side-labels no-attr-space.

{wbrp01.i}
mainloop:
repeat:
if nbr1 = hi_char then nbr1 = "".

if c-application-mode <> 'web':u then
update
nbr nbr1
with frame a.

if (c-application-mode <> 'web':u) or
(c-application-mode = 'web':u and
(c-web-request begins 'data':u)) then do:

bcdparm = "".
{mfquoter.i nbr }
{mfquoter.i nbr11 }

if nbr = "" then nbr1 = hi_char.

end.
{mfselbpr.i "printer" 132}
{mfphead.i }

On go, return anywhere
Do:

for each so_mstr where so_nbr >= nbr and so_nbr <= nbr1 no-lock,
each usr_mstr where usr_access_loc = so_site no-lock :
If not avail usr_mstr then
Do:
message "ERROR: User Doesn't have access to:" so_site "site."
view-as alert-box.
return no-apply.
End.
if available usr_mstr then

{gprun.i ""xfsorp10.p""}
End.
{mfrtrail.i}
End.
end.

{wbrp04.i &frame-spec = a}"

in that code i need to pass the nbr and nbr1 value to "xfsorp10.p".

how do i do that ? , and also it should not allow the user to leave the fiend nbr and nbr1 field as empty .
i don't have the source code of Xfsorp10.p

Thanks in advance for your help

 

[Kishor Chari]

It a report , customised..you MUST have source code.
Else accept the values and CIM it to your custom program.