[Legacy System Migration Workbench] LSMW Version Number : 4.0.0 LSMW Version Date : 31.08.2004 R/3 Installation Number : 0020293837 R/3 System Id : ECD R/3 Release : 701 R/3 Client : 200 R/3 Operating System : Windows NT R/3 Database System : MSSQL R/3 Hostname : ECCDEV User Id : C-KAUFFMAJ Date : 02.02.2013 Time : 15:36:23 Local Date : 02.02.2013 Local Time : 16:36:23 Local Timezone : CET [Project Information] [Project Name ] : SAPLSMW [Project Text ] : SAPLSMW.com Repository /SAPDMC/LSGPRO SAPLSMW C-KAUFFMAJ 20130202 /SAPDMC/LSGPROT ESAPLSMW SAPLSMW.com Repository [Recordings] [Subproject Information] [Subproject ] : MATERIAL [Subproject Text ] : Material Master Functions /SAPDMC/LSGSUB SAPLSMW MATERIAL C-KAUFFMAJ 20130202 /SAPDMC/LSGSUBT ESAPLSMW MATERIAL Material Master Functions [Object Information] [Object ] : CLASSES [Object Text ] : Classification load via BDC /SAPDMC/LSOTXT ESAPLSMW MATERIAL CLASSES Classification load via BDC /SAPDMC/LSOATT SAPLSMW MATERIAL CLASSES 0101300001 00000000SAPLSMW.COM X C-KAUFFMAJ 20130202 /SAPDMC/LSOSTR SAPLSMW MATERIAL CLASSES CL20H header 000101 00000000000000000000 /SAPDMC/LSOSTR SAPLSMW MATERIAL CLASSES CL20I Items CL20H 000202 00000000000000000000 /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSES CL20H CLASS 0003C 030 /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSES CL20H KLART 0002C 003KLART /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSES CL20H MATNR 0001C 018 /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSES CL20I ATAWE 0007C 003Alternative unit /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSES CL20I ATFLV 0006C 030Value from /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSES CL20I ATNAM 0004C 030Characteristic Name /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSES CL20I ATWRT 0005C 030Characteristic Value /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSES CL20I CLASS 0003C 030 /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSES CL20I KLART 0002C 003KLART /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSES CL20I MATNR 0001C 018Material /SAPDMC/LSOREL SAPLSMW MATERIAL CLASSES 0001BGR00 CL20H 20120816C-KAUFFMAJ /SAPDMC/LSOREL SAPLSMW MATERIAL CLASSES 0002BIKSSK CL20H 20120816C-KAUFFMAJ /SAPDMC/LSOREL SAPLSMW MATERIAL CLASSES 0003BIAUSP CL20I 20120816C-KAUFFMAJ /SAPDMC/LSOMAP SAPLSMW MATERIAL CLASSES 0002BIKSSK CLASS 0001CL20H CLASS C-KAUFFMAJ 20120820 /SAPDMC/LSOMAP SAPLSMW MATERIAL CLASSES 0002BIKSSK KLART 0001CL20H KLART C-KAUFFMAJ 20120820 /SAPDMC/LSOMAP SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0001CL20H MATNR C-KAUFFMAJ 20120820 /SAPDMC/LSOMAP SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0001CL20I ATNAM C-KAUFFMAJ 20120820 /SAPDMC/LSOMAP SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0001CL20I ATWRT C-KAUFFMAJ 20120820 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0000__BEGIN_OF_PROCESSING__ ACC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0000__END_OF_TRANSACTION__ DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ ACC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0001BGR00 GROUP DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0001BGR00 MANDT DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0001BGR00 NODATA DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0001BGR00 START DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0001BGR00 STYPE DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0001BGR00 USNAM DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0001BGR00 XKEEP DMC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0001BGR00 __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0001BGR00 __END_OF_RECORD__ DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0002BIKSSK CLASS ACC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0002BIKSSK KLART MVC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0002BIKSSK MAFID DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK ACC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0002BIKSSK OBTAB COC-KAUFFMAJ 20120820 MARA 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0002BIKSSK STATU COC-KAUFFMAJ 20120820 1 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0002BIKSSK STDCL COC-KAUFFMAJ 20120820 X 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0002BIKSSK STYPE DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0002BIKSSK TCODE DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0002BIKSSK __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0002BIKSSK __END_OF_RECORD__ DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM ACC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT ACC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0003BIAUSP STYPE DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0003BIAUSP __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSES 0003BIAUSP __END_OF_RECORD__ DFC-KAUFFMAJ 20120820 00000000 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__BEGIN_OF_PROCESSING__ 0001if p_break eq 'X'. break-point. endif. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__END_OF_TRANSACTION__ 0001transfer_transaction. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0001data: cLastMATNR(18) type c, cOBJEK(18) type c, C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0002 lMARA like MARA, lCABN like CABN, lKSSK like KSSK, C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0003 lKLAH like KLAH, lINOB like INOB, lKSML like KSML, C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0004 lCAWN like CAWN. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0005parameters: p_Update as checkbox, p_break as checkbox. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0006 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0007 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0008 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0009 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0010 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0011 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0012 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0013 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0014 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0015 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0016 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0017 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0018 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0019 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0020 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0021 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0022 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0023 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0024 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0025 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0000__GLOBAL_DATA__ 0026 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0001BGR00 GROUP 0001BGR00-GROUP = g_groupname. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0001BGR00 MANDT 0001BGR00-MANDT = SY-MANDT. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0001BGR00 NODATA 0001BGR00-NODATA = '/'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0001BGR00 START 0001BGR00-START = ''. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0001BGR00 STYPE 0001BGR00-STYPE = '0'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0001BGR00 USNAM 0001BGR00-USNAM = g_userid. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0001BGR00 XKEEP 0001BGR00-XKEEP = 'X'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0001BGR00 __BEGIN_OF_RECORD__ 0001BGR00 = INIT_BGR00. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0001BGR00 __END_OF_RECORD__ 0001at_first_transfer_record. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0001BGR00 __END_OF_RECORD__ 0002if g_cnt_transactions_group = 5000. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0001BGR00 __END_OF_RECORD__ 0003 g_cnt_transactions_group = 0. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0001BGR00 __END_OF_RECORD__ 0004 transfer_record. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0001BGR00 __END_OF_RECORD__ 0005endif. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK CLASS 0001 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK KLART 0001BIKSSK-KLART = CL20H-KLART. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK MAFID 0001BIKSSK-MAFID = 'O'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0001translate CL20H-CLASS to UPPER CASE. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0002if CL20H-MATNR co '1234567890 '. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0003 shift CL20H-MATNR right deleting trailing space. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0004 overlay CL20H-MATNR with '000000000000000000'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0005endif. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0006if cLastMATNR eq CL20H-MATNR. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0007 skip_transaction. "Only load each material once. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0008else. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0009 select single * from KLAH into lKLAH C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0010 where CLASS eq CL20H-CLASS and KLART eq CL20H-KLART. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0011 if sy-subrc ne 0. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0012 write: / CL20H-MATNR, CL20H-KLART, CL20H-CLASS, 'Missing Class.'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0013 skip_transaction. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0014 else. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0015 BIKSSK-CLASS = lKLAH-CLASS. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0016 select single * from MARA into lMARA where MATNR eq CL20H-MATNR. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0017 if sy-subrc ne 0. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0018 write: / CL20H-MATNR, CL20H-KLART, CL20H-CLASS, 'Not in MARA.'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0019 skip_transaction. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0020 else. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0021 cOBJEK = CL20H-MATNR. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0022 select * from INOB into lINOB C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0023 where OBJEK eq CL20H-MATNR and KLART eq CL20H-KLART. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0024 cOBJEK = lINOB-CUOBJ. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0025 endselect. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0026 select * from KSSK into lKSSK C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0027 where KLART eq CL20H-KLART and OBJEK eq cOBJEK. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0028 select single * from KLAH into lKLAH where CLINT eq lKSSK-CLINT.C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0029 write: / CL20H-MATNR, CL20H-KLART, CL20H-CLASS, C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0030 'Material already assigned class:', lKLAH-CLASS. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0031 if lKLAH-CLASS ne CL20H-CLASS. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0032 skip_transaction. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0033 else. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0034 if p_update ne 'X'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0035 write: 'skipping.' color 7. skip_transaction. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0036 else. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0037 write: 'updating.' color 3. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0038 BIKSSK-CLASS = ''. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0039 endif. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0040 endif. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0041 endselect. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0042 endif. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0043 endif. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0044 BIKSSK-OBJEK = CL20H-MATNR. cLastMATNR = CL20H-MATNR. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0045endif. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0046 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0047 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0048 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0049 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0050 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0051 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0052 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBJEK 0053 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK OBTAB 0001BIKSSK-OBTAB = 'MARA'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK STATU 0001BIKSSK-STATU = '1'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK STDCL 0001BIKSSK-STDCL = 'X'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK STYPE 0001BIKSSK-STYPE = '1'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK TCODE 0001BIKSSK-TCODE = 'CL20'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK __BEGIN_OF_RECORD__ 0001BIKSSK = INIT_BIKSSK. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0002BIKSSK __END_OF_RECORD__ 0001transfer_record. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0001*BIAUSP-ATNAM = CL20I-ATNAM. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0002condense CL20I-ATNAM no-gaps. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0003translate CL20I-ATNAM to UPPER CASE. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0004shift CL20I-ATNAM left deleting leading space. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0005select single * from CABN into lCABN where ATNAM eq CL20I-ATNAM. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0006if sy-subrc ne 0. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0007 write: / CL20H-MATNR, CL20H-KLART, CL20H-CLASS, CL20I-ATNAM, C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0008 'Characteristic does not exist.'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0009 skip_transaction. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0010else. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0011 select single * from KSML into lKSML C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0012 where CLINT eq lKLAH-CLINT C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0013 and KLART eq lKLAH-KLART C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0014 and IMERK eq lCABN-ATINN. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0015 if sy-subrc ne 0. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0016 write: / CL20H-MATNR, CL20H-KLART, CL20H-CLASS, CL20I-ATNAM, C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0017 'Characteristic does not exist.'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0018 skip_transaction. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0019 else. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0020 BIAUSP-ATNAM = lCABN-ATNAM. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0021 endif. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0022endif. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0023 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0024 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0025 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0026 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0027 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0028 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0029 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0030 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0031 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0032 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0033 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0034 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATNAM 0035 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0001BIAUSP-ATWRT = CL20I-ATWRT. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0002select single * from CAWN into lCAWN where ATINN eq lCABN-ATINN. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0003if sy-subrc eq 0. "Has some fixed vales . . . C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0004 if lCABN-ATSON ne 'X'. "No additional values--must validate. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0005 if lCABN-ATERF ne 'X' and CL20I-ATWRT eq ''. "Blanks okay! C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0006* Do nothing. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0007 else. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0008 select single * from CAWN into lCAWN C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0009 where ATINN eq lCABN-ATINN and ATWRT eq CL20I-ATWRT. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0010 if sy-subrc ne 0. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0011 write: / CL20H-MATNR, CL20H-KLART, CL20H-CLASS, CL20I-ATNAM, C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0012 'Characteristic value invalid:', CL20I-ATWRT. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0013 skip_transaction. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0014 endif. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0015 endif. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0016 endif. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0017endif. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP ATWRT 0018 C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP STYPE 0001BIAUSP-STYPE = '2'. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP __BEGIN_OF_RECORD__ 0001BIAUSP = INIT_BIAUSP. C-KAUFFMAJ 20120820 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSES 0003BIAUSP __END_OF_RECORD__ 0001transfer_record. C-KAUFFMAJ 20120820 /SAPDMC/LSOFIL SAPLSMW MATERIAL CLASSES SAPLSMW_MATERIAL_CLASSES.lsmw.read SAPLSMW_MATERIAL_CLASSES.lsmw.conv LSMW_LOGICAL_PATH CLASSES.LSMW.CONV /SAPDMC/LSOINP SAPLSMW MATERIAL CLASSES 0001FEC:\saplsmw\class.txt Header 0000X 000000 X X X /SAPDMC/LSOINP SAPLSMW MATERIAL CLASSES 0002FEC:\saplsmw\class.txT items 0000X 000000 X X X /SAPDMC/LSOINS SAPLSMW MATERIAL CLASSES CL20H 0001 /SAPDMC/LSOINS SAPLSMW MATERIAL CLASSES CL20I 0002 /SAPDMC/LSOPAR SAPLSMW MATERIAL CLASSES FROMLINE_CONV 0000000000 /SAPDMC/LSOPAR SAPLSMW MATERIAL CLASSES TOLINE_CONV 0000000000 /SAPDMC/LSOPAR SAPLSMW MATERIAL CLASSES C-CHAUGHTS WILDCARDVALUE /SAPDMC/LSOPAR SAPLSMW MATERIAL CLASSES C-KAUFFMAJ WILDCARDVALUE [Object Information] [Object ] : CLASSESB [Object Text ] : Classes /SAPDMC/LSOTXT ESAPLSMW MATERIAL CLASSESB Classes /SAPDMC/LSOATT SAPLSMW MATERIAL CLASSESB 0101300001 00000000C-KAUFFMAJ X C-KAUFFMAJ 20130202 /SAPDMC/LSOSTR SAPLSMW MATERIAL CLASSESB CL20H header 000101 00000000000000000000 /SAPDMC/LSOSTR SAPLSMW MATERIAL CLASSESB CL20I Items CL20H 000202 00000000000000000000 /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSESB CL20H CLASS 0004C 030 X /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSESB CL20H KLART 0003C 003KLART /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSESB CL20H OBJEK 0001C 045 X /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSESB CL20H OBTAB 0002C 004 /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSESB CL20I ATAWE 0008C 003Alternative unit /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSESB CL20I ATFLV 0007C 030Value from /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSESB CL20I ATNAM 0005C 030Characteristic Name /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSESB CL20I ATWRT 0006C 030Characteristic Value /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSESB CL20I CLASS 0004C 030 /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSESB CL20I KLART 0003C 003KLART /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSESB CL20I OBJEK 0001C 045Material /SAPDMC/LSOFLD SAPLSMW MATERIAL CLASSESB CL20I OBTAB 0002C 004 /SAPDMC/LSOREL SAPLSMW MATERIAL CLASSESB 0001BGR00 CL20H 20120816C-KAUFFMAJ /SAPDMC/LSOREL SAPLSMW MATERIAL CLASSESB 0002BIKSSK CL20H 20120816C-KAUFFMAJ /SAPDMC/LSOREL SAPLSMW MATERIAL CLASSESB 0003BIAUSP CL20I 20120816C-KAUFFMAJ /SAPDMC/LSOMAP SAPLSMW MATERIAL CLASSESB 0002BIKSSK KLART 0001CL20H KLART C-KAUFFMAJ 20130202 /SAPDMC/LSOMAP SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0001CL20I ATNAM C-KAUFFMAJ 20130202 /SAPDMC/LSOMAP SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0001CL20I ATWRT C-KAUFFMAJ 20130202 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0000__BEGIN_OF_PROCESSING__ ACC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ ACC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ DMC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ ACC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ ACC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0001BGR00 GROUP DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0001BGR00 MANDT DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0001BGR00 NODATA DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0001BGR00 START DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0001BGR00 STYPE DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0001BGR00 USNAM DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0001BGR00 XKEEP DMC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0001BGR00 __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0001BGR00 __END_OF_RECORD__ DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0002BIKSSK CLASS ACC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0002BIKSSK KLART MVC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0002BIKSSK MAFID DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK ACC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB ACC-KAUFFMAJ 20130202 MARA 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0002BIKSSK STATU COC-KAUFFMAJ 20130202 1 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0002BIKSSK STDCL COC-KAUFFMAJ 20130202 X 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0002BIKSSK STYPE DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0002BIKSSK TCODE DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0002BIKSSK __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0002BIKSSK __END_OF_RECORD__ DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM ACC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT ACC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0003BIAUSP STYPE DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0003BIAUSP __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSORUL SAPLSMW MATERIAL CLASSESB 0003BIAUSP __END_OF_RECORD__ DFC-KAUFFMAJ 20130202 00000000 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__BEGIN_OF_PROCESSING__ 0001if p_break eq 'X'. break-point. endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__BEGIN_OF_PROCESSING__ 0002wa_Backup-OBJEK = 'OBJEK'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__BEGIN_OF_PROCESSING__ 0003wa_Backup-CLASS = 'CLASS'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__BEGIN_OF_PROCESSING__ 0004wa_Backup-KLART = 'KLART'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__BEGIN_OF_PROCESSING__ 0005wa_Backup-OBTAB = 'OBTAB'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__BEGIN_OF_PROCESSING__ 0006wa_Backup-ATNAM = 'ATNAM'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__BEGIN_OF_PROCESSING__ 0007wa_Backup-ATWRT = 'ATWRT'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__BEGIN_OF_PROCESSING__ 0008append wa_Backup to it_Backup. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0001AllocationExists = ''. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0002loop at it_Report into wa_BAPIRET2. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0003 if p_verbos eq 'X' or wa_BAPIRET2-TYPE eq 'E'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0004 if wa_BAPIRET2-TYPE eq 'S'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0005 format color col_positive intensified on. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0006 elseif wa_BAPIRET2-TYPE eq 'I'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0007 format color col_total intensified off. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0008 elseif wa_BAPIRET2-TYPE eq 'W'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0009 format color col_negative intensified off. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0010 else. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0011 format color col_negative intensified on. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0012 endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0013 write: / wa_BAPIRET2-PARAMETER, wa_BAPIRET2-MESSAGE_V4+0(18), C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0014 wa_BAPIRET2-TYPE, wa_BAPIRET2-MESSAGE+0(90). C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0015 format reset. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0016 if wa_BAPIRET2-MESSAGE+0(26) eq 'Conflict at characteristic'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0017 AllocationExists = 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0018 endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0019 endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0020endloop. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0021if AllocationExists eq 'X'. "Conflicts! C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0022 skip. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0023 uline. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0024 write: / 'Conflict at characteristic . . .'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0025 uline. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0026 loop at it_Report into wa_BAPIRET2 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0027 where MESSAGE+0(26) eq 'Conflict at characteristic'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0028 write: / wa_BAPIRET2-PARAMETER. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0029 endloop. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0030endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0031if p_Delete eq 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0032 skip. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0033 uline. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0034 write: / 'Deleted Allocations . . .'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0035 uline. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0036 loop at it_Backup into wa_Backup. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0037 write: / wa_Backup-OBJEK, wa_Backup-KLART, wa_Backup-OBTAB, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0038 wa_Backup-CLASS, wa_Backup-ATNAM, wa_Backup-ATWRT. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0039 endloop. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_PROCESSING__ 0040endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0001if g_skip_transaction ne 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0002 if AllocationExists eq 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0003 if p_Delete eq 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0004 wa_Backup-OBJEK = lBAPI1003_KEY-OBJECT. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0005 wa_Backup-CLASS = lBAPI1003_KEY-CLASSNUM. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0006 wa_Backup-KLART = lBAPI1003_KEY-CLASSTYPE. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0007 wa_Backup-OBTAB = lBAPI1003_KEY-OBJECTTABLE. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0008 loop at it_Char into wa_Char. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0009 wa_Backup-ATNAM = wa_Char-CHARACT. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0010 wa_Backup-ATWRT = wa_Char-VALUE_CHAR. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0011 append wa_Backup to it_Backup. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0012 endloop. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0013 loop at it_Num into wa_Num. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0014 wa_Backup-ATNAM = wa_Num-CHARACT. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0015 wa_Backup-ATWRT = wa_Num-VALUE_FROM. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0016 append wa_Backup to it_Backup. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0017 endloop. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0018 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0019 CALL FUNCTION 'BAPI_OBJCL_DELETE' C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0020 EXPORTING C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0021 objectkey = lBAPI1003_KEY-OBJECT C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0022 objecttable = lBAPI1003_KEY-OBJECTTABLE C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0023 classnum = lBAPI1003_KEY-CLASSNUM C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0024 classtype = lBAPI1003_KEY-CLASSTYPE C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0025* CHANGENUMBER = changenumber C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0026* KEYDATE = keydate C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0027 tables C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0028 return = it_BAPIRET2. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0029 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0030 if p_Commit eq 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0031 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0032 EXPORTING C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0033 wait = 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0034 wait up to 1 seconds. "Allow commit to take effect. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0035 AllocationExists = ''. "No longer allocated. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0036 else. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0037 call function 'BAPI_TRANSACTION_ROLLBACK'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0038 endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0039 perform AppendReport. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0040 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0041 endif. "p_Delete C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0042 endif. "AllocationExists C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0043 if AllocationExists eq 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0044 call function 'BAPI_OBJCL_CHANGE' C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0045 exporting C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0046 objectkey = lBAPI1003_KEY-OBJECT C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0047 objecttable = lBAPI1003_KEY-OBJECTTABLE C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0048 classnum = lBAPI1003_KEY-CLASSNUM C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0049 classtype = lBAPI1003_KEY-CLASSTYPE C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0050 status = '1' C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0051 standardclass = 'X' C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0052* changenumber = changenumber C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0053* keydate = keydate C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0054 no_default_values = 'X' C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0055 importing C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0056 classif_status = lBAPI1003_KEY-STATUS C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0057 tables C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0058 allocvaluesnumnew = it_Num C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0059 allocvaluescharnew = it_Char C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0060 allocvaluescurrnew = it_Curr C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0061 return = it_BAPIRET2. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0062 else. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0063 call function 'BAPI_OBJCL_CREATE' C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0064 exporting C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0065 objectkeynew = lBAPI1003_KEY-OBJECT C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0066 objecttablenew = lBAPI1003_KEY-OBJECTTABLE C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0067 classnumnew = lBAPI1003_KEY-CLASSNUM C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0068 classtypenew = lBAPI1003_KEY-CLASSTYPE C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0069 status = '1' C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0070 standardclass = 'X' C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0071* changenumber = changenumber C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0072* keydate = keydate C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0073* no_default_values = no_default_values C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0074 importing C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0075 classif_status = lBAPI1003_KEY-STATUS C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0076 tables C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0077* allocvaluesnum = allocvaluesnum C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0078 allocvalueschar = it_Char C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0079* allocvaluescurr = allocvaluescurr C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0080 return = it_BAPIRET2. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0081 endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0082 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0083 perform AppendReport. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0084 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0085 if p_Commit eq 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0086 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0087 EXPORTING C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0088 wait = 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0089 else. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0090 call function 'BAPI_TRANSACTION_ROLLBACK'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0091 endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0092 skip_transaction. "No need to process in batch now . . . C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0093endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0094 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__END_OF_TRANSACTION__ 0095transfer_transaction. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0001form ShowMessage using lvValue lvError. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0002 if p_verbos eq 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0003 write: / CL20H-OBJEK, CL20H-CLASS, lvValue, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0004 lvError color 3. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0005 endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0006endform. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0007form ShowError using lvValue lvError. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0008 write: / CL20H-OBJEK, CL20H-CLASS, lvValue, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0009 lvError color col_negative. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0010 skip_transaction. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0011endform. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0012form AppendReport. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0013 loop at it_BAPIRET2 into wa_BAPIRET2. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0014 wa_BAPIRET2-PARAMETER = lBAPI1003_KEY-OBJECT. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0015 wa_BAPIRET2-MESSAGE_V4 = lBAPI1003_KEY-CLASSNUM. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0016 append wa_BAPIRET2 to it_Report. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0017 endloop. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__FORM_ROUTINES__ 0018endform. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0001selection-screen begin of block bclasses with frame title btitle1. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0002 selection-screen begin of line. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0003 PARAMETERS: p_Update AS CHECKBOX default ' '. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0004 selection-screen comment 3(70) comm1. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0005 selection-screen end of line. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0006 selection-screen begin of line. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0007 Parameters: p_Commit radiobutton group rad1. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0008 selection-screen comment 3(70) comy. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0009 selection-screen end of line. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0010 selection-screen begin of line. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0011 Parameters: p_rollbk radiobutton group rad1 default 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0012 selection-screen comment 3(70) comn. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0013 selection-screen end of line. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0014selection-screen end of block bclasses. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0015selection-screen begin of block btest with frame title btitle2. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0016 selection-screen begin of line. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0017 PARAMETERS: p_Verbos as CHECKBOX default ' '. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0018 selection-screen comment 3(70) comm2. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0019 selection-screen end of line. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0020 selection-screen begin of line. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0021 PARAMETERS: p_delete AS CHECKBOX default ' '. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0022 selection-screen comment 3(70) commd. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0023 selection-screen end of line. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0024 selection-screen begin of line. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0025 PARAMETERS: p_break AS CHECKBOX default ' '. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0026 selection-screen comment 3(70) commb. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0027 selection-screen end of line. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0028selection-screen end of block btest. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0029initialization. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0030btitle1 = 'Create/Change Classification Allocation to Objects'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0031btitle2 = 'Technical Options.'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0032comm1 = 'Update existing classification allocations.'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0033comm2 = C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0034'Verbose reporting--includes Info, Warning and Success messages.'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0035commd = C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0036 'Delete existing allocations while salvaging existing char values.'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0037commb = 'Launch the debugger for troubleshooting.'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0038comy = 'Commit the work performed by the BAPI.'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0039comn = C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0040 'Rollback the work performed by the BAPI (simulation, analysis only).'.C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0041*parameters: C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0042* p_Update as checkbox, p_break as checkbox, p_Verbos as checkbox, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0043* p_BAPI as checkbox, p_Commit as checkbox, p_Delete as checkbox. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0044data: cLastOBJEK like INOB-OBJEK. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0045 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0046**** Following for checking object assignment. **** C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0047data: C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0048 AllocationExists LIKE BDFIELDS-EXIST, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0049 lObject like CLAL_OBJ-OBJECT, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0050 lClassType like CLAL_CLASS-CLASSTYPE, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0051 lClass like CLAL_CLASS-CLASS. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0052 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0053**** Following for loading Classifications via BAPI **** C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0054data: lBAPI1003_KEY like BAPI1003_KEY, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0055 it_Char type standard table of BAPI1003_ALLOC_VALUES_CHAR C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0056 initial size 0, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0057 it_Num type standard table of BAPI1003_ALLOC_VALUES_NUM C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0058 initial size 0, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0059 it_Curr type standard table of BAPI1003_ALLOC_VALUES_CURR C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0060 initial size 0, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0061 it_AllocationValues type standard table of BAPI1003_ALLOC_LIST C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0062 initial size 0, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0063 wa_AllocationValues like BAPI1003_ALLOC_LIST, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0064 wa_Char like BAPI1003_ALLOC_VALUES_CHAR, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0065 wa_Num like BAPI1003_ALLOC_VALUES_NUM, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0066 wa_Curr like BAPI1003_ALLOC_VALUES_CURR, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0067 it_BAPIRET2 type standard table of BAPIRET2 initial size 0, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0068 it_Report type standard table of BAPIRET2 initial size 0, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0069 wa_BAPIRET2 like BAPIRET2. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0070 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0071types: begin of t_backup, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0072 OBJEK like AUSP-OBJEK, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0073 KLART(5) type c, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0074 OBTAB(5) type c, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0075 CLASS like KLAH-CLASS, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0076 ATNAM like CABN-ATNAM, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0077 ATWRT like AUSP-ATWRT, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0078 end of t_backup. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0079data: it_backup type standard table of t_backup initial size 0, C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0080 wa_backup type t_backup. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0081 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0082 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0083 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0084 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0085 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0086 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0087 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0088 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0089 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0090 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0000__GLOBAL_DATA__ 0091 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0001BGR00 GROUP 0001BGR00-GROUP = g_groupname. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0001BGR00 MANDT 0001BGR00-MANDT = SY-MANDT. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0001BGR00 NODATA 0001BGR00-NODATA = '/'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0001BGR00 START 0001BGR00-START = ''. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0001BGR00 STYPE 0001BGR00-STYPE = '0'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0001BGR00 USNAM 0001BGR00-USNAM = g_userid. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0001BGR00 XKEEP 0001BGR00-XKEEP = 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0001BGR00 __BEGIN_OF_RECORD__ 0001BGR00 = INIT_BGR00. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0001BGR00 __END_OF_RECORD__ 0001at_first_transfer_record. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0001BGR00 __END_OF_RECORD__ 0002if g_cnt_transactions_group = 5000. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0001BGR00 __END_OF_RECORD__ 0003 g_cnt_transactions_group = 0. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0001BGR00 __END_OF_RECORD__ 0004 transfer_record. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0001BGR00 __END_OF_RECORD__ 0005endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK CLASS 0001translate CL20H-CLASS to UPPER CASE. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK CLASS 0002BIKSSK-CLASS = CL20H-CLASS. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK KLART 0001BIKSSK-KLART = CL20H-KLART. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK MAFID 0001BIKSSK-MAFID = 'O'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0001* * * * * * * * * * * * * * * * C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0002* * C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0003* Populate header for BAPI. * C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0004* * C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0005* * * * * * * * * * * * * * * * C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0006lBAPI1003_KEY-OBJECT = CL20H-OBJEK. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0007lBAPI1003_KEY-OBJECTTABLE = CL20H-OBTAB. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0008lBAPI1003_KEY-CLASSNUM = CL20H-CLASS. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0009lBAPI1003_KEY-CLASSTYPE = CL20H-KLART. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0010*Start the characteristics internal tables as clean slates. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0011clear it_Num. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0012clear it_Char. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0013clear it_Curr. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0014 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0015if cLastOBJEK eq CL20H-OBJEK. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0016 skip_transaction. "Only load each object once. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0017else. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0018 lObject = CL20H-OBJEK. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0019 lClassTYPE = CL20H-KLART. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0020 lClass = CL20H-CLASS. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0021 CALL FUNCTION 'CHECK_OBJECT_IN_CLASS' "#EC * exception ignored C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0022 EXPORTING C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0023 OBJECT = lObject C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0024 CLASSTYPE = lClassType C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0025 CLASS_EXTERNAL = lClass C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0026 IMPORTING C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0027 OBJECT_EXISTS_IN_CLASS = AllocationExists C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0028 EXCEPTIONS C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0029 CLASSTYPE_NOT_FOUND = 1 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0030 CLASS_NOT_FOUND = 2 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0031 OTHERS = 3. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0032 if AllocationExists eq 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0033 "Populate the existing data. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0034 call function 'BAPI_OBJCL_GETCLASSES' C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0035 exporting C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0036 objectkey_imp = lBAPI1003_KEY-OBJECT C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0037 objecttable_imp = lBAPI1003_KEY-OBJECTTABLE C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0038 classtype_imp = lBAPI1003_KEY-CLASSTYPE C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0039 read_valuations = 'X' C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0040* keydate = key_date C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0041 tables C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0042 alloclist = it_AllocationValues C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0043 allocvalueschar = it_Char C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0044 allocvaluescurr = it_Curr C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0045 allocvaluesnum = it_Num C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0046 return = it_BAPIRET2. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0047 if p_Delete eq 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0048 perform ShowMessage using CL20H-CLASS C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0049 'Deleting allocation.'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0050 elseif p_update eq 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0051 perform ShowMessage using CL20H-CLASS C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0052 'Already assigned--Updating.'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0053 else. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0054 perform ShowMessage using CL20H-CLASS C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0055 'Already assigned--skipping.'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0056 skip_transaction. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0057 endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0058 endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0059 BIKSSK-OBJEK = CL20H-OBJEK. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0060 cLastOBJEK = CL20H-OBJEK. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBJEK 0061endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0001BIKSSK-OBTAB = CL20H-OBTAB. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0002 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0003 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0004 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0005 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0006 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0007 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0008 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0009 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0010 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0011 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0012 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0013 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0014 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0015 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK OBTAB 0016 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK STATU 0001BIKSSK-STATU = '1'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK STDCL 0001BIKSSK-STDCL = 'X'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK STYPE 0001BIKSSK-STYPE = '1'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK TCODE 0001BIKSSK-TCODE = 'CL20'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK __BEGIN_OF_RECORD__ 0001BIKSSK = INIT_BIKSSK. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0002BIKSSK __END_OF_RECORD__ 0001transfer_record. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0001* Clean up the Characteristic name. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0002condense CL20I-ATNAM no-gaps. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0003translate CL20I-ATNAM to UPPER CASE. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0004BIAUSP-ATNAM = CL20I-ATNAM. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0005 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0006 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0007 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0008 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0009 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0010 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0011 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0012 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0013 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0014 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0015 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0016 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0017 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0018 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0019 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0020 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0021 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0022 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0023 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0024 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0025 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0026 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0027 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0028 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0029 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0030 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0031 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATNAM 0032 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0001if CL20I-ATFLV ne ''. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0002 BIAUSP-ATWRT = CL20I-ATFLV. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0003else. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0004 BIAUSP-ATWRT = CL20I-ATWRT. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0005endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0006 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0007* * * * * * * * * * * * * * * C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0008* * C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0009* Populate item for BAPI. * C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0010* * C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0011* * * * * * * * * * * * * * * C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0012delete it_Num where CHARACT eq BIAUSP-ATNAM. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0013delete it_Char where CHARACT eq BIAUSP-ATNAM. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0014delete it_Curr where CHARACT eq BIAUSP-ATNAM. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0015if CL20I-ATFLV ne ''. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0016 wa_Num-CHARACT = BIAUSP-ATNAM. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0017 wa_Num-VALUE_FROM = CL20I-ATFLV. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0018 append wa_Num to it_Num. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0019else. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0020 wa_Char-CHARACT = BIAUSP-ATNAM. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0021 wa_Char-VALUE_CHAR = BIAUSP-ATWRT. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0022 append wa_Char to it_Char. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0023endif. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0024 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0025 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0026 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0027 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0028 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0029 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0030 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP ATWRT 0031 C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP STYPE 0001BIAUSP-STYPE = '2'. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP __BEGIN_OF_RECORD__ 0001BIAUSP = INIT_BIAUSP. C-KAUFFMAJ 20130202 /SAPDMC/LSOCOD SAPLSMW MATERIAL CLASSESB 0003BIAUSP __END_OF_RECORD__ 0001transfer_record. C-KAUFFMAJ 20130202 /SAPDMC/LSOFIL SAPLSMW MATERIAL CLASSESB /SAPDMC/LSOINP SAPLSMW MATERIAL CLASSESB 0003FEc:\aptar\classes.txt file 0000X 000000 X X X /SAPDMC/LSOINP SAPLSMW MATERIAL CLASSESB 0004FEc:\aptar\classes.txT file 2 0000X 000000 X X X /SAPDMC/LSOINS SAPLSMW MATERIAL CLASSESB CL20H 0003 /SAPDMC/LSOINS SAPLSMW MATERIAL CLASSESB CL20I 0004 /SAPDMC/LSOPAR SAPLSMW MATERIAL CLASSESB FROMLINE_CONV 0000000000 /SAPDMC/LSOPAR SAPLSMW MATERIAL CLASSESB FROMLINE_READ 0000000000 /SAPDMC/LSOPAR SAPLSMW MATERIAL CLASSESB TOLINE_CONV 0000000000 /SAPDMC/LSOPAR SAPLSMW MATERIAL CLASSESB TOLINE_READ 0000000000 /SAPDMC/LSOPAR SAPLSMW MATERIAL CLASSESB C-CHAUGHTS WILDCARDVALUE /SAPDMC/LSOPAR SAPLSMW MATERIAL CLASSESB C-KAUFFMAJ WILDCARDVALUE /SAPDMC/LSOPAR SAPLSMW MATERIAL CLASSESB PRABHUS WILDCARDVALUE [Subproject Information] [Subproject ] : ROUTING [Subproject Text ] : Routings /SAPDMC/LSGSUB SAPLSMW ROUTING C-KAUFFMAJ 20130202 /SAPDMC/LSGSUBT ESAPLSMW ROUTING Routings [Subproject Information] [Subproject ] : WORK_CENTER [Subproject Text ] : Create Work Center /SAPDMC/LSGSUB SAPLSMW WORK_CENTER C-KAUFFMAJ 20130202 /SAPDMC/LSGSUBT ESAPLSMW WORK_CENTER Create Work Center [Documentation ]