RosettaCodeData/Task/Empty-string/PL-I/empty-string.pli

Dcl s Char(10) Varying;
s = '';                   /* assign an empty string to a variable. */
if length(s) = 0 then ... /* To test whether a string is empty */
if length(s) > 0 then ... /* to test for a non-empty string */
Sync 2013-10-27 22:24:23 +00:00			`Dcl s Char(10) Varying;`
langs a-z 2013-04-10 22:43:41 -07:00			`s = ''; /* assign an empty string to a variable. */`
			`if length(s) = 0 then ... /* To test whether a string is empty */`
			`if length(s) > 0 then ... /* to test for a non-empty string */`