1 %*DEFINE(SECFIN=LT=45; FIN=S;) 2 3 %*DEF(FAK(K,T)=M=FOLLOW;TX/=%T;;TXX=<10;TXY=20;BL=25;C=($SELECT(CAT=%K;;D=S;WAY=A;MIN=4;MAX=10;DELIM=";"))![SS:10];) 4 %*DEF(FAV(V,T)=M=FOLLOW;TX/=%T;;TXX=<10;TXY=20;BL=25;C=($SELECT(SAMECAT=%V;;D=S;WAY=A;MIN=4;MAX=10;DELIM=";"))![SS:10];) 5 6 %*DEF(SAK(K,T)=TX/=%T;;TXX=<10;TXY=20;BL=25;C=($SELECT(CAT=%K;;WAY=A;MAX=1;))[SS:10];) 7 %*DEF(SAV(V,T)=TX/=%T;;TXX=<10;TXY=20;BL=25;C=($SELECT(SAMECAT=%V;;WAY=A;MAX=1;))[SS:10];)