PLIFILL サブルーチン

目的

指定されたバイト値で、あるアドレスを n バイトだけ埋めます。

構文

CALL PLIFILL(x, y, z);

パラメーター

x は、POINTER または OFFSET として宣言する必要がある式です。OFFSET の場合は、AREA 属性を使用して x を宣言する必要があります。

y は、CHARACTER(1) NONVARYING として宣言する必要があるバイトです。

z は、FIXED BINARY(31,0) に変換される式です。

説明

PLIFILL は、変換や、埋め込み、切り詰めなしに、指定されたバイト (y) のコピーを z の長さだけ場所 x に移動します。

PLIFILL、PLIMOVE、および PLIOVER 組み込みサブルーチンは、バッファーの管理にも役立ちます。

例

foo: proc() options(main);

DCL PLIFILL builtin;
   
DCL mystring char(10) init('AAAAAAAAA');
   
CALL PLIFILL (addr(mystring), 'B', length(mystring));
   
PUT DATA(mystring);

制約事項

なし。