[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 : 26.02.2014 Time : 23:28:08 Local Date : 27.02.2014 Local Time : 00:28:08 Local Timezone : CET [Project Information] [Project Name ] : SAPLSMW.COM [Project Text ] : SAPLSMW.com Project /SAPDMC/LSGPRO SAPLSMW.COM C-KAUFFMAJ 20140226 /SAPDMC/LSGPROT ESAPLSMW.COM SAPLSMW.com Project [Central Rules] [User-Routines] [User Routine ] : DC_TOOLS [User Routine Text] : Data conversion tools /SAPDMC/LSRATT SAPLSMW.COM URDC_TOOLS 000 000 0000C-KAUFFMAJ 20140226 /SAPDMC/LSRTXT ESAPLSMW.COM URDC_TOOLS Data conversion tools /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0001* /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0002* This function finds the number of a view for a material based /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0003* on the material number and the description of the view on the /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0004* "Select Views" screen. If the view doesn't exist for the material /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0005* then the function returns a zero value. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0006* /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0007form FindKZSEL /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0008 using cMATNR like MARA-MATNR /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0009 cViewDesc like T133B-DYTXT /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0010 cTCODE like T130M-TCODE /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0011 changing nViewKZSEL. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0012* tables: T133A, T133B, MARA, T130M. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0013 data: ltMARA like MARA, ltT130M like T130M. "Just need these table. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0014* ltT113A like T113A, ltT133B like T133B. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0015 data: cFound(1) type c, /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0016 lBILDTAB like MBILDTAB, /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0017 KZ_BILDS_CHANGED, /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0018 BILDSEQUENZ like T133K-BILDS, /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0019 lvMATNR(18) type c, /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0020 TKSTATUS like T130M-PSTAT. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0021 DATA: BEGIN OF BILDTAB OCCURS 30. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0022 INCLUDE STRUCTURE MBILDTAB. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0023 DATA: END OF BILDTAB. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0024* /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0025* Find the specific material in the MARA table. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0026* /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0027 move cMATNR to lvMATNR. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0028 if lvMATNR co ' 1234567890'. "Numeric material needs leading zeros. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0029 shift lvMATNR right deleting trailing space. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0030 overlay lvMATNR with '000000000000000000'. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0031 endif. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0032 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0033 select * from MARA into ltMARA where MATNR eq lvMATNR. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0034* /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0035* We default to the screen reference (TRREF) '01' as that's the /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0036* reference for MM02 and most other transactions. This is easier than /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0037* pulling the value from the T130M table for each transaction code. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0038* Using the industry and material type from the material we get the /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0039* "Screen Sequence Number". /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0040* /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0041 CALL FUNCTION 'BILDSEQUENZ_IDENTIFY' /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0042 EXPORTING /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0043 KZRFB = ' ' /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0044 BRANCHE = ltMARA-MBRSH /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0045 MATERIALART = ltMARA-MTART /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0046 TCODE_REF = '01' /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0047 IMPORTING /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0048 BILDSEQUENZ = BILDSEQUENZ /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0049 KZ_BILDS_CHANGED = KZ_BILDS_CHANGED. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0050 if cTCODE eq 'MM01'. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0051 CALL FUNCTION 'MATERIAL_INIT' /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0052 EXPORTING /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0053 TCODE = 'MM01' /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0054 KZ_BERPRF = 'X' /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0055 IMPORTING /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0056 IT130M = ltT130M /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0057 TKSTATUS = TKSTATUS. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0058 else. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0059 TKSTATUS = ltMARA-PSTAT. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0060 endif. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0061* /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0062* Now we use the "Screen Sequence Number" and the Pflegestatus /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0063* (Maintenance Status) from the material to build an internal table /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0064* with the views ordered just like on MM02 "Select Views" screen. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0065* /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0066 CALL FUNCTION 'SELECTION_VIEWS_FIND' /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0067 EXPORTING /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0068 BILDSEQUENZ = BILDSEQUENZ /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0069 PFLEGESTATUS = TKSTATUS /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0070 TABLES /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0071 BILDTAB = BILDTAB. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0072 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0073 nViewKZSEL = 0. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0074* /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0075* Now, loop through the internal table to find the desired view. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0076* /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0077 loop at BILDTAB into lBILDTAB. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0078 if cFound ne 'X'. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0079 add 1 to nViewKZSEL. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0080 if lBILDTAB-DYTXT eq cViewDesc. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0081 cFound = 'X'. "Stop counting, we have the KZSEL. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0082 endif. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0083 endif. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0084 endloop. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0085 endselect. "MARA /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0086 if cFound ne 'X'. "View not found! /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0087 nViewKZSEL = 0. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0088 endif. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0089endform. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0090 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0091form CleanseText using inValue changing outValue. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0092 data: nLength type i, cTemp(100) type c. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0093 translate inValue to UPPER CASE. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0094 nLength = strlen( inValue ). /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0095 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0096 do nLength times. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0097 subtract 1 from nLength. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0098 if 'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_' cs inValue+nLength(1). /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0099 concatenate inValue+nLength(1) cTemp into cTemp. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0100 endif. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0101 enddo. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0102 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0103 outValue = cTemp. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0104endform. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0105 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0106form CountDecimalPlaces using cValue changing lvDecimals. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0107 data: lvLength type i. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0108 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0109 condense cValue. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0110 if cValue cs '.'. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0111 shift cValue right deleting trailing space. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0112 shift cValue right deleting trailing '0'. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0113 shift cValue right deleting trailing '.'. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0114 shift cValue left deleting leading space. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0115 endif. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0116 if cValue cs '.'. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0117 lvLength = strlen( cValue ). /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0118 find '.' in cValue. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0119 lvDecimals = ( lvLength - sy-fdpos ) - 1. "Decimal places /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0120 else. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0121 lvDecimals = 0. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0122 endif. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0123endform. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0124 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0125 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0126form KillQuotes changing inValue. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0127 condense inValue. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0128 if inValue+0(1) eq '"'. "Quotes. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0129 shift inValue left deleting leading '"'. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0130 shift inValue right deleting trailing space. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0131 shift inValue right deleting trailing '"'. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0132 shift inValue left deleting leading space. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0133 endif. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0134endform. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0135 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0136form ZPROGRESSTIME using lvCurrent lvCount. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0137 statics: lvtimlo like sy-timlo, /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0138 lvstarted like sy-timlo, /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0139 cRemaining(70) type c, cPercentage(40) type c. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0140 data: lvPercentage type f, lvPercent type i, lvcTotal(8) type c. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0141 if cRemaining eq ''. cRemaining = 'X'. lvStarted = sy-timlo. endif. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0142 get time. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0143 if sy-timlo ne lvtimlo and lvCurrent gt 5 and lvCount gt 0. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0144 cRemaining = /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0145 ( ( sy-timlo - lvstarted ) / lvcurrent ) * ( lvcount - lvcurrent ). /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0146 cRemaining = cRemaining div 1. condense cremaining no-gaps. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0147 lvPercentage = 100 * lvCurrent / lvCount. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0148 lvPercent = lvPercentage. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0149 lvcTotal = g_cnt_transactions_transferred. condense lvcTotal. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0150 cPercentage = 100 * ( lvCurrent / lvCount ). /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0151 cPercentage = cPercentage div 1. condense cPercentage no-gaps. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0152 concatenate '[ Percent complete:' cPercentage /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0153 '][ Seconds remaining:' cRemaining /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0154 '][ Transferred:' lvcTotal ']' /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0155 into cRemaining separated by space. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0156 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0157 call function 'SAPGUI_PROGRESS_INDICATOR' /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0158 exporting /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0159 PERCENTAGE = lvPercentage /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0160 TEXT = cRemaining /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0161 exceptions /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0162 others = 1. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0163 lvtimlo = sy-timlo. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0164 endif. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0165 " The following line prevents LSMW from calling the /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0166 " SAPGUI_PROGRESS_INDICATOR function by setting the /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0167 " counter to 0; it calls at 500 and sets to 0 again. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0168 g_cnt_records_read_progress = 0. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0169endform. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0170form GetTotalRecords changing lvTotalRecords. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0171 CALL FUNCTION '/SAPDMC/LSM_FILE_INFO_GET' /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0172 EXPORTING /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0173 project = g_project /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0174 subproj = g_subproj /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0175 object = g_object /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0176 IMPORTING /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0177 file_read = g_dsn_in /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0178 file_conv = g_dsn_out /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0179 EXCEPTIONS /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0180 no_such_object = 1 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0181 OTHERS = 2. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0182 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0183 open dataset g_dsn_in for input in binary mode. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0184 while sy-subrc eq 0. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0185 READ DATASET g_dsn_in INTO g_hex_record_length. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0186 IF sy-subrc eq 0. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0187 g_record_length = g_hex_record_length. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0188 ASSIGN g_max_buffer(g_record_length) TO . /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0189 READ DATASET g_dsn_in INTO . /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0190 IF sy-subrc eq 0. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0191 gs_buffer = . /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0192 g_record = gs_buffer-record. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0193 ADD 1 TO lvTotalRecords. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0194 ENDIF. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0195 ENDIF. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0196 endwhile. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0197 close dataset g_dsn_in. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0198endform. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0199 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0200Form CheckSettings. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0201 data: lvUSR01 like USR01. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0202 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0203 select * from USR01 into lvUSR01 where BNAME eq sy-uname. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0204 if lvUSR01-DATFM ne '1'. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0205 write: / 'The date format for this user is not set correctly.' /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0206 color col_negative. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0207 endif. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0208 if lvUSR01-DCPFM ne 'X'. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0209 write: / 'The date format for this user is not set correctly.' /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0210 color col_negative. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0211 endif. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0212 endselect. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0213endform. /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0214 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0215 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0216 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0217 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0218 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0219 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0220 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0221 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0222 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0223 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0224 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0225 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0226 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0227 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0228 /SAPDMC/LSRCOD SAPLSMW.COM URDC_TOOLS 0229 [Subproject Information] [Subproject ] : FI [Subproject Text ] : FI Objects /SAPDMC/LSGSUB SAPLSMW.COM FI C-KAUFFMAJ 20140226 /SAPDMC/LSGSUBT ESAPLSMW.COM FI FI Objects [Subproject Information] [Subproject ] : MM [Subproject Text ] : Materials /SAPDMC/LSGSUB SAPLSMW.COM MM C-KAUFFMAJ 20140226 /SAPDMC/LSGSUBT ESAPLSMW.COM MM Materials [Object Information] [Object ] : REPORTS [Object Text ] : A container for requested reports /SAPDMC/LSOTXT ESAPLSMW.COM MM REPORTS A container for requested reports /SAPDMC/LSOATT SAPLSMW.COM MM REPORTS 0100200000 00000472V3-DMUSER-1 X C-KAUFFMAJ 20140226 /SAPDMC/LSOSTR SAPLSMW.COM MM REPORTS MM01S Structure 000101 00000000000000000000 /SAPDMC/LSOFLD SAPLSMW.COM MM REPORTS MM01S DUMMY 0001C 010 /SAPDMC/LSOREL SAPLSMW.COM MM REPORTS 0001BGR00 MM01S 20120311V3-DMUSER-1 /SAPDMC/LSOREL SAPLSMW.COM MM REPORTS 0002BMM00 MM01S 20120311V3-DMUSER-1 /SAPDMC/LSOREL SAPLSMW.COM MM REPORTS 0003BMMH1 MM01S 20120311V3-DMUSER-1 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ ACC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_TRANSACTION__ ACC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ ACC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0000__END_OF_TRANSACTION__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ ACC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0001BGR00 GROUP DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0001BGR00 MANDT DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0001BGR00 NODATA DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0001BGR00 START DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0001BGR00 STYPE DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0001BGR00 USNAM DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0001BGR00 XKEEP DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0001BGR00 __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0001BGR00 __END_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0002BMM00 STYPE DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0002BMM00 __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0002BMM00 __END_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0003BMMH1 STYPE DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0003BMMH1 __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0003BMMH1 __END_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0004BMMH2 __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0004BMMH2 __END_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0005BMMH3 __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0005BMMH3 __END_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0006BMMH4 __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0006BMMH4 __END_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0007BMMH5 __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0007BMMH5 __END_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0008BMMH6 __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0008BMMH6 __END_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0009BMMH7 __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0009BMMH7 __END_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0010BMMH8 __BEGIN_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORTS 0010BMMH8 __END_OF_RECORD__ DFC-KAUFFMAJ 20140226 00000000 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0001if p_CharF ne ''. "Time to filter by characteristic name C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0002 translate p_CharF to UPPER CASE. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0003 select * from CABN into lCABN where ATNAM eq p_CharF. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0004 append lCABN to it_CABN. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0005 endselect. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0006 if sy-subrc ne 0. "Didn't find the char... C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0007 write: 'Invalid Char:', p_CharF color col_negative. exit. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0008 endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0009else. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0010 select * from CABN into table it_CABN. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0011endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0012if p_ClassF ne ''. "Time to filter by class name.... C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0013 translate p_ClassF to UPPER CASE. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0014 select single * from KLAH into lKLAH where CLASS eq p_ClassF. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0015 if sy-subrc ne 0. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0016 write: 'Invalid Class name:', p_ClassF color col_negative. exit. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0017 else. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0018 append lKLAH to it_KLAH. "Now there is only one class. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0019 endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0020else. "No need to filter... C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0021 select * from KLAH into table it_KLAH. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0022endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0023 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0024 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0025 move: 'MATNR' to wa_CR-MATNR, 'MAKTX' to wa_CR-MAKTX, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0026 'MTART' to wa_CR-MTART, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0027 'XCHPF' to wa_CR-XCHPF, 'CLASS' to wa_CR-CLASS, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0028 'ATNAM' to wa_CR-ATNAM, 'ATWRT' to wa_CR-ATWRT. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0029 append wa_CR to it_CR. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0030 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0031 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0032 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0033 nIndex = 0. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0034 select count(*) from MARA into nTotalRecords. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0035 select * from MARA into lMARA order by MATNR. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0036 add 1 to nIndex. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0037 if lMARA-MTART eq p_MTART or p_MTART eq ''. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0038 wa_CR-MATNR = lMARA-MATNR. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0039 wa_CR-MTART = lMARA-MTART. wa_CR-XCHPF = lMARA-XCHPF. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0040 if p_MaDesc eq 'X'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0041 " Lookups for description--1st for *any* desc, 2nd for preferred C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0042 select single MAKTX from MAKT into wa_CR-MAKTX C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0043 where MATNR eq lMARA-MATNR. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0044 select single MAKTX from MAKT into wa_CR-MAKTX C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0045 where MATNR eq lMARA-MATNR and SPRAS eq p_SPRAS. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0046 endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0047 if p_limit eq 'X' and nIndex gt 2000. exit. endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0048 perform ZPROGRESSTIME using nIndex nTotalRecords. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0049 if p_withb eq 'X'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0050 select * from INOB into lINOB C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0051 where objek eq lMARA-MATNR and KLART eq '023'. "Batch Classes C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0052 select * from KSSK into lKSSK where OBJEK eq lINOB-CUOBJ. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0053 loop at it_KLAH into lKLAH where CLINT eq lKSSK-CLINT. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0054 wa_CR-CLASS = lKLAH-CLASS. wa_CR-KLART = lKSSK-KLART. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0055 if p_Char ne 'X'. "No characteristics C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0056 append wa_CR to it_CR. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0057 else. "Go crazy with the characterisitics! Yeah, boyeee! C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0058 select * from KSML into lKSML C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0059 where CLINT eq lKSSK-CLINT order by POSNR. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0060 loop at it_CABN into lCABN where ATINN eq lKSML-IMERK. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0061 wa_CR-ATNAM = lCABN-ATNAM. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0062 select * from AUSP into lAUSP C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0063 where OBJEK eq lINOB-CUOBJ and ATINN eq lCABN-ATINN. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0064 if lAUSP-ATWRT eq ''. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0065 move lAUSP-ATFLV to fFloat. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0066 wa_CR-ATWRT = fFloat. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0067 else. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0068 wa_CR-ATWRT = lAUSP-ATWRT. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0069 endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0070 append wa_CR to it_CR. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0071 endselect. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0072 endloop. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0073 endselect. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0074 endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0075 endloop. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0076 endselect. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0077 endselect. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0078 endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0079 if p_withM eq 'X'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0080 select * from KSSK into lKSSK C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0081 where OBJEK eq lMARA-MATNR. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0082 loop at it_KLAH into lKLAH where CLINT eq lKSSK-CLINT. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0083 wa_CR-CLASS = lKLAH-CLASS. wa_CR-KLART = lKSSK-KLART. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0084 if p_Char ne 'X'. "No characteristics C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0085 append wa_CR to it_CR. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0086 else. "Go crazy with the characterisitics! Yeah, boyeee! C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0087 select * from KSML into lKSML C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0088 where CLINT eq lKSSK-CLINT order by POSNR. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0089 loop at it_CABN into lCABN where ATINN eq lKSML-IMERK. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0090 wa_CR-ATNAM = lCABN-ATNAM. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0091 select * from AUSP into lAUSP C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0092 where OBJEK eq lMARA-MATNR and ATINN eq lCABN-ATINN. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0093 if lAUSP-ATWRT eq ''. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0094 move lAUSP-ATFLV to fFloat. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0095 wa_CR-ATWRT = fFloat. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0096 else. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0097 wa_CR-ATWRT = lAUSP-ATWRT. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0098 endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0099 append wa_CR to it_CR. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0100 endselect. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0101 endloop. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0102 endselect. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0103 endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0104 endloop. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0105 endselect. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0106 endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0107 endif. "MTART eq p_MTART or p_MTART eq ''. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0108 endselect. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_PROCESSING__ 0109*endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__BEGIN_OF_TRANSACTION__ 0001skip_transaction. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0001* Now start with the actual reporting... C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0002if p_filenm ne ''. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0003 CALL FUNCTION 'GUI_DOWNLOAD' C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0004 EXPORTING C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0005 FILENAME = p_filenm C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0006 FILETYPE = 'ASC' C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0007 APPEND = '' C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0008* CODEPAGE = 'IBM' C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0009 WRITE_FIELD_SEPARATOR = 'X' C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0010 HEADER = '00' C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0011 TRUNC_TRAILING_BLANKS = 'X' C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0012 TABLES C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0013 DATA_TAB = it_CR C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0014 EXCEPTIONS C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0015 FILE_WRITE_ERROR = 1 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0016 OTHERS = 2. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0017else. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0018 loop at it_CR into wa_CR. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0019 write: / wa_CR-MATNR. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0020 if p_MaDesc eq 'X'. write: wa_CR-MAKTX. endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0021 write: wa_CR-MTART, wa_CR-XCHPF, wa_CR-CLASS, wa_CR-KLART, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0022 wa_CR-ATNAM, wa_CR-ATWRT. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0023 endloop. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0024endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0025 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_PROCESSING__ 0026 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__END_OF_TRANSACTION__ 0001transfer_transaction. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0001*tables: t023, MARA, KLAH, CABN. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0002 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0003 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0004 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0005 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0006 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0007 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0008 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0009 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0010 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0011 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0012selection-screen begin of block bclass with frame title btclass. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0013 selection-screen begin of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0014 selection-screen comment 3(35) comm2. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0015 PARAMETERS: p_WithB as CHECKBOX default 'X'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0016 selection-screen end of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0017 selection-screen begin of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0018 selection-screen comment 3(35) comm3. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0019 PARAMETERS: p_WithM as CHECKBOX default 'X'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0020 selection-screen end of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0021 selection-screen begin of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0022 selection-screen comment 3(35) comm8. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0023 PARAMETERS: p_MaDesc as CHECKBOX default 'X'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0024 selection-screen comment 43(18) comm9. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0025 PARAMETERS: p_SPRAS like MAKT-SPRAS default 'E'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0026 selection-screen end of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0027 selection-screen begin of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0028 selection-screen comment 3(35) comm4. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0029 PARAMETERS: p_Char as CHECKBOX default 'X'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0030 selection-screen end of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0031 selection-screen begin of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0032 selection-screen comment 3(13) comm6. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0033 PARAMETERS: p_MTART like MARA-MTART. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0034 selection-screen comment 45(30) comm7. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0035 selection-screen end of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0036 selection-screen begin of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0037 selection-screen comment 3(13) commc. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0038 PARAMETERS: p_ClassF like KLAH-CLASS. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0039 selection-screen comment 45(30) commlb. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0040 selection-screen end of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0041 selection-screen begin of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0042 selection-screen comment 3(13) commch. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0043 PARAMETERS: p_CharF like CABN-ATNAM. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0044 selection-screen comment 50(30) commlbch. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0045 selection-screen end of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0046selection-screen end of block bclass. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0047 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0048 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0049 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0050 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0051 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0052 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0053 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0054 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0055 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0056selection-screen begin of block bfile with frame title bfile1. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0057 selection-screen begin of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0058 selection-screen comment 1(10) commf. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0059 PARAMETERS: p_filenm type string. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0060 selection-screen end of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0061 selection-screen begin of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0062 selection-screen comment 1(60) commf2. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0063 selection-screen end of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0064selection-screen end of block bfile. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0065selection-screen begin of block btest with frame title btest1. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0066 selection-screen begin of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0067 PARAMETERS: p_limit as CHECKBOX default ' '. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0068 selection-screen comment 3(60) comm5. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0069 selection-screen end of line. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0070selection-screen end of block btest. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0071initialization. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0072 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0073btclass = 'Classification report'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0074 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0075 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0076 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0077comm2 = 'Include Batch Classifications'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0078comm3 = 'Include Material Classifications'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0079comm4 = 'Include Characteristic values'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0080bfile1 = 'Save to file'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0081commf = 'Filename*:'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0082commf2 = '* Leave the filename blank to see results as a report.'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0083btest1 = 'Testing parameters'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0084comm5 = 'Limit nIndex to 2000.'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0085comm6 = 'Material type:'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0086comm7 = '(leave blank for all types)'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0087commc = 'Class name:'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0088commlb = '(leave blank for all classes)'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0089commch = 'Characteristic:'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0090commlbch = '(leave blank for all characteristics)'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0091 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0092 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0093comm8 = 'Include Material Description'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0094comm9 = 'Preferred language'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0095 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0096data: lMARA like MARA, lCABN like CABN, lCAWN like CAWN, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0097 lKSSK like KSSK, lKLAH like KLAH, lINOB like INOB, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0098 lKSML like KSML, lAUSP like AUSP, lT134T like T134T, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0099 lMAKT like MAKT. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0100 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0101 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0102 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0103data: nTotalRecords type i, nIndex type i. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0104 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0105data: fFloat type P decimals 4. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0106 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0107data: it_KSML type standard table of KSML initial size 0, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0108 it_CABN type standard table of CABN initial size 0, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0109 it_KSSK type standard table of KSSK initial size 0, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0110 it_KLAH type standard table of KLAH initial size 0. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0111 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0112types: begin of ClassReport, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0113 MATNR(18) type c, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0114 MAKTX like MAKT-MAKTX, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0115 MTART like MARA-MTART, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0116 XCHPF(5) type c, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0117 CLASS like KLAH-CLASS, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0118 KLART like KLAH-KLART, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0119 ATNAM like CABN-ATNAM, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0120 ATWRT like AUSP-ATWRT, C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0121 end of ClassReport. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0122data: wa_CR type ClassReport, it_CR type standard table of ClassReport C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0123 initial size 0. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0124 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0125 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0000__GLOBAL_DATA__ 0126 C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0001BGR00 GROUP 0001BGR00-GROUP = g_groupname. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0001BGR00 MANDT 0001BGR00-MANDT = SY-MANDT. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0001BGR00 NODATA 0001BGR00-NODATA = '/'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0001BGR00 START 0001BGR00-START = ''. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0001BGR00 STYPE 0001BGR00-STYPE = '0'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0001BGR00 USNAM 0001BGR00-USNAM = g_userid. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0001BGR00 XKEEP 0001BGR00-XKEEP = ''. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0001BGR00 __BEGIN_OF_RECORD__ 0001BGR00 = INIT_BGR00. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0001BGR00 __END_OF_RECORD__ 0001at_first_transfer_record. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0001BGR00 __END_OF_RECORD__ 0002if g_cnt_transactions_group = 5000. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0001BGR00 __END_OF_RECORD__ 0003 g_cnt_transactions_group = 0. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0001BGR00 __END_OF_RECORD__ 0004 transfer_record. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0001BGR00 __END_OF_RECORD__ 0005endif. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0002BMM00 STYPE 0001BMM00-STYPE = '1'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0002BMM00 __BEGIN_OF_RECORD__ 0001BMM00 = INIT_BMM00. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0002BMM00 __END_OF_RECORD__ 0001transfer_record. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0003BMMH1 STYPE 0001BMMH1-STYPE = '2'. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0003BMMH1 __BEGIN_OF_RECORD__ 0001BMMH1 = INIT_BMMH1. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0003BMMH1 __END_OF_RECORD__ 0001transfer_record. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0004BMMH2 __BEGIN_OF_RECORD__ 0001BMMH2 = INIT_BMMH2. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0004BMMH2 __END_OF_RECORD__ 0001transfer_record. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0005BMMH3 __BEGIN_OF_RECORD__ 0001BMMH3 = INIT_BMMH3. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0005BMMH3 __END_OF_RECORD__ 0001transfer_record. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0006BMMH4 __BEGIN_OF_RECORD__ 0001BMMH4 = INIT_BMMH4. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0006BMMH4 __END_OF_RECORD__ 0001transfer_record. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0007BMMH5 __BEGIN_OF_RECORD__ 0001BMMH5 = INIT_BMMH5. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0007BMMH5 __END_OF_RECORD__ 0001transfer_record. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0008BMMH6 __BEGIN_OF_RECORD__ 0001BMMH6 = INIT_BMMH6. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0008BMMH6 __END_OF_RECORD__ 0001transfer_record. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0009BMMH7 __BEGIN_OF_RECORD__ 0001BMMH7 = INIT_BMMH7. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0009BMMH7 __END_OF_RECORD__ 0001transfer_record. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0010BMMH8 __BEGIN_OF_RECORD__ 0001BMMH8 = INIT_BMMH8. C-KAUFFMAJ 20140226 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORTS 0010BMMH8 __END_OF_RECORD__ 0001transfer_record. C-KAUFFMAJ 20140226 /SAPDMC/LSOFIL SAPLSMW.COM MM REPORTS SPIRIT_V2A_MM_REPORTS.lsmw.read SPIRIT_V2A_MM_REPORTS.lsmw.conv /SAPDMC/LSOINP SAPLSMW.COM MM REPORTS 0001FEc:\temp\dummy.txt Dummy File 0000X 000000 X X X /SAPDMC/LSOINS SAPLSMW.COM MM REPORTS MM01S 0001 [Object Information] [Object ] : REPORT_TEXTS [Object Text ] : Report for material texts /SAPDMC/LSOTXT ESAPLSMW.COM MM REPORT_TEXTS Report for material texts /SAPDMC/LSOATT SAPLSMW.COM MM REPORT_TEXTS 0100200000 00000000V3-DMUSER-1 X C-KAUFFMAJ 20140226 /SAPDMC/LSOSTR SAPLSMW.COM MM REPORT_TEXTS MM02S struct 000101 00000000000000000000 /SAPDMC/LSOFLD SAPLSMW.COM MM REPORT_TEXTS MM02S DUMMY 0001C 010 /SAPDMC/LSOREL SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 MM02S 20120323V3-DMUSER-1 /SAPDMC/LSOREL SAPLSMW.COM MM REPORT_TEXTS 0002BMM00 MM02S 20120323V3-DMUSER-1 /SAPDMC/LSOREL SAPLSMW.COM MM REPORT_TEXTS 0003BMMH1 MM02S 20120323V3-DMUSER-1 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ ACV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_TRANSACTION__ ACV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0000__END_OF_TRANSACTION__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ ACV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 GROUP DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 MANDT DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 NODATA DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 START DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 STYPE DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 USNAM DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 XKEEP DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 __BEGIN_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 __END_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0002BMM00 STYPE DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0002BMM00 __BEGIN_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0002BMM00 __END_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0003BMMH1 STYPE DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0003BMMH1 __BEGIN_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0003BMMH1 __END_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0004BMMH2 __BEGIN_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0004BMMH2 __END_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0005BMMH3 __BEGIN_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0005BMMH3 __END_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0006BMMH4 __BEGIN_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0006BMMH4 __END_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0007BMMH5 __BEGIN_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0007BMMH5 __END_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0008BMMH6 __BEGIN_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0008BMMH6 __END_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0009BMMH7 __BEGIN_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0009BMMH7 __END_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0010BMMH8 __BEGIN_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSORUL SAPLSMW.COM MM REPORT_TEXTS 0010BMMH8 __END_OF_RECORD__ DFV3-DMUSER-1 20120328 00000000 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0001if p_break eq 'X'. break-point. endif. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0002if rSales eq 'X'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0003 cID = '0001'. cObject = 'MVKE'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0004 select * from MVKE into table it_MVKE V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0005 where MATNR in s_MATNR and VKORG in s_VKORG and VTWEG in s_VTWEG V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0006 order by MATNR VKORG VTWEG. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0007else. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0008 select MATNR from MARA into corresponding fields of table it_MVKE V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0009 where MATNR in s_MATNR order by MATNR. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0010* append lMVKE to it_MVKE. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0011* endselect. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0012 cID = 'BEST'. cObject = 'MATERIAL'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0013endif. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0014wa_Report-MATNR = 'MATNR'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0015wa_Report-MAKTX = 'MAKTX'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0016wa_Report-VKORG = 'VKORG'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0017wa_Report-VTWEG = 'VTWEG'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0018wa_Report-SPRAS = 'SPRAS'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0019wa_Report-Text = 'Text'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0020append wa_Report to it_Report. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0021 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0022loop at it_MVKE into lMVKE. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0023 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0024 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0025 if rSales eq 'X'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0026 concatenate lMVKE-MATNR lMVKE-VKORG lMVKE-VTWEG into lTDNAME. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0027 else. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0028 lTDNAME = lMVKE-MATNR. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0029 endif. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0030 select * from T002 into lT002 where SPRAS in s_SPRAS. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0031 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0032 CALL FUNCTION 'READ_TEXT' V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0033 EXPORTING V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0034 CLIENT = SY-MANDT V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0035 ID = cID V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0036 LANGUAGE = lT002-SPRAS "p_SPRAS V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0037 NAME = lTDNAME V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0038 OBJECT = cObject V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0039 TABLES V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0040 LINES = it_TLINE V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0041 EXCEPTIONS V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0042 ID = 1 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0043 OTHERS = 8. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0044 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0045 IF SY-SUBRC EQ 0. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0046 select single * from MAKT into lMAKT where MATNR eq lMVKE-MATNR. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0047 select single * from MAKT into lMAKT where MATNR eq lMVKE-MATNR V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0048 and SPRAS eq lT002-SPRAS. "p_SPRAS. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0049 wa_Report-MATNR = lMVKE-MATNR. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0050 wa_Report-MAKTX = lMAKT-MAKTX. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0051 wa_Report-VKORG = lMVKE-VKORG. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0052 wa_Report-VTWEG = lMVKE-VTWEG. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0053 wa_Report-SPRAS = lT002-SPRAS. "p_SPRAS. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0054 LOOP AT it_TLINE INTO wa_TLINE. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0055 wa_Report-TEXT = wa_TLINE-TDLINE. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0056 append wa_Report to it_Report. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0057 ENDLOOP. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0058 ENDIF. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0059 endselect. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0060endloop. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0061 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0062loop at it_Report into wa_Report. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0063 write: / wa_Report-MATNR, wa_Report-MAKTX, V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0064 wa_Report-VKORG, wa_Report-VTWEG, V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0065 wa_Report-SPRAS, wa_Report-Text. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0066endloop. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0067 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0068if p_Filenm ne ''. "Export to file! V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0069 CALL FUNCTION 'GUI_DOWNLOAD' V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0070 EXPORTING V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0071 FILENAME = p_filenm V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0072 FILETYPE = 'ASC' V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0073 APPEND = '' V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0074* CODEPAGE = 'IBM' V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0075 WRITE_FIELD_SEPARATOR = 'X' V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0076 HEADER = '00' V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0077 TRUNC_TRAILING_BLANKS = 'X' V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0078 TABLES V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0079 DATA_TAB = it_Report V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0080 EXCEPTIONS V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0081 FILE_WRITE_ERROR = 1 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0082 OTHERS = 2. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0083endif. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0084 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0085 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0086 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0087 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0088 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0089 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0090 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0091 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0092 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_PROCESSING__ 0093 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__BEGIN_OF_TRANSACTION__ 0001skip_transaction. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__END_OF_TRANSACTION__ 0001transfer_transaction. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0001tables: mara, mvke, T002. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0002SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE btext1. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0003 SELECT-OPTIONS: s_matnr FOR mara-matnr, "Material Number V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0004 s_vkorg FOR mvke-vkorg, "Sales Organization V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0005 s_vtweg FOR mvke-vtweg, "Distribution Channel V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0006 s_SPRAS for T002-SPRAS. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0007 selection-screen begin of line. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0008 PARAMETERS: rSales radiobutton group r1 default 'X'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0009 selection-screen comment 3(50) comms. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0010 selection-screen end of line. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0011 selection-screen begin of line. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0012 PARAMETERS: rPurch radiobutton group r1. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0013 selection-screen comment 3(50) commp. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0014 selection-screen end of line. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0015SELECTION-SCREEN END OF BLOCK B1. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0016SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE btext2. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0017 parameters p_break as checkbox. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0018SELECTION-SCREEN END OF BLOCK B2. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0019selection-screen begin of block bfile with frame title bfile1. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0020 selection-screen begin of line. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0021 selection-screen comment 1(10) commf. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0022 PARAMETERS: p_filenm type string. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0023 selection-screen end of line. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0024 selection-screen begin of line. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0025 selection-screen comment 1(60) commf2. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0026 selection-screen end of line. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0027selection-screen end of block bfile. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0028 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0029 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0030 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0031 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0032initialization. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0033btext1 = 'Report parameters'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0034comms = 'Sales Texts'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0035commp = 'Purchase Order Texts'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0036btext2 = 'Testing tools'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0037bfile1 = 'Export to file'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0038commf = 'Filename:'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0039commf2 = 'The filename is optional.'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0040 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0041 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0042data: it_MVKE type standard table of MVKE initial size 0. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0043data: lMVKE like MVKE, lMAKT like MAKT, lT002 like T002, V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0044 lTDNAME like THEAD-TDNAME, V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0045 it_TLINE type standard table of TLINE, V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0046 wa_TLINE type TLINE, lText type string. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0047 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0048types: begin of i_Report, V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0049 MATNR(18) type c, V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0050 MAKTX like MAKT-MAKTX, V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0051 VKORG(5) type c, V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0052 VTWEG(5) type c, V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0053 SPRAS(2) type c, V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0054 Text type string, V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0055 end of i_Report. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0056data: wa_Report type i_Report, V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0057 it_Report type standard table of i_Report initial size 0. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0058data: cID(4) type c, cObject(10) type c. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0059 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0060 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0061 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0062 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0063 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0064 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0000__GLOBAL_DATA__ 0065 V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 GROUP 0001BGR00-GROUP = g_groupname. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 MANDT 0001BGR00-MANDT = SY-MANDT. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 NODATA 0001BGR00-NODATA = '/'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 START 0001BGR00-START = ''. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 STYPE 0001BGR00-STYPE = '0'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 USNAM 0001BGR00-USNAM = g_userid. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 XKEEP 0001BGR00-XKEEP = ''. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 __BEGIN_OF_RECORD__ 0001BGR00 = INIT_BGR00. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 __END_OF_RECORD__ 0001at_first_transfer_record. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 __END_OF_RECORD__ 0002if g_cnt_transactions_group = 5000. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 __END_OF_RECORD__ 0003 g_cnt_transactions_group = 0. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 __END_OF_RECORD__ 0004 transfer_record. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0001BGR00 __END_OF_RECORD__ 0005endif. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0002BMM00 STYPE 0001BMM00-STYPE = '1'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0002BMM00 __BEGIN_OF_RECORD__ 0001BMM00 = INIT_BMM00. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0002BMM00 __END_OF_RECORD__ 0001transfer_record. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0003BMMH1 STYPE 0001BMMH1-STYPE = '2'. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0003BMMH1 __BEGIN_OF_RECORD__ 0001BMMH1 = INIT_BMMH1. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0003BMMH1 __END_OF_RECORD__ 0001transfer_record. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0004BMMH2 __BEGIN_OF_RECORD__ 0001BMMH2 = INIT_BMMH2. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0004BMMH2 __END_OF_RECORD__ 0001transfer_record. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0005BMMH3 __BEGIN_OF_RECORD__ 0001BMMH3 = INIT_BMMH3. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0005BMMH3 __END_OF_RECORD__ 0001transfer_record. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0006BMMH4 __BEGIN_OF_RECORD__ 0001BMMH4 = INIT_BMMH4. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0006BMMH4 __END_OF_RECORD__ 0001transfer_record. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0007BMMH5 __BEGIN_OF_RECORD__ 0001BMMH5 = INIT_BMMH5. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0007BMMH5 __END_OF_RECORD__ 0001transfer_record. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0008BMMH6 __BEGIN_OF_RECORD__ 0001BMMH6 = INIT_BMMH6. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0008BMMH6 __END_OF_RECORD__ 0001transfer_record. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0009BMMH7 __BEGIN_OF_RECORD__ 0001BMMH7 = INIT_BMMH7. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0009BMMH7 __END_OF_RECORD__ 0001transfer_record. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0010BMMH8 __BEGIN_OF_RECORD__ 0001BMMH8 = INIT_BMMH8. V3-DMUSER-1 20120328 /SAPDMC/LSOCOD SAPLSMW.COM MM REPORT_TEXTS 0010BMMH8 __END_OF_RECORD__ 0001transfer_record. V3-DMUSER-1 20120328 /SAPDMC/LSOFIL SAPLSMW.COM MM REPORT_TEXTS SPIRIT_V2A_MM_REPORT_TEXTS.lsmw.read SPIRIT_V2A_MM_REPORT_TEXTS.lsmw.conv /SAPDMC/LSOINP SAPLSMW.COM MM REPORT_TEXTS 0001FEc:\temp\dummy.txt dummy 0000X 000000 XX X /SAPDMC/LSOINS SAPLSMW.COM MM REPORT_TEXTS MM02S 0001 [Subproject Information] [Subproject ] : SD [Subproject Text ] : Sales and Distribution /SAPDMC/LSGSUB SAPLSMW.COM SD C-KAUFFMAJ 20140226 /SAPDMC/LSGSUBT ESAPLSMW.COM SD Sales and Distribution [Documentation ]