INCLUDE COND=(21,8,ZD,GT,DATE1P)

This example illustrates how to include records in which a zoned-decimal date of the form Z'yyyymmdd' in bytes 21-28 is greater than today's date. DATE1P generates a decimal number for the current date in the form +yyyymmdd.