Program RSAPPQ20 

***************************************************************
* *
* Sample program for asynchronous communication via the DOUT *
* file with transfer data taken from the SAP spool file *
* (transfer format SPLD) *
***************************************************************
*
PARAMETERS:
QDEST(8) TYPE C DEFAULT 'K43 ',
QAPPL(8) TYPE C DEFAULT 'X1SA ',
QUSER(12) TYPE C DEFAULT 'RODC-TEST ',
QPASS(8) TYPE C DEFAULT 'TEST ',
QSTDA TYPE D DEFAULT SY-DATUM,
QSTTI TYPE T DEFAULT SY-UZEIT,
QSTART(1) DEFAULT 'A',
QSPLNR(5) DEFAULT '0'.
* *
***************************************************************
* QDEST : Connection name of target system *
* QAPPL : Transaction program name in target system *
* (X1SA=SAP-System) *
* QUSER : Valid user account in target system *
* (QAPPL=X1SA) *
* QPASS : User password in target system *
* QSTDA : Driver start date *
* QSTTI : Driver start time *
* QSTART : A=Automatic, *
* M=Manual start of driver program *
* QSPLNR : No. of the valid local spool file *
***************************************************************
*
TABLES :
QPARM.
*
DATA :
SPNR TYPE P,
BEGIN OF SPOOL,
SPMD LIKE APQD-SPMD VALUE '000',
SPNR LIKE APQD-SPNR VALUE '0000',
SPPW LIKE APQD-SPPW VALUE 'PASS',
END OF SPOOL.
*
FIELD-SYMBOLS : <F>.
*
**************************************************************
*
*.......Set queue name.... *
QPARM-QDEST = QDEST.
QPARM-QAPPL = QAPPL.
QPARM-QDTYP = 'SPLD'.
QPARM-QMAND = '000'.
QPARM-QABAP = 'RSAPPQ40'.
QPARM-QMODU = 'RECEIVE'.
*
*.............Set driver specific parameters.................*
QPARM-QSTDA = QSTDA.
QPARM-QSTTI = QSTTI.
QPARM-QSTRT = QSTART.
QPARM-QCORR = 'R'.
*
*.............Set SAP specific data...........................*
QPARM-QDUSR = QUSER.
QPARM-QDPAS = QPASS.
*
*.............Open the queue..................... *
OPEN QUEUE QPARM.
*
*.............Write record in the queue.......... *
QPARM-QFIRS = 'Y'.
QPARM-QLAST = 'Y'.
SPOOL-SPNR = SPNR = QSPLNR.
ASSIGN SPOOL TO <F>.
TRANSFER <F> TO QUEUE QPARM.
*
*.............Close the queue.................... *
CLOSE QUEUE QPARM.
*