/* 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 |*:'