1200的SCL做一个立体库程序，100库位，4分区

// 扫描库区，输出各个库区的余位数和最近余位库号。为入库货物和整理仓库做准备
// K_1,2,3,4为临时变量，每次刷新都从0开始
FOR #I := 1 TO 100 DO
IF #I <= 50 THEN// 扫描1库区
IF #库位标志[#I-1] = 0 THEN // 有余位
//首次检索到余位。输出库号
IF #K_1 = 0 THEN
#空余库号[0] := #I;
END_IF;
#K_1 := #K_1 + 1;//余位数加1
END_IF;
#库区余位[0] := #K_1;//输出库区总余位数
ELSIF 50 < #I AND #I <=70 THEN// 扫描2库区
IF #库位标志[#I-1] = 0 THEN // 有余位
//首次检索到余位。输出库号
IF #K_2 = 0 THEN
#空余库号[1] := #I;
END_IF;
#K_2 := #K_2 + 1;//余位数加1
END_IF;
#库区余位[1] := #K_2; //输出库区总余位数
ELSIF 70 < #I AND #I <=90 THEN// 扫描3库区
IF #库位标志[#I-1] = 0 THEN // 有余位
//首次检索到余位。输出库号
IF 3 = 0 THEN
#空余库号[2] := #I;
END_IF;
#K_3 := #K_3 + 1;//余位数加1
END_IF;
#库区余位[2] := #K_3; //输出库区总余位数
ELSE// 扫描4库区
IF #库位标志[#I-1] = 0 THEN // 有余位
//首次检索到余位。输出库号
IF #K_3 = 0 THEN
#空余库号[3] := #I;
END_IF;
#K_3 := #K_3 + 1;//余位数加1
END_IF;
#库区余位[2] := #K_3;//输出库区总余位数
END_IF;
IF #库内数据[#I-1, 0] <> #库内数据[#I-1, 1] THEN// 查找库区内是否有品种库区不符的库位
IF #库内数据[#I-1, 2] <> #ZL库位队列[#K, 2 ] THEN
#ZL库位队列[#K, 0] := #库内数据[#I-1, 0];
#ZL库位队列[#K, 1] := #库内数据[#I-1, 1];
#ZL库位队列[#K, 2] := #库内数据[#I-1, 2];
END_IF;
#K := #K + 1;
END_IF;
END_FOR;
#ZL_NUM := #K + 1;

库查找库号程序
REGION 入库程序
// 按下启动计算根据目标库位计算路径
IF #启动 AND NOT #RK_UP THEN
IF #总余位 > 0 THEN // 库区有余位，可以储存
//查找目标库号
CASE #品种 OF
1: // 品种1入库
IF #库区余位[0] > 0 THEN
#MB库号 := #空余库位[0];
ELSIF #库区余位[1] > 0 THEN
#MB库号 := #空余库位[1];
ELSIF #库区余位[2] > 0 THEN
#MB库号 := #空余库位[2];
ELSIF #库区余位[3] > 0 THEN
#MB库号 := #空余库位[2];
ELSE
;
END_IF;
2: // 品种2入库
IF #库区余位[1] > 0 THEN
#MB库号 := #空余库位[1];
ELSIF #库区余位[2] > 0 THEN
#MB库号 := #空余库位[2];
ELSIF #库区余位[3] > 0 THEN
#MB库号 := #空余库位[3];
ELSIF #库区余位[0] > 0 THEN
#MB库号 := #空余库位[0];
ELSE
;
END_IF;
3: // 品种3入库
IF #库区余位[2] > 0 THEN
#MB库号 := #空余库位[2];
ELSIF #库区余位[3] > 0 THEN
#MB库号 := #空余库位[3];
ELSIF #库区余位[1] > 0 THEN
#MB库号 := #空余库位[1];
ELSIF #库区余位[0] > 0 THEN
#MB库号 := #空余库位[0];
ELSE
;
END_IF;
4: // 品种4入库
IF #库区余位[3] > 0 THEN
#MB库号 := #空余库位[3];
ELSIF #库区余位[2] > 0 THEN
#MB库号 := #空余库位[2];
ELSIF #库区余位[1] > 0 THEN
#MB库号 := #空余库位[1];
ELSIF #库区余位[0] > 0 THEN
#MB库号 := #空余库位[0];
ELSE
;
END_IF;
;
ELSE // 品种错误
#PZ_ERR := 1;
END_CASE;
#目标库号:= #MB库号;
;
ELSE
// 库区无余位，不能储存
;
END_IF;
IF #目标库号=0 THEN//目标库号结果为零直接结束程序
GOTO JIESHU;
END_IF;
//根据目标库号计算坐标
;
END_IF;
#RK_UP := #启动;
JIESHU:
RETURN;
END_REGION