RosettaCodeData/Task/Variable-size-Get/PL-I/variable-size-get.pli
2023-07-01 13:44:08 -04:00

8 lines
459 B
Text

put skip list (SIZE(x)); /* gives the number of bytes occupied by X */
/* whatever data type or structure it is. */
put skip list (CURRENTSIZE(x));
/* gives the current number of bytes of X */
/* actually used by such things as a */
/* varying-length string, including its */
/* length field. */