DEFINE VARIABLE prodOrdercomp AS CHARACTER NO-UNDO INIT
"/home/qaddev/Abbas/prodOrdercomp.csv".
/*Variable declaration begins*/
DEFINE VARIABLE lvc_status AS CHARACTER NO-UNDO.
DEFINE VARIABLE lvc_message AS CHARACTER NO-UNDO.
DEFINE VARIABLE lvc_domain AS CHARACTER NO-UNDO.
DEFINE VARIABLE lvc_id AS CHARACTER NO-UNDO.
DEFINE VARIABLE lvc_comp AS CHARACTER NO-UNDO.
/*Variable declaration ends*/
ASSIGN
lvc_status = "Success"
lvc_message = ""
lvc_domain = ""
lvc_id = ""
lvd_comp = ""
input from value(prodOrdercomp).
REPEAT:
CREATE tt_prodordercompissue.
IMPORT DELIMITER ","
tt_prodordercompissue.tt_Site
tt_prodordercompissue.tt_ID
tt_prodordercompissue.tt_DefaultQtyToIssue
tt_prodordercompissue.tt_Op
tt_prodordercompissue.tt_Component
tt_prodordercompissue.tt_Location
tt_prodordercompissue.tt_Lot
tt_prodordercompissue.tt_Qty
END.
FOR EACH tt_prodordercompissue:
FIND FIRST si_mstr NO-LOCK
WHERE si_mstr.si_site = tt_prodordercompissue.tt_Site NO-ERROR.
IF AVAILABLE si_mstr THEN
lvc_domain = si_domain.
FIND FIRST wod_det NO-LOCK
WHERE wod_det.wod_domain = lvc_domain AND wod_det.wod_part=
tt_prodordercompissue.tt_Componen USE-INDEX wod_part NO-ERROR.
IF AVAILABLE wod_det THEN
ASSIGN
lvd_comp = wod_det.wod_part
ELSE
ASSIGN
lvc_status = "ERROR"
lvc_message = "ERROR: Component Not Found".
FOR FIRST usrw_wkfl exclusive-lock
where usrw_wkfl.usrw_domain = global_domain
and usrw_wkfl.usrw_key1 = "XX_PROD_COMP_ISSUE"
and usrw_wkfl.usrw_key2 =
tt_prodordercompissue.tt_ID + "," + tt_prodordercompissue.tt_Component NO-ERROR.
IF NOT AVAILABLE usrw_wkfl THEN DO:
create usrw_wkfl.
ASSIGN
usrw_wkfl.usrw_domain = global_domain
usrw_wkfl.usrw_key1 = "XX_PROD_COMP_ISSUE"
usrw_wkfl.usrw_key2 = tt_prodordercompissue.tt_ID + "," +
tt_prodordercompissue.tt_Component
usrw_wkfl.usrw_charfld[1] = tt_prodordercompissue.tt_Site
usrw_wkfl.usrw_charfld[2] = tt_prodordercompissue.tt_ID
usrw_wkfl.usrw_charfld[3] = tt_prodordercompissue.tt_DefaultQtyToIssue
usrw_wkfl.usrw_charfld[4] = tt_prodordercompissue.tt_Op
usrw_wkfl.usrw_charfld[5] = tt_prodordercompissue.tt_Component
usrw_wkfl.usrw_charfld[6] = tt_prodordercompissue.tt_Location
usrw_wkfl.usrw_charfld[7] = tt_prodordercompissue.tt_Lot
usrw_wkfl.usrw_decfld = tt_prodordercompissue.tt_Qty
usrw_wkfl.usrw_key3 = lvc_status
usrw_wkfl.usrw_key4 = lvc_message.
END.
ELSE DO:
ASSIGN
usrw_wkfl.usrw_charfld[1] = tt_prodordercompissue.tt_Site
usrw_wkfl.usrw_charfld[2] = tt_prodordercompissue.tt_ID
usrw_wkfl.usrw_charfld[3] = tt_prodordercompissue.tt_DefaultQtyToIssue
usrw_wkfl.usrw_charfld[4] = tt_prodordercompissue.tt_Op
usrw_wkfl.usrw_charfld[5] = tt_prodordercompissue.tt_Component
usrw_wkfl.usrw_charfld[6] = tt_prodordercompissue.tt_Location
usrw_wkfl.usrw_charfld[7] = tt_prodordercompissue.tt_Lot
usrw_wkfl.usrw_decfld = tt_prodordercompissue.tt_Qty
usrw_wkfl.usrw_key3 = lvc_status
usrw_wkfl.usrw_key4 = lvc_message.
END.
END.
FIND FIRST tt_prodordercompissueResponse
WHERE tt_prodordercompissueResponse.tt_IDResponse
= tt_prodordercompissue.tt_ID
AND tt_prodordercompissueResponse.tt_ComponentResponse =
tt_prodordercompissue.tt_Component NO-ERROR.
IF NOT AVAILABLE tt_prodordercompissueResponse THEN DO:
CREATE tt_prodordercompissueResponse.
ASSIGN
tt_prodordercompissueResponse.tt_SiteResponse =
tt_prodordercompissue.tt_Site
tt_prodordercompissueResponse.tt_IDResponse =
tt_prodordercompissue.tt_ID
tt_prodordercompissueResponse.tt_DefaultQtyToIssueResponse =
tt_prodordercompissue.tt_DefaultQtyToIssue
tt_prodordercompissueResponse.tt_OpResponse =
tt_prodordercompissue.tt_Op
tt_prodordercompissueResponse.tt_ComponentResponse =
tt_prodordercompissue.tt_Component
tt_prodordercompissueResponse.tt_LocationResponse =
tt_prodordercompissue.tt_Location
tt_prodordercompissueResponse.tt_LotResponse =
tt_prodordercompissue.tt_Lot
tt_prodordercompissueResponse.tt_QtyResponse =
tt_prodordercompissue.tt_Qty
tt_prodordercompissueResponse.tt_StatusResponse = lvc_status
tt_prodordercompissueResponse.tt_MsgResponse = lvc_message.
END.
