Ришилось так:
Code:
DATA: ld_prog LIKE help_info-dynpprog,
ld_dynnr LIKE help_info-dynpro,
currscreen LIKE help_info-dynpprog,
currscreenno LIKE help_info-dynpro.
DATA: cursor_field LIKE dynpread-fieldname,
cursor_line TYPE i.
DATA: setcursor_available TYPE i.
DATA: dummyoffs TYPE i.
CALL 'DY_GET_FOCUS'
ID 'SSCREENNAM' FIELD ld_prog
ID 'SSCREENNBR' FIELD ld_dynnr
ID 'MSCREENNAM' FIELD currscreen
ID 'MSCREENNBR' FIELD currscreenno
ID 'FIELDNAME' FIELD cursor_field
ID 'FIELDOFFS' FIELD dummyoffs
ID 'LINE' FIELD cursor_line.