SAP学习资源讲义资料(日文)

*----------------------------------------------------------------------* * PROGRAM-ID : ZTASGSMP001 * * PROGRAM-NAME : Žd“üæÆ‰ïEXV‹@”\ * * ì¬ŽÒ : ŽRè —FG * * ì¬“ú : 2011/07/11 * *----------------------------------------------------------------------* * áC³—š—ðâ * * No C³“ú•t C³ŽÒ - C³“à—e(ƒRƒƒ“ƒg) * * * * 001. 2012/07/20 Žé ‰n -o—Í’ •[•ÏXA‰p–ó’ljÁ * * * 002. 2013/08/21 ‰¤@æÔ -ŠJ”­‹K–ñ‚É“ˆê* * 003. 2014/08/14 –ö£@–¢ŽÑ‹G -ƒGƒ‰[Œ”ƒJƒEƒ“ƒgðŒ•ÏX* * 004. 2014/08/14 –ö£@–¢ŽÑ‹G -ŠJ”­‹K–ñ‚É“ˆê* * (ˆÈ‰ºAC³‚Ì“s“xA•ÏX”ԍ†‚âC³“à—e‚ð‹Lqj * *----------------------------------------------------------------------* REPORT ZTASGSMP001 MESSAGE-ID ZTHM5 NO STANDARD PAGE HEADING LINE-SIZE 144. *----------------------------------------------------------------------* * ƒCƒ“ƒNƒ‹[ƒh’è‹` *----------------------------------------------------------------------* *INCLUDE: *----------------------------------------------------------------------* * ƒfƒBƒNƒVƒ‡ƒiƒŠ’è‹`(ƒƒCƒ“ƒe[ƒuƒ‹AŽQÆƒe[ƒuƒ‹A\‘¢‘Ì) *----------------------------------------------------------------------* TABLES: T001. "‰ïŽÐƒ}ƒXƒ^ TYPE-POOLS: SLIS. *----------------------------------------------------------------------* * ƒf[ƒ^Œ^’è‹`(TY_) *----------------------------------------------------------------------* ***o—͏î•ñ(“o˜^ŽžŽg—p) TYPES: BEGIN OF TY_CRTLIF, BUKRS TYPE LFB1-BUKRS, "‰ïŽÐƒR[ƒh EKORG TYPE LFM1-EKORG, "w”ƒ‘gD LIFNR TYPE LFA1-LIFNR, "Žd“üæ NAME1 TYPE LFA1-NAME1, "–¼Ì‚P ORT01 TYPE LFA1-ORT01, "Žs’¬‹æ‘º PSTLZ TYPE LFA1-PSTLZ, "—X•Ö”ԍ† LAND1 TYPE LFA1-LAND1, "‘ƒR[ƒh WAERS TYPE LFM1-WAERS, "w”ƒ”­’’Ê‰Ý END OF TY_CRTLIF, ***FILEUPLOAD—p(“o˜^ŽžŽg—p) BEGIN OF TY_IREC, COMM(2) TYPE C, "No(–¢Žg—p) EKORG TYPE LFM1-EKORG, "w”ƒ‘gD LIFNR TYPE LFA1-LIFNR, "Žd“üæ–¼ NAME1 TYPE LFA1-NAME1, "–¼Ì1 KTOKK TYPE LFA1-KTOKK, "Š¨’èƒOƒ‹[ƒv SORTL TYPE LFA1-SORTL, "ƒ\[ƒg€–Ú ORT01 TYPE LFA1-ORT01, "Žs‹æ’¬‘º PSTLZ TYPE LFA1-PSTLZ, "—X•Ö”ԍ† AKONT TYPE LFB1-AKONT, "“§Š¨’è LAND1 TYPE LFA1-LAND1, "‘ƒR[ƒh SPRAS TYPE LFA1-SPRAS, "Œ¾ŒêƒL[ WAERS TYPE LFM1-WAERS, "‰Ý•¼ END OF TY_IREC, ***ƒGƒ‰[ƒf[ƒ^Ši”[—p BEGIN OF TY_ERROR, LIFNR TYPE LFA1-LIFNR, "Žd“üæ–¼ MTEXT(100) TYPE C, "ƒGƒ‰[——R END OF TY_ERROR, ***o—͍\‘¢(Æ‰ïŽžŽg—p) BEGIN OF TY_REFLIF, BUKRS TYPE LFB1-BUKRS, "‰ïŽÐƒR[ƒh EKORG TYPE LFM1-EKORG, "w”ƒ‘gD LIFNR TYPE LFA1-LIFNR, "Žd“üæ–¼ NAME1 TYPE LFA1-NAME1, "–¼Ì1 KTOKK TYPE LFA1-KTOKK, "Š¨’èƒOƒ‹[ƒv SORTL TYPE LFA1-SORTL, "ƒ\[ƒg€–Ú ORT01 TYPE LFA1-ORT01, "Žs’¬‹æ‘º PSTLZ TYPE LFA1-PSTLZ, "—X•Ö”ԍ† AKONT TYPE LFB1-AKONT, "“§Š¨’è LAND1 TYPE LFA1-LAND1, "‘ƒR[ƒh SPRAS TYPE LFA1-SPRAS, "Œ¾ŒêƒL[ WAERS TYPE LFM1-WAERS, "‰Ý•¼ END OF TY_REFLIF. DATA: ***ALV\‘¢—p BEGIN OF TY_LIFNR_ALV, BUKRS LIKE LFB1-BUKRS, "‰ïŽÐƒR[ƒh EKORG LIKE LFM1-EKORG, "w”ƒ‘gD LIFNR LIKE LFA1-LIFNR, "Žd“üæ–¼ NAME1 LIKE LFA1-NAME1, "–¼Ì1 KTOKK LIKE LFA1-KTOKK, "Š¨’èƒOƒ‹[ƒv SORTL LIKE LFA1-SORTL, "ƒ\[ƒg€–Ú ORT01 LIKE LFA1-ORT01, "Žs’¬‹æ‘º PSTLZ LIKE LFA1-PSTLZ, "—X•Ö”ԍ† AKONT LIKE LFB1-AKONT, "“§Š¨’è LAND1 LIKE LFA1-LAND1, "‘ƒR[ƒh SPRAS LIKE LFA1-SPRAS, "Œ¾ŒêƒL[ WAERS LIKE LFM1-WAERS, "‰Ý•¼ END OF TY_LIFNR_ALV. *----------------------------------------------------------------------* * ’萔’è‹`(CNS_) *----------------------------------------------------------------------* CONSTANTS: CNS_X(1) TYPE C VALUE 'X', CNS_0(1) TYPE C VALUE '0', "“ü—Í•s‰Â CNS_1(1) TYPE C VALUE '1', "“ü—͉ CNS_E(1) TYPE C VALUE 'E', "MSG TYPE E *** ALVƒwƒbƒ_•ÒW—p CNS_TYPR_H(1) TYPE C VALUE 'H', "HEAER CNS_TYPR_S(1) TYPE C VALUE 'S', "SELECTION CNS_COLON(2) TYPE C VALUE 'F'. "ƒRƒƒ“ *----------------------------------------------------------------------* * “à•”ƒe[ƒuƒ‹’è‹`(TB_) *----------------------------------------------------------------------* DATA: ***UPLOAD—p“à•”ƒe[ƒuƒ‹ TB_REC TYPE TABLE OF TY_IREC, ***BDC¬Œ÷ƒf[ƒ^Šm•Ûƒe[ƒuƒ‹ TB_OK_REC TYPE TABLE OF TY_IREC, ***BDCƒGƒ‰[ƒf[ƒ^Šm•Ûƒe[ƒuƒ‹ TB_NG_REC TYPE TABLE OF TY_ERROR, ***Žd“üæî•ñ“à•”ƒe[ƒuƒ‹(OUTPUT—p) TB_LIFNR_INFO TYPE TABLE OF TY_REFLIF, TB_BDCOK_INFO TYPE TABLE OF TY_CRTLIF, ***ƒoƒbƒ`ƒCƒ“ƒvƒbƒg—p TB_BDCDATA TYPE TABLE OF BDCDATA, ***ALVo—Í—p TB_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, TB_EVENTS TYPE SLIS_T_EVENT, TB_ALV_HEADER TYPE SLIS_T_LISTHEADER. "ALVo—̓wƒbƒ_ *----------------------------------------------------------------------* * “à•”ƒe[ƒuƒ‹ƒwƒbƒ_A\‘¢’è‹`(H_) *----------------------------------------------------------------------* DATA: H_BDCDATA LIKE LINE OF TB_BDCDATA, H_IREC TYPE TY_IREC, "UPLOADƒf[ƒ^Žæ“¾—p H_ALV_HEADER TYPE SLIS_LISTHEADER. "ALVƒwƒbƒ_ *----------------------------------------------------------------------* * €–ڕϐ”’è‹`(W_) *----------------------------------------------------------------------* DATA: W_LIFNR TYPE LFA1-LIFNR, "Žd“üæƒpƒ‰ƒ[ƒ^[ W_EKORG TYPE LFM1-EKORG, "w”ƒ‘gDƒpƒ‰ƒ[ƒ^[ W_MTEXT TYPE STRING. "ƒGƒ‰[ƒƒbƒZ[ƒW *----------------------------------------------------------------------* * ƒtƒ‰ƒO’è‹`(FLG_) *----------------------------------------------------------------------* DATA: FLG_OK(1) TYPE C, "¬Œ÷ƒf[ƒ^‚ ‚è FLG_NG(1) TYPE C. "ƒGƒ‰[ƒf[ƒ^‚ ‚è *----------------------------------------------------------------------* * ƒJƒEƒ“ƒ^’è‹`(CNT_) *----------------------------------------------------------------------* DATA: CNT_OK TYPE P, "“o˜^Œ” CNT_NG TYPE P, "“o˜^NGŒ” CNT_PRC TYPE P. "ˆ—Œ” *----------------------------------------------------------------------* * ”͈͒l’è‹`(RG_) *----------------------------------------------------------------------* *DATA: *----------------------------------------------------------------------* * FIELD-SYMBOL’è‹`(<F_>) *----------------------------------------------------