Data Interfaces

*----------------------------------------------------------------*
* CPI-C: CM_RECEIVE Response to SAP logon *
*----------------------------------------------------------------*
SKIP 1.
FORMAT COLOR 1.
WRITE: / 'CM_RCV Response to logon'.
COMMUNICATION RECEIVE ID CONVID BUFFER RBUFFER RETURNCODE CPIC_RC
FORMAT COLOR 2.
WRITE: / 'RC:', CPIC_RC.
DATAINFO DI
STATUSINFO SI
RECEIVED RL.
TRANSLATE RBUFFER USING EBC_TO_ASC.
WRITE: / 'RESPONSE TO LOGON:'(002), RBUFFER(40).
IF CPIC_RC NE CM_OK.
EXIT.
ENDIF.
*----------------------------------------------------------------*
* Send parameter for selection *
*----------------------------------------------------------------*
FORMAT COLOR 1.
WRITE: / 'CM_SEND'.
*----------------------------------------------------------------*
* CPI-C: CM_SEND Send CARRID to partner program *
*----------------------------------------------------------------*
COMMUNICATION SEND ID CONVID BUFFER CARRID RETURNCODE CPIC_RC.
FORMAT COLOR 2.
WRITE: / 'RC:', CPIC_RC.
*
WHILE CPIC_RC = CM_OK.
FORMAT COLOR 1.
WRITE: / 'CM_RCV'.