S7 pointer to an array question

[manmeetvirdi]

SCL fault log

Hi there
Same thing written in SCL, including creation of DB !

DATA_BLOCK DB23

//to log time of occuranc of fault.  

    STRUCT
fault_code: ARRAY[1..50] OF int;
iDate: ARRAY[1..50] OF DATE;
iTime: ARRAY[1..50] OF TOD;
    END_STRUCT
BEGIN

END_DATA_BLOCK

FUNCTION FC23 : void

VAR_input
fault_code:INT;
fault_trigger:BOOL;
END_VAR

var_in_out
x1:BOOL;
index: INT;  
END_VAR

VAR_TEMP
    x2:INT;
    x3:INT;
    
END_VAR

BEGIN


WHILE fault_trigger = 1 AND x1=0 DO
    
    x1:=1;
    x2:=100+index;   
    x3:=200+(index*2);
 
    db23.dbw[index]:=INT_TO_WORD(fault_code);
    db23.dbw[x2]:=DINT_TO_WORD((DATE_TO_DINT(mw200)));
    db23.dbd[x3]:=DINT_TO_dWORD((tod_TO_DINT(md202)));

 //increment the index at positive pulse of fault_trigger    
    index:=index+2;
       
       
END_WHILE;
    
 
 IF x1=1 AND fault_trigger=0 THEN
    x1:=0;
 END_IF;

IF INDEX >= 100 THEN
   INDEX:=0;
END_IF;

END_FUNCTION

Same thing attached also.

 

[twu026]

Sorry for the late reply. Been busy with another project.

Thanks everyone for the help, especially manmeet & L D[AR2,P#0.0] for the sample code.

The reason I have not used SCL is because I don't have a license. It would of been a 5 minute job if I could use structured text.
We had one SCL license floating around between a few engineers and somehow it got lost (don't ask me how).

Why SCL is a separate license is mystery to me.

Maybe 'Real' Siemens PLC Programmers only use STL and see no point to SCL since it just gets compiled into STL anyway.
Reminds me of the stereotypical Real Programmer in 'the story of Mel' - check it out some time all you wannabe programmers.

Alas, I could not wait and just gave up on the whole idea of UDT, arrays and pointers.
I just defined 10 sets of variables (FaultDate_0, FaultDate_1 ...) and programmed it 'statically' (don't know if that is the right term?).