var octetstring payload;
    for(var integer v_ct :=1; v_ct<8; v_ct:=v_ct+1 ){
        //TODO payload := '11'   and in next loop  payload := '1122'  and so on ...
}

module test
{




control{


var octetstring payload:=''O;

    for(var integer v_ct :=1; v_ct<8; v_ct:=v_ct+1 ) {
         payload := payload& hex2oct(int2hex(v_ct,1)&int2hex(v_ct,1));
        log(payload)
}

}

}



11:11:34.141011 Execution of control part in module test started.
11:11:34.141097 '11'O
11:11:34.142409 '1122'O
11:11:34.142428 '112233'O
11:11:34.142445 '11223344'O
11:11:34.142461 '1122334455'O
11:11:34.142479 '112233445566'O
11:11:34.142497 '11223344556677'O
11:11:34.142519 Execution of control part in module test finished.

payload:=''O

payload:=omit

template Frame frame1 (octetstring p_payload ) := {
            octetstring  payload =  '?'O &p_payload  // Some bytes are doesn't matter but the last have to be equal p_payload
}
 

template Frame frame1 (octetstring p_payload ) := {
             payload :=  '*'O &p_payload  // Some bytes are doesn't matter but the last have to be equal p_payload
}

template Frame frame2  := {
              payload :=  '*1234567ABC'O 
}

template Frame frame3  := {
              payload :=  '*12345F??'O 
}

substr

module test {

function f_suboctstr ( in octetstring octstr, in integer index, in integer count ) return octetstring {
    var octetstring retOctstr := ''O;
    if((lengthof(octstr)>=count+index) and (index >= 0) and (index >= 0)){
        for( var integer i :=0;  i<count; i:=i+1){
            retOctstr := retOctstr& octstr[index+i];        
        }    
    }
    else{
     setverdict(fail, "Disallowed ussage of f_suboctstr");
    }
    return retOctstr;
}


control{
  var octetstring test:='AABBCC'O;
  
  test := f_suboctstr (test,1,2);
  log(test)
  
}

}

var octetstring v_res
var integer v_ret

function f_suboctstr ( in octetstring octstr, in integer index, in integer count, out octetstring p_res) 
return integer { //returns 0 if everything is OK

p_res:=...
} 

v_ret:=f_suboctstr('AABBCC'O,1,2,v_res)

     setverdict(fail, "Disallowed ussage of f_suboctstr");

 setverdict(error)