mfcobol2002
Programmer
Respected gentlemen,
Scenary:
Netexpress 3.1+form designer + wizard
look at fragment
Program Login - Field login+password (html)
after submit as executed
process-business-logic section.
to read a login file and it moves "login" for the field hidden1
Program consult - checked group(html)
program to consult.cbl
working-storage section.
01 testa-login is external-form.
03 grupo pic x(32)
identified by "hidden1".
perform process-form-input-data
perform convert-input
if MF-SERVER-EXEC = "yes"
perform process-business-logic
perform report-cvt
else
perform report-ini
end-if
if flag = spaces
accept testa-login
perform report-out
perform show-results
end-if
.
exit program
stop run.
the value of the variable Grupo should be "login" but it is spaces
where wandered
do you have one sample?
respectfully
Scenary:
Netexpress 3.1+form designer + wizard
look at fragment
Program Login - Field login+password (html)
after submit as executed
process-business-logic section.
to read a login file and it moves "login" for the field hidden1
Program consult - checked group(html)
program to consult.cbl
working-storage section.
01 testa-login is external-form.
03 grupo pic x(32)
identified by "hidden1".
perform process-form-input-data
perform convert-input
if MF-SERVER-EXEC = "yes"
perform process-business-logic
perform report-cvt
else
perform report-ini
end-if
if flag = spaces
accept testa-login
perform report-out
perform show-results
end-if
.
exit program
stop run.
the value of the variable Grupo should be "login" but it is spaces
where wandered
do you have one sample?
respectfully