SEND TEXT command
Sends text data without mapping. In Smalltalk, the parameters of the SEND TEXT command are contained in two classes: CICSSendtext and CICSSendtextResult. VA Smalltalk Server supports standard basic mapping support (BMS) which is an interface between CICS application programs and terminal devices.
See CICS Application Programming Reference for the syntax of the command and a description of its parameters.
Defined instance methods
Parameters supplied to CICS in CICSSendtext
| | | | |
ALARM | alarm | Input | Switch | |
CURSOR(data-value) | cursor: | Input | Binary 16 | |
ERASE | erase | Input | Switch | |
FORMFEED | formfeed | Input | Switch | |
FREEKB | freekb | Input | Switch | |
FROM(data-area) | from: | Input | Variable | |
LENGTH(data-value) | length: | Input | Binary 16 | |
NLEOM | nleom | Input | Switch | |
PRINT | print | Input | Switch | |
Parameters returned by CICS in CICSSendtextResult
| | | | |
RESP | resp | Output | Fixed(2) | Inherited from CICSResult. |
RESP2 | resp2 | Output | Fixed(2) | Inherited from CICSResult. |
Example
Sends the text data from sendTextData to the terminal.
| result |
result := CICS sendtext
from: (self sendtextData);
length: (self sendtextData size);
exec.
sendTextData contains the following text:
sendtextData
^'This is sample data for the CICS SEND TEXT command. This data is long enough',
' to check what happens when the data is longer than the terminal width. CICS',
' should split it on a word boundary and start on the next line. ',
' This line is before a new-line character.', (16r0A asCharacter asString),
' This is the line after a new-line character.'.
Last modified date: 07/09/2019