SUBMIT SAPMF05A
            USING SELECTION-SCREEN '0100' AND RETURN
             WITH bkpf-bukrs = t_bkpf-bukrs
             WITH bkpf-budat = t_bkpf-budat
             WITH bkpf-bldat = t_bkpf-bldat
             WITH bkpf-blart = t_bkpf-blart
             WITH bkpf-monat = t_bkpf-monat
             WITH bkpf-waers = t_bkpf-waers
             WITH bkpf-kursf = t_bkpf-kursf
             WITH bkpf-wwert = t_bkpf-wwert
             WITH bkpf-xblnr = t_bkpf-xblnr
             WITH bkpf-bvorg = t_bkpf-bvorg
             WITH bkpf-bktxt = t_bkpf-bktxt
             WITH bkpf-brnch = t_bkpf-brnch

             WITH BKPF-NUMPG   = T_BKPF-NUMPG
             WITH BKPF-CCINS   = T_BKPF-CCINS
             WITH BKPF-CCNUM   = T_BKPF-CCNUM
             WITH BKPF-REINDAT = T_BKPF-REINDAT
             WITH BKPF-LOTKZ   = T_BKPF-LOTKZ
             WITH BKPF-STGRD   = T_BKPF-STGRD
             WITH BKPF-AWTYP   = T_BKPF-AWTYP
             WITH BKPF-STODT   = T_BKPF-STODT
             WITH BKPF-AWKEY   = T_BKPF-AWKEY
             WITH BKPF-AWSYS   = T_BKPF-AWSYS

             WITH BKPF-OINETNUM = T_BKPF-OINETNUM

             WITH RF05A-NEWBS = '40'
             WITH RF05A-NEWKO = 'ZGTDTEST'
             WITH RF05A-NEWUM = t_bseg-UMSKZ
             WITH RF05A-NEWBW = t_bseg-BEWAR.