96 lines
991 B
Plaintext
96 lines
991 B
Plaintext
/include a,b
|
|
/include c,d
|
|
|
|
dcl-ds abc likeds(def);
|
|
dcl-s a varchar(32);
|
|
|
|
a = %char(a, b);
|
|
b = %not_found(a);
|
|
c = found(hello);
|
|
|
|
dcl-proc a;
|
|
dcl-pi *n int(1);
|
|
qwerty const inz(1234) likeds(hello);
|
|
end-pi;
|
|
|
|
return *OFF;
|
|
end-proc;
|
|
|
|
dcl-pr hello;
|
|
world ind options(*nopass);
|
|
end-pr;
|
|
|
|
dcl-ds a;
|
|
a varchar(1);
|
|
end-ds;
|
|
|
|
dcl-ds likerec('hello');
|
|
|
|
a = *INRT;
|
|
|
|
begsr a;
|
|
hello();
|
|
endsr;
|
|
|
|
select;
|
|
when a = 1;
|
|
monitor;
|
|
a = 1 / 0;
|
|
on-error;
|
|
hello();
|
|
endmon;
|
|
|
|
doA();
|
|
b = *NULL;
|
|
|
|
when b = 1;
|
|
doB();
|
|
|
|
other;
|
|
doC();
|
|
endsl;
|
|
|
|
dow a < 4;
|
|
b();
|
|
c = *OFF;
|
|
enddo;
|
|
|
|
exec SQL declare parents cursor for pParent;
|
|
exec sql
|
|
select abs(abc), def
|
|
from qwer;
|
|
|
|
dcl-proc b;
|
|
dcl-pi *n;
|
|
a varchar(32);
|
|
end-pi;
|
|
|
|
hello();
|
|
|
|
end-proc;
|
|
|
|
dcl-proc c;
|
|
dcl-pi *n;
|
|
end-pi;
|
|
|
|
hello();
|
|
|
|
end-proc;
|
|
|
|
for i = 1 to 10;
|
|
doFor();
|
|
endfor;
|
|
|
|
if a = 1;
|
|
if b = 1;
|
|
doAB();
|
|
// hello
|
|
else;
|
|
world();
|
|
else;
|
|
doNOTABC():
|
|
endif;
|
|
else;
|
|
doQQ();
|
|
endif;
|