abap.txt

支持自定义语法高亮显示的编辑器控件

***************************************************************
* *
* Sample program for asynchronous communication via the DOUT *
* file with transfer data in Remote ODC format *
* (transfer format RODC) *
***************************************************************
PARAMETERS:
QDEST(8) TYPE C DEFAULT 'K44 ',
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) TYPE C DEFAULT 'A',
QANZHL(5) TYPE C DEFAULT '2'.
***************************************************************
* 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 *
* QANZHL : No. of TS02 transaction entries in the queue *
***************************************************************
TABLES : QPARM.
***************************************************************
*.............Set queue name..........................................*
QPARM-QDEST = QDEST.
QPARM-QAPPL = QAPPL.
QPARM-QDTYP = 'RODC'.
QPARM-QMAND = '000'.
*.............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 records in the queue.......*
PERFORM WRITE-QUEUE.
*
*.............Close the queue..................*
CLOSE QUEUE QPARM.
*
*-------------------------------------------------------------*
* FORM WRITE-QUEUE. *
*-------------------------------------------------------------*
* Insert records in the queue. *
* Sample : Remote ODC data for the transaction TS02. *
*-------------------------------------------------------------*
FORM WRITE-QUEUE.
*
DATA :
TLNR(5) TYPE C VALUE '00000',
AREA(42) TYPE C.
*
FIELD-SYMBOLS: <F>.
*
DO QANZHL TIMES.
ADD 1 TO TLNR.
*
* Insert first dynpro
*
QPARM-QFIRS = 'Y'.
QPARM-QLAST = 'N'.
QPARM-QDTRC = 'TS02'.
QPARM-QDPGM = 'SAPPG02'.
QPARM-QDDYN = '0041'.
CLEAR AREA.
AREA = '220416 10805160108061601'.
ASSIGN AREA(38) TO <F>.
TRANSFER <F> TO QUEUE QPARM.
*
* Insert second dynpro
*
QPARM-QFIRS = 'N'.
QPARM-QLAST = 'N'.
QPARM-QDTRC = 'TS02'.
QPARM-QDPGM = 'SAPPG02'.
QPARM-QDDYN = '0060'.
CLEAR AREA.
AREA = '221211 '.
AREA+17(5) = TLNR.
ASSIGN AREA(22) TO <F>.
TRANSFER <F> TO QUEUE QPARM.
*
* Insert third dynpro
QPARM-QFIRS = 'N'.
QPARM-QLAST = 'Y'.
QPARM-QDTRC = 'TS02'.
QPARM-QDPGM = 'SAPPG02'.
QPARM-QDDYN = '0062'.
CLEAR AREA.
AREA = '180762123456789012'.
ASSIGN AREA(18) TO <F>.
TRANSFER <F> TO QUEUE QPARM.
ENDDO.
*
ENDFORM.