/* scan for bad entries */
'CALLPIPE (name scanbad01) *:| find -- | count lines | var res'
if (res ^= 0) then do
'output
Error' ,
'Sorry, but you did not select all the fields.' ,
'Make sure none of the fields still contain the default ---' ,
'value.' ,
'
To return to the form, use your browsers "back" button.' ,
'stmk'
end
'CALLPIPE (name scanbad02) var res |*:'