PL/I preprocessor: Difference between revisions

Revision as of 23:37, 22 January 2013

Revision as of 16:37, 23 January 2013

Line 96:

%end;

%act uwrite;

</source>

The statement <code>uwrite file(file_name) from(var_str) count(64);</code> generates the following:

<source lang=PLI>

do;

dcl Count00001 fixed bin (15);

Count00001 = filewrite(file_name, ptradd(addr(var_str), 2), min(length(var_str), 64));

end;

</source>