FB_SoEWritePassword_ByDriveRef

Using the FB_SoEWritePassword_ByDriveRef function block the drive password (S-0-0267) can be set.

Inputs

VAR_INPUT
    stDriveRef : ST_DriveRef; 
    bExecute   : BOOL; 
    tTimeout   : TIME := DEFAULT_ADS_TIMEOUT;sPassword  : ST_SoE_String;
END_VAR

Name	Type	Description
stDriveRef	ST_DriveRef	Reference to the drive. The reference to the drive can be linked directly to the PLC in the System Manager. To do this, an instance of the structure ST_PlcDriveRef must be allocated and the NetID must be converted from the byte array into a string. (Type: Drive reference ST_DriveRef)
bExecute	BOOL	The function block is enabled via a positive edge at this input.
tTimeout	TIME	Maximum time (10 s) allowed for the execution of the function block.
sPassword	ST_SoE_String	Password as a Sercos string

Outputs

VAR_OUTPUT
    bBusy        : BOOL;
    bError       : BOOL;
    iAdsErrId    : UINT;
    iSercosErrId : UINT;
END_VAR

Name	Type	Description
bBusy	BOOL	This output is set when the function block is activated, and remains set until a feedback is received.
bError	BOOL	This output is set after the bBusy output has been reset when an error occurs in the transmission of the command.
iAdsErrId	UINT	In the case of a set bError output returns the ADS error code of the last executed command.
iSercosErrId	UINT	In the case of a set bError output returns the Sercos error of the last executed command.

Sample

fbWritePassword : FB_SoEWritePassword_ByDriveRef;
bWritePassword  : BOOL;
sPassword : ST_SoE_String;
stPlcDriveRef AT %I* : ST_PlcDriveRef;
stDriveRef : ST_DriveRef;

IF bInit THEN
   stDriveRef.sNetId := F_CreateAmsNetId(stPlcDriveRef.aNetId);
   stDriveRef.nSlaveAddr := stPlcDriveRef.nSlaveAddr;
   stDriveRef.nDriveNo := stPlcDriveRef.nDriveNo;
   stDriveRef.nDriveType := stPlcDriveRef.nDriveType;
   IF (stDriveRef.sNetId <> '') AND (stDriveRef.nSlaveAddr <> 0) THEN
       bInit := FALSE;
   END_IF
END_IF

IF bWritePassword AND NOT bInit THEN
   fbWritePassword(
     stDriveRef := stDriveRef,
     bExecute := TRUE,
     tTimeout := DEFAULT_ADS_TIMEOUT,
     sPassword := sPassword
   );
   IF NOT fbWritePassword.bBusy THEN
     fbWritePassword(stDriveRef := stDriveRef, bExecute := FALSE);
     bWritePassword := FALSE;
   END_IF
END_IF