I need to prevent errors due not existent or insufficient stock when doing inter-site transfers, I have tried calling the standard x3 procedure STODISPO from library STKLIB. The error happen when passing the parameters.
I've found only information for V5 and V6, currently I am in V12.
V5
Call STODISPO("[F:ZITV]",ZFCY,ZITM,"*",ZLOC,2,ZWSTA,"","","",ZSTODIS) From STKLIB
V6 (one extra parameter = blank)
Call STODISPO("[F:ZITV]",ZFCY,ZITM,"*","*",1,ZWSTA,"","","",ZSTODIS) From STKLIB
Where:
#ZITV CONTAINS THE ABBREVIATION OF THE ITMMVT TABLE (PRODUCT-SITE TOTALS) CLASS By Default:’[F :ITV]’
#ZFCY SITE
#ZITM PRODUCT
#ZLOT LOT NO. PREFIX With "*" / ALL THE LOTS "*" / BLANK LOT ONLY ""
#ZLOC LOCATION PREFIX With "*" / ALL THE LOCATIONS "" or "*"
#ZTYPLOC LOCATION type TAKEN INTO ACCOUNT: ALL THE INTERNAL LOCATIONS + THE COMBINATIONS Using THE FOLLOWING WEIGHTS (1=DOCK / 2=CUSTOMER / 4=SUBCONTRACT)
# EXAMPLE: 5=DOCK & SUBCONTRACT
#ZSTA STATUS TAKEN INTO ACCOUNT (Local MENU NO. 2701) / If 0 Then status ‘A’
#ZOWN OWNER (If "" Then LFCY)
#ZWRH WAREHOUSE or ""
#ZSTODIS CONTAINS THE AVAILABLE STOCK CALCULATED By THE SUB-PROGRAM.