Commit d1db7585 authored by juvancic's avatar juvancic
Browse files

No commit message 

No commit message
parent 80082ab7

ttcn/LibDiameter_Steps.ttcn

+247 −39
Original line number Diff line number Diff line
@@ -34,6 +34,18 @@ group CommonFunctions{ 
        }

    }

    

    /**

    * 

    * @desc  f_Inc, return incremented value of p_int 0

    * @param p_int - integer value

    */	

    function f_inc( inout integer p_int)

    return integer

    {

        p_int:=p_int+1;

        return p_int;

    }



}//end group CommonFunctions

	

group AwaitingMessage {
@@ -369,49 +381,245 @@ group GlobalSteps { 
            runs on DiameterComponent {

				

                //insert length of message  

                if (ischosen(p_diameterMSG.cER_MSG)){p_diameterMSG.cER_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.cER_MSG));}

                if (ischosen(p_diameterMSG.cEA_MSG)){p_diameterMSG.cEA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.cEA_MSG));}

                if (ischosen(p_diameterMSG.rAR_MSG)){p_diameterMSG.rAR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.rAR_MSG));}

                if (ischosen(p_diameterMSG.rAA_MSG)){p_diameterMSG.rAA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.rAA_MSG));}

                if (ischosen(p_diameterMSG.aCR_MSG)){p_diameterMSG.aCR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.aCR_MSG));}

                if (ischosen(p_diameterMSG.aCA_MSG)){p_diameterMSG.aCA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.aCA_MSG));}

                if (ischosen(p_diameterMSG.aSR_MSG)){p_diameterMSG.aSR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.aSR_MSG));}

                if (ischosen(p_diameterMSG.aSA_MSG)){p_diameterMSG.aSA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.aSA_MSG));}

                if (ischosen(p_diameterMSG.sTR_MSG)){p_diameterMSG.sTR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.sTR_MSG));}

                if (ischosen(p_diameterMSG.sTA_MSG)){p_diameterMSG.sTA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.sTA_MSG));}

                if (ischosen(p_diameterMSG.dWR_MSG)){p_diameterMSG.dWR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.dWR_MSG));}

                if (ischosen(p_diameterMSG.dWA_MSG)){p_diameterMSG.dWA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.dWA_MSG));}

                if (ischosen(p_diameterMSG.dPR_MSG)){p_diameterMSG.dPR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.dPR_MSG));}

                if (ischosen(p_diameterMSG.dPA_MSG)){p_diameterMSG.dPA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.dPA_MSG));}

                if (ischosen(p_diameterMSG.cER_MSG)){

                    p_diameterMSG.cER_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.cER_MSG));

                    p_diameterMSG.cER_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.cER_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.cEA_MSG)){

                    p_diameterMSG.cEA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.cEA_MSG));

                    p_diameterMSG.cEA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.cEA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.rAR_MSG)){

                    p_diameterMSG.rAR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.rAR_MSG));

                    p_diameterMSG.rAR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.rAR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.rAA_MSG)){

                    p_diameterMSG.rAA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.rAA_MSG));

                    p_diameterMSG.rAA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.rAA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.aCR_MSG)){

                    p_diameterMSG.aCR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.aCR_MSG));

                    p_diameterMSG.aCR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.aCR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.aCA_MSG)){

                    p_diameterMSG.aCA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.aCA_MSG));

                    p_diameterMSG.aCA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.aCA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.aSR_MSG)){

                    p_diameterMSG.aSR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.aSR_MSG));

                    p_diameterMSG.aSR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.aSR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.aSA_MSG)){

                    p_diameterMSG.aSA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.aSA_MSG));

                    p_diameterMSG.aSA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.aSA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.sTR_MSG)){

                    p_diameterMSG.sTR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.sTR_MSG));

                    p_diameterMSG.sTR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.sTR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.sTA_MSG)){

                    p_diameterMSG.sTA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.sTA_MSG));

                    p_diameterMSG.sTA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.sTA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.dWR_MSG)){

                    p_diameterMSG.dWR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.dWR_MSG));

                    p_diameterMSG.dWR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.dWR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.dWA_MSG)){

                    p_diameterMSG.dWA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.dWA_MSG));

                    p_diameterMSG.dWA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.dWA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.dPR_MSG)){

                    p_diameterMSG.dPR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.dPR_MSG));

                    p_diameterMSG.dPR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.dPR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.dPA_MSG)){

                    p_diameterMSG.dPA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.dPA_MSG));

                    p_diameterMSG.dPA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.dPA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                //RFC4740

                if (ischosen(p_diameterMSG.uAR_MSG)){p_diameterMSG.uAR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.uAR_MSG));}

                if (ischosen(p_diameterMSG.uAA_MSG)){p_diameterMSG.uAA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.uAA_MSG));}

                if (ischosen(p_diameterMSG.sAR_MSG)){p_diameterMSG.sAR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.sAR_MSG));}

                if (ischosen(p_diameterMSG.sAA_MSG)){p_diameterMSG.sAA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.sAA_MSG));}

                if (ischosen(p_diameterMSG.lIR_MSG)){p_diameterMSG.lIR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.lIR_MSG));}

                if (ischosen(p_diameterMSG.lIA_MSG)){p_diameterMSG.lIA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.lIA_MSG));}

                if (ischosen(p_diameterMSG.mAR_MSG)){p_diameterMSG.mAR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.mAR_MSG));}

                if (ischosen(p_diameterMSG.mAA_MSG)){p_diameterMSG.mAA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.mAA_MSG));}

                if (ischosen(p_diameterMSG.rTR_MSG)){p_diameterMSG.rTR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.rTR_MSG));}

                if (ischosen(p_diameterMSG.rTA_MSG)){p_diameterMSG.rTA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.rTA_MSG));}

                if (ischosen(p_diameterMSG.pPR_MSG)){p_diameterMSG.pPR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.pPR_MSG));}

                if (ischosen(p_diameterMSG.pPA_MSG)){p_diameterMSG.pPA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.pPA_MSG));}

                if (ischosen(p_diameterMSG.uAR_MSG)){

                    p_diameterMSG.uAR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.uAR_MSG));

                    p_diameterMSG.uAR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.uAR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.uAA_MSG)){

                    p_diameterMSG.uAA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.uAA_MSG));

                    p_diameterMSG.uAA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.uAA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.sAR_MSG)){

                    p_diameterMSG.sAR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.sAR_MSG));

                    p_diameterMSG.sAR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.sAR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.sAA_MSG)){

                    p_diameterMSG.sAA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.sAA_MSG));

                    p_diameterMSG.sAA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.sAA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.lIR_MSG)){

                    p_diameterMSG.lIR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.lIR_MSG));

                    p_diameterMSG.lIR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.lIR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.lIA_MSG)){

                    p_diameterMSG.lIA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.lIA_MSG));

                    p_diameterMSG.lIA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.lIA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.mAR_MSG)){

                    p_diameterMSG.mAR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.mAR_MSG));

                    p_diameterMSG.mAR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.mAR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.mAA_MSG)){

                    p_diameterMSG.mAA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.mAA_MSG));

                    p_diameterMSG.mAA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.mAA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.rTR_MSG)){

                    p_diameterMSG.rTR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.rTR_MSG));

                    p_diameterMSG.rTR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.rTR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.rTA_MSG)){

                    p_diameterMSG.rTA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.rTA_MSG));

                    p_diameterMSG.rTA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.rTA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.pPR_MSG)){

                    p_diameterMSG.pPR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.pPR_MSG));

                    p_diameterMSG.pPR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.pPR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.pPA_MSG)){

                    p_diameterMSG.pPA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.pPA_MSG));

                    p_diameterMSG.pPA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.pPA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                //Sh interface

                if (ischosen(p_diameterMSG.uDR_MSG)){p_diameterMSG.uDR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.uDR_MSG));}

                if (ischosen(p_diameterMSG.uDA_MSG)){p_diameterMSG.uDA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.uDA_MSG));}

                if (ischosen(p_diameterMSG.pUR_MSG)){p_diameterMSG.pUR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.pUR_MSG));}

                if (ischosen(p_diameterMSG.pUA_MSG)){p_diameterMSG.pUA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.pUA_MSG));}

                if (ischosen(p_diameterMSG.sNR_MSG)){p_diameterMSG.sNR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.sNR_MSG));}

                if (ischosen(p_diameterMSG.sNA_MSG)){p_diameterMSG.sNA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.sNA_MSG));}

                if (ischosen(p_diameterMSG.pNR_MSG)){p_diameterMSG.pNR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.pNR_MSG));}

                if (ischosen(p_diameterMSG.pNA_MSG)){p_diameterMSG.pNA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.pNA_MSG));}

                if (ischosen(p_diameterMSG.uDR_MSG)){

                    p_diameterMSG.uDR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.uDR_MSG));

                    p_diameterMSG.uDR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.uDR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.uDA_MSG)){

                    p_diameterMSG.uDA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.uDA_MSG));

                    p_diameterMSG.uDA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.uDA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.pUR_MSG)){

                    p_diameterMSG.pUR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.pUR_MSG));

                    p_diameterMSG.pUR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.pUR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.pUA_MSG)){

                    p_diameterMSG.pUA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.pUA_MSG));

                    p_diameterMSG.pUA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.pUA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.sNR_MSG)){

                    p_diameterMSG.sNR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.sNR_MSG));

                    p_diameterMSG.sNR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.sNR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.sNA_MSG)){

                    p_diameterMSG.sNA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.sNA_MSG));

                    p_diameterMSG.sNA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.sNA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.pNR_MSG)){

                    p_diameterMSG.pNR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.pNR_MSG));

                    p_diameterMSG.pNR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.pNR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.pNA_MSG)){

                    p_diameterMSG.pNA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.pNA_MSG));

                    p_diameterMSG.pNA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.pNA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                //RFC4006

                if (ischosen(p_diameterMSG.cCR_MSG)){p_diameterMSG.cCR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.cCR_MSG));}

                if (ischosen(p_diameterMSG.cCA_MSG)){p_diameterMSG.cCA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.cCA_MSG));}

                if (ischosen(p_diameterMSG.cCR_MSG)){

                    p_diameterMSG.cCR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.cCR_MSG));

                    p_diameterMSG.cCR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.cCR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.cCA_MSG)){

                    p_diameterMSG.cCA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.cCA_MSG));

                    p_diameterMSG.cCA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.cCA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                //Rx interface

                if (ischosen(p_diameterMSG.aAR_MSG)){p_diameterMSG.aAR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.aAR_MSG));}

                if (ischosen(p_diameterMSG.aAA_MSG)){p_diameterMSG.aAA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.aAA_MSG));}

                if (ischosen(p_diameterMSG.uNKNOWN_MSG)){p_diameterMSG.uNKNOWN_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.uNKNOWN_MSG));}         

                if (ischosen(p_diameterMSG.aAR_MSG)){

                    p_diameterMSG.aAR_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.aAR_MSG));

                    p_diameterMSG.aAR_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.aAR_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                if (ischosen(p_diameterMSG.aAA_MSG)){

                    p_diameterMSG.aAA_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.aAA_MSG));

                    p_diameterMSG.aAA_MSG.header.hopid:=vc_recv_hopid;

                    p_diameterMSG.aAA_MSG.header.endid:=vc_recv_endid;

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }

                

                if (ischosen(p_diameterMSG.uNKNOWN_MSG)){

                    p_diameterMSG.uNKNOWN_MSG.header.msglen := lengthof(encvalue(p_diameterMSG.uNKNOWN_MSG));

                    p_diameterMSG.uNKNOWN_MSG.header.hopid:=f_inc(vc_send_hopid);

                    p_diameterMSG.uNKNOWN_MSG.header.endid:=f_inc(vc_send_endid);

                    vc_sendDiamMsg:=valueof(p_diameterMSG);

                }         

                //p_diameterMSG.header.msglen := lengthof(encvalue(p_diameterMSG));

                  

            } // end function f_AF_IUT_session_esthablishment