'PowerBuilder'에 해당되는 글 18건
- 2013.08.13 [TIP] 파워빌더에서 웹브라우저 띄우는 몇가지 방
- 2011.01.10 키 입력을 동적으로 한다.
- 2011.01.10 String Array 설정
- 2010.12.16 각종 키 막기
- 2010.10.08 파워빌더 상속 받는거 제외하기.
- 2010.09.10 Please check whether PowerBuilder Accessibility library can be located in the path.
- 2010.09.01 PowerBuilder 10.5 Default Setting
- 2010.07.08 xls 엑셀로 저장하기.
- 2010.07.07 csv, xls, 탭형식 파일 DW로 import 받기...
- 2010.06.21 DB2 Sequence 생성하는 PB 스크립트
2013. 8. 13. 17:35
보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.
2011. 1. 10. 14:59
보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.
Powerbuilder2011. 1. 10. 09:51
2010. 12. 16. 02:35
보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.
Powerbuilder2010. 10. 8. 11:32
Powerbuilder2010. 9. 10. 09:13
Please check whether PowerBuilder Accessibility library can be located in the path.
PBCLTRT105.part1.rar2010. 9. 1. 17:32
보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.
2010. 7. 8. 09:34
보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.
2010. 7. 7. 22:32
보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.
Powerbuilder2010. 6. 21. 20:57
String ls_sequence
String ls_prefix
String ls_len, ls_mod
String ls_value1, ls_value2
String ls_select, ls_get, ls_create, ls_grant
String ls_pk
SELECT ZCCVAL02, ZCCVAL03, ZCCVAL04
INTO :ls_sequence, :ls_prefix, :ls_len
FROM TLVDTALB.GZCDA121
WHERE ZCCSYSCD = 'MIS'
AND ZCCGRPCD = 'ZWK'
AND ZCCCOMCD = :as_wktp
;
If Trim(ls_sequence) = '' OR Trim(ls_prefix) = '' OR Trim(ls_len) = '' Then
Return '오류'
End if
ls_mod = '1' + Fill('0', long(ls_len))
// 1. 값 가져올 SQL 문장 생성
ls_get = " NEXTVAL for " + ls_sequence
ls_select = "SELECT CHAR(Mod( " + ls_get + "," + ls_mod + ") ), CHAR(( " + ls_get + " ) / " + ls_mod + " ) FROM SYSIBM.SYSDUMMY1"
// 2. 시도
DECLARE my_cursor DYNAMIC CURSOR FOR SQLSA ;
PREPARE SQLSA FROM :ls_select ;
OPEN DYNAMIC my_cursor ;
IF sqlca.sqlcode <> 0 Then
// 3. 존재하지 않을 경우 새로 생성후 값 가져오기
ls_create = "CREATE SEQUENCE " + ls_sequence + " AS NUMERIC (10,0) START WITH 1 INCREMENT BY 1 NOMAXVALUE NOCYCLE NOCACHE"
EXECUTE IMMEDIATE :ls_create;
ls_grant = "GRANT ALL ON " + ls_sequence + " TO PUBLIC "
EXECUTE IMMEDIATE :ls_grant;
DECLARE my_cursor1 DYNAMIC CURSOR FOR SQLSA ;
PREPARE SQLSA FROM :ls_select ;
OPEN DYNAMIC my_cursor1 ;
FETCH my_cursor1 INTO :ls_value1, :ls_value2 ;
CLOSE my_cursor1 ;
Else
// 4. 존재할 경우 값 가져오기
FETCH my_cursor INTO :ls_value1, :ls_value2 ;
CLOSE my_cursor ;
End if
ls_value1 = Trim(ls_value1)
ls_value2 = Trim(ls_value2)
If LONG(ls_value2) <> 0 Then
ls_prefix = mid(ls_prefix,1, lenA(ls_prefix) - 1) + char(Asc(Right(ls_prefix,1)) + 1)
End if
ls_pk = ls_prefix + Fill('0', long(ls_len) - lenA(ls_value1) ) + ls_value1
Return ls_pk
