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

  dcl Scids   char(17)         init('See you at SCIDS!') static;
  dcl Vscids  char(20) varying init('See you at SCIDS!') static;
  dcl Stg fixed bin(31);

  Stg = storage   (Scids);           /* 17 bytes */
  Stg = currentsize (Scids);         /* 17 bytes */
  Stg = size (Vscids);               /* 22 bytes */
  Stg = currentsize (Vscids);        /* 19 bytes */
  Stg = size (Stg);                  /* 4  bytes */
  Stg = currentsize (Stg);           /* 4  bytes */

Terms of use | Feedback

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