[Legacy System Migration Workbench] LSMW Version Number : 4.0.0 LSMW Version Date : 2004-08-31 R/3 Installation Number : 0020621062 R/3 System Id : D1E R/3 Release : 702 R/3 Client : 100 R/3 Operating System : Linux R/3 Database System : ORACLE R/3 Hostname : unsapd1e User Id : JKAUFFMANN Date : 2013-02-12 Time : 07:38:58 Local Date : 2013-02-12 Local Time : 07:38:58 Local Timezone : CET [Project Information] [Project Name ] : UMOJA [Project Text ] : Umoja SAP Implementation /SAPDMC/LSGPRO UMOJA JKAUFFMANN 20121129 /SAPDMC/LSGPROT EUMOJA Umoja SAP Implementation [Recordings] [Recording ] : SETS [Recording Text ] : Append data to Set /SAPDMC/LSGBDC UMOJA SETS 0001 0000TFM_SETS_FIPEX1 0000000000 000000000000000000 /SAPDMC/LSGBDC UMOJA SETS 0002SAPLKKHI 1003X 0000000000 000000000000000000 /SAPDMC/LSGBDC UMOJA SETS 0003 0000 BDC_OKCODE /EIMP 0000000000 000000000000000000 /SAPDMC/LSGBDC UMOJA SETS 0004 0000 BDC_CURSOR GRPDYNP-FIKRS 0000000000 000000000000000000 /SAPDMC/LSGBDC UMOJA SETS 0005RGSSTI00 1000X 0000000000 000000000000000000 /SAPDMC/LSGBDC UMOJA SETS 0006 0000 BDC_CURSOR OUTFILE 0000000000 000000000000000000 /SAPDMC/LSGBDC UMOJA SETS 0007 0000 BDC_OKCODE =ONLI 0000000000 000000000000000000 /SAPDMC/LSGBDC UMOJA SETS 0008 0000 WS_FLAG X WS_FLAG WS_FLAG 0000000000 000001000001000001CHARC /SAPDMC/LSGBDC UMOJA SETS 0009 0000 OUTFILE C:\un\TESTLOADFILE.TXT FILENAME OUTFILE 0000000000 000128000128000128CHARC /SAPDMC/LSGBDC UMOJA SETS 0010SAPMSSY0 0120X 0000000000 000000000000000000 /SAPDMC/LSGBDC UMOJA SETS 0011 0000 BDC_OKCODE =BACK 0000000000 000000000000000000 /SAPDMC/LSGBDC UMOJA SETS 0012RGSSTI00 1000X 0000000000 000000000000000000 /SAPDMC/LSGBDC UMOJA SETS 0013 0000 BDC_OKCODE /EE 0000000000 000000000000000000 /SAPDMC/LSGBDC UMOJA SETS 0014 0000 BDC_CURSOR OUTFILE 0000000000 000000000000000000 /SAPDMC/LSGBDC UMOJA SETS 0015SAPLKKHI 1003X 0000000000 000000000000000000 /SAPDMC/LSGBDC UMOJA SETS 0016 0000 BDC_OKCODE /EBCK 0000000000 000000000000000000 /SAPDMC/LSGBDC UMOJA SETS 0017 0000 BDC_CURSOR GRPDYNP-FIKRS 0000000000 000000000000000000 /SAPDMC/LSGBDCA UMOJA SETS FM_SETS_FIPEX1 JKAUFFMANN JKAUFFMANN 20121211 /SAPDMC/LSGBDCS UMOJA SETS 01 /SAPDMC/LSGBDCT EUMOJA SETS Append data to Set [Subproject Information] [Subproject ] : MISC [Subproject Text ] : Miscellaneous /SAPDMC/LSGSUB UMOJA MISC JKAUFFMANN 20121129 /SAPDMC/LSGSUBT EUMOJA MISC Miscellaneous [Object Information] [Object ] : GROUP_LOADER [Object Text ] : Create an import file for a group /SAPDMC/LSOTXT EUMOJA MISC GROUP_LOADER Create an import file for a group /SAPDMC/LSOATT UMOJA MISC GROUP_LOADER 02 00000032JKAUFFMANN X JKAUFFMANN 20121207 /SAPDMC/LSOSTR UMOJA MISC GROUP_LOADER GROUPS Source 000101 00000000000000000000 /SAPDMC/LSOFLD UMOJA MISC GROUP_LOADER GROUPS DESCRIPTION 0003C 040Description /SAPDMC/LSOFLD UMOJA MISC GROUP_LOADER GROUPS ISGROUP 0005C 001Is a Group? /SAPDMC/LSOFLD UMOJA MISC GROUP_LOADER GROUPS ITEM 0002C 030Item /SAPDMC/LSOFLD UMOJA MISC GROUP_LOADER GROUPS PARENT 0004C 030Parent /SAPDMC/LSOFLD UMOJA MISC GROUP_LOADER GROUPS SUBCLASS 0001C 004FM Area /SAPDMC/LSOFLD UMOJA MISC GROUP_LOADER GROUPS VALUETO 0006C 020 /SAPDMC/LSOREL UMOJA MISC GROUP_LOADER 0001SETS GROUPS 20121215JKAUFFMANN /SAPDMC/LSORUL UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ ACJKAUFFMANN 20130212 00000000 /SAPDMC/LSORUL UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ ACJKAUFFMANN 20130212 00000000 /SAPDMC/LSORUL UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ ACJKAUFFMANN 20130212 00000000 /SAPDMC/LSORUL UMOJA MISC GROUP_LOADER 0000__END_OF_TRANSACTION__ DFJKAUFFMANN 20130212 00000000 /SAPDMC/LSORUL UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ ACJKAUFFMANN 20130212 00000000 /SAPDMC/LSORUL UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ ACJKAUFFMANN 20130212 00000000 /SAPDMC/LSORUL UMOJA MISC GROUP_LOADER 0001SETS FILENAME ACJKAUFFMANN 20130212 00000000 /SAPDMC/LSORUL UMOJA MISC GROUP_LOADER 0001SETS TABNAME DFJKAUFFMANN 20130212 00000000 /SAPDMC/LSORUL UMOJA MISC GROUP_LOADER 0001SETS TCODE DFJKAUFFMANN 20130212 00000000 /SAPDMC/LSORUL UMOJA MISC GROUP_LOADER 0001SETS WS_FLAG ACJKAUFFMANN 20130212 00000000 /SAPDMC/LSORUL UMOJA MISC GROUP_LOADER 0001SETS __BEGIN_OF_RECORD__ DFJKAUFFMANN 20130212 00000000 /SAPDMC/LSORUL UMOJA MISC GROUP_LOADER 0001SETS __END_OF_RECORD__ DFJKAUFFMANN 20130212 00000000 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0001if p_break eq 'X'. break-point. endif. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0002if r_group1 eq 'X'. "Commitment group. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0003 write: / '*** Processing data for Commitment Group. ***' color 7. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0004 l_SCLASS = '0311'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0005 l_TNAME = 'FMIT'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0006 l_FNAME = 'RFIPEX'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0007elseif r_group2 eq 'X'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0008 write: / '*** Processing data for Funded Program Group. ***' color 7. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0009 l_SCLASS = '0315'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0010 l_TNAME = 'FMIT'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0011 l_FNAME = 'RMEASURE'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0012elseif r_group3 eq 'X'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0013 write: / '*** Processing data for Funds Center Group. ***' color 7. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0014 l_SCLASS = '0312'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0015 l_TNAME = 'FMIT'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0016 l_FNAME = 'RFISTL'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0017else. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0018 write: / 'No Group type has been selected for processing.' color 6. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0019 write: / 'Please select a Group type on previous screen. ' color 6. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0020 exit. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0021endif. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0022 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0023 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0024 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0025 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0026 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0027 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0028 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0029 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0030 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0031 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_PROCESSING__ 0032 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0001 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0002 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0003 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0004 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0005 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0006 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0007 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0008 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0009 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0010 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0011 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0012 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0013 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0014 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0015 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0016 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0017 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0018 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0019 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0020 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0021 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0022 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0023 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0024 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0025 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0026 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0027 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0028 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0029*isAdded = ''. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0030*loop at it_SETNODE into wa_SETNODE where SETNAME = wa_SETLEAF-SETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0031* isAdded = ''. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0032*endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0033 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0034 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0035 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0036 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0037 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0038 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0039 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0040 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0041 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0042 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0043 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0044 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0045 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__BEGIN_OF_TRANSACTION__ 0046 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0001if cIsExported ne 'X'. "Did not encouter an Item record... JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0002 uline. write: 'The source data has no Item records.' color 6, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0003 'No transactions were created. Check source file.' color 6. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0004 uline. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0005endif. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0006loop at it_SETHEADER into lSETHEADER. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0007 clear wa_ExportFile. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0008 wa_Exportfile-Dataline = JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0009 'R702 Import file creation tool written by Jim Kauffman'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0010 append wa_Exportfile to it_Exportfile. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0011 loop at it_SETNODE into wa_SETNODE JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0012 where SETNAME eq lSETHEADER-SETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0013 loop at it_SETNODE into wa_SETNODE1 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0014 where SETNAME eq wa_SETNODE-SUBSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0015 loop at it_SETNODE into wa_SETNODE2 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0016 where SETNAME eq wa_SETNODE1-SUBSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0017 loop at it_SETNODE into wa_SETNODE3 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0018 where SETNAME eq wa_SETNODE2-SUBSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0019 loop at it_SETNODE into wa_SETNODE4 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0020 where SETNAME eq wa_SETNODE3-SUBSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0021 loop at it_SETNODE into wa_SETNODE5 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0022 where SETNAME eq wa_SETNODE4-SUBSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0023 perform ShowNode using wa_SETNODE5-subSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0024 endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0025 perform ShowNode using wa_SETNODE4-subSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0026 endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0027 perform ShowNode using wa_SETNODE3-subSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0028 endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0029 perform ShowNode using wa_SETNODE2-subSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0030 endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0031 perform ShowNode using wa_SETNODE1-subSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0032 endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0033 perform ShowNode using wa_SETNODE-subSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0034 endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0035 perform ShowNode using lSETHEADER-SETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0036 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0037 wa_Exportfile-Dataline = 'X'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0038 append wa_Exportfile to it_Exportfile. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0039 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0040 concatenate p_Folder '\' lSETHEADER-SETNAME '.txt' into cFileName. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0041 replace '/' with '_' into cFilename. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0042 CALL FUNCTION 'GUI_DOWNLOAD' JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0043 EXPORTING JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0044 FILENAME = cFileName JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0045 FILETYPE = 'ASC' JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0046 APPEND = '' JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0047 WRITE_FIELD_SEPARATOR = 'X' JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0048 HEADER = '00' JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0049 TRUNC_TRAILING_BLANKS = 'X' JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0050 TABLES JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0051 DATA_TAB = it_ExportFile JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0052 EXCEPTIONS JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0053 FILE_WRITE_ERROR = 1 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0054 OTHERS = 2. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_PROCESSING__ 0055endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__END_OF_TRANSACTION__ 0001transfer_transaction. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0001form AddHeader. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0002 data: lvIsAdded(1) type c. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0003 lvIsAdded = ''. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0004 loop at it_SETHEADER into lSETHEADER where SETNAME eq GROUPS-ITEM. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0005 lvIsAdded = 'X'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0006 skip_transaction. "Don't want to import this file more than once. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0007 endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0008 lSETHEADER-SETNAME = GROUPS-ITEM. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0009 lSETHEADER-SETCLASS = l_SCLASS. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0010 lSETHEADER-SUBCLASS = GROUPS-SUBCLASS. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0011 lSETHEADER-RVALUE = GROUPS-DESCRIPTION. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0012 lSETHEADER-SETTYPE = 'S'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0013 lSETHEADER-TABNAME = l_TNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0014 lSETHEADER-FIELDNAME = l_FNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0015 if lvIsAdded ne 'X'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0016 append lSETHEADER to it_SETHEADER. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0017 endif. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0018endform. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0019 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0020form RemoveHeader. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0021 "This function removes headers for subgroups. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0022 delete it_SETHEADER where SETNAME eq GROUPS-ITEM. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0023endform. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0024 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0025form AddDescription using lvSETNAME lvDESCRIPT. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0026 wa_SETHEADERT-SETNAME = lvSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0027 wa_SETHEADERT-DESCRIPT = lvDESCRIPT. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0028 append wa_SETHEADERT to it_SETHEADERT. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0029endform. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0030 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0031form AddNode using lvSETNAME lvSUBSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0032 data: lvIsAdded(1) type c. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0033 lvIsAdded = ''. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0034 loop at it_SETNODE into wa_SETNODE WHERE SUBSETNAME eq lvSUBSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0035 lvIsAdded = 'X'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0036 endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0037 if lvIsAdded ne 'X'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0038 wa_SETNODE-SETNAME = lvSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0039 wa_SETNODE-SUBSETNAME = lvSUBSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0040 append wa_SETNODE to it_SETNODE. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0041 endif. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0042endform. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0043 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0044Form AddLeaf using lvSETNAME lvVFrom lvVTo. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0045 data: lvLINEID type i. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0046 lvLINEID = 1. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0047 loop at it_SETLEAF into wa_SETLEAF where SETNAME eq lvSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0048 add 1 to lvLINEID. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0049 endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0050 wa_SETLEAF-SETNAME = lvSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0051 wa_SETLEAF-VALFROM = lvVFROM. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0052 if lvVTO ne ''. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0053 wa_SETLEAF-VALTO = lvVTO. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0054 else. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0055 wa_SETLEAF-VALTO = lvVFROM. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0056 endif. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0057 wa_SETLEAF-LINEID = lvLINEID. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0058 append wa_SETLEAF to it_SETLEAF. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0059endform. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0060 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0061form ShowNode using lvSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0062 data: lvLineID type i, lvcLineID(10) type c, lv_SETNODE like SETNODE, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0063 lv_SETLEAF like SETLEAF, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0064 lvSETTYPE like SETHEADER-SETTYPE, lvDATALINE(498) type c. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0065 lvSETTYPE = 'B'. "Basic set JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0066 loop at it_SETNODE into lv_SETNODE where SETNAME eq lvSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0067 lvSETTYPE = 'S'. "Single Dimensional (with sub-groups) JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0068 endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0069* concatenate lSETHEADER-SETCLASS lSETHEADER-SUBCLASS lvSETNAME JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0070* into lvDATALINE. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0071* shift lvDATALINE by 7 places right. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0072 lvDATALINE = ''. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0073 lvDATALINE+0(5) = 'HSTSO'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0074 lvDATALINE+7(4) = lSETHEADER-SETCLASS. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0075 lvDATALINE+11(4) = lSETHEADER-SUBCLASS. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0076 lvDATALINE+15(20) = lvSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0077* write: / lvDATALINE. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0078 wa_Exportfile-Dataline = lvDATALINE. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0079 append wa_Exportfile to it_Exportfile. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0080 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0081 lvDATALINE = ''. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0082 lvDATALINE+0(6) = ' STSHD'. "Header JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0083 lvDATALINE+7(4) = lSETHEADER-SETCLASS. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0084 lvDATALINE+11(4) = lSETHEADER-SUBCLASS. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0085 lvDATALINE+15(20) = lvSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0086 lvDataLine+41(1) = lvSETTYPE. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0087 lvDATALINE+42(30) = lSETHEADER-TABNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0088 lvDATALINE+72(30) = lSETHEADER-FIELDNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0089 lvDATALINE+150(1) = 'X'. "Probably the "Unique Values" flag. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0090* write: / lvDataline. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0091 wa_Exportfile-Dataline = lvDATALINE. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0092 append wa_Exportfile to it_Exportfile. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0093 lvLineID = 0. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0094* if lvSETNAME eq lSETHEADER-SETNAME. "Starts at 2. Who knows why? JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0095* lvLineID = 1. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0096* endif. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0097 loop at it_SETLEAF into lv_SETLEAF where SETNAME eq lvSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0098 add 1 to lvLineID. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0099 lvcLineID = lvLineID. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0100 shift lvcLineID right deleting trailing space. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0101 overlay lvcLineID with '0000000000'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0102 lvDATALINE = ''. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0103 lvDATALINE+0(6) = ' STSBS'. "Items JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0104 lvDATALINE+7(20) = lv_SETLEAF-VALFROM. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0105 lvDATALINE+47(20) = lv_SETLEAF-VALTO. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0106 lvDATALINE+99(10) = lvcLineID. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0107 lvDATALINE+109(4) = '0000'. "Unknown variable. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0108* write: / lvDATALINE. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0109 wa_Exportfile-Dataline = lvDATALINE. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0110 append wa_Exportfile to it_Exportfile. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0111 endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0112 loop at it_SETNODE into lv_SETNODE where SETNAME eq lvSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0113 add 1 to lvLineID. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0114 lvcLineID = lvLineID. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0115 shift lvcLineID right deleting trailing space. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0116 overlay lvcLineID with '0000000000'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0117 lvDATALINE = ''. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0118 lvDATALINE+0(6) = ' STSSG'. "Subgroup JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0119 lvDATALINE+7(4) = lSETHEADER-SETCLASS. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0120 lvDATALINE+11(4) = lSETHEADER-SUBCLASS. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0121 lvDATALINE+15(20) = lv_SETNODE-SUBSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0122 lvDATALINE+52(10) = lvcLineID. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0123* write: / lvDATALINE. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0124 wa_Exportfile-Dataline = lvDATALINE. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0125 append wa_Exportfile to it_Exportfile. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0126 endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0127 lvDATALINE = ''. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0128 lvDATALINE+0(6) = ' T800Y'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0129 lvDATALINE+7(1) = 'E'. "English JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0130 loop at it_SETHEADERT into wa_SETHEADERT where SETNAME eq lvSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0131 lvDATALINE+8(40) = wa_SETHEADERT-DESCRIPT. "lvDescription. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0132 endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0133 wa_Exportfile-Dataline = lvDATALINE. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0134 append wa_Exportfile to it_Exportfile. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0135 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0136 lvDATALINE = 'E'. "English JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0137 wa_Exportfile-Dataline = lvDATALINE. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0138 append wa_Exportfile to it_Exportfile. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0139 write: / lvSETNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0140endform. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0141 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0142form CheckName changing lvName. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0143 data: lvLength type i. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0144 lvLength = strlen( lvName ). JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0145 if lvLength gt 10. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0146 Write: / JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0147 'This group name must be reduced to 10 characters or fewer:', JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0148 lvName color col_negative. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0149 cIsExported = 'X'. "Don't export anything! JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0150 endif. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0151endform. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0152 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0153 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0154 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0155 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0156 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0157 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0158 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0159 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0160 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0161 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0162 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0163 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0164 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0165 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0166 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0167 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0168 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__FORM_ROUTINES__ 0169 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0001selection-screen begin of block bfile with frame title btitle1. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0002 selection-screen begin of line. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0003 selection-screen comment 3(17) comfile. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0004 PARAMETERS: p_Folder type String default 'c:\temp'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0005 selection-screen end of line. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0006selection-screen end of block bfile. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0007selection-screen begin of block bparams with frame title btitle2. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0008 selection-screen begin of line. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0009 Parameters: r_group0 radiobutton group rgrp. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0010 selection-screen comment 3(60) comgrp0. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0011 selection-screen end of line. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0012 selection-screen begin of line. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0013 Parameters: r_group1 radiobutton group rgrp. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0014 selection-screen comment 3(60) comgrp1. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0015 selection-screen end of line. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0016 selection-screen begin of line. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0017 Parameters: r_group2 radiobutton group rgrp. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0018 selection-screen comment 3(60) comgrp2. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0019 selection-screen end of line. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0020 selection-screen begin of line. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0021 Parameters: r_group3 radiobutton group rgrp. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0022 selection-screen comment 3(60) comgrp3. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0023 selection-screen end of line. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0024selection-screen end of block bparams. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0025selection-screen begin of block bbreak with frame title btitle3. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0026 selection-screen begin of line. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0027 PARAMETERS: p_Ignore as CHECKBOX. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0028 selection-screen comment 3(70) comignor. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0029 selection-screen end of line. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0030 selection-screen begin of line. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0031 PARAMETERS: p_Break as CHECKBOX. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0032 selection-screen comment 3(60) combreak. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0033 selection-screen end of line. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0034selection-screen end of block bbreak. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0035initialization. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0036btitle1 = 'Filename for exporting the Group Import file'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0037btitle2 = 'Parameters'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0038btitle3 = 'Testing tools'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0039comignor = JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0040 'Ignore 10-character Group name limitation--for test purposes only!'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0041combreak = 'Launch debugger for testing purposes.'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0042comfile = 'Temporary Folder:'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0043*comsclas = 'FM Area:'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0044*comtab = 'Table Name:'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0045*comfield = 'Field Name:'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0046*comtrunc = 'Truncate to 10 characters.'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0047comgrp0 = 'No Group type selected. Please select a Group type below.'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0048comgrp1 = 'Commitment Group (0311,RFIPEX)'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0049comgrp2 = 'Funded Program Group (0315,RMEASURE)'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0050comgrp3 = 'Funds Center Group (0312,RFISTL)'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0051*comgrp4 = 'Put new group name here.'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0052 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0053data: l_SCLASS like SETHEADER-SETCLASS, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0054 l_TNAME like SETHEADER-TABNAME, l_FNAME like SETHEADER-FIELDNAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0055 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0056data: it_SETHEADER type standard table of SETHEADER initial size 0, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0057 lSETHEADER like SETHEADER, cFilename type string. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0058data: isAdded(1) type c, nLineID type i, cIsExported(1) type c. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0059data: wa_SETLEAF like SETLEAF, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0060 it_SETLEAF type standard table of SETLEAF initial size 0, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0061 wa_SETNODE like SETNODE, wa_SETNODE1 like SETNODE, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0062 wa_SETNODE2 like SETNODE, wa_SETNODE3 like SETNODE, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0063 wa_SETNODE4 like SETNODE, wa_SETNODE5 like SETNODE, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0064 it_SETNODE type standard table of SETNODE initial size 0, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0065 wa_SETHEADERT like SETHEADERT, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0066 it_SETHEADERT type standard table of SETHEADERT initial size 0. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0067 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0068types: JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0069 begin of exportfile, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0070 DataLine(498) type c, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0071 end of exportfile. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0072data: JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0073 wa_ExportFile type exportfile, JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0074 it_ExportFile type standard table of exportfile initial size 0. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0075 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0076 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0077 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0078 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0079 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0080 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0081 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0082 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0000__GLOBAL_DATA__ 0083 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0001translate GROUPS-ITEM to UPPER CASE. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0002translate GROUPS-PARENT to UPPER CASE. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0003 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0004 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0005if GROUPS-ISGROUP eq 'X' and p_Ignore ne 'X'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0006 perform CheckName changing GROUPS-ITEM. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0007 perform CheckName changing GROUPS-PARENT. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0008endif. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0009 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0010 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0011if GROUPS-ISGROUP eq 'X'. "HEADER! JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0012 perform AddDescription using GROUPS-ITEM GROUPS-DESCRIPTION. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0013 if GROUPS-PARENT eq ''. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0014 perform AddHeader. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0015 concatenate p_folder '\' lSETHEADER-SETNAME '.txt' JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0016 into SETS-FILENAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0017 replace '/' with '_' into SETS-FILENAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0018 else. "Subgroup... JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0019 perform RemoveHeader. "This is a child group--not a header. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0020 perform AddNode using GROUPS-PARENT GROUPS-ITEM. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0021 endif. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0022else. "Item... JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0023 perform AddLeaf using GROUPS-PARENT GROUPS-ITEM GROUPS-VALUETO. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0024endif. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0025 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0026if cIsExported ne 'X' and GROUPS-ISGROUP ne 'X'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0027 "This loop is performed after the headers are ratified. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0028 cIsExported = 'X'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0029 loop at it_SETHEADER into lSETHEADER. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0030 concatenate p_folder '\' lSETHEADER-SETNAME '.txt' JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0031 into SETS-FILENAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0032 replace '/' with '_' into SETS-FILENAME. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0033 transfer_record. transfer_transaction. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0034 endloop. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0035endif. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0036skip_transaction. "Skip every transaction--process at end. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0037 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0038 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0039 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0040 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS FILENAME 0041 JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS TABNAME 0001SETS-TABNAME = 'SETS'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS TCODE 0001SETS-TCODE = 'FM_SETS_FIPEX1'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS WS_FLAG 0001SETS-WS_FLAG = 'X'. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS __BEGIN_OF_RECORD__ 0001SETS = INIT_SETS. JKAUFFMANN 20130212 /SAPDMC/LSOCOD UMOJA MISC GROUP_LOADER 0001SETS __END_OF_RECORD__ 0001transfer_record. JKAUFFMANN 20130212 /SAPDMC/LSOFIL UMOJA MISC GROUP_LOADER UMOJA_MISC_FIPEX_COMMIT.lsmw.read UMOJA_MISC_FIPEX_COMMIT.lsmw.conv /SAPDMC/LSOINP UMOJA MISC GROUP_LOADER 0001FEC:\un\groups.txt Groups 0000X 000000 X X XX /SAPDMC/LSOINS UMOJA MISC GROUP_LOADER GROUPS 0001 /SAPDMC/LSOPAR UMOJA MISC GROUP_LOADER FROMLINE_CONV 0000000000 /SAPDMC/LSOPAR UMOJA MISC GROUP_LOADER FROMLINE_READ 0000000000 /SAPDMC/LSOPAR UMOJA MISC GROUP_LOADER TOLINE_CONV 0000000000 /SAPDMC/LSOPAR UMOJA MISC GROUP_LOADER TOLINE_READ 0000000000 /SAPDMC/LSOPAR UMOJA MISC GROUP_LOADER AJENES WILDCARDVALUE /SAPDMC/LSOPAR UMOJA MISC GROUP_LOADER AKULKARNI WILDCARDVALUE /SAPDMC/LSOPAR UMOJA MISC GROUP_LOADER ASHILESH WILDCARDVALUE /SAPDMC/LSOPAR UMOJA MISC GROUP_LOADER JKAUFFMANN WILDCARDVALUE /SAPDMC/LSOPAR UMOJA MISC GROUP_LOADER JKHEMANI WILDCARDVALUE /SAPDMC/LSOPAR UMOJA MISC GROUP_LOADER KPATHAK WILDCARDVALUE /SAPDMC/LSOREC UMOJA MISC GROUP_LOADER 0001SETS [Subproject Information] [Subproject ] : MM [Subproject Text ] : Material Master /SAPDMC/LSGSUB UMOJA MM JKAUFFMANN 20121207 /SAPDMC/LSGSUBT EUMOJA MM Material Master [Subproject Information] [Subproject ] : SD [Subproject Text ] : Sales and Distribution /SAPDMC/LSGSUB UMOJA SD JKAUFFMANN 20121207 /SAPDMC/LSGSUBT EUMOJA SD Sales and Distribution [Documentation ]