$FunSkip: Difference between revisions
(Automatically generated page update) |
(Automatically generated page update) |
||
Line 8: | Line 8: | ||
The only argument is the request identifier returned by <var>$FunLoad</var> for the request from which data is to be retrieved. This is a required argument. | The only argument is the request identifier returned by <var>$FunLoad</var> for the request from which data is to be retrieved. This is a required argument. | ||
==Syntax== | ==Syntax== | ||
<p class="syntax">%result = $FunSkip(req_num) | <p class="syntax"><span class="term">%result</span> = $FunSkip(req_num) | ||
</p> | </p> | ||
<p> | <p> |
Revision as of 21:28, 10 April 2013
Skip to next output record for $FunImg, $FunsStr
This skips the current Fast/Unload output record for a request so that subsequent $FunImg and $FunsStr calls will operate on the next record.
The $FunSkip function accepts one argument and returns a numeric result.
The only argument is the request identifier returned by $FunLoad for the request from which data is to be retrieved. This is a required argument.
Syntax
%result = $FunSkip(req_num)
%result is set to 1, or it is set to an error code if there is no record to skip.
1 - Record skipped 0 - Fast/Unload completed with return code 0; no more data -1 - Request not found <-1 - Fast/Unload completed with non-zero return code, value returned is negative of return code; no more data
If Fast/Unload has not unloaded any records yet, $FunSkip will wait for the first record. If $FunSkip returns a value less than or equal to 0, the request has completed.
$FunSkips can be mixed with $FunsStr and $FunImg calls for the same request. In addition, multiple unloads can be performed simultaneously with $FunSkip calls for the different requests mixed freely.
The following example compares the first two bytes of each unloaded record with 'XX'. If they are equal, the record is copied into image 'IMAGE' and then processed; otherwise the record is simply skipped.
%REQ = $FunLoad('DATA', , , '*') IF %REQ LE 0 THEN STOP END IF %RC = 1 REPEAT WHILE %RC > 0 %TEST = $FunsStr( %REQ, 1, 2) IF %TEST EQ 'XX' THEN %RC = $FunImg( %REQ, %IMAGE:ITEM ) CALL PROCESS ELSE %RC = $FunSkip END IF END REPEAT
Products authorizing $FunSkip