import ultra.SAP_RFC.Default.ZCI_PLAN_DISPLAY_UPDATE;
import ultra.SAP_RFC.Default.ZCI_PLAN_DISPLAY_UPDATE.subUdr;
int seqNo = 0;
synchronized int increaseSeq() {
return seqNo++;
}
consume {
ZCI_PLAN_DISPLAY_UPDATE_UDR rfcUdr = udrCreate(ZCI_PLAN_DISPLAY_UPDATE_UDR);
rfcUdr.tableParams = udrCreate(tableParams_ZCI_PLAN_DISPLAY_UPDATE);
rfcUdr.tableParams.IT_PLAN_UPDATE = listCreate(ZCI_PLAN_DISPLAY_S);
ZCI_PLAN_DISPLAY_S item = udrCreate(ZCI_PLAN_DISPLAY_S);
item.PLAN_DISPLAY_ID = (string) increaseSeq();
item.PLAN_DISPLAY_NAME = baToStr(input.Data) + item.PLAN_DISPLAY_ID;
listAdd(rfcUdr.tableParams.IT_PLAN_UPDATE, item);
udrRoute(rfcUdr);
} |