Data Interfaces

*----------------------------------------------------------------*
* CPI-C: CM_RCV Receive carrier ID *
*----------------------------------------------------------------*
COMMUNICATION RECEIVE ID CONVID
IF CPIC_RC NE CM_OK.
EXIT.
ENDIF.
*
* Read data
*
SELECT * FROM SPFLI
BUFFER SPFLI-CARRID
RETURNCODE CPIC_RC
DATAINFO DI
STATUSINFO SI
RECEIVED RL.
WHERE CARRID = SPFLI-CARRID.
*----------------------------------------------------------------*
* CPI-C: CM_SEND Send selected data to partner program *
*----------------------------------------------------------------*
COMMUNICATION SEND ID CONVID
IF CPIC_RC NE CM_OK.
EXIT.
ENDIF.
ENDSELECT.
BUFFER SPFLI
RETURNCODE CPIC_RC.
*----------------------------------------------------------------*
* CPI-C: Deallocate *
*----------------------------------------------------------------*
COMMUNICATION DEALLOCATE ID CONVID
ENDFORM.
RETURNCODE CPIC_RC.