PL\1



Sample Program



Test: procedure options(main);


declare My_String char(20) varying initialize('Hello, World!');


put skip list(My_String);


end Test;




Hello World


HELLO: PROCEDURE OPTIONS (MAIN);


FLAG = 0;


LOOP: DO WHILE (FLAG = 0);


PUT SKI LIST('HELLO WORLD!');

END LOOP;


END HELLO;




Hello World 2


Hello2: proc options (main);


put list ('Hello, World');


end Hello2;


Hosted by www.Geocities.ws

1