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

例 1

1048576 (1 メガバイト) のストレージと FIXED BINARY (31,0) と宣言された戻りコードの RETCODE を使って 80 バイトの レコードを SORTIN から SORTOUT へソートする PLISRTA への呼び出し。

CALL PLISRTA (' SORT FIELDS=(1,80,CH,A) ',
              ' RECORD TYPE=F,LENGTH=(80) ',
                1048576,
                RETCODE);

Terms of use | Feedback

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