added LSL2 stored procedures

LSL2/STPROC/ZEBRA_160_TEST.txt

@@ -0,0 +1,222 @@
+COMPILE SUBROUTINE ZEBRA_160_TEST(Dummy)
+
+DECLARE SUBROUTINE obj_Zebra160s, Set_Status, Print_Cass_Ship_Label, ErrMsg, Print_Carton_Labels
+DECLARE SUBROUTINE Print_Pallet_Labels
+DECLARE FUNCTION Get_Status
+
+*CALL Print_cleanroom_labels_thermal( '193038' )
+
+*RETURN
+
+*Print_Pallet_Labels()
+
+*RETURN
+
+*COCIDs = '38810':@FM:'38814':@FM:'38751'
+COCIDs = '38847':@FM:'38848'
+
+Print_Carton_Labels( COCIds )
+
+RETURN
+
+* * * * * * *
+Skip:
+* * * * * * *
+
+RDSKeys = '192139':@fm:'177101'
+
+Print_Cass_Ship_Label(RDSKeys)
+
+RETURN
+
+
+
+* Testing parameters
+
+CustPartNo		= '123ABCD1234ABCD01'
+PartQty			= '123456'
+SupplierCd		= '1234567890'					;* 'Site Code:' on original label
+DeliveryLoc		= '12345678'
+SerialNo		= 'Serial78'
+PlantDock		= '1234567'
+StorageBin		= 'Storage Bin':'2345678901234567890'
+PlantName		= 'Plant Name':'12345678901234567890'
+PlantCity		= 'Plant City':'12345678901234567890'
+ShipDt			= OCONV(DATE(),'D4/')
+MfgDt			= OCONV(DATE()-5,'D4/')
+LotNo			= '6543210000'
+PartDesc		= 'Epitaxial Layer(s)'
+Manufacturer	= 'ATMI Services, 550 W Juanita Ave'
+City			= 'Mesa'
+ST				= 'AZ'
+ZIP				= '85210'
+Country			= 'USA'
+PONo			= '12 PO No 123'
+RevLvl			= '123'
+CustName		= 'Customer Name'
+CustLot			= 'WL306-1KVVF.1P'
+Thickness		= '4.13um'
+Resistivity		= '10.000ohm.cm'
+ReqShipDt		= OCONV(DATE()+5,'D4/')
+WONo			= '120014'
+
+ShipToName		= 'Ship To Name'
+ShipToAddr		= 'Ship To Address'
+ShipToCity		= 'Ship To City'
+ShipToST		= 'AZ'
+ShipToZIP		= 'ZIPPY'
+
+CustPartNoStruct  = 'M35':@VM		; CustPartQtyStruct  = '12':@VM
+CustPartNoStruct := 'L94A36':@VM	; CustPartQtyStruct := '25':@VM
+CustPartNoStruct := 'HF5':@VM		; CustPartQtyStruct := '25':@VM
+CustPartNoStruct := '5.8UM':@VM		; CustPartQtyStruct := '25':@VM
+CustPartNoStruct := '20M1.2104':@VM	; CustPartQtyStruct := '25':@VM
+CustPartNoStruct := 'L94A36'		; CustPartQtyStruct := '25'
+
+
+GOTO Container
+
+
+* * * * * End of testing variables
+
+
+Parms 		= CustPartNo
+Parms<2>	= RevLvl
+Parms<3>	= PartQty
+Parms<4>	= PartDesc
+Parms<5>	= LotNo			;* RDS 
+Parms<6>	= SupplierCd
+Parms<7>	= CustName
+Parms<8>	= PONo
+Parms<9>	= CustLot
+Parms<10>	= Thickness
+Parms<11>	= Resistivity
+Parms<12>	= ReqShipDt
+Parms<13>	= WONo
+
+
+
+SWAP @FM WITH @RM IN Parms
+
+Set_Status(0)
+
+obj_Zebra160s('SubPackLabel',Parms)
+
+IF Get_Status(errCode) THEN
+	DEBUG
+END
+
+
+GOTO Bail
+
+* * * * * *
+Container:
+* * * * * *
+
+* Container Label
+
+Parms		= CustPartNo
+Parms<2>	= PartQty
+Parms<3> 	= PONo
+Parms<4> 	= RevLvl
+Parms<5>	= SupplierCd
+Parms<6>	= DeliveryLoc
+Parms<7>	= SerialNo
+Parms<8>	= PlantDock
+Parms<9>	= LotNo
+Parms<10>	= StorageBin
+Parms<11>	= PlantName
+Parms<12>	= PlantCity
+Parms<13>	= MfgDt
+Parms<14>	= PartDesc
+ 
+CONVERT @FM TO @RM IN Parms
+
+Set_Status(0)
+obj_Zebra160s('ContainerLabel',Parms)
+
+IF Get_Status(errCode) THEN DEBUG
+
+RETURN
+
+* * * * * * *
+Master:
+* * * * * * *
+
+
+* Master Load Label
+
+
+Parms 		= CustPartNo
+Parms<2>	= PartQty
+Parms<3>	= SupplierCd
+Parms<4>	= DeliveryLoc
+Parms<5>	= SerialNo
+Parms<6>	= PlantDock
+Parms<7>	= StorageBin
+Parms<8>	= PlantName
+Parms<9>	= PlantCity
+Parms<10>	= ShipDt
+Parms<11>	= PartDesc
+Parms<12>	= Manufacturer
+Parms<13>	= City
+Parms<14>	= ST
+Parms<15>	= ZIP
+Parms<16>	= Country
+
+SWAP @FM WITH @RM IN Parms
+
+Set_Status(0)
+
+obj_Zebra160s('MasterLabel',Parms)
+
+IF Get_Status(errCode) THEN
+	DEBUG
+END
+
+
+* * * * * * *
+MixedLoad:
+* * * * * * *
+
+Parms 		= SupplierCd
+Parms<2>	= ShipToName
+Parms<3>	= ShipToAddr
+Parms<4>	= ShipToCity
+Parms<5>	= ShipToST
+Parms<6>	= ShipToZIP
+Parms<7>	= SerialNo
+Parms<8>	= PlantDock
+Parms<9>	= StorageBin
+Parms<10>	= PlantName
+Parms<11>	= PlantCity
+Parms<12>	= ShipDt
+Parms<13>	= Manufacturer
+Parms<14>	= City
+Parms<15>	= ST
+Parms<16>	= ZIP
+Parms<17>	= CustPartNoStruct
+Parms<18>	= CustPartQtyStruct
+
+CONVERT @FM TO @RM IN Parms
+
+Set_Status(0)
+
+obj_Zebra160s('MixedLoadLabel',Parms)
+
+IF Get_Status(errCode) THEN
+	ErrMsg(errCode)
+END
+
+RETURN
+
+
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+
+RETURN