Rational Developer for System z
Enterprise PL/I for z/OS, Version 3.8, 言語解説書

  dcl Uarea area(1000);
  dcl Pz ptr;
  dcl C99z char(99) varyingz based(Pz);
  dcl (SizeBefore, SizeAfter) fixed bin(31);
  SizeBefore = availablearea(Uarea);         /* returns 1000    */
  Alloc C99z in(Uarea);
  SizeAfter = availablearea(Uarea);          /* returns 896     */
  dcl C9 char(896) based(Pz);
  Alloc C9 in(Uarea);

Terms of use | Feedback

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