ZLK0: from XLK0

--------------------------------------------------------------------------------
ZLK0 001 COM *과거급여 마이그레이션********************
ZLK0 002 COM Payroll Account Transfer T558B,D
ZLK0 003 COM Initialization INTERNATIONAL
ZLK0 004 PGM TRN Program type for payroll
ZLK0 005 UPD YES Update database (YES/NO)
ZLK0 006 OPT INFT Read used infotypes only
ZLK0 007 OPT TIME Import all time infotypes
ZLK0 008 COPY XBD0 Edit basic data
ZLK0 009 RFRSH IT Delete IT after editing basic data
ZLK0 010 IMPRT L Import last payroll result
ZLK0 011 TRANS 558D Transfer payroll account T558A INTERNA.
ZLK0 012 BENTR CHK Transfer benefit wage types to BENTAB
ZLK0 013 PRINT NP IT Sort table IT
ZLK0 014 _MIG1 *IT보정 - BT생성하기위함
ZLK0 015 P0009 Z050 GEN NOAB *은행정보
--------------------------------------------------------------------------------
Z050***** DELIMI * AMT= /562AMT?0
Z050******
Z050*****> DVAKEYBNKSA
Z050*****> * DAMT= BETRGAMT?0
Z050*****> * * DNUM= ANZHLNUM?0
Z050*****> * * *
Z050*****> * * > AMT= /560MULTI NAA AMT/100.00AMT< /562ZERO= N NEXTR A Z050*****> * * > AZGCY Z0509
Z050*****> * > ZAMTS /564AMT< /562GCY Z0509 Z050*****> 0 ZGCY Z0509 "ZPAYTP 9
--------------------------------------------------------------------------------
Z0509**** DZERO=&P9 ADDWT&P9 VAKEYZLSCH
Z0509***** DAMT= /564AMT?0
Z0509***** * AMT=& P9 NEXTR A COMPARE LIMIT FOR BANK TRANSF
Z0509***** * ADAMT?IGRUEB
Z0509***** * * BTREC /559ADDWT /559ELIMI * SUBWT /562
Z0509***** * < adnum="&"> ZERO= N NEXTR A TRANSF
Z0509***** * < > A BTREC /559ADDWT /559ELIMI * SUBWT /562
Z0509***** > AMT=& P9 NEXTR A COMPARE LIMIT FOR BANK TRANSF
Z0509***** > ADAMT?IGRUEB
Z0509***** > * BTREC /558ADDWT /558ELIMI * SUBWT /562
Z0509***** > <> < adnum="&"> < * Z0509***** > < > ZERO= N NEXTR A TRANSF
Z0509***** > < > A BTREC /558ADDWT /558ELIMI * SUBWT /562
Z0509****2 AMT=& P9 ADDWT /557ELIMI * SUBWT /562
--------------------------------------------------------------------------------
X05D***** DPPPAR A LEAVING IN THE PERIODE
X05D****** DPPPAR F LEAVING AT END OF PERIODE
X05D****** * DPPPAR R NOT ACT.=LEAVING AT 1. OF PER.
X05D****** * *
X05D****** * R NUM=1 ADDWT&MY10ZERO= N FORCE BANK TRANSFER
X05D****** F NUM=1 ADDWT&MY10ZERO= N FORCE BANK TRANSFER
X05D*****A NUM=1 ADDWT&MY10ZERO= N FORCE BANK TRANSFER
--------------------------------------------------------------------------------
ZLK0 016 PIT XCOP GEN NOAB Copy wage types to RT
--------------------------------------------------------------------------------
XCOP***** ELIMI * ADDWTE*
--------------------------------------------------------------------------------
ZLK0 017 SORT RT Sort results table
ZLK0 018 PRINT NP RT Display table RT
ZLK0 019 SETCU Prepare CRT (old results)
ZLK0 020 ADDCU P30 Update cumulated values
ZLK0 021 PRINT NP CRT Table of cumulated values (CRT)
ZLK0 022 EXPRT KR *xport result (DB: PCL2 / CL: RX)->KR로


*&---------------------------------------------------------------------*
*& Form fu_zmig1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM fu_mig1.
LOOP AT it.
IF ( it-lgart BETWEEN '1000' AND '9999' ) OR it-lgart = '/001' OR it-lgart = '/003' OR it-lgart = '/BR1'.
it-abart = '3'.
ELSE.
it-abart = '*'.
ENDIF.
MODIFY it.
ENDLOOP.
ENDFORM. "fu_zmig1