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 */