blob: 3739c28d5c365cb21bdf0467b44ba730341a6404 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
ss: MODULE /* This is Cynus PR chill/5696. */
DCL s20 CHARS(20) VARYING;
DCL s10 CHARS(10);
s20 := "Moser Wilfried";
S10 := "1234567890";
WRITETEXT (stdout, "s20 := ""%C"", s10 := ""%C""%/", s20, s10);
END ss;
|