L_TO_CREATE_MULTIPLE

data LT_TRITE type L03B_TRITE_T.

data WA_TRITE like line of LT_TRITE.

data GV_STORED like VBAPF-QMENGE.

clear: LT_TRITE, WA_TRITE, GV_STORED.

refresh LT_TRITE.

WA_TRITE-TBPOS = GT_LTBP-TBPOS.

WA_TRITE-ANFME = GT_LTBP-MENGE.

WA_TRITE-ALTME = GT_LTBP-MEINS.

WA_TRITE-LETYP = GT_MARA-VHART(3). "3-character storageunittype

concatenate '000000000000' LTAP-NLENR+10(8) into WA_TRITE-NLENR.

"FM L_TO_CREATE_TR wants 20 characters

if GV_DIR = 'N'.

WA_TRITE-NLTYP = '120'.

WA_TRITE-NLPLA = 'OVERDRACHT'.

else.

WA_TRITE-NLTYP = P_NLTYP.

WA_TRITE-NLPLA = P_NLPLA.

endif.

append WA_TRITE to LT_TRITE.

• TO aanleggen

clear GT_LTAP_VB.

refresh GT_LTAP_VB.

call function 'L_TO_CREATE_TR'

exporting

I_LGNUM = GC_LGNUM_011 "LGNUM is '011' in my case

I_TBNUM = GT_LTBP-TBNUM

IT_TRITE = LT_TRITE

• importing

• e_tanum = gv_tanum

tables

T_LTAP_VB = GT_LTAP_VB

exceptions

FOREIGN_LOCK = 1

QM_RELEVANT = 2

TR_COMPLETED = 3

XFELD_WRONG = 4

LDEST_WRONG = 5

DRUKZ_WRONG = 6

TR_WRONG = 7

SQUIT_FORBIDDEN = 8

NO_TO_CREATED = 9

UPDATE_WITHOUT_COMMIT = 10

NO_AUTHORITY = 11

PREALLOCATED_STOCK = 12

PARTIAL_TRANSFER_REQ_FORBIDDEN = 13

INPUT_ERROR = 14

others = 15.

if SY-SUBRC <> 0.

commit work."See FM L_TO_CREATE_TR docu: commit work is needed

perform MELDT_DE_FOUT using SY-MSGID SY-MSGTY SY-MSGNO

SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

else.