WMS Inventory Adjustment

Note: The below script is provided as an example without any guarantees and might not work on your version of RP / JDA / Blue Yonder WMS depending on config and customization. I have use it in the past to create inventory for testing. Note to be sure and add a SQL or publish data to set all stack variables correctly before the first publish data. publish data

where whereclause = ' create inventory ' ||

' where srcloc = ''''PERM-ADJ-LOC'''' ' ||

' and asset_typ = '''''''' ' ||

' and wh_id = ''''' || nvl( @wh_id, @@wh_id ) || ''''' ' ||

' and devcod = '''''''' ' ||

' and reacod = ''''' || @adj_reacod || ''''' ' ||

' and adj_ref2 = ''''' || @adj_ref1 || ''''' ' ||

' and adj_ref1 = ''''' || @adj_ref2 || ''''' ' ||

' and prtnum = ''''' || @prtnum || ''''' ' ||

' and prt_client_id = ''''' || nvl( @prt_client_id, '----' ) || ''''' ' ||

' and untpak = ''''' || @untpak || ''''' ' ||

' and untcas = ''''' || @untcas || ''''' ' ||

' and actcod = ''''IDNTFY_AJ'''' ' ||

' and invsts = ''''A'''' ' ||

' and ftpcod = ''''' || @ftpcod || ''''' ' ||

' and lodnum = ''''' || @lodnum || ''''' ' ||

' and subnum = ''''' || @subnum || ''''' ' ||

' and dstloc = ''''' || @dstloc || ''''' ' ||

' and untqty = ''''' || @adjqty || ''''' ' ||

' and catch_qty = 0; ' ||

' process lms identification event ' ||

' where lodnum = ''''' || @lodnum || ''''' ' ||

' and wh_id = ''''' || nvl( @wh_id, @@wh_id ) || '''''; '

|

publish data

where inv_adj_cmd = ' process inventory adjustment ' ||

' where stoloc = ''' || @dstloc || ''' ' ||

' and lodnum = ''' || @lodnum || ''' ' ||

' and prtnum = ''' || @prtnum || ''' ' ||

' and prt_client_id = ''' || nvl( @prt_client_id, '----' ) || ''' ' ||

' and cntbat = '''' ' ||

' and subnum = ''' || @subnum || ''' ' ||

' and dtlnum = '''' ' ||

' and lotnum = '''' ' ||

' and sup_lotnum = '''' ' ||

' and asset_typ = '''' ' ||

' and invsts = ''A'' ' ||

' and oprcod = ''INVADJ'' ' ||

' and inv_adj_qty = ' || @adjqty || ' ' ||

' and usr_id = ''' || @usr_id || ''' ' ||

' and whereclause = ''' || @whereclause || ''' ' ||

' and untqty = ''0'' ' ||

' and scanned_qty = ''' || @adjqty || ''' ' ||

' and catch_qty = ''0'' ' ||

' and untcas = ''' || @untcas || ''' ' ||

' and untpak = ''' || @untpak || ''' ' ||

' and revlvl = '''' ' ||

' and orgcod = '''' ' ||

' and supnum = '''' ' ||

' and ftpcod = ''' || @ftpcod || ''' ' ||

' and uomcod = ''EA'' ' ||

' and cnsg_flg = ''0'' ' ||

' and scanned_ctch_qty = ''0'' ' ||

' and devcod = '''' ' ||

' and reacod = ''' || @adj_reacod || ''' ' ||

' and adj_ref2 = ''' || @adj_ref2 || ''' ' ||

' and adj_ref1 = ''' || @adj_ref1 || ''' ' ||

' and wh_id = ''' || nvl( @wh_id, @@wh_id ) || ''' ' ||

' and invadj = 1 ' ||

' and callingapp = ''identify'' ' ||

' and exploded = ''0'' '

|

execute server command where inline = 0 and cmd = @inv_adj_cmd catch ( @? )