Data Interfaces

*----------------------------------------------------------------*
* Data for SAP logon *
*----------------------------------------------------------------*
CPICCONN-REQID = 'CONN'. "Request ID
CPICCONN-REQTYPE = 'CPIC'. "Type
CPICCONN-AMODE = '1'. "Mode number
CPICCONN-IMODE = ' '.
CPICCONN-FILL1 = ' '.
CPICCONN-MAND = '000'. "Client
CPICCONN-NAME = 'SAPCPIC'. "User
CPICCONN-CODE = 'ADMIN'. "Password
CPICCONN-LANG = SY-LANGU. "Language
CPICCONN-KORR = ' '. "not used
CPICCONN-PROG = 'RS415052'. "Partner program
CPICCONN-MODN = 'SEND'. "FORM routine
*----------------------------------------------------------------*
* CPI-C: CM_INIT *
*----------------------------------------------------------------*
FORMAT COLOR 1.
WRITE: / 'CM_INIT #', DEST.
COMMUNICATION INIT DESTINATION DEST ID CONVID RETURNCODE CPIC_RC.
FORMAT COLOR 2.
WRITE: / 'RC:', CPIC_RC.
IF CPIC_RC NE CM_OK.
EXIT.
ENDIF.