* I n t e r n a l t a b l e s
*-------------------------------
DATA: BEGIN OF i_systems OCCURS 10,
sid(3) TYPE c,
host(8) TYPE c,
END OF i_systems.
DATA: BEGIN OF i_zpth OCCURS 100.
INCLUDE STRUCTURE zpth.
DATA: END OF i_zpth.
* Begin djm
* Locktable for systems
DATA: BEGIN OF i_locksystems OCCURS 10,
tarsystem LIKE zptl-tarsystem,
startdate LIKE sy-datum,
starttime LIKE sy-uzeit,
enddate LIKE sy-datum,
endtime LIKE sy-uzeit,
unlocked(1) TYPE c,
locked(1) TYPE c,
END OF i_locksystems.
DATA BEGIN OF s_options OCCURS 10.
INCLUDE STRUCTURE rfc_db_opt.
DATA END OF s_options.
DATA BEGIN OF s_fields OCCURS 10.
INCLUDE STRUCTURE rfc_db_fld.
DATA END OF s_fields.
* RFC destination clients
DATA: BEGIN OF i_clients OCCURS 10,
mtxt(3),
END OF i_clients.
* Eind djm
Ik wil naar huis...