0
kirubagari's Avatar, Join Date: Apr 2011
Go4Expert Member
Dear xpi0t0s,

Im totally lost.Dont knoe how to filter the problematic one and good one...Just if the com.position is missing ,i want the entire log file to be written in to the abnormal directory..really wana give up!!!kindly help me....i had assign comp.position in sql and call it as well
Code:
    int Generate_SA_Report(
    			char* startDate, 
    			char* endDate, 
    			struct parameters* parms) 
    		
   
    
    { 	
    	/***************************************************
    	 * Preparation 
    	 ***************************************************/ 
    	/* Variable declaration */ 
    	int skipLotCntr = 0; 
    	int numOfFiles = 0; 
    	int compQty = 0; 
    	int indexOfComp = 0; 
    	int indexOfCarHistRecord = 0; 
    
    	vc2_LotSK lot_sk; 
    	vc2_TxnSK txn_sk; 	
    	vc2_Operation action; 
    	vc2_LotId lot; 
    	vc2_StepId stepId; 	
    	vc2_StepId sorterAction; 
    	vc2_Stage stage; 
    	vc2_Recipe recipe; 
    	vc2_Operation operation; 
    	vc2_Operation subOperation; 
    	vc2_WaferQty qtyIn; 
    	vc2_WaferQty qtyOut; 
    	vc2_WaferQty actualQty; 
    	vc2_EqpId eqpId; 
    	vc2_Device device; 
    	vc2_Technology tech; 
    	vc2_DateTime toTime; 
    	vc2_DateTime tiTime; 
    	vc2_DateTime createTime;  
    	vc2_UserId employee; 
    	vc2_CarrierId carrierId; 
    	vc2_LotId finalLotId; 
    	vc2_GroupHistKey groupHistKey; 
    	vc2_PlanId planId; 	
    	vc2_SlotPosition slot; 
    	vc2_CarrierId origCass; 
    	vc2_VScriberId inHouseScribe; 
    	vc2_VScriberId vendorScribe; 
        vc2_VScriberId POSITION;
    	vc2_CarrierId finalCass; 
    	vc2_SlotPosition origSlotArray[MAX_WAFERQTY_PER_LOT]; 
    	vc2_CarrierId origCassArray[MAX_WAFERQTY_PER_LOT]; 
    	vc2_VScriberId inHouseScribeArray[MAX_WAFERQTY_PER_LOT];  
    	vc2_VScriberId vendorScribeArray[MAX_WAFERQTY_PER_LOT];
        vc2_VScriberId POSITIONArray[MAX_WAFERQTY_PER_LOT];
    	vc2_SlotPosition finalSlotArray[MAX_WAFERQTY_PER_LOT]; 
    	vc2_CarrierId finalCassArray[MAX_WAFERQTY_PER_LOT]; 
    	
    	vc2_VScriberId scribeId;
    	vc2_SysId carHistSysId; 
    	vc2_SysId carHistTxnTime; 
    	vc2_SysId carHistSysIdArray[MAX_CARHISTRECORD_NUM];	 
    	vc2_SysId carHistTxnTimeArray[MAX_CARHISTRECORD_NUM]; 
    	int finalFlag = FALSE; 
    	char currDateTime[20]; 
    	char* pTmp = NULL; 
   		FILE*	fp = NULL;
 
          if((fp=fopen("test.txt", "wb"))==NULL) 
           {
               printf("Cannot open file.\n");
                exit(1);
           }
    
    	/* Reset memory */ 
    	memset(scribeId, 0, sizeof(scribeId)); 
    	memset(currDateTime, 0, sizeof(currDateTime)); 
    	memset(carHistSysId, 0, sizeof(carHistSysId)); 	
    	memset(carHistTxnTime, 0, sizeof(carHistTxnTime)); 	
    	memset(carHistSysIdArray, 0, sizeof(carHistSysIdArray)); 
    	memset(carHistTxnTimeArray, 0, sizeof(carHistTxnTimeArray)); 
    	
 	   
  	    
    	
    	
    	#ifdef DEBUG 
    	printf("%s: Start to retrieve Sorter Action Information\n", GetCurrDateTime(currDateTime)); 			
    	printf("  Start Date [%s] ~ End Date [%s]\n", startDate, endDate); 	
    	#endif 
    	
    	/***************************************************
    	 * Query data  
    	 ***************************************************/ 
    	/* Get 'Sorter Action' lot (lot_sk, txn_sk) list */ 
    	EXEC SQL DECLARE wsSaCursor CURSOR FOR
    			  SELECT wip.lot_sk, wip.txn_sk 
    			    FROM hdbxuser.fwhdbwipstephistory@hdbsil sh, 
    			  	     hdbxuser.fwhdbwiptransaction@hdbsil wip 
    			   WHERE wip.wipstep_sk = sh.wipstep_sk 
    			     AND wip.activity = 'TrackIn' 
    			     AND wip.txntime = sh.trackintime 
    			     AND sh.trackouttime BETWEEN :startDate AND :endDate; 
    	
    	/* Open cursor */ 
    	EXEC SQL OPEN wsSaCursor;
     
    	/* Loop, fetching all salesperson's statistics.
    	 * Cause the program to break the loop when no more
    	 * data can be retrieved on the cursor.
    	 */	
    	EXEC SQL WHENEVER NOT FOUND DO break; 
    	
    	for( ; ;) 
    	{	
    		/* Reset memory */ 		
    		memset(lot_sk, NULL, sizeof(lot_sk)); 
    		memset(txn_sk, NULL, sizeof(txn_sk)); 	
    		memset(action, NULL, sizeof(action)); 
    		memset(lot, NULL, sizeof(lot)); 
    		memset(stepId, NULL, sizeof(stepId)); 
    		memset(sorterAction, NULL, sizeof(sorterAction)); 
    		memset(stage, NULL, sizeof(stage)); 
    		memset(recipe, NULL, sizeof(recipe)); 	
    		memset(operation, NULL, sizeof(operation)); 
    		memset(subOperation, NULL, sizeof(subOperation)); 
    		memset(qtyIn, NULL, sizeof(qtyIn));
    		memset(qtyOut, NULL, sizeof(qtyOut));
    		memset(actualQty, NULL, sizeof(actualQty)); 
    		memset(eqpId, NULL, sizeof(eqpId)); 
    		memset(device, NULL, sizeof(device)); 
    		memset(tech, NULL, sizeof(tech)); 
    		memset(toTime, NULL, sizeof(toTime)); 
    		memset(tiTime, NULL, sizeof(tiTime)); 
    		memset(createTime, NULL, sizeof(createTime));  
    		memset(employee, NULL, sizeof(employee)); 
    		memset(carrierId, NULL, sizeof(carrierId)); 
    		memset(finalLotId, NULL, sizeof(finalLotId)); 
    		memset(groupHistKey, NULL, sizeof(groupHistKey)); 
    		memset(planId, NULL, sizeof(planId)); 
    		memset(origSlotArray, NULL, sizeof(origSlotArray)); 
    		memset(origCassArray, NULL, sizeof(origCassArray)); 
    		memset(inHouseScribeArray, NULL, sizeof(inHouseScribeArray)); 
    		memset(POSITIONArray,NULL,sizeof(POSITIONArray)); 
    		memset(vendorScribeArray, NULL, sizeof(vendorScribeArray)); 
    		memset(finalSlotArray, NULL, sizeof(finalSlotArray)); 
    		memset(finalCassArray, NULL, sizeof(finalCassArray)); 
    		
    		/* Get txn_sk */ 
    		EXEC SQL FETCH wsSaCursor INTO :lot_sk, :txn_sk;
    				
    		/* Skip it if no data found  */
    		EXEC SQL WHENEVER NOT FOUND GOTO NOTFOUND; 
        
    		/* To check whether the lot perform 'Sorter Action' or not */   
    		EXEC SQL  SELECT LOWER (recipe), transportid, stage, device 
    		            INTO :recipe, :carrierId, :stage, :device 
    							  FROM (SELECT lotrecipe.attrvalue recipe,
    							               lottransportid.attrvalue transportid, lotstage.attrvalue stage,
    							               lotdevice.attrvalue device
    							          FROM hdbxuser.fwhdbwiplotattrinstance@hdbsil lotrecipe,
    							               hdbxuser.fwhdbwiplotattrinstance@hdbsil lotstage,
    							               hdbxuser.fwhdbwiplotattrinstance@hdbsil lottransportid,
    							               hdbxuser.fwhdbwiplotattrinstance@hdbsil lotdevice
    							         WHERE lotrecipe.lot_sk = :lot_sk
    							           AND :txn_sk BETWEEN lotrecipe.startsequence AND lotrecipe.stopsequence
    							           AND lotrecipe.attrname = 'Recipe'
    							           AND (   LOWER (lotrecipe.attrvalue) LIKE '%verify%'
    							                OR (LOWER (lotrecipe.attrvalue) LIKE '%random%')
    							                OR (LOWER (lotrecipe.attrvalue) LIKE '%reorder%')
    							               )
    							           AND lotstage.lot_sk = :lot_sk
    							           AND :txn_sk BETWEEN lotstage.startsequence AND lotstage.stopsequence
    							           AND lotstage.attrname = 'Stage'
    							           AND lottransportid.lot_sk = :lot_sk
    							           AND :txn_sk BETWEEN lottransportid.startsequence
    							                           AND lottransportid.stopsequence
    							           AND lottransportid.attrname = 'transportId'
    							           AND lotdevice.lot_sk = :lot_sk
    							           AND :txn_sk BETWEEN lotdevice.startsequence AND lotdevice.stopsequence
    							           AND lotdevice.attrname = 'partProgId'
    							        UNION ALL
    							        SELECT lotsorteraction.attrvalue recipe,
    							               lottransportid.attrvalue transportid, lotstage.attrvalue stage,
    							               lotdevice.attrvalue device
    							          FROM hdbxuser.fwhdbwiplotattrinstance@hdbsil lotsorteraction,
    							               hdbxuser.fwhdbwiplotattrinstance@hdbsil lotstage,
    							               hdbxuser.fwhdbwiplotattrinstance@hdbsil lottransportid,
    							               hdbxuser.fwhdbwiplotattrinstance@hdbsil lotdevice
    							         WHERE lotsorteraction.lot_sk = :lot_sk
    							           AND :txn_sk BETWEEN lotsorteraction.startsequence
    							                           AND lotsorteraction.stopsequence
    							           AND lotsorteraction.attrname = 'SorterAction'
    							           AND lotsorteraction.attrvalue IN ('REORDER', 'VERIFY')
    							           AND lotstage.lot_sk = :lot_sk
    							           AND :txn_sk BETWEEN lotstage.startsequence AND lotstage.stopsequence
    							           AND lotstage.attrname = 'Stage'
    							           AND lottransportid.lot_sk = :lot_sk
    							           AND :txn_sk BETWEEN lottransportid.startsequence
    							                           AND lottransportid.stopsequence
    							           AND lottransportid.attrname = 'transportId'
    							           AND lotdevice.lot_sk = :lot_sk
    							           AND :txn_sk BETWEEN lotdevice.startsequence AND lotdevice.stopsequence
    							           AND lotdevice.attrname = 'partProgId'); 	
    							
    		/* Get lot detail information */ 
    		EXEC SQL  SELECT wipin.lotid, wipout.userid, wipin.txntime, wipin.lotqtyout,
    							       wipout.txntime totime, wipout.lotid finallotid, wipin.grouphistkey,
    							       sh.LOCATION, sh.stepid, sh.planid, sh.productname tech, 
    							       lot.createtxntime 
    							  INTO :lot, :employee, :tiTime, :actualQty, :toTime, :finalLotId, :groupHistKey, 
    							  	   :eqpId, :stepId, :planId, :tech, :createTime 
    							  FROM hdbxuser.fwhdblot@hdbsil lot,
    							       hdbxuser.fwhdbwipstephistory@hdbsil sh,
    							       hdbxuser.fwhdbwiptransaction@hdbsil wipout,
    							       hdbxuser.fwhdbwiptransaction@hdbsil wipin
    							 WHERE lot.lot_sk = wipin.lot_sk
    							   AND wipout.grouphistkey = wipin.grouphistkey
    							   AND wipout.activity = 'TrackOut'
    							   AND sh.wipstep_sk = wipout.wipstep_sk
    							   AND wipin.txn_sk = :txn_sk; 
    		
    		/* Get component Id list */ 
    		EXEC SQL DECLARE comp_Cursor CURSOR FOR 
    		          SELECT lot.lotid || '.' || comp.POSITION inhousescribe,
    			         comp.componentid vendorscribe,
                         comp.POSITION				  
    				    FROM hdbxuser.fwhdblot@hdbsil lot,
    				         hdbxuser.fwhdbwipcomponent@hdbsil comp
    				   WHERE lot.lot_sk = comp.originallot_sk
    				     AND comp.lot_sk = :lot_sk
    				     AND :txn_sk BETWEEN startsequence AND stopsequence 
    				     AND comp.status <> 'Scrapped'
    				     ORDER BY comp.componentid; 
    		
    		EXEC SQL OPEN comp_Cursor; 
    		EXEC SQL WHENEVER NOT FOUND DO break; 
    		
    		indexOfComp = 0;
    		for(; ;) 
    		{ 
    			memset(inHouseScribe, NULL, sizeof(inHouseScribe)); 
    			memset(vendorScribe, NULL, sizeof(vendorScribe));
                
Code:
memset (POSITION,NULL,sizeof (POSITION));
EXEC SQL FETCH comp_Cursor INTO :inHouseScribe, :vendorScribe, :POSITION; strcpy(inHouseScribeArray[indexOfComp], inHouseScribe); strcpy(vendorScribeArray[indexOfComp], vendorScribe); strcpy (POSITIONArray[indexOfComp],POSITION); indexOfComp++; } compQty = indexOfComp; EXEC SQL CLOSE comp_Cursor; /* * The following is to retrieve component Id slot-map * information: orignal -- final position * * 1. Get SysId/TxnTime list from FwCarrierHistory in desc order; * Time range: create time ~ to time * SysId list is stored in an array that size is 10. * 2. Loop: wafer by wafer * 2.1 Get final position (FwCarrierHistory_PN2M) * 2.1.1 Make sure TxnTime is between TiTime and ToTime * 2.1.2 Get final position by using the lastest sysId * 2.2 Get original position by using the latest SysId; * 2.2.1 Make sure TxnTime is earlier TiTime. * If not, skip to previous record (SysId); * 2.2.2 Get original position by using SysId. If not found, * skip to previous record (SysId) */ /* VERY IMPORTANT */ /* Minus 1 min (60 seconds) to create time */ /* We may fail to get data if using create time in some cases * because CARRIER transaction is done eariler than WIP. * For example, one child is created (split) in '20090806 152152000', * but the Assign Component happen in 20090806 152151000 */ AddSeconds( createTime, -60 ); /* Get SysId/TxnTime list from FwCarrierHistory */ EXEC SQL DECLARE carhist_Cursor CURSOR FOR SELECT sysid, txntime FROM caruser.fwcarrierhistory WHERE carrierid = :carrierId AND activity IN ('FwCarrierAssignComponentTxn', 'FwCarrierModifyComponentPositionTxn', 'ReAssociateTo' ) AND txntime BETWEEN :createTime AND :toTime ORDER BY txntime DESC; EXEC SQL OPEN carhist_Cursor; EXEC SQL WHENEVER NOT FOUND DO break; memset(carHistSysIdArray, 0, sizeof(carHistSysIdArray)); memset(carHistTxnTimeArray, 0, sizeof(carHistTxnTimeArray)); for(indexOfCarHistRecord = 0; indexOfCarHistRecord < MAX_CARHISTRECORD_NUM; indexOfCarHistRecord++) { memset(carHistSysId, 0, sizeof(carHistSysId)); memset(carHistTxnTime, 0, sizeof(carHistTxnTime)); EXEC SQL FETCH carhist_Cursor INTO :carHistSysId, :carHistTxnTime; strcpy(carHistSysIdArray[indexOfCarHistRecord], carHistSysId); strcpy(carHistTxnTimeArray[indexOfCarHistRecord], carHistTxnTime); } EXEC SQL CLOSE carhist_Cursor; /* To get final & original position for each wafer */ for (indexOfComp = 0; indexOfComp < compQty; indexOfComp++) { finalFlag = FALSE; memset(scribeId, NULL, sizeof(scribeId)); strcpy(scribeId, vendorScribeArray[indexOfComp]); /* Loop: to find original-final slot position */ for(indexOfCarHistRecord = 0; indexOfCarHistRecord < MAX_CARHISTRECORD_NUM; indexOfCarHistRecord++) { memset(slot, NULL, sizeof(slot)); memset(carHistSysId, 0, sizeof(carHistSysId)); strcpy(carHistSysId, carHistSysIdArray[indexOfCarHistRecord]); EXEC SQL WHENEVER NOT FOUND CONTINUE; EXEC SQL SELECT valdata slot INTO :slot FROM caruser.fwcarrierhistory_pn2m WHERE fromid = :carHistSysId AND linkname = 'components' AND keydata = :scribeId; if (strlen(slot) > 0) { if (strcmp(carHistTxnTimeArray[indexOfCarHistRecord], tiTime) > 0) { /* Finalflag is to make sure to get the correst slot position (latest). * To handle abnormal case: namely that there are multiple slot * mapping changes during the period of Track-In and Track-Out. */ if (finalFlag == FALSE) { /* Final position */ strcpy(finalSlotArray[indexOfComp], slot); strcpy(finalCassArray[indexOfComp], carrierId); finalFlag = TRUE; } } else { /* Original position */ strcpy(origSlotArray[indexOfComp], slot); strcpy(origCassArray[indexOfComp], carrierId); /* If final position value is NULL, it is assumed that * the slot position does not change, same as original one */ if (strlen(finalSlotArray[indexOfComp]) == 0) { strcpy(finalSlotArray[indexOfComp], slot); strcpy(finalCassArray[indexOfComp], carrierId); } break; } } } } /* Assign value to 'action', 'operation', 'suboperation' */ if (strstr(recipe, "random")) { strcpy(action, OPERATION_RANDOMIZE); strcpy(operation, stepId); /* Strip out XX stage stuff/sortorder in stage name */ pTmp = strchr(stage, ':'); if (pTmp != NULL) strcpy(subOperation, Trim_End(++pTmp)); else strcpy(subOperation, stage); } else if (strstr(recipe, "reorder")) { strcpy(action, OPERATION_REORDER); strcpy(operation, "reorder"); strcpy(subOperation, "reorder"); } else if (strstr(recipe, "verify")) { /* if (strstr(stepId, "SorterAction")) { strcpy(action, OPERATION_VERIFY); } else { strcpy(action, OPERATION_INLINEVERIFY); } */ strcpy(action, OPERATION_VERIFY); strcpy(operation, "verify"); strcpy(subOperation, "verify"); } else { strcpy(action, recipe); strcpy(operation, recipe); strcpy(subOperation, recipe); } printf("indexOfComp=%d, compQty=%d\n", indexOfComp, compQty); fprintf(fp,"indexOfComp=%d, compQty=%d\n", indexOfComp, compQty); printf("inHouseScribeArray='%s' length=%d\n",inHouseScribeArray,strlen(inHouseScribeArray)); fprintf(fp,"inHouseScribeArray='%s' length=%d\n",inHouseScribeArray,strlen(inHouseScribeArray)); fclose(fp); if ((strlen(inHouseScribeArray[indexOfComp]) > 0) && (strlen(origSlotArray[indexOfComp]) > 0) && (strlen(origCassArray[indexOfComp]) > 0)&& (strlen(finalCassArray[indexOfComp]) >0) && (strlen(vendorScribeArray[indexOfComp])> 0) && (strlen(finalSlotArray[indexOfComp]) > 0 )&& (strlen(POSITIONArray [indexOfComp]) > 0)) { Write_SA_DataFile(startDate, endDate, action, lot, operation, subOperation, actualQty, eqpId, device, tech, toTime, employee, origSlotArray, origCassArray, inHouseScribeArray, vendorScribeArray, finalSlotArray, finalCassArray, parms); } else { Write_PR_DataFile(startDate, endDate, action, lot, operation, subOperation, actualQty, eqpId, device, tech, toTime, employee, origSlotArray, origCassArray, inHouseScribeArray, vendorScribeArray, finalSlotArray, finalCassArray, parms); } numOfFiles++; #ifdef DEBUG printf(" #%d lot data is extracted\n", numOfFiles); #endif continue; NOTFOUND: skipLotCntr++; #ifdef DEBUG printf(" #%d lot is skipped\n", skipLotCntr); #endif ; } /* Close cursor */ EXEC SQL CLOSE wsSaCursor; #ifdef DEBUG printf(" %d 'Sorter Action' data files are created successfully\n", numOfFiles); printf("%s: Complete retrieving 'Sorter Action' Information\n", GetCurrDateTime(currDateTime)); #endif return(numOfFiles); } /* Generate_SA_Report */
ATTACH IS MY CODE WITH THE POSITION.
0
xpi0t0s's Avatar, Join Date: Aug 2004
Mentor
Quote:
Originally Posted by kirubagari View Post
The output when i check back in log file,the length is 0 ,no wonder it jump to the second function...
Why that so?any idea
Does this give you a clue?
Code:
indexOfComp=25, compQty=25
I've already mentioned this before. The problematic code is *NOT INSIDE THE LOOP*.
And I think it should be. But where exactly in the loop I don't know because I don't know the design requirements - you'll have to ask someone else who knows this code.