할 일도 많은데..난 무슨짓을 하고 있는 걸까.....
그냥 참고만 할 지어다....태클은 사절이외다!!!
********************************************************************
* 모듈/서브모듈: Test / Test
********************************************************************
* T_CODE : YFIBR0010
* 작성자 : ITACC
* 작성일자 : 2012.01.11
* TYPE : Report
* Description :
* http://news.naver.com/main/read.nhn?mode=LSD&mid=sec&sid1=103&oid=008&aid=0002714861
********************************************************************
* 변경 이력 *
* --------- ---------- ---------- -------------------*
* 변경번호 변경일자 변경자명 변경내용 *
* --------- ---------- ---------- -------------------*
* N 2012.01.11 ITACC 최초 작성
********************************************************************
report YFIBR0010.
*--------------------------------------------------------------------*
*..// define Internal Table, Work Area, Data Type, etc..
*--------------------------------------------------------------------*
data : begin of GT_ITAB occurs 0,
TYPE1 type C length 1,
TYPE2 type C length 1,
KEY type C length 2,
VALUE type C length 100,
TEXT type C length 100.
data : end of GT_ITAB.
data : LV_NMTXT type STRING value is initial,
LV_TEXT type STRING value is initial,
LV_YEAR type C length 2 value is initial.
*--------------------------------------------------------------------*
*..// parameters
*--------------------------------------------------------------------*
parameters : P_DATUM type SY-DATUM default SY-DATUM.
*--------------------------------------------------------------------*
*..// Initialization
*--------------------------------------------------------------------*
initialization.
clear : GT_ITAB, GT_ITAB[].
perform INIT.
*--------------------------------------------------------------------*
*..// Start of Selection
*--------------------------------------------------------------------*
start-of-selection.
LV_YEAR = P_DATUM+3(1).
unpack LV_YEAR to LV_YEAR.
delete GT_ITAB where not ( ( TYPE2 eq 'Y' and KEY eq LV_YEAR )
or ( TYPE2 eq 'M' and KEY eq P_DATUM+4(2) )
or ( TYPE2 eq 'D' and KEY eq P_DATUM+6(2) ) ).
loop at GT_ITAB.
at new TYPE1.
clear : LV_NMTXT, LV_TEXT.
case GT_ITAB-TYPE1.
when 'I'. LV_NMTXT = '인디언식 이름 : '.
when 'A'. LV_NMTXT = '중세시대 이름 : '.
when 'G'. LV_NMTXT = '여자or여자같은 사람 : '.
when 'J'. LV_NMTXT = '일본식 이름 : '.
when others.
endcase.
endat.
concatenate : LV_NMTXT GT_ITAB-VALUE into LV_NMTXT separated by SPACE,
LV_TEXT GT_ITAB-TEXT into LV_TEXT separated by SPACE.
at end of TYPE1.
write : / LV_NMTXT, ',', LV_TEXT.
endat.
clear GT_ITAB.
endloop.
*--------------------------------------------------------------------*
*..// Sub-Routines
*--------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form init
*&---------------------------------------------------------------------*
form INIT.
*..// Master Data
perform APPEND_ITAB using :
*..// 인디언
'I' 'Y' '00' '시끄러운OR말많은' '',
'I' 'Y' '01' '푸른' '',
'I' 'Y' '02' '적색' '',
'I' 'Y' '03' '조용한' '',
'I' 'Y' '04' '웅크린' '',
'I' 'Y' '05' '백색' '',
'I' 'Y' '06' '지혜로운' '',
'I' 'Y' '07' '용감한' '',
'I' 'Y' '08' '날카로운' '',
'I' 'Y' '09' '욕심많은' '',
'I' 'M' '01' '늑대' '',
'I' 'M' '02' '태양' '',
'I' 'M' '03' '양 ' '',
'I' 'M' '04' '매 ' '',
'I' 'M' '05' '황소' '',
'I' 'M' '06' '불꽃' '',
'I' 'M' '07' '나무' '',
'I' 'M' '08' '달빛' '',
'I' 'M' '09' '말 ' '',
'I' 'M' '10' '돼지' '',
'I' 'M' '11' '하늘' '',
'I' 'M' '12' '바람' '',
'I' 'D' '01' '와(과) 함께춤을' '',
'I' 'D' '02' '의 기상' '',
'I' 'D' '03' '은(는) 그림자속에' '',
'I' 'D' '04' '' '',
'I' 'D' '05' '' '',
'I' 'D' '06' '' '',
'I' 'D' '07' '의 환생' '',
'I' 'D' '08' '의 죽음' '',
'I' 'D' '09' '아래에서' '',
'I' 'D' '10' '를(을) 보라' '',
'I' 'D' '11' '이(가) 노래하다.' '',
'I' 'D' '12' '그림자' '',
'I' 'D' '13' '의 일격' '',
'I' 'D' '14' '에게 쫒기는 남자' '',
'I' 'D' '15' '의 행진' '',
'I' 'D' '16' '의 왕' '',
'I' 'D' '17' '의 유령' '',
'I' 'D' '18' '을 죽인자.' '',
'I' 'D' '19' '는(은) 맨날 잠잔다' '',
'I' 'D' '20' '처럼..' '',
'I' 'D' '21' '의 고향' '',
'I' 'D' '22' '의 전사' '',
'I' 'D' '23' '은(는) 나의친구' '',
'I' 'D' '24' '의 노래' '',
'I' 'D' '25' '의 정령' '',
'I' 'D' '26' '의 파수꾼' '',
'I' 'D' '27' '의 악마' '',
'I' 'D' '28' '와(과)같은 사나이' '',
'I' 'D' '29' '를(을) 쓰러트린자' '',
'I' 'D' '30' '의 혼' '',
'I' 'D' '31' '은(는) 말이없다' '',
*..// 중세시대 이름 짓기
'A' 'M' '01' 'DOUGLAS (더글러스) ' '짙은 회색의 ',
'A' 'M' '02' 'ALBER (앨버트, 알버트- A 발음의 차이) ' '대단히 뛰어난 ',
'A' 'M' '03' 'ANDREW (앤드류) ' '남자다운, 용감한 ',
'A' 'M' '04' 'ARNOLD (아놀드) ' '명예를 중시하는 ',
'A' 'M' '05' 'CLAUDE(클라우드) ' '순수한 ',
'A' 'M' '06' 'ENOCH (에녹) ' '신에게 바쳐진, 성경 중 에녹서라는게 있음 금서긴 하지만..',
'A' 'M' '07' 'GILBERT (길버트) ' '금보다 더 빛나는 ',
'A' 'M' '08' 'HARACE (헤레이스) ' '눈부시게 미남인 ',
'A' 'M' '09' 'LEONARD (레오나드) ' '사자같이 용맹한 ',
'A' 'M' '10' 'PHILIP (필립) ' '말을 좋아하는 ',
'A' 'M' '11' 'SAMUEL (사무엘) ' '신의 말을 알아듣는 ',
'A' 'M' '12' 'PATRICK(패트릭) ' '기품있는 ',
'A' 'D' '01' 'AARON (아론) ' '산에 사는 사람. ',
'A' 'D' '02' 'ABRAHAM (아브라함) ' '군중의 아버지. ',
'A' 'D' '03' 'DUNCAN (던컨) ' '창격의 기사 ',
'A' 'D' '04' 'ALAN, ALLAN (알렌) ' '사냥개 ',
'A' 'D' '05' 'ALFRED (앨프레드, 알프레드-마찬가지) ' '평화 그 자체 OR 믿을만한 조언자 ',
'A' 'D' '06' 'ALEXANDER(알렉산더) ' '조력자 ',
'A' 'D' '07' 'ANTONY (안토니) ' '전격의 거인 ',
'A' 'D' '08' 'ARTHUR (아더, 아서- TH 발음의 차이) ' '뛰어난 지도자 OR 왕 ',
'A' 'D' '09' 'BENEDICT (베네딕트) ' '축복받은자 ',
'A' 'D' '10' 'BENJAMIN (벤자민) ' '행운아 ',
'A' 'D' '11' 'CECIL(세실) ' '장님이지만, 그의 눈은 마음을본다. ',
'A' 'D' '12' 'CONRAD (콘라드) ' '수다스런 조언자 ',
'A' 'D' '13' 'DANIEL (다니엘) ' '신을 대신하는 재판관 ',
'A' 'D' '14' 'DAVID (데이비드) ' '바람둥이 ',
'A' 'D' '15' 'ADAM (아담) ' '땅의 자식 ',
'A' 'D' '16' 'EDGAR (에드가) ' '행복을 만드는자 ',
'A' 'D' '17' 'EDWIN (에드윈) ' '무서운 정복자 ',
'A' 'D' '18' 'FERDIANAND (페르디난드) ' '이해가 빠른 사나이 ',
'A' 'D' '19' 'GEORGE (조지) ' '농부 ',
'A' 'D' '20' 'HAROLD (해럴드) ' '승리자 ',
'A' 'D' '21' 'JACOB (야곱) ' '함정을 파는 자 ',
'A' 'D' '22' 'LAWRENCE (로렌스) ' '월계관을 쓴 뛰어난 전사 ',
'A' 'D' '23' 'MARTIN (마틴) ' '중세 기사의 수호성인 ',
'A' 'D' '24' 'MATTHEW (매튜) ' '신의 선물 ',
'A' 'D' '25' 'OLIVER (올리버) ' '여신이 선물해준 올리버나무 한그루. ',
'A' 'D' '26' 'PETER (피터) ' '넘어지지않는 바위 ',
'A' 'D' '27' 'ROBERT (로버트) ' '붉은 수염의 남자 ',
'A' 'D' '28' 'WALTER (얼터) ' '강력한 영주 ',
'A' 'D' '29' 'OSCAR (오스카) ' '행정관 ',
'A' 'D' '30' 'MICHAEL(미카엘) ' '신과 닮은 자상한 남자. ',
'A' 'D' '31' 'NICHOLAS (니콜라스) ' '새벽의 정복자 ',
*..// 女자의 이름 OR 여자같은 남자한태 지어주는 이름
'G' 'M' '01' ' DARIA ( 다리아 ) ' ' ▶여왕 같은 ' ,
'G' 'M' '02' ' RACHEL ( 레이첼 ) ' ' ▶이쁘장하게 생긴 ' ,
'G' 'M' '03' ' DANA ( 다나, 데이너 ) ' ' ▶순결한 백조와같은 ' ,
'G' 'M' '04' ' REBECCA ( 레베카 ) ' ' ▶키가 큰 ' ,
'G' 'M' '05' ' MELISSA ( 멜리사 ) ' ' ▶장미보다 매력적인 ' ,
'G' 'M' '06' ' MICHELLE ( 미셸 ) ' ' ▶남자보다 힘쎈 ' ,
'G' 'M' '07' ' BELITA ( 벨리타 ) ' ' ▶여자지만 남자같은 ' ,
'G' 'M' '08' ' BELLE ( 벨 ) ' ' ▶신이 내려주신 ' ,
'G' 'M' '09' ' BIANCA ( 비앙카 ) ' ' ▶순백의 ' ,
'G' 'M' '10' ' BRIGHT ( 브라이트 ) ' ' ▶빛나는 ' ,
'G' 'M' '11' ' AMANDA ( 아맨다 ) ' ' ▶사랑받을 가치가 있는 ' ,
'G' 'M' '12' ' EMILY ( 에밀리 ) ' ' ▶수줍음을 많이타는 ' ,
'G' 'D' '01' ' GEM ( 젬 ) ' ' ▶ 화려한 보석. ' ,
'G' 'D' '02' ' NIKITA ( 니키타 ) ' ' ▶그년는 알것같으면서도 모르는 여자아이. ' ,
'G' 'D' '03' ' DAISY ( 데이지 ) ' ' ▶가련한 데이지꽃 ' ,
'G' 'D' '04' ' MIKHAILA ( 미케일라 ) ' ' ▶신의 하녀 ' ,
'G' 'D' '05' ' MARCIA ( 마샤 ) ' ' ▶전쟁의 여신 ' ,
'G' 'D' '06' ' MARTINA ( 마티나 ) ' ' ▶새벽의 여신 ' ,
'G' 'D' '07' ' BLONDIE ( 블론디 ) ' ' ▶금발의 여인 ' ,
'G' 'D' '08' ' VIVIAN ( 비비안 ) ' ' ▶너는 신께서 내려주신 생명 ' ,
'G' 'D' '09' ' ELIZABETH ( 엘리자베스 ) ' ' ▶너는 신을 위해 봉사하는 여인 ' ,
'G' 'D' '10' ' EMMA ( 에마 ) ' ' ▶깔끔한 여자. ' ,
'G' 'D' '11' ' WHITNEY ( 위트니 ) ' ' ▶수다스런 여자아이. ' ,
'G' 'D' '12' ' KARA ( 카라 ) ' ' ▶달콤한 멜로디 ' ,
'G' 'D' '13' ' KELLY ( 캘리 ) ' ' ▶나비백작 여인 ' ,
'G' 'D' '14' ' LUCIFER ( 루시퍼 ) ' ' ▶하늘에서 떨어지는 혜성 ' ,
'G' 'D' '15' ' LUNA ( 루나 ) ' ' ▶달의 여인 ' ,
'G' 'D' '16' ' SONIA ( 소니아 ) ' ' ▶지혜로운 여인 ' ,
'G' 'D' '17' ' SUNNY ( 써니 ) ' ' ▶소설을 잘쓰는 여인 ' ,
'G' 'D' '18' ' STELLA ( 스텔라 ) ' ' ▶나홀로 외로운 별 ' ,
'G' 'D' '19' ' YESICA ( 예시카 ) ' ' ▶여인이여 남자를 노예처럼 부려라. ' ,
'G' 'D' '20' ' AMBER ( 앰버 ) ' ' ▶화려한 루비보석 ' ,
'G' 'D' '21' ' ASHLEY ( 아실리 ) ' ' ▶달콤한 꿈 ' ,
'G' 'D' '22' ' ERICA ( 에리카 ) ' ' ▶악랄한 여왕 ' ,
'G' 'D' '23' ' ANN ( 앤 ) ' ' ▶은혜 ' ,
'G' 'D' '24' ' OPHELIA ( 오필리아 ) ' ' ▶믿을만한 조력자 ' ,
'G' 'D' '25' ' IRIS ( 아이리스 ) ' ' ▶붓꽃. ' ,
'G' 'D' '26' ' JASMIN ( 자스민 ) ' ' ▶상냥한 여자아이 ' ,
'G' 'D' '27' ' CATHERINE ( 캐더린 ) ' ' ▶말이 없는 여인 ' ,
'G' 'D' '28' ' HILDA ( 힐다 ) ' ' ▶여병사 ' ,
'G' 'D' '29' ' ZOE ( 조이 ) ' ' ▶고집스러운 여인 ' ,
'G' 'D' '30' ' JUANA ( 쥬아나 ) ' ' ▶공작새. ' ,
'G' 'D' '31' ' ANDREA ( 앤드리 ) ' ' ▶~한 여인이여 고향을 버리지마라. ' ,
*..// 이건 일본
'J' 'M' '01' ' 츠키노 ' ' 달의 ' ,
'J' 'M' '02' ' 아이노 ' ' 사랑의 ' ,
'J' 'M' '03' ' 소라노 ' ' 하늘의 ' ,
'J' 'M' '04' ' 미즈노 ' ' 물의 ' ,
'J' 'M' '05' ' 하나노 ' ' 꽃의 ' ,
'J' 'M' '06' ' 우츄우노 ' ' 우주의 ' ,
'J' 'M' '07' ' 타이요오노 ' ' 태양의 ' ,
'J' 'M' '08' ' 호시노 ' ' 별의 ' ,
'J' 'M' '09' ' 오오모리노 ' ' 숲의 ' ,
'J' 'M' '10' ' 카게노 ' ' 그림자의 ' ,
'J' 'M' '11' ' 텐노 ' ' 하늘의(천국의) ' ,
'J' 'M' '12' ' 유키노 ' ' 눈의 ' ,
'J' 'D' '01' ' 카케라 ' ' 파편 ' ,
'J' 'D' '02' ' 텐시 ' ' 천사 ' ,
'J' 'D' '03' ' 나미다 ' ' 눈물 ' ,
'J' 'D' '04' ' 아카시 ' ' 증거 ' ,
'J' 'D' '05' ' 유메 ' ' 꿈 ' ,
'J' 'D' '06' ' 코코로 ' ' 마음 ' ,
'J' 'D' '07' ' 시즈쿠 ' ' 물방울 ' ,
'J' 'D' '08' ' 요오세이 ' ' 요정 ' ,
'J' 'D' '09' ' 온가쿠 ' ' 음악 ' ,
'J' 'D' '10' ' 히카리 ' ' 빛 ' ,
'J' 'D' '11' ' 사메 ' ' 상어 ' ,
'J' 'D' '12' ' 켓쇼오 ' ' 결정 ' ,
'J' 'D' '13' ' 사사야키 ' ' 속삭임 ' ,
'J' 'D' '14' ' 오츠게 ' ' 신탁 ' ,
'J' 'D' '15' ' 오마지나이 ' ' 주문 ' ,
'J' 'D' '16' ' 이츠와리 ' ' 거짓말(사기꾼) ' ,
'J' 'D' '17' ' 이노리 ' ' 기도 ' ,
'J' 'D' '18' ' 네코 ' ' 고양이 ' ,
'J' 'D' '19' ' 미치시루베 ' ' 이정표(안내자) ' ,
'J' 'D' '20' ' 쿠마 ' ' 곰 ' ,
'J' 'D' '21' ' 호고샤 ' ' 보호자 ' ,
'J' 'D' '22' ' 마호 ' ' 마법 ' ,
'J' 'D' '23' ' 타카 라 ' ' 보물 ' ,
'J' 'D' '24' ' 타마시이 ' ' 영혼 ' ,
'J' 'D' '25' ' 요오카이 ' ' 요괴 ' ,
'J' 'D' '26' ' 바나나 ' ' 바나나 ' ,
'J' 'D' '27' ' 오오카미 ' ' 늑대 ' ,
'J' 'D' '28' ' 츠바사 ' ' 날개 ' ,
'J' 'D' '29' ' 오미야게 ' ' 선물 ' ,
'J' 'D' '30' ' 카이토오 ' ' 괴도 ' ,
'J' 'D' '31' ' 모오소오 ' ' 망상 ' .
endform. "init
*&---------------------------------------------------------------------*
*& Form append_itab
*&---------------------------------------------------------------------*
form APPEND_ITAB using TYPE1 TYPE2 KEY VALUE TEXT .
move : TYPE1 to GT_ITAB-TYPE1 ,
TYPE2 to GT_ITAB-TYPE2 ,
VALUE to GT_ITAB-VALUE ,
TEXT to GT_ITAB-TEXT.
unpack KEY to GT_ITAB-KEY.
condense : GT_ITAB-VALUE no-gaps.
append GT_ITAB. clear GT_ITAB.
endform. "append_itab
