Rational Developer for System z
PL/I for Windows, Version 8.0, プログラミング・ガイド

例 4

PLISRTD に対する呼び出し。PL/I ルーチン PUTIN によって入力が提供され、PL/I ルーチンの PUTOUT に出力が渡されます。ソートされるレコードは 82 バイト可変 (長さの接頭部を含む) です。データのバイト 1 から 5 までを昇順でソートし、次にこれらのフィールドが等しい場合は、バイト 6 から 10 までを降順でソートします。両方のフィールドが同じである場合は、入力の順序は保持されます。(これは EQUALS オプションによって行われます。)

  call plisrtd (' SORT FIELDS=(1,5,CH,A,6,5,CH,D),EQUALS ',
                ' RECORD TYPE=V,LENGTH=(82) ',
                  0,
                  retcode,
                  putin,       /* input routine  (sort exit 15) */
                  putout);     /* output routine (sort exit 35) */

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)