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

 

[nate100]

Can you explain how hi_char works. Thank you

 

[mjpowellesq]

Haven`t U got the source code from qad ?
Just identify the .p U require and mode the code using standard Progress syntax. Compile then place the rcode in the application directory.
BFN