added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_SHIPMENT.txt

@@ -0,0 +1,156 @@
+COMPILE ROUTINE TEST_OBJ_SHIPMENT(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE Set_Status, Send_Info, Btree.Extract, obj_Shipment, Send_Dyn
+DECLARE FUNCTION Get_Status,obj_Schedule, obj_Shipment, FTPList
+
+
+$INSERT COC_EQUATES
+
+EQU CRCRLF$ TO \0D0D0A\
+EQU CRLF$ TO \0D0A\
+EQU TAB$ TO \09\
+
+EnvPath	= 'C:\FTP_IN\'
+
+DEBUG
+
+
+* * * * * * *   JCH Testing of OI's FTP functions   * * * * * * * 
+
+
+*FtpDomain	= '10.131.1.243'					;* Wales
+*User		= 'irep'
+*Password	= 'g6fyi9'
+
+*FtpDomain	= '10.72.100.40'					;* Temecula & El Segundo
+*User		= 'EPIMesa'
+*Password	= 'irepi01'
+
+FtpDomain	= '194.90.108.5'
+User		= 'irepi'
+Password	= 'REPii2'
+Path		= ''
+FileName	= ''
+Error		= ''
+
+FileList = FTPList(FtpDomain,User,Password,Path,Error)
+
+IF Get_Status(errCode) THEN
+	DEBUG
+END
+
+
+DEBUG
+
+
+IF FileList THEN
+	SWAP CRLF$ WITH '|' IN FileList
+END ELSE
+	IF Error THEN
+		DEBUG
+	END
+END
+
+
+
+GOTO Bail
+
+******* Shipment Releases Inbound  *******
+
+InboundPath	= EnvPath:'ShipRel\'			;* Get any inbound Product Order Releases
+InitDir InboundPath:'*.tsv'
+FileList = DirList()
+
+FileNames = ''
+LOOP
+	FileName = FileList[1,@FM]
+	FileList[1,Col2()] = ""
+	
+	LOCATE FileName IN FileNames BY 'AR' USING @FM SETTING Pos ELSE
+		FileNames = INSERT(FileNames,Pos,0,0,FileName)
+	END
+	
+UNTIL FileList = ""
+REPEAT
+
+IF FileNames[-1,1] = @FM THEN FileNames[-1,1] = ''
+Test = ''
+FileCnt = COUNT(FileNames,@FM) + (FileNames NE '')
+
+
+FOR N = 1 TO FileCnt
+	Send_Info('Processing ':N:' of ':FileCnt)
+	FileName = FileNames<N>
+	StartTime = Time()
+	OSREAD FileIn FROM InboundPath:FileName THEN
+	
+		SWAP TAB$ WITH @VM IN FileIn
+		SWAP CRCRLF$ WITH @FM IN FileIn
+		SWAP CRLF$ WITH @FM IN FileIn
+		
+		LOOP
+			LastChar = FileIn[-1,1]
+		UNTIL LastChar NE @FM
+			FileIn[-1,1] = ''
+		REPEAT
+		
+		RetVal = obj_Shipment('SAPCreate',FileIn)
+		
+		RetVal = 0
+		
+		IF RetVal = 1 THEN
+		
+			OSDELETE InboundPath:Filename		;* Deletes local copy of inbound file
+			
+			SubDirectory = 'ShipRel'
+			*GOSUB ClearInbound					;* Deletes file on FTP server FromSAP\ProdOrdRel directory
+			
+		END	;* End of check for successful WO_LOG create
+	END
+NEXT N
+
+RETURN
+
+
+
+
+
+
+
+
+
+
+
+
+
+ReadCnt = 0
+SendCnt = 0
+
+FOR I = 1 TO ShipCnt
+
+	ShipNo = ShipNos<1,I>
+	
+	CustNo = XLATE('COC',ShipNo,'CUST_NO','X')
+	
+	
+	ReadCnt += 1
+	
+	LOCATE CustNo IN CustNos USING @VM SETTING Pos THEN
+		*obj_Shipment('SendTechnical',ShipNo)
+		SendCnt += 1
+	END
+	Send_Info(ReadCnt:' - ':SendCnt)
+NEXT I
+
+Send_Dyn(ReadCnt:' - ':SendCnt)
+
+
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END