17.08.2013 Views

Data Interfaces

Data Interfaces

Data Interfaces

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

*----------------------------------------------------------------*<br />

* CPI-C: CM_RCV Receive data from sending partner program *<br />

*----------------------------------------------------------------*<br />

COMMUNICATION RECEIVE ID CONVID BUFFER ISPFLI RETURNCODE CPIC_RC<br />

FORMAT COLOR 2.<br />

WRITE: / 'RC:', CPIC_RC.<br />

WRITE: / 'DI:', DI.<br />

WRITE: / 'SI:', SI.<br />

APPEND ISPFLI.<br />

ENDWHILE.<br />

SKIP 1.<br />

FORMAT COLOR 1.<br />

DATAINFO DI<br />

STATUSINFO SI<br />

RECEIVED RL.<br />

WRITE: / 'Received data:'(004).<br />

FORMAT COLOR 6.<br />

LOOP AT ISPFLI.<br />

NEW-LINE.<br />

WRITE: ISPFLI-CARRID,<br />

ENDLOOP.<br />

ISPFLI-CONNID,<br />

ISPFLI-CITYFROM,<br />

ISPFLI-CITYTO.<br />

*----------------------------------------------------------------*<br />

* CPI-C: Deallocate *<br />

*----------------------------------------------------------------*<br />

SKIP 1.<br />

FORMAT COLOR 1.<br />

WRITE: / 'CM_DEALL'.<br />

COMMUNICATION DEALLOCATE ID CONVID RETURNCODE CPIC_RC.<br />

FORMAT COLOR 2.<br />

WRITE: / 'RC:', CPIC_RC.<br />

*&---------------------------------------------------------------*<br />

*& Report RS415052 *<br />

*& *

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!