How can i migrate Power Builder 8.0 Function into oracle PL/SQL

Question

Hi Oracle Experts...
How can i migrate Power Builder 8.0 Function into oracle PL/SQL.. I had migrate some of the coding from PB to PL/SQL. But i don't know how can i convert PB structure(here structure is a data type) into oracle PL/SQL.
Instead of structure what is the equivalent in oracle plsql
Below i pasted my POWER BUILDER FUNCTION:
Long ll_perd,ll_lnperd,ll_mon,ll_effmon,ll_instno,ll_odno
Decimal{5} ldl_actual,ldl_diff,ldl_inst
Datetime ldt_first,ldt_exp,ldt_oddt, ldt_lastprod
String ls_instmode,ls_inst
str_batch lstr_od //Structure to store odamt and oddate
Select pay_c_final,lon_d_expiry, lon_d_lastprod
Into     :ls_inst,:ldt_exp, :ldt_lastprod
From      loan_mast
Where branch_c_code = :gs_branch and
          act_c_type      = :as_actype and
          act_c_no           = :as_acno;
If Sqlca.Sqlcode = -1 Then
     f_message('FT-0189',Sqlca.Sqlerrtext)
     lstr_od.batchslno = -1
     Return lstr_od
End If
If adt_prodt > ldt_exp Then
     Select Ceil(months_between(:adt_prodt,:ldt_exp)) Into :lstr_od.batchslno From dual;
     lstr_od.cheqdt = ldt_exp
     lstr_od.batchslno = DaysAfter(Date(ldt_lastprod), Date(adt_prodt))
Else
     If ls_inst = 'N' Then
          If adt_prodt > ldt_exp Then
               Select Ceil(months_between(:adt_prodt,:ldt_exp)) Into :lstr_od.batchslno From dual;
               lstr_od.cheqdt = ldt_exp
          Else
               lstr_od.batchslno = 1
          End If
     ElseIf ls_inst = 'Y' Then
          Select first_d_due,lon_c_instperd,lon_n_perd
          Into     :ldt_first,:ls_instmode,:ll_lnperd
          From     loan_mast
          Where branch_c_code = :gs_branch and
                    act_c_type      = :as_actype and
                    act_c_no          = :as_acno;
          If Sqlca.Sqlcode = -1 Then
               f_message('FT-0189',Sqlca.Sqlerrtext)
               lstr_od.batchslno = -1
               Return lstr_od // Return Structure
          End If
          Select Ceil(months_between(:adt_prodt,:ldt_first)) Into :ll_mon from dual;
          If ll_mon > 0 Then
               Select Nvl(ln_n_balance,0),Nvl(ln_n_instlamt,0),Nvl(ln_n_instlno,0)
               Into     :ldl_actual,:ldl_inst,:ll_instno
               From     loan_inst_sch
               Where act_c_type = :as_actype and
                         act_c_no     = :as_acno and
                         ln_d_effdate = (Select Max(ln_d_effdate)
                                                       From     loan_inst_sch
                                                       Where act_c_type = :as_actype and
                                                                 act_c_no     = :as_acno and
                                                                 ln_d_effdate < :adt_prodt);
               If Sqlca.Sqlcode = -1 Then
                    f_message('FT-0224', Sqlca.Sqlerrtext)
                    lstr_od.batchslno = -1
                    Return lstr_od
               ElseIf Sqlca.Sqlcode = 100 Then
                    lstr_od.batchslno = 1
*                    Return lstr_od*
               End If
               If adl_bal > ldl_actual Then
                    If ldl_inst > 0 Then
                         lstr_od.batchslno = (adl_bal - ldl_actual) / ldl_inst
                    End If
               Else
                    lstr_od.batchslno = 1
               End If     
               If lstr_od.batchslno = 0 Then lstr_od.batchslno = 1
               //For full OD
               If ll_mon > ll_lnperd Then
                    lstr_od.batchslno = (ll_mon - ll_lnperd) + lstr_od.batchslno
               End If
               If ls_instmode = 'Q' Then
                    lstr_od.batchslno = lstr_od.batchslno * 3
               ElseIf ls_instmode = 'H' Then
                    lstr_od.batchslno = lstr_od.batchslno * 6
               ElseIf ls_instmode = 'Y' Then
                    lstr_od.batchslno = lstr_od.batchslno * 12
               End If
               Select :adt_prodt - :lstr_od.batchslno Into :lstr_od.cheqdt From dual;
               If ls_instmode = 'M' Then
                    ll_odno = ll_instno - lstr_od.batchslno // To get OD Date
                    Select ln_d_effdate
                    Into     :lstr_od.cheqdt
                    From     loan_inst_sch
                    Where act_c_type = :as_actype and
                              act_c_no     = :as_acno and
                              ln_n_instlno = :ll_odno;
                    If Sqlca.Sqlcode = -1 Then
                         f_message('FT-0224', + Sqlca.Sqlerrtext)
                         lstr_od.batchslno = -1
                         Return lstr_od
                    End If
               End If
          Else
               lstr_od.batchslno = 1
          End If
     End If
End if
Return lstr_od
Thanks in adance
Arun M M

Answer 1

What are you going to return the structure to? What I would normally use here if the code was going to be used by other PL/SQL would be a PL/SQL object type.
However, if PowerBuilder is still in the equation (you're moving the logic to PL/SQL but keeping PowerBuilder for the GUI ), then you'll have to return something else, because PowerBuilder doesn't understand PL/SQL object types. Perhaps passing a REF CURSOR as a OUT argument and populating it from the procedure. PowerBuilder could then retrieve the result of the procedure using a stored procedure based DataWindow.