71 lines
1.4 KiB
Plaintext
71 lines
1.4 KiB
Plaintext
COMPILE ROUTINE BUILD_SapShipRel_DATA(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
|
|
DECLARE SUBROUTINE ErrMsg, Send_Info, SetInitDirOptions, Send_Dyn, Set_Status
|
|
|
|
|
|
DECLARE FUNCTION Get_Status,Security_Check, Set_Status
|
|
DECLARE FUNCTION Repository, Send_Dyn
|
|
|
|
$INSERT COC_EQUATES
|
|
$INSERT WO_MAT_EQUATES
|
|
$INSERT PART_EQUATES
|
|
|
|
EQU CRLF$ TO \0D0A\
|
|
EQU TAB$ TO \09\
|
|
|
|
|
|
ShipNos = 97500:@VM:97600:@VM:96100
|
|
|
|
ShipCnt = 3
|
|
|
|
DEBUG
|
|
|
|
FOR I = 1 TO 1
|
|
ShipNo = ShipNos<1,I>
|
|
ShipRec = XLATE('COC',ShipNo,'','X')
|
|
|
|
WONo = ShipRec<COC_WO$>
|
|
CassNos = ShipRec<COC_CASS_NO$>
|
|
ProdOrdNo = 'M':FMT(WONo, "R(0)#6"):'.1'
|
|
CassWfrQtys = XLATE('COC',ShipNo,'CASS_WAFER_CNT','X')
|
|
|
|
ShipRelease = ''
|
|
|
|
CassCnt = COUNT(CassNos,@VM) + (CassNos NE '')
|
|
|
|
FOR Cass = 1 TO CassCnt
|
|
ShipRelLine = ShipNos<1,I>
|
|
ShipRelLine<1,2> = ProdOrdNo
|
|
ShipRelLine<1,3> = WONo
|
|
ShipRelLine<1,4> = CassNos<1,Cass>
|
|
ShipRelLine<1,5> = 'B':RND(1945)
|
|
ShipRelLine<1,6> = CassWfrQtys<1,I>
|
|
|
|
ShipRelease<-1> = ShipRelLine
|
|
|
|
NEXT Cass
|
|
|
|
* * * * Write Work Order Release * * * *
|
|
|
|
ProdOrdRelease = 'M000010.1':@VM:'PO001TEST':@VM:'03/30/11':@VM:'737883':@VM:'516956-C-IR':@VM:'1':@VM:'100':CRLF$
|
|
|
|
SWAP @FM WITH CRLF$ IN ProdOrdRelease
|
|
SWAP @VM WITH TAB$ IN ProdOrdRelease
|
|
|
|
|
|
FullPath = 'C:\FTP_IN\ProdOrdRel\'
|
|
FileName = 'PR':FMT(I,"R(0)#5"):'.tsv'
|
|
|
|
Set_Status(0)
|
|
|
|
OSWRITE ProdORdRelease TO FullPath:FileName
|
|
|
|
|
|
NEXT I
|
|
|
|
END
|
|
|
|
|