preproc
set behavior(FQ1) canenter(notappl) on (noconfirm); // allow blanks on this field
postproc
if FQ1 = notappl then
if curocc() = 1 then
errmsg("Please entry at least one.");
reenter;
else
skip to FQ2;
endif;
endif;
Code: Select all
If FQ1 = ??? then errmsg("This value has been entry");reenter;endif;
Code: Select all
Numeric Q1Ans, CountQ1;
Q1Ans=Q1;
CountQ1 =count(Q1 where Q1= Q1Ans);
if CountQ1>1 then
errmsg ("This value has been entered");
reenter;
else
endif;
Code: Select all
PROC FQ1
Numeric EXAns, CountEX;
EXAns=$;
CountEX =count($ where $= EXAns);
if CountEX>1 then
errmsg ("This value has been entered");
reenter;
else
endif;
numeric i, linenumber;linenumber=$;
If $ = 0 then skip to TEMP1 ;endif;
do i = 1 while i <= 146
if $(i) = linenumber then Q1(linenumber) = 1; else endif;enddo;
do i = 1 while i <= maxocc(Q1000)Q1(i) = 0;enddo;
do i = 1 while i <= totocc(FQ1000)if $(i) in 1:maxocc(Q1000)then Q1($(i)) = 1;endif;enddo;
If $ =146then skip to E4O;endif;
Code: Select all
if curocc()>=2 and $=5 then
errmsg ("You have already select pet and you can not enter 5.");
reenter;
else
endif
Code: Select all
PROC GLOBAL
PROC FQX
Preproc
////
set behavior($) canenter(notappl) on (noconfirm); // allow blanks on this field
PostProc
if $ = notappl then
if curocc() = 1 then errmsg("Please entry at least one."); reenter;endif;endif;
Numeric EXAns, CountFQX;
EXAns=$;
CountFQX =count($ where $= EXAns);
if CountFQX>1 then
errmsg ("This value has been entered");
reenter;
else
endif;
if curocc()>=2 and $ = 5 //CHANGE THIS
then errmsg("You can not enter this value");
reenter;else;endif;
If $ = 0 then skip to FQX(1) ;endif;
numeric i, linenumber;linenumber=$;
do i = 1 while i <= 5 //
if $(i) = linenumber then FQY(linenumber) = 1; else endif;enddo;
// Set everything in to zero
do i = 1 while i <= maxocc(FQY000)FQY(i) = 0;enddo;
// Set ones in FQY where there are corresponding entries in FQX
do i = 1 while i <= totocc(FQX000)if $(i) in 1:maxocc(FQY000)then
FQY($(i)) = 1;endif;enddo;
If $ = 4 then skip to FQO;endif; //
PROC FQY000
Preproc
set attributes ($) protect;
PROC FQY
onfocus
if visualvalue($(curocc()))
<> notappl then
set attributes($)
protect;
else
set attributes($)
native;
endif;
PROC FQO
if $ = "" then errmsg("Others. Please specify."); reenter;endif;