PROCESS QUERY RECORD

Chapter 4-7: Predefined Fields and Processes

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

APPX Application Design Manual (01/13/03)