PROGRAM recs
VAR
file: INT;
bRun: BOOL;
fbFileOpen: FB_FileOpen;
fbFileWrite: FB_FilePuts;
fbFileClose: FB_FileClose;
str: STRING;
ii:BYTE;
END_VAR
CASE file OF
0:
IF bRun THEN
file :=1;
END_IF;
1:
fbFileOpen(
sNetId := ,
sPathName := 'hard disk\file11.txt',
nMode := FOPEN_MODEWRITE OR FOPEN_MODETEXT,
ePath := PATH_GENERIC,
bExecute := TRUE,
tTimeout := t#1s);
IF NOT(fbFileOpen.bError) THEN
IF fbFileOpen.hFile <> 0 AND NOT(fbFileOpen.bBusy) THEN
fbFileOpen(bExecute := FALSE);
file :=2;
END_IF;
END_IF;
2:
str := CONCAT(BYTE_TO_STRING(ii),'; blah-blah-blah;$L');
ii:=ii+1;
fbFileWrite(
sNetId := '',
hFile := fbFileOpen.hFile,
sLine := str,
bExecute := TRUE,
tTimeout := t#5s);
file := 3;
3:
IF NOT(fbFileWrite.bError) THEN
IF NOT(fbFileWrite.bBusy) THEN
fbFileWrite(bExecute := FALSE);
file := 4;
ELSE
fbFileWrite(bExecute := TRUE);
END_IF;
END_IF;
4:
IF bRun THEN
file := 2;
ELSE
file := 5;
END_IF;
5:
fbFileClose(
sNetId := '',
hFile := fbFileOpen.hFile,
bExecute := TRUE,
tTimeout := t#1s);
IF NOT(fbFileClose.bError) THEN
IF NOT(fbFileClose.bBusy) THEN
fbFileClose(bExecute := FALSE);
file := 0;
END_IF;
END_IF;
END_CASE;