0 THEN _Step := 10; ELSE ManualInput_LotID := ''; ManualInput_SlotID := ''; _Step := 15; END_IF END_IF 10: Size := LEN(Data); IF iStationStatus.Ist.Service OR Size = 0 THEN _Step := 100; ELSE _Step := 20; END_IF 15: bManualInput := TRUE; _Step := _Step +1; 16: IF NOT bManualInput THEN iStationStatus.WaferInfo[0].LotID := ManualInput_LotID; iStationStatus.WaferInfo[0].SlotID := ManualInput_SlotID; _Step := 21; END_IF 20: CASE CMD[FirstStation] OF StartCMD: ; ELSE _Step := 100; RETURN; END_CASE Pos := FIND(Data, '/'); IF Pos > 0 THEN iStationStatus.WaferInfo[0].LotID := LEFT(Data, Pos - 1); iStationStatus.WaferInfo[0].SlotID := DELETE(Data, Pos, 1); _Step := _Step +1;; ELSE iStationStatus.WaferInfo[0].SlotID := Data; _Step := 30; END_IF 21: Path := CONCAT(LOG_MAIN_PATH, iStationStatus.WaferInfo[0].LotStartTime); Path := CONCAT(Path, '\'); Path := CONCAT(Path, iStationStatus.WaferInfo[0].LotID); CreateDir(sPathName := Path, bExecute := TRUE); _Step := _Step +1; 22: IF CreateDir.bError OR NOT CreateDir.bBusy THEN _Step := 30; END_IF CreateDir(bExecute := FALSE); 30: Path := CONCAT(LOG_MAIN_PATH, iStationStatus.WaferInfo[0].LotStartTime); Path := CONCAT(Path, '\'); Path := CONCAT(Path, iStationStatus.WaferInfo[0].LotID); Path := CONCAT(Path, '\'); Path := CONCAT(Path, iStationStatus.WaferInfo[0].SlotID); CreateDir(sPathName := Path, bExecute := TRUE); _Step := _Step +1; 31: IF CreateDir.bError THEN _Step := 200; ELSIF NOT CreateDir.bBusy THEN _Step := 100; END_IF CreateDir(bExecute := FALSE); 100: Start := TRUE; _Step := 0; END_CASE ]]>