Macro without Logical Database Declaration

HR ABAP

INFOTYPES: 0000. "+badli 20110415

DATA it_pa0000 LIKE P0000 OCCURS 0. "+badli 20110415

"Begin add by badli 20110415
" to check record already exist or not.
RP-READ-INFOTYPE w_pyh002h-pernr 0000 it_pa0000 w_pyh002h-zactdat
'99991231' .

Above record is used Macro RP-READ-INFOTYPE

PERFORM dynpro format

Using BDC for HR.

Code Snippet

PERFORM dynpro USING 'X' 'SAPMP50A' '1000'.

FORM dynpro USING pa_dynbegin
pa_name
pa_value.

IF pa_dynbegin = 'X'.
CLEAR ta_bdcdata.
MOVE: pa_name TO ta_bdcdata-program,
pa_value TO ta_bdcdata-dynpro,
'X' TO ta_bdcdata-dynbegin.
APPEND ta_bdcdata.
ELSE.
CLEAR ta_bdcdata.
MOVE: pa_name TO ta_bdcdata-fnam,
pa_value TO ta_bdcdata-fval.
* CONDENSE ta_bdcdata-fval no-gaps.
APPEND ta_bdcdata.
ENDIF.

ENDFORM.