2009년 12월 31일 목요일
2009년 11월 28일 토요일
[아이폰] Now Available 및 배송현황
Korea가 드디어 Now Available에 바로 업데이트가 되었다는 소식이네요. ^^
http://www.apple.com/iphone/countries/
그동안 KT분들이 물론 엄청 바빴겠지요. 전쟁이었을겁니다.
몇장의 사진을 보니 가히 - 어후...
그리고 저의 아이폰은 이제 배송이 여의도에서 시작했네요.
핑계겠지만, 아이폰 때문에 보드일정도 전부 캔슬했습니다. ㅠㅠ
어서 나의 품으로 오거라!!! 아이폰을 위해서 방청소(응?;;)도 했습니다.
그분이 오시기만 하면 됩니다. ㅎㅎ
사진의 출처는 애플, olleh KT 트위터, 우체국 입니다. ^^
2009년 11월 26일 목요일
Oralce%2B9i%2BPL-SQL.pdf2009년 11월 25일 수요일
[아이폰] 애플홈페이지에 드디어 한국이 COMING SOON
말그대로이다. 이제 정말 나오긴 하나보다.
물론 난 예약구매를 하였지만, 실감이 나진 않았는데...
이제야 실감이 난다고 할까?
http://www.apple.com/iphone/countries
2009년 11월 23일 월요일
[아이폰] 아이폰을 드디어 질렀습니다.
오늘 늦게 정신이 몽롱한 상태에서 부비적부비적 컴퓨터를 켰죠.
11시 58분 쯤이었을거에요.
평소처럼 이런저런 정보들을 보려고 트위터 및 기타 블로그들을 탐방을 했어요. ^^
그런데 이게 왠일? 아이폰 예약을 받고 있는거에요.
부랴부랴 떨리는 마음으로 기변을 하게 되었죠 ^^
솔직히 아직도 믿겨지지가 않습니다. ㅎㅎ
그런데 드림위즈를 통해서 예약을 하게 되면 벨류팩을 준다고 하더라구요.
그래서 제 빠르게!!! 주문번호가 원래는 8만번대였는데 취소를 하고 다시 하니
9만번대 역시나 가히 광풍이군요~
KT에서는 별다른 광고도 안한 상태일텐데 제대로 광고가 나가기 시작하면 대박이겠군요.
발송이 되는 28일이 기다려집니다.
요금제는 제가 생각하기엔 적당하고 합리적이라는 생각이 듭니다.
뭐 사람들마다 다르겠지만요. 저는 라이트요금제를 선택하였습니다.
2009년 11월 18일 수요일
[Cobol] 해당년도의 몇번째 날인지 구하는 서브프로그램
간단한 서브프로그램을 만들어보았다. 조금만 안하면 내 머리속의 지우개
프로그램의 용도는 JULIAN DATE 비슷한것 ㅠㅠ(이왕이면 JULIAN DATE를 짜던가 퍽!)
프로그램의 용도는 JULIAN DATE 비슷한것 ㅠㅠ(이왕이면 JULIAN DATE를 짜던가 퍽!)
78901234567890123456789012345678901234567890123456789012345678901234567890
*---------------------------------------------------------
IDENTIFICATION DIVISION.
PROGRAM-ID. JULDATE.
*---------------------------------------------------------
ENVIRONMENT DIVISION.
*---------------------------------------------------------
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WK-MOK PIC 9(4) VALUE ZERO.
77 WK-NAM PIC 9(2) VALUE ZERO.
77 WK-II PIC 9(2) VALUE ZERO.
01 WK-DATE.
10 WK-YYYY PIC 9(4) VALUE ZERO.
10 WK-MM PIC 9(2) VALUE ZERO.
10 WK-DD PIC 9(2) VALUE ZERO.
01 WK-MM1 OCCURS 12.
10 MON-DAY PIC 9(2).
LINKAGE SECTION.
01 DATE-INPUT.
10 IN-YYYY PIC 9(4).
10 IN-MM PIC 9(2).
10 IN-DD PIC 9(2).
01 JLAN-OUTPUT.
10 RESULT.
20 RE-YYYY PIC 9(4) VALUE ZERO.
20 RE-JULIAN PIC 9(3) VALUE ZERO.
10 CHECK PIC X(1) VALUE SPACE.
10 ERRMSG PIC X(30) VALUE SPACE.
*---------------------------------------------------------
PROCEDURE DIVISION USING DATE-INPUT JLAN-OUTPUT.
00000-JULDATE-START.
PERFORM 10000-STR.
PERFORM 20000-MID.
PERFORM 30000-END.
*---------------------------------------------------------
10000-STR.
MOVE IN-YYYY TO WK-YYYY.
MOVE IN-MM TO WK-MM.
MOVE IN-DD TO WK-DD.
MOVE ZERO TO RESULT.
MOVE SPACE TO CHECK.
MOVE SPACE TO ERRMSG.
* 월의 최대 날짜
MOVE 31 TO MON-DAY(01).
MOVE 28 TO MON-DAY(02).
MOVE 31 TO MON-DAY(03).
MOVE 30 TO MON-DAY(04).
MOVE 31 TO MON-DAY(05).
MOVE 30 TO MON-DAY(06).
MOVE 31 TO MON-DAY(07).
MOVE 31 TO MON-DAY(08).
MOVE 30 TO MON-DAY(09).
MOVE 31 TO MON-DAY(10).
MOVE 30 TO MON-DAY(11).
MOVE 31 TO MON-DAY(12).
* 2월달 윤달체크
DIVIDE WK-YYYY BY 4 GIVING WK-MOK
REMAINDER WK-NAM.
IF WK-NAM = 0
MOVE 29 TO MON-DAY(2)
END-IF.
DIVIDE WK-YYYY BY 100 GIVING WK-MOK
REMAINDER WK-NAM.
IF WK-NAM = 0
MOVE 28 TO MON-DAY(2)
END-IF.
DIVIDE WK-YYYY BY 400 GIVING WK-MOK
REMAINDER WK-NAM.
IF WK-NAM = 0
MOVE 29 TO MON-DAY(2)
END-IF.
* 월 체크
IF WK-MM > 12 OR WK-MM < 1 OR WK-MM NOT NUMERIC
MOVE "E" TO CHECK
MOVE "해당 월이 비정상입니다." TO ERRMSG
PERFORM 30000-END
END-IF.
* 날짜 체크
IF WK-DD > MON-DAY(WK-MM) OR WK-DD < 1 OR WK-DD NOT NUMERIC
MOVE "E" TO CHECK
MOVE "해당 날짜가 비정상입니다." TO ERRMSG
PERFORM 30000-END
END-IF.
20000-MID.
MOVE WK-YYYY TO RE-YYYY.
MOVE 0 TO RE-JULIAN.
INITIALIZE WK-II.
PERFORM WK-II FROM 1 BY +1 UNTIL WK-II >= WK-MM
ADD MON-DAY(WK-II) TO RE-JULIAN
END-PERFORM.
ADD WK-DD TO RE-JULIAN.
30000-END.
EXIT PROGRAM.
[Cobol] DATA DIVISION.
78901234567890123456789012345678901234567890123456789012345678901234567890
DATA DISIVION.
FILE SECTION.
FD SUNGJUK-F LABEL RECORDS ARE STANDARD
BLOCK COMTAINS 100 RECORDS
RECORD COMTAINS 21 CHARCTER
RECORDING MODE IS F.
01 SUNGJUK-R.
05 IN-HAK PIC X(01).
05 IN-BAN PIC X(01).
05 IN-BUN PIC 9(02).
05 IN-NAME PIC X(08).
05 IN-KOR PIC 9(03).
05 IN-ENG PIC 9(03).
05 IN-MAT PIC 9(03).
WORKING-STORAGE SECTION.
77 WK-CNT PIC 9(06) VALUE 0.
77 END-OF-FILE PIC X(03) VALUE SPACE.
LINKAGE SECTION.
FILE SECTION.? ENVIRONMENT DIVISION의 FILE-CONTROL절에서 선언한 입출력 파일과 레코드에 대하여 설명하는 부분FD(File Description)? ENVIRONMENT DIVISION의 SELECT문에서 정의한 파일들에 대한 설명의 시작을 나타냄. FD 다음에는 파일이름을 기술 그리고 파일이름은 SELECT문에서 정의된 파일이름과 같아야 하며 갯수도 동일해야함.
LEVEL-NUMBER? 논리 레코드의 특성, 레벨 번호, 각 항목의 구조와 이름, 성격 및 크기를 정의 레벨넘버? 계층번호라고도 하며 사용할 수 있는 번호는 01 ~ 49, 66, 77, 88이며 일반적으로 01 ~ 49를 사용. 88은 조건변수와 관련된 조건이름을 부여시 사용. 77은 레코드에 속하지 않는 독립된 항목에 표시하며 WORKING-STORAGE SECTION이나 LINKAGE SECTION에서만 사용
WORKING-STORAGE SECTION.? 연산에 필요한 기억 장소나 출력에 필요한 기억 장소들을 정의
LINKAGE SECTION.? Sub-Program 작성시 Sub-Program의 DATA DIVISION에 기술하며 Main-Program에서 호출된 프로그램에 Parameter를 넘겨 주는데 사용(받는 Parameter와 보내는 Parameter를 기술)
피드 구독하기:
게시물 (Atom)