REPORT ZSYSTEM LINE-SIZE 255.
TABLES: T100.
* Batch-input data
DATA: BEGIN OF G_BDCDATA OCCURS 100.
INCLUDE STRUCTURE BDCDATA.
DATA: END OF G_BDCDATA.
DATA: G_MESSAGE(200).
PERFORM FILL_BDCDATA.
CALL TRANSACTION 'FI01' USING
G_BDCDATA MODE 'N'.
* of course it is nicer with a message itab,
but this example
* should also demostrate the use of system
variables.
SELECT SINGLE * FROM T100 WHERE
SPRSL = 'E'
AND ARBGB = SY-MSGID
AND MSGNR = SY-MSGNO.
G_MESSAGE = T100-TEXT.
PERFORM REPLACE_PARAMETERS USING
SY-MSGV1
SY-MSGV2
SY-MSGV3
SY-MSGV4
CHANGING G_MESSAGE.
WRITE: / 'System variables:'.
SKIP.
WRITE: / '
Sy-msgty:', SY-MSGTY.
WRITE: / '
Sy-msgid:', SY-MSGID.
WRITE: / '
Sy-msgno:', SY-MSGNO.
WRITE: / '
Sy-msgv1:', SY-MSGV1.
WRITE: / '
Sy-msgv2:', SY-MSGV2.
WRITE: / '
Sy-msgv3:', SY-MSGV3.
WRITE: / '
Sy-msgv4:', SY-MSGV4.
SKIP.
WRITE: / 'The transaction was called with a
wrong country code.'.
WRITE: / 'The error message should be either
that or that you have'.
WRITE: / ' no authorisation to execute
the transaction'.
SKIP.
WRITE: / 'Message:'.
SKIP.
WRITE: / SY-MSGTY,
G_MESSAGE.
*---------------------------------------------------------------------*
* Build
up the BDC-table
*
*---------------------------------------------------------------------*
FORM FILL_BDCDATA.
REFRESH G_BDCDATA.
PERFORM BDC_DYNPRO USING
'SAPMF02B' '0100'.
PERFORM BDC_FIELD USING 'BNKA-BANKS'
'ZZZ'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'QQQQQ'.
ENDFORM.
*---------------------------------------------------------------------*
* FORM
BDC_DYNPRO
*
*---------------------------------------------------------------------*
*
Batchinput: Start new Dynpro
*
*---------------------------------------------------------------------*
FORM BDC_DYNPRO USING P_PROGRAM P_DYNPRO.
CLEAR G_BDCDATA.
G_BDCDATA-PROGRAM = P_PROGRAM.
G_BDCDATA-DYNPRO = P_DYNPRO.
G_BDCDATA-DYNBEGIN = 'X'.
APPEND G_BDCDATA.
ENDFORM.
" BDC_DYNPRO
*---------------------------------------------------------------------*
* FORM
BDC_FIELD
*
*---------------------------------------------------------------------*
*
Batchinput: Feld hinzufugen
*
*---------------------------------------------------------------------*
FORM BDC_FIELD USING P_FNAM P_FVAL.
CLEAR G_BDCDATA.
G_BDCDATA-FNAM = P_FNAM.
G_BDCDATA-FVAL = P_FVAL.
APPEND G_BDCDATA.
ENDFORM.
" BDC_FIELD
*---------------------------------------------------------------------*
* FORM
REPLACE_PARAMETERS
*
*---------------------------------------------------------------------*
*
........
*
*---------------------------------------------------------------------*
* --> P_PAR_1
*
* --> P_PAR_2
*
* --> P_PAR_3
*
* --> P_PAR_4
*
* --> P_MESSAGE
*
*---------------------------------------------------------------------*
FORM REPLACE_PARAMETERS USING
P_PAR_1
P_PAR_2
P_PAR_3
P_PAR_4
CHANGING P_MESSAGE.
* erst mal pruefen, ob numerierte
Parameter verwendet wurden
DO.
REPLACE '&1' WITH
P_PAR_1 INTO P_MESSAGE.
IF SY-SUBRC <> 0.
EXIT.
ENDIF.
ENDDO.
DO.
REPLACE '&2' WITH
P_PAR_2 INTO P_MESSAGE.
IF SY-SUBRC <> 0.
EXIT.
ENDIF.
ENDDO.
DO.
REPLACE '&3' WITH
P_PAR_3 INTO P_MESSAGE.
IF SY-SUBRC <> 0.
EXIT.
ENDIF.
ENDDO.
DO.
REPLACE '&4' WITH
P_PAR_4 INTO P_MESSAGE.
IF SY-SUBRC <> 0.
EXIT.
ENDIF.
ENDDO.
* falls keine numerierten Parameter vorh.,
ersetzen wie gehabt
REPLACE '&' WITH P_PAR_1 INTO
P_MESSAGE.
CONDENSE P_MESSAGE.
IF SY-SUBRC EQ 0.
REPLACE '&' WITH
P_PAR_2 INTO P_MESSAGE.
CONDENSE P_MESSAGE.
IF SY-SUBRC EQ 0.
REPLACE
'&' WITH P_PAR_3 INTO P_MESSAGE.
CONDENSE
P_MESSAGE.
IF SY-SUBRC
EQ 0.
REPLACE '&' WITH P_PAR_4 INTO P_MESSAGE.
CONDENSE P_MESSAGE.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
"replace_parameters