기본 콘텐츠로 건너뛰기

12월, 2015의 게시물 표시

2015년 12월 마포 가든호텔 크리스마스 파티

December 2015 - Mapo Garden Hotel Christmas Party 2015년 12월 24일 크리스마스.... 마포의 가든호텔 에서 열린 크리스마스 파티에 예약하고 참석했다. 와인 + 부페 + 공연 + 행운권 추첨 아쉽게도 파티 후반에 있던 행운권 추첨에서는 아무 것도 당첨되지 않았다. 마포 가든호텔 http://www.seoulgarden.co.kr

COBOL 코볼 COMP-3 길이 계산

코볼에서는 Decimal 값을 관리하기 위해 PIC 9(n) COMP-3 타입을 사용한다. PIC 9(n) COMP-3 타입으로 정의한 변수의 길이는 어떻게 될까? n 값에 1을 더하고, 나누기 2를 하고, 올림 하면 된다. Length(bytes) = CEILING((n+1)/2) 1바이트에 숫자값 2개씩 저장되는 구조이고, 앞(혹은 뒤)에 부호 값 1자리가 존재하기 때문이다. ※ 부호 : 양수는 C, 음수는 D 예를 들어,  PIC 9( 3 ) COMP-3 인 경우,  ( 3 +1) / 2 = 2 bytes 가 된다. PIC 9( 4 ) COMP-3 인 경우, ( 4 +1) / 2 = 2.5 를 올림하여, 3 bytes가 된다. 소수점은 어떻게 될까? 예를 들어, 아래의 변수인 경우 S9( 7 )V 99 COMP-3 길이는 ( 9 +1) / 2 = 5 bytes 가 된다. 참고 https://www.ibm.com/support/knowledgecenter/ko/SSMKHH_10.0.0/com.ibm.etools.mft.doc/ad06900_.htm http://www.3480-3590-data-conversion.com/article-packed-fields.html Written by dukgun.com

COBOL 코볼 문자열 처리(합치기, 자르기, SUBSTR 기능 등)

COBOL에서 전화번호 문자열이 있다고 했을때, 숫자 사이 중간에 하이픈 기호를 넣어서, 전화번호 패턴의 문자열로 바꿀 때 사용하는 방법이다. MOVE ‘01011112222’ TO WK-TEL STRING WK-TEL(1:3) ‘-‘        WK-TEL(4:4) ‘-‘         WK-TEL(7:4)   DELIMITED BY SIZE INTO WK-TEL-P 반대로 하이픈 기호가 들어가 있는 패턴을 분리하고 싶을 때에는 MOVE ‘010-1111-2222’ TO WK-TEL UNSTRING WK-TEL   DELIMITED BY ALL '-'        INTO WK-TEL1             WK-TEL2             WK-TEL3 Written by dukgun.com