Data Interfaces

*----------------------------------------------------------------*
* CPI-C: CM_ALLOCATE *
*----------------------------------------------------------------*
SKIP 1.
FORMAT COLOR 1.
WRITE: / 'CM_ALLOC'.
COMMUNICATION ALLOCATE ID CONVID RETURNCODE CPIC_RC.
FORMAT COLOR 2.
WRITE: / 'RC:', CPIC_RC.
IF CPIC_RC NE CM_OK.
EXIT.
ENDIF.
*----------------------------------------------------------------*
* CPI-C: CM_SEND: Logon to SAP *
*----------------------------------------------------------------*
TRANSLATE CPICCONN USING ASC_TO_EBC.
SKIP 1.
FORMAT COLOR 1.
WRITE: / 'CM_SEND SAP logon'.
COMMUNICATION SEND ID CONVID BUFFER CPICCONN RETURNCODE CPIC_RC.
FORMAT COLOR 2.
WRITE: / 'RC:', CPIC_RC.
TRANSLATE CPICCONN USING EBC_TO_ASC.
WRITE: / 'LOGON-DATA'(001), 20 CPICCONN.
IF CPIC_RC NE CM_OK.
EXIT.
ENDIF.