detect a change in the S7 user program in TIA Portal V11 / V12 :-

ssmanku1699

Dear User ,

I want to detect program change in TIA Portal V11 and V12 ?

How can I do the same ?

This undermentioned link i found in the forum but when I tried migrating it to TIA Portal Its not working out . Can anyone help me on the same ?

Thanks
Sarabjot Singh Manku

-------------------------------------------------------------------------------------------------------------------------------------------------

Description The S7 program which is available in this FAQ as a download offers the opportunity to detect changes in the program code and in the hardware configuration. The appropriate checksums from the system status list are determined and verified here. If a change is detected, a user-definable entry is created in the diagnostic buffer of the CPU. PROG_CHECK_en.pdf ( 355 KB ) PROG_CHECK.zip ( 253 KB ) Creation environment The pictures and downloads in this FAQ were created with SIMATIC STEP 7 V5.5. Keywords Program protection, SFC51

Entry ID:51577287 Date:2011-08-15

It should work for S7-300/400.If it is not working, break the whole task to small sub-tasks and test it step by step for TIA Portal. Start with this part:

ORGANIZATION_BLOCK "CYCL_EXC"
TITLE = "Main Program Sweep (Cycle)"
VERSION : 0.1

VAR_TEMP
OB1_EV_CLASS : BYTE ;//Bits 0-3 = 1 (Coming event), Bits 4-7 = 1 (Event class 1)
OB1_SCAN_1 : BYTE ;//1 (Cold restart scan 1 of OB 1), 3 (Scan 2-n of OB 1)
OB1_PRIORITY : BYTE ;//Priority of OB Execution
OB1_OB_NUMBR : BYTE ;//1 (Organization block 1, OB1)
OB1_RESERVED_1 : BYTE ;//Reserved for system
OB1_RESERVED_2 : BYTE ;//Reserved for system
OB1_PREV_CYCLE : INT ;//Cycle time of previous OB1 scan (milliseconds)
OB1_MIN_CYCLE : INT ;//Minimum cycle time of OB1 (milliseconds)
OB1_MAX_CYCLE : INT ;//Maximum cycle time of OB1 (milliseconds)
OB1_DATE_TIME : DATE_AND_TIME ;//Date and time OB1 started
szl_header : STRUCT
one : WORD ;
two : WORD ;
END_STRUCT ;
dr : STRUCT
test : ARRAY [0 .. 40 ] OF WORD ;
END_STRUCT ;
END_VAR
BEGIN
NETWORK
TITLE =

CALL "RDSYSST" (
REQ := TRUE,
SZL_ID := W#16#232,
INDEX := W#16#4,
RET_VAL := MW 200,
BUSY := M 202.0,
SZL_HEADER := #szl_header,
DR := #dr);
L #dr.test[8];
T MW 300;
L #dr.test[9];
T MW 302;

END_ORGANIZATION_BLOCK

Best regards,
Hamid Hosseini