The following actions are required to schedule a transfer request:
Create the parameter records which describe the transfer. To send a file to a remote user, you could write the following four records to a TS queue:
TYPE=SEND
LU=DESTINATION.XCOM.APPLID
LFILE=LOCAL.DSN
FILE=REMOTE.DSN
Create the APIDSECT storage area. Initialize it to nulls (X'00') and set the following fields:
Set APITYPER to S.
Set APIPARMQ to the name of the TS queue to which the parameter records are written. For example, set APIPARMQ to XAPILU22. This assumes that the four records created in the first step are written as individual records (items) to TS queue XAPILU22.
Set APISTCAP to the name of the CA XCOM Data Transport server. For example, set APISTCAP to XCOMAPPL.
Ask the CA XCOM Data Transport systems programmer to identify the CA XCOM Data Transport server's VTAM APPLID. Make sure that this APPLID is in the CICS TCT or is defined by RDO.
Link to Program XCICCAPI and pass the storage area defined by APIDSECT COMMAREA as follows:
EXEC CICS LINK PROGRAM('XCICCAPI') COMMAREA(APIDSECT) LENGTH(328)
Interrogate the return code APIRTNCD, as well as the message returned in APIMSG.
