phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merged PR 11298: added a null cass no check to the unload epipro service

Browse Source 
added a null cass no check to the unload epipro service
This commit is contained in:
Stieber Daniel (CSC FI SPS MESLEO) 2025-02-26 19:20:25 +01:00
parent c238f339ba
commit 7b0d78a2d3
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
LSL2/STPROC/OBJ_WM_OUT.txt
View File

@ -613,9 +613,11 @@ NextOpenSlots:
FOR I = 1 TO COUNT(WMOKeys,@VM) + (WMOKeys NE '')
CassNo = WMOKeys<1,I>[-1,'B*']
LOCATE CassNo IN CassNos BY 'AR' USING @VM SETTING Pos ELSE
CassNos = INSERT(CassNos,1,Pos,0,CassNo)
END
If CassNo NE '' then
LOCATE CassNo IN CassNos BY 'AR' USING @VM SETTING Pos ELSE
CassNos = INSERT(CassNos,1,Pos,0,CassNo)
END
end
NEXT I
END
@ -625,7 +627,6 @@ NextOpenSlots:
* Start Counting at the last box and work backward
FOR I = CassCnt TO 1 STEP -1
CassNo = CassNos<1,I>
WMOutRec = XLATE('WM_Out',WONo:'*':WOStep:'*':CassNo,'','X')
SlotCnt = COUNT(WMOutRec<WM_OUT_SLOT_NO$>,@VM) + (WMOutRec<WM_OUT_SLOT_NO$> NE '')