topic Re: urgent!!!! conversions....... in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/urgent-conversions/m-p/1978644#M400670 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P>Sample program to upload T558B table: Similarly you may do for others:</P><P>REPORT ZP558B MESSAGE-ID ZP.</P><P></P><UL><LI level="1" type="ul"><P>changed by Hemang to use SSN instead of PERNR</P></LI></UL><P>TABLES :T558B . " payroll periods for each personnal no</P><P>TABLES :PA0002. " HR master rec it 00002 - 2 find pernr based on ssn</P><P>PARAMETERS : FT558B LIKE RLGRAP-FILENAME DEFAULT'C:\558b.TXT'.</P><P></P><P>DATA: BEGIN OF ITABTT5B OCCURS 0,</P><P> PERNR1(9), "SSN</P><P> PAYDT1(10) , FPBEG1(10), FPEND1(10).</P><P> INCLUDE STRUCTURE T558B.</P><P></P><P>DATA :END OF ITABTT5B.</P><P></P><P>DATA: DELIMITER TYPE X VALUE'09', ERR(50).</P><P></P><P>PERFORM UPLOAD_T558B USING FT558B ERR.</P><P>PERFORM APPEND.</P><P></P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> FORM UPLOAD_T558B *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> ........ *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --&gt; FT558B *</P></LI><LI level="1" type="ul"><P> --&gt; ERR *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM UPLOAD_T558B USING FT558B ERR.</P><P></P><P> DATA: BEGIN OF ITAB OCCURS 0,</P><P> FILE1(8192),</P><P> END OF ITAB.</P><P> CALL FUNCTION 'WS_UPLOAD'</P><P> EXPORTING</P><P> FILENAME = FT558B</P><P> FILETYPE = 'ASC'</P><P> TABLES</P><P> DATA_TAB = ITAB</P><P> EXCEPTIONS</P><P> UNKNOWN_ERROR = 7</P><P> OTHERS = 8.</P><P> PERFORM CHECK_ERROR USING SY-SUBRC ERR.</P><P></P><P> DATA : T." Used to store junk (tab) char if any ...</P><P> LOOP AT ITAB.</P><P></P><P> SPLIT ITAB-FILE1 AT DELIMITER INTO</P><P>ITABTT5B-PERNR1 ITABTT5B-SEQNR ITABTT5B-PAYTY ITABTT5B-PAYID</P><P>ITABTT5B-PAYDT1 ITABTT5B-PERMO ITABTT5B-PABRJ ITABTT5B-PABRP</P><P>ITABTT5B-FPBEG1 ITABTT5B-FPEND1 T.</P><P></P><P>CONCATENATE ITABTT5B-PAYDT1+6(4)</P><P> ITABTT5B-PAYDT1+0(2)</P><P> ITABTT5B-PAYDT1+3(2) INTO ITABTT5B-PAYDT.</P><P>CONCATENATE ITABTT5B-FPBEG1+6(4)</P><P> ITABTT5B-FPBEG1+0(2)</P><P> ITABTT5B-FPBEG1+3(2) INTO ITABTT5B-FPBEG.</P><P>CONCATENATE ITABTT5B-FPEND1+6(4)</P><P> ITABTT5B-FPEND1+0(2)</P><P> ITABTT5B-FPEND1+3(2) INTO ITABTT5B-FPEND.</P><P>IF ITABTT5B-PERNR1 NE SPACE.</P><P> APPEND ITABTT5B.</P><P>ENDIF.</P><P> ENDLOOP.</P><P>ENDFORM.</P><P></P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> FORM APPEND *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> ........ *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM APPEND.</P><P></P><P></P><P> LOOP AT ITABTT5B.</P><P> SELECT SINGLE * FROM PA0002 WHERE PERID = ITABTT5B-PERNR1.</P><P> IF SY-SUBRC NE 0.</P><P> WRITE <span class="lia-unicode-emoji" title=":confused_face:">😕</span> 'No employee with SSN:', ITABTT5B-PERNR.</P><P> ELSE.</P><P> T558B-PERNR = PA0002-PERNR . " itabtt5b-pernr.</P><P> T558B-SEQNR = ITABTT5B-SEQNR .</P><P> T558B-PAYTY = ITABTT5B-PAYTY .</P><P> T558B-PAYID = ITABTT5B-PAYID.</P><P> T558B-PAYDT = ITABTT5B-PAYDT .</P><P> T558B-PERMO = ITABTT5B-PERMO .</P><P> T558B-PABRJ = ITABTT5B-PABRJ .</P><P> T558B-PABRP = ITABTT5B-PABRP .</P><P> T558B-FPBEG = ITABTT5B-FPBEG .</P><P> T558B-FPEND = ITABTT5B-FPEND .</P><P></P><P> IF T558B-PERNR NE '0'.</P><P> INSERT T558B.</P><P> ENDIF.</P><P> IF SY-SUBRC NE 0.</P><P> WRITE:/ 'unable to insert into table t558b'.</P><P> WRITE T558B-PERNR.</P><P> CONTINUE.</P><P> ENDIF.</P><P> ENDIF. "select on pa0002 for ssn</P><P> ENDLOOP.</P><P>ENDFORM.</P><P></P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> FORM CHECK_ERROR *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> ........ *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --&gt; ERR_CD *</P></LI><LI level="1" type="ul"><P> --&gt; STAGE *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM CHECK_ERROR USING ERR_CD STAGE.</P><P> CASE ERR_CD.</P><P> WHEN 0.</P><P> WHEN OTHERS.</P><P> WRITE:/ 'Error in the process ', STAGE, '. Error -', ERR_CD.</P><P> STOP.</P><P> ENDCASE.</P><P>ENDFORM.</P><P></P><P></P><P>Regards</P><P>Subramanian</P></BODY></HTML> Fri, 09 Feb 2007 22:41:39 GMT Former Member 2007-02-09T22:41:39Z urgent!!!! conversions....... https://community.sap.com/t5/application-development-and-automation-discussions/urgent-conversions/m-p/1978643#M400669 <HTML><HEAD></HEAD><BODY><P>Hey can anyone help me in Payroll Conversions.</P><P></P><P>All i know about this is loading T tables from legacy data.</P><P>T558B</P><P>T558C</P><P>T5u8C....please help me on this...</P><P></P><P>Thankx in advance..</P></BODY></HTML> Fri, 09 Feb 2007 22:27:14 GMT https://community.sap.com/t5/application-development-and-automation-discussions/urgent-conversions/m-p/1978643#M400669 Former Member 2007-02-09T22:27:14Z Re: urgent!!!! conversions....... https://community.sap.com/t5/application-development-and-automation-discussions/urgent-conversions/m-p/1978644#M400670 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P>Sample program to upload T558B table: Similarly you may do for others:</P><P>REPORT ZP558B MESSAGE-ID ZP.</P><P></P><UL><LI level="1" type="ul"><P>changed by Hemang to use SSN instead of PERNR</P></LI></UL><P>TABLES :T558B . " payroll periods for each personnal no</P><P>TABLES :PA0002. " HR master rec it 00002 - 2 find pernr based on ssn</P><P>PARAMETERS : FT558B LIKE RLGRAP-FILENAME DEFAULT'C:\558b.TXT'.</P><P></P><P>DATA: BEGIN OF ITABTT5B OCCURS 0,</P><P> PERNR1(9), "SSN</P><P> PAYDT1(10) , FPBEG1(10), FPEND1(10).</P><P> INCLUDE STRUCTURE T558B.</P><P></P><P>DATA :END OF ITABTT5B.</P><P></P><P>DATA: DELIMITER TYPE X VALUE'09', ERR(50).</P><P></P><P>PERFORM UPLOAD_T558B USING FT558B ERR.</P><P>PERFORM APPEND.</P><P></P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> FORM UPLOAD_T558B *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> ........ *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --&gt; FT558B *</P></LI><LI level="1" type="ul"><P> --&gt; ERR *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM UPLOAD_T558B USING FT558B ERR.</P><P></P><P> DATA: BEGIN OF ITAB OCCURS 0,</P><P> FILE1(8192),</P><P> END OF ITAB.</P><P> CALL FUNCTION 'WS_UPLOAD'</P><P> EXPORTING</P><P> FILENAME = FT558B</P><P> FILETYPE = 'ASC'</P><P> TABLES</P><P> DATA_TAB = ITAB</P><P> EXCEPTIONS</P><P> UNKNOWN_ERROR = 7</P><P> OTHERS = 8.</P><P> PERFORM CHECK_ERROR USING SY-SUBRC ERR.</P><P></P><P> DATA : T." Used to store junk (tab) char if any ...</P><P> LOOP AT ITAB.</P><P></P><P> SPLIT ITAB-FILE1 AT DELIMITER INTO</P><P>ITABTT5B-PERNR1 ITABTT5B-SEQNR ITABTT5B-PAYTY ITABTT5B-PAYID</P><P>ITABTT5B-PAYDT1 ITABTT5B-PERMO ITABTT5B-PABRJ ITABTT5B-PABRP</P><P>ITABTT5B-FPBEG1 ITABTT5B-FPEND1 T.</P><P></P><P>CONCATENATE ITABTT5B-PAYDT1+6(4)</P><P> ITABTT5B-PAYDT1+0(2)</P><P> ITABTT5B-PAYDT1+3(2) INTO ITABTT5B-PAYDT.</P><P>CONCATENATE ITABTT5B-FPBEG1+6(4)</P><P> ITABTT5B-FPBEG1+0(2)</P><P> ITABTT5B-FPBEG1+3(2) INTO ITABTT5B-FPBEG.</P><P>CONCATENATE ITABTT5B-FPEND1+6(4)</P><P> ITABTT5B-FPEND1+0(2)</P><P> ITABTT5B-FPEND1+3(2) INTO ITABTT5B-FPEND.</P><P>IF ITABTT5B-PERNR1 NE SPACE.</P><P> APPEND ITABTT5B.</P><P>ENDIF.</P><P> ENDLOOP.</P><P>ENDFORM.</P><P></P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> FORM APPEND *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> ........ *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM APPEND.</P><P></P><P></P><P> LOOP AT ITABTT5B.</P><P> SELECT SINGLE * FROM PA0002 WHERE PERID = ITABTT5B-PERNR1.</P><P> IF SY-SUBRC NE 0.</P><P> WRITE <span class="lia-unicode-emoji" title=":confused_face:">😕</span> 'No employee with SSN:', ITABTT5B-PERNR.</P><P> ELSE.</P><P> T558B-PERNR = PA0002-PERNR . " itabtt5b-pernr.</P><P> T558B-SEQNR = ITABTT5B-SEQNR .</P><P> T558B-PAYTY = ITABTT5B-PAYTY .</P><P> T558B-PAYID = ITABTT5B-PAYID.</P><P> T558B-PAYDT = ITABTT5B-PAYDT .</P><P> T558B-PERMO = ITABTT5B-PERMO .</P><P> T558B-PABRJ = ITABTT5B-PABRJ .</P><P> T558B-PABRP = ITABTT5B-PABRP .</P><P> T558B-FPBEG = ITABTT5B-FPBEG .</P><P> T558B-FPEND = ITABTT5B-FPEND .</P><P></P><P> IF T558B-PERNR NE '0'.</P><P> INSERT T558B.</P><P> ENDIF.</P><P> IF SY-SUBRC NE 0.</P><P> WRITE:/ 'unable to insert into table t558b'.</P><P> WRITE T558B-PERNR.</P><P> CONTINUE.</P><P> ENDIF.</P><P> ENDIF. "select on pa0002 for ssn</P><P> ENDLOOP.</P><P>ENDFORM.</P><P></P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> FORM CHECK_ERROR *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> ........ *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --&gt; ERR_CD *</P></LI><LI level="1" type="ul"><P> --&gt; STAGE *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM CHECK_ERROR USING ERR_CD STAGE.</P><P> CASE ERR_CD.</P><P> WHEN 0.</P><P> WHEN OTHERS.</P><P> WRITE:/ 'Error in the process ', STAGE, '. Error -', ERR_CD.</P><P> STOP.</P><P> ENDCASE.</P><P>ENDFORM.</P><P></P><P></P><P>Regards</P><P>Subramanian</P></BODY></HTML> Fri, 09 Feb 2007 22:41:39 GMT https://community.sap.com/t5/application-development-and-automation-discussions/urgent-conversions/m-p/1978644#M400670 Former Member 2007-02-09T22:41:39Z