expression.PutText1( _
   ByVal text As String, _
   ByVal row As Integer, _
   ByVal column As Integer, _
   ByVal length As Integer _
) As ReturnCode

Parameters

text

The text to place on the screen.

row

The row of the screen location to put the text in.

column

The column of the screen location to put the text in.

length

The length of the string to place on the screen. If the text string is longer than "length", the text is truncated.

Return Value

By default, PutText1 is set to Mask mode. You can use the PutTextMaskProtectedField Property to change to LinearStream mode.

The following examples show the differences between using the Mask and LinearStream modes on the following screen.

Using PutText1 in Mask mode

This example shows how text is put on the screen when the PutTextMaskProtectedField Property is set to Mask mode.

Sub PutTextUsingMaskMode

Dim str As String

str = "This is a test to see if any memo text is being cut off unexpectedly and sent in full"

ThisIbmScreen.PutTextMaskProtectedField = PutTextModeOption_Mask

ThisIbmScreen.PutText1 str, 5, 10, 85

End Sub

The protected fields are masked. The parts of the text string that coincide with the protected fields are skipped and are not placed on the screen.

Using PutText1 in LinearStream mode

This example shows how text is put on the screen when the PutTextMaskProtectedField Property is set to LinearStream mode.

Sub PutTextUsingLinearStreamMode

Dim str As String

str = "This is a test to see if any memo text is being cut off unexpectedly and sent in full"

ThisIbmScreen.PutTextMaskProtectedField = PutTextModeOption_LinearStream

ThisIbmScreen.PutText1 str, 5, 10, 85

End Sub

The protected fields are ignored and the text is pasted into the next unprotected field or hidden field (In this example, the "unexpectedly an" part of the string is put into hidden fields PWD1 and PWD2). All of the text is placed on the screen.

Reference

IbmScreen Object
IbmScreen Members