LU2()

CA-GSS Statements and Commands › GSS Extended Functions › IO Functions › Number, String, and Variable Functions › System Information Functions › LU2()

LU2()

Use the LU2() function to enable the CA-GSS/ISERVE Logon Facility to communicate with devices defined as logical unit 2.

Syntax

The LU2() function has this syntax:

Form 1:

xx yy = LU2(BRACKET,rpl,[xx],[yy])

Form 2:

result = LU2(SEND,rpl,outrec)

Form 3:

input = LU2(RECEIVE,rpl)

Form 4:

input = LU2(SENDREC,rpl,outrec,[option])

Form 5:

result = LU2(CLSDST,rpl)

Arguments

The LU2() function takes these arguments:

xx	BB (begin bracket) or NBB (no begin bracket).
yy	EB (end bracket) or NEB (no end bracket).
BRACKET	Modifies the SNA brackets to be used with the next SEND or RECEIVE operation. If new values are omitted, the current state is returned.
rpl	RPL address, as passed to the IMOD by the Logon Facility.
result	Error text (if the SEND or CLSDST operation fails).
SEND	Transmits a record.
outrec	Complete 3270 data stream.
input	Results of a 3270 READ MODIFIED operation, a complete 3270 data stream.
RECEIVE	Issues a VTAM RECEIVE against the specific terminal session. The IMOD task is suspended until the terminal operator presses ENTER and a READ MODIFIED is completed.
SENDREC	Transmits a 3270 data stream to the terminal, waits for operator action, and receives the results.
option	One of these options: Bracket Determines and sets the appropriate bracket state for the next transmission NOBracket Indicates that the bracket indicators in the RPL are not changed. Default: Bracket.
CLSDST	Issues a VTAM CLOSEDEST against the RPL. This terminates the session and returns control of the terminal to VTAM. If omitted, a CLSDST is automatically generated at the end of the IMOD task.

Usage Notes

Many of this function's arguments are not documented since they are used only by the internal portion of the Logon Facility.
Before attempting to use LU2(), see the information on the Logon Facility in this guide.
3270 data streams may be parsed and constructed through the $3270() and DS3270() functions.

Return Codes

The LU2() function produces these return codes:

101 - 104 ARG n MISSING OR INVALID

126 NOT RPL

127 NO RPL

128 NOT ACB

129 NO ACB

130 ACB IS OPEN

131 ACB NOT OPEN

135 PHASE: type rpl13 rpl14 rpl15

136 PHASE: type R15: xx REASON: xx

Example

parse arg rpl .                       /* Obtain RPL from caller   */
queue 'at 1 1 attr /prot/ data /Enter transaction =>/'
queue 'attr /input high / cursor at 1 79 attr /prot/'
screen = $3270(,,'erase','reset')     /* Construct screen         */
if rc ^= 0 then signal error_$3270
input = lu2('sendrec',rpl,screen)     /* Send screen, read screen */
input = ds3270('from','field',,,1,22) /* Extract input field      */
if rc ^= 0 then signal err_ds3270
...
 result = lu2('clsdst',rpl)            /* Terminate session        */
return

Tell Technical Publications how we can improve this information