PROCESS QUERY RECORD

This subroutine potentially adds a PCF record to the result set of a query (provided the record meets the query constraints). No arguments are passed to the subroutine, and no values are returned.

The subroutine can only be invoked via GOSUB. Also, it can only be used within the Establish PCF Range event point in a query process (or in a subroutine called from that event point).

The following example processes two ranges of vendor records for query selection. Only vendors 10-19 and 1000-1999 will be selected for printing if on file and then only if they also satisfy any runtime constraints.

        *        Process first range of records
        SET      TAP VENDOR VENDOR NO   =  10
        BEG AT    TAP VENDOR   IN TAP VENDOR VENDOR NO
        SET       TAP VENDOR VENDOR NO   =  19
        END AT    TAP VENDOR   IN TAP VENDOR VENDOR NO
        BEG READ  TAP VENDOR HOLD 0 KEY IS  VENDOR VENDOR NO
        GOSUB     --- PROCESS QUERY RECORD
        END READ  TAP VENDOR
        *         Process second range of records
        SET       TAP VENDOR VENDOR NO   =  1000
        BEG AT    TAP VENDOR   IN TAP VENDOR VENDOR NO
        SET       TAP VENDOR VENDOR NO   =  1900
        END AT    TAP VENDOR   IN TAP VENDOR VENDOR NO
        BEG READ  TAP VENDOR HOLD 0 KEY IS  VENDOR VENDOR NO
        GOSUB     --- PROCESS QUERY RECORD
        END READ  TAP VENDOR