例 3

この例は、タイプ A のレコードをコピーし、最初の 10 レコードを印刷する、DFSORT と REXX のステートメントの組み合わせを示します。タイプ値は、6 桁目にあります。

*FASTPROC
 OMIT COND=(1,6,CH,NE,C'A')
*REXXPROC
 If prtcount() <= 10 then print(inrec,'CHAR') /* Print 10 */
    RETURN                                       /* Copy     */
 return 'DROP'                                   /* Drop the rest */