ddc1

function __DDCnotation(intNum) {

	if (application.activeWindow.getVariable("scr") != "MT") {
		application.activeWindow.command("k",false);
	}
	var strDDC = "54" + intNum + "0 \n54" + intNum + "1 \n54" + intNum + "2 \n54" + intNum + "3 -T1--\n54" + intNum + "3 -T2--\n54" + intNum + "3 -T2--\n";
	var strDDCbegin = "54" + intNum + "1";
	application.activeWindow.title.endOfBuffer(false);
	application.activeWindow.title.insertText(strDDC);
	application.activeWindow.title.findTag(strDDCbegin,0,false,true,false);

}

function ddc1() {

	__DDCnotation("1");

}

Private Sub DDCnotation(strNum)
'********************************************************************************
Dim Temp
	On error resume next
	If Application.ActiveWindow.Variable("scr") <> "MT" Then
		Application.ActiveWindow.Command "k", False
	End If
	Application.ActiveWindow.Title.EndOfBuffer False
	Application.ActiveWindow.Title.InsertText "54" & strNum & "0 " & vbLf &_
						  "54" & strNum & "1 " & vbLf &_
						  "54" & strNum & "2 " & vbLf &_
						  "54" & strNum & "3 -T1--" & vbLf &_
						  "54" & strNum & "3 -T2--" & vbLf &_
						  "54" & strNum & "3 -T2--" & vbLf
	Application.ActiveWindow.Title.FindTag "54" & strNum & "1",0,False,True
End Sub

'*****************************************************************************
Sub ddc1()
'*****************************************************************************
	DDCnotation("1")
End Sub