Dear all,
Saya perlu Bantuan nich.
Masalahnya seperti ini :
Sintak PB 6.5 yg saya buat tidak dapat jalan/error
bila dijalankan diserver (SQL server 2000)yg sudah di install service pack 4.
Sebelumnya server dijalankan service pack 3, dan program tidak ada masalah.
Systax nya sbb ( saya simpan di window function ) :
Long ll_count
Integer li_line_no, li_week, li_day_no
Decimal ld_bulan, ld_tahun, ld_visit_no
String ls_nip, ls_doctor_code, ls_address_code, ls_success_call, ls_comment,
ls_visit_type
String ls_audit_user, ls_port_flag, ls_class_code, ls_join_visit
Datetime ldt_audit_date, ldt_plan_date, ldt_actual_date
DECLARE Mycursor CURSOR FOR
SELECT bulan, tahun, nip, doctor_code, address_code, visit_no, plan_date,
actual_date, success_call, comment, visit_type, week, join_visit,
day_no,
audit_user, audit_date, class_code, port_flag
FROM doctor_call_temp ;
OPEN Mycursor;
IF sqlca.uf_error(" Retrieving Temp File Error. " ) = TRUE THEN RETURN FALSE
DO WHILE sqlca.uf_found()
FETCH Mycursor INTO :ld_bulan, :ld_tahun, :ls_nip, :ls_doctor_code,
:ls_address_code, :ld_visit_no, :ldt_plan_date,
:ldt_actual_date, :ls_success_call, :ls_comment, :ls_visit_type,
:li_week, :ls_join_visit, :li_day_no,
:ls_audit_user, :ldt_audit_date, :ls_class_code, :ls_port_flag ;
IF sqlca.uf_cur_found() THEN
SELECT COUNT(*)
INTO :ll_count
FROM doctor_call
WHERE bulan = :ld_bulan
AND tahun = :ld_tahun
AND nip = :ls_nip
AND doctor_code = :ls_doctor_code
AND visit_no = :ld_visit_no;
IF ll_count > 0 THEN
DELETE FROM doctor_call
WHERE bulan = :ld_bulan
AND tahun = :ld_tahun
AND nip = :ls_nip
AND doctor_code = :ls_doctor_code
AND visit_no = :ld_visit_no;
END IF
INSERT INTO doctor_call
( bulan, tahun, nip, doctor_code, address_code, visit_no, plan_date,
actual_date, success_call, comment, visit_type, week, join_visit,
day_no,
audit_user, audit_date, class_code, port_flag )
VALUES (:ld_bulan, :ld_tahun, :ls_nip, :ls_doctor_code, :ls_address_code,
:ld_visit_no, :ldt_plan_date,
:ldt_actual_date, :ls_success_call, :ls_comment, :ls_visit_type,
:li_week, :ls_join_visit, :li_day_no,
:ls_audit_user, :ldt_audit_date, :ls_class_code, :ls_port_flag );
IF sqlca.uf_error(" Inserting Doctor Call" ) = TRUE THEN RETURN FALSE
END IF
LOOP
CLOSE Mycursor;
DELETE FROM doctor_call_temp ;
RETURN TRUE
Kalo dijalannkan dengan komputer yg sudah ada sp 4, maka akan keluar error yg
memerintahkan untuk menghubungi sysbase.
Kira2 apa kesalahan sintak tersebut yah?
Soalnya kalo delete, insert dan update biasa dapat berjalan dengan normal.
Thanks.
Yanuar
Send instant messages to your online friends http://uk.messenger.yahoo.com
[Non-text portions of this message have been removed]
-----------------------------------------------
INDOPB TURUT BERDUKA CITA UNTUK ACEH & SUMUT
-----------------------------------------------
IndoPB - Indonesia PB User Group
To Post a message, send it to: [EMAIL PROTECTED]
To Unsubscribe,send a blank message to: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indopb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
