added LSL2 stored procedures

LSL2/STPROC/BUILD_SAPSHIPREL_DATA.txt

@@ -0,0 +1,70 @@
+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
+
+