SDISC Assembler Call - NetEx

SCLOS FORTRAN CallThe SCLOS (close) call provides a means for a calling program to transmit data to another calling programand to indicate that this is the last data to be sent. If the other program has already issued an SCLOS, the sessionis gracefully disconnected. Before an SCLOS can be issued, a connection must be established.Call Operation ParametersCALL SCLOS[W] (nrb, buffer, length, datamd)The following parameters were shown in the SCLOS call format. The parameters must be specified in theorder presented. All parameters are required.CALLThis is a standard high level call instruction.SCLOSThis is the verb for this call. Either SCLOS or SCLOSW must be specified.SCLOSWThis parameter specifies that the calling program must wait for the call to complete before processingis resumed.nrbThis required parameter is the address of the NRB data area that is to be passed to NETEX.bufferThis parameter required specifies the start of an array that holds the user data that is to be sent to thecorresponding application.lengthThis required parameter specifies the length of the data (in addressable units - words for Unisys) thatis to be sent to the corresponding application, to be presented with the completion of the correspondingapplication’s OFFER request. If no data needs to be sent to the other application, the length maybe set to zero. The data type of length should be INTEGER.datamdThis required parameter specifies the datamode to be used to send the connect data to the correspondingapplication. The data type of datamd should be INTEGER. Refer to NRBDMODE in“NETEX Request Block” for a discussion of the datamode parameter.SCLOS Entry ParametersThe following NRB fields are used by SCLOS on entry.NRBBUFA Address of outgoing Pdata.NRBLENLength of outgoing Pdata,NRBUBITPdata unused bit count.NRBDMODE Datamode of Pdata.NRBPROTA Address of outgoing Odata.NRBPROTL Length of outgoing Odata.SCLOS ResultsThe following NRB fields are updated when SCLOS completes.MAN-REF-H307IP-04 FORTRAN Interface Page 57