[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index] [Date Index] [Thread Index]
[SQR-USERS Info] [SQRUG Home Page]

[sqr-users] problem with Blank page

Hello everyone,
I got a strange problem,Recently i added a footing to my sqr in order
to print page numbers,it worked fine but the problem is now iam
getting an  blank page after each page. i even changed the page size
from "80 132" to "60 132", i dont think it is creating the problem.
Can someone help me in solving this issue?? thanks in advance. iam
attaching my SQR with this mail.


!******************************************************************************
begin-setup
   page-size 60 132
   printer-init <27>(10U<27>(s0p12.00h10.0v0s0b0T
!  page-size  if no page-size is listed the page size is 62 lines x 132 columns
end-setup
!******************************************************************************
begin-program

   encode '<27>(8U<27>(s0p12.00h10.0v0s3b3T' into $bold   ! header size
   encode '<27>(8U<27>(s0p13.00h10.0v0s3b3T' into $bold1  ! shrink the font size
   encode '<27>(8U<27>(s0p13.00h10.0v0s3b3T' into $bold2  ! shrink the font size
   encode '<27>(8U<27>(s0p13.00h10.0v0s0b0T' into $light
   encode '<27>(8U<27>(s0p13.00h10.0v0s0b3T' into $light1
   encode '<27>(8U<27>(s0p13.00h10.0v0s0b3T' into $light2

   encode '<27>&k2G' into $pcl
   encode '<27>(s0p12.0v0s3b3T'              into $cmds

   do init_routine
   do get_paycenter_info
   do get_participant_info
   do header_part_loan_application
                              if #current-line >= #max_lines
                              new-page
  do header_part_loan_application1
                              end-if
!new-page
end-program
!******************************************************************************
begin-footing 1
move #page-count to #page
add 2 to #page
print 'page ' (1,79)
print #page (1,84) edit 99
end-footing
!******************************************************************************
begin-procedure init_routine

        input   $ssn
        input   $ret_suffix
        input   $ret_entity
      input   $loan_no
        input   $ret_repayment_indicator
                                            let #max_lines = 58
input   $ret_amount_of_loan
        input   $loan_maturity_date
        input   $loan_eff_date
        input   $loan_int_rate
    input   $ret_loan_term
        input   $loan_freq
        input   $next_sch_pmt_amt
    input   $number_of_payments
        input   $collateral_int_rate
        input   $paycenter
   if $paycenter = 'null'
     let $paycenter = ''
   end-if
   if $loan_no = 'null'
     let $loan_no = ''
   end-if
   if $ret_suffix = 'null'
    let $ret_suffix = ''
   end-if
   !if length($ret_employer_code) < 6
   !     let $ret_employer_code = $ret_employer_code || ' '
   !end-if
   !if length($ret_employer_code) < 6
   !     let $ret_employer_code = $ret_employer_code || ' '
   !end-if
   !if length($ret_employer_code) < 6
   !     let $ret_employer_code = $ret_employer_code || ' '
   !end-if

! ** MORE parameters read in from FORMS window
   let #months      = to_number($ret_loan_term) * 12   !convert yrs to months
   let $months      = edit(#months, '999') || ' months'
   let $amt_of_loan = '$' || $ret_amount_of_loan
   let $amt_of_loan = edit($amt_of_loan, '999,999,999.99')
   let $default_fee = 'null'
   let $insuff_fund_fee = 'null'
   let $application_fee = 'null'
   let $administration_fee = 'null'

!!'$' || nvl(INITIATION_CHARGE,'0') &application_fee
!'$' || nvl(ANNUAL_SERVICE_FEE,'0') &annual_admin_fee
begin-select distinct
!LOAN_SETUP_FEE     &application_fee
!ANNUAL_SETUP_FEE   &annual_admin_fee
!DEFAULT_FEE              &default_fee
!INSUFFICIENT_FUND_FEE   &insufficient_fund_fee
minimum_loan_amount      &min_loan

from ret_entity_int_rates
where ENTITY_START_RANGE <= $ret_entity
and   ENTITY_END_RANGE >= $ret_entity
end-select

begin-select
substr($ret_entity,1,1)    &first_let
substr($ret_entity,1,2)    &second_let
substr($ret_entity,-2,1)   &penu_let
substr($ret_entity,-2)     &last_let

       if (ascii(&first_let) >= 65.0 and ascii(&first_let) <= 90.0)
          do get_def_fee_alpha
          do get_con_info_alpha
       else
          if (ascii(&penu_let) >= 65.0 and ascii(&penu_let) <= 90.0)
             do get_def_fee_last_alpha
             do get_con_info_last_alpha
          else
             do get_def_fee
             do get_con_info
          end-if
       end-if

from dual
end-select


!   let $AA = '$' || edit(round(&annual_admin_fee,0), '9999')
!   let $AP = '$' || edit(round(&application_fee,0), '9999')
!   let $DF = '$' || edit(round(&default_fee, 0),'9999')
!   let $IF = '$' || edit(round(&insufficient_fund_fee, 0),'9999')
   let $min_ln= '$' || edit(round(&min_loan,0), '888,888') ||'.'
   if $default_fee = 'null'
      let $DF   = '$0'
   else
      let $DF   = '$' ||$default_fee
   end-if
   if $insuff_fund_fee = 'null'
      let $IF   = '$0'
   else
      let $IF   = '$' ||$insuff_fund_fee
   end-if
   if $application_fee = 'null'
      let $AP   = '$0'
   else
      let $AP   = '$' ||$application_fee
   end-if
   if $administration_fee = 'null'
      let $AA   = '$0'
   else
      let $AA   = '$' ||$administration_fee
   end-if

!begin-select
!contact_number                  &tele_ph_no
!administrator_short        &admin_short
!administrator_long              &admin_long_nm
!first_line         &first_line
!second_line            &second_line

!from ret_contact_info
!where entity       = $ret_entity
!end-select

   let $line1 = $first_line
   let $line2 = $second_line
   UPPERCASE $line1
   UPPERCASE $line2

   let $eligibility = 'Eligibility: '||$light2
   let $elig2=$eligibility||'In order to be eligible to receive a loan, you must
 be an actively'
   let $elig3='employed Plan Participant.'||$bold2
   let $elig2=$eligibility||'In order to be eligible to receive a loan, you must
 be a participant'
   let $elig3='in the Plan.'|| $bold2
   let $signing = $bold2||'By'
   let $amount_desired = 'Loan Amount Desired:  '
   let $loan_amount = $amt_of_loan ||$light2
   let $50thou      = '$50,000'
   let $by_bold = $bold2||'By'
   let $the_bold = $bold2||'The'
   let $loan_period = 'Loan Period Desired: '
   let $security = 'Loan Security: '||$light2
   let $important = 'Important Tax Notice: '||$light2
   let $intRate   = 'Interest Rate: '||$light2
   let $applFee   = 'Loan Application Fee: '||$light2||'An application fee of '|
|$AP||' will be deducted from'
!   let $annualFee ='Loan Annual Fee: '||$light2
   let $annualAdminFee = 'Annual Administration Fee: '||$light2||'An annual admi
nistrative fee of '||$AA||' will'
   let  $loanDefaultFeeHeader = 'Loan Default Fee: '||$light2||'At the time of a
ny default on the loan, a default'
   let $loanDefaultFee = 'fee of '||$DF||' will be deducted from your Plan accou
nt(s).'
   let $insufficientFundFee = 'insufficient funds fee of '||$IF||' will be deduc
ted from your Plan account(s).'
   let $insuffFundFeeHeader = 'Insufficient Funds Fee: '||$light2||'If the Admin
istrator '
   let $assetFee = 'Asset Fee: '||$light2||' '
end-procedure init_routine
!*************************************************************************
begin-procedure get_def_fee
begin-select distinct
entity_start_range      &start_range
entity_end_range        &end_range
default_fee             &def_fees
insufficient_fund_fee   &insuff_fund_fee
loan_setup_fee          &application_fee
annual_setup_fee        &administration_fee

       do def_fee2
from ret_entity_int_rates
where substr(entity_start_range,1,1) not between 'A' and 'Z'
and substr(entity_end_range,1,1) not between 'A' and 'Z'
end-select
end-procedure get_def_fee
!******************************************************************************
begin-procedure def_fee2

   if $ret_entity >= &start_range and $ret_entity <= &end_range
      move &def_fees to $default_fee 888,888,888.88
      move &insuff_fund_fee to $insuff_fund_fee 888,888,888.88
      move &application_fee to $application_fee 888,888,888.88
      move &administration_fee to $administration_fee 888,888,888.88
   end-if
end-procedure def_fee2
!******************************************************************************
begin-procedure get_def_fee_alpha
begin-select distinct
entity_start_range             &start_range_alpha
entity_end_range               &end_range_alpha
default_fee                    &def_fees_alpha
insufficient_fund_fee          &insuff_fund_fee_alpha
loan_setup_fee                 &application_fee_alpha
annual_setup_fee               &administration_fee_alpha
       do get_def_fee_alpha2
from ret_entity_int_rates
where substr(entity_start_range,1,2) = &second_let
and substr(entity_end_range,1,2) = &second_let
end-select
end-procedure get_def_fee_alpha
!*************************************************************************
begin-procedure get_def_fee_alpha2

   if $ret_entity >= &start_range_alpha and $ret_entity <= &end_range_alpha
      move &def_fees_alpha to $default_fee 888,888,888.88
      move &insuff_fund_fee_alpha to $insuff_fund_fee 888,888,888.88
      move &application_fee_alpha to $application_fee 888,888,888.88
      move &administration_fee_alpha to $administration_fee 888,888,888.88
   end-if
end-procedure get_def_fee_alpha2
!******************************************************************************
begin-procedure get_def_fee_last_alpha
begin-select distinct
entity_start_range             &start_range_last_alpha
entity_end_range               &end_range_last_alpha
default_fee                    &def_fees_last_alpha
insufficient_fund_fee          &insuff_fund_fee_last_alpha
loan_setup_fee                 &application_fee_last_alpha
annual_setup_fee               &administration_fee_last_alpha
       do get_def_fee_last_alpha2
from ret_entity_int_rates
where substr(entity_start_range,-2) = &last_let
and substr(entity_end_range,-2) = &last_let
end-select
end-procedure get_def_fee_last_alpha
!*************************************************************************
begin-procedure get_def_fee_last_alpha2

   if $ret_entity >= &start_range_last_alpha and $ret_entity <= &end_range_last_
alpha
      move &def_fees_last_alpha to $default_fee 888,888,888.88
      move &insuff_fund_fee_last_alpha to $insuff_fund_fee 888,888,888.88
      move &application_fee_last_alpha to $application_fee 888,888,888.88
      move &administration_fee_last_alpha to $administration_fee 888,888,888.88
   end-if
end-procedure get_def_fee_last_alpha2
!******************************************************************************
begin-procedure get_con_info
begin-select
entity_start_range      &entity_start_range
entity_end_range        &entity_end_range
contact_number          &contact_number
administrator_short     &admin_short
administrator_long      &administrator_long
first_line              &first_line
second_line             &second_line

       do get_con_info2
from ret_contact_info
where substr(entity_start_range,1,1) not between 'A' and 'Z'
and substr(entity_end_range,1,1) not between 'A' and 'Z'
end-select
end-procedure get_con_info
!******************************************************************************
begin-procedure get_con_info2

   if $ret_entity >= &entity_start_range and $ret_entity <= &entity_end_range
      move &contact_number to $tele_ph_no
      move &admin_short to $admin_short
      move &administrator_long to $admin_long_nm
      move &first_line to $first_line
      move &second_line to $second_line
   end-if
end-procedure get_con_info2
!******************************************************************************
begin-procedure get_con_info_alpha
begin-select
entity_start_range      &entity_start_range_alpha
entity_end_range        &entity_end_range_alpha
contact_number          &contact_number_alpha
administrator_short     &admin_short_alpha
administrator_long      &administrator_long_alpha
first_line              &first_line_alpha
second_line             &second_line_alpha

       do get_con_info_alpha2
from ret_contact_info
where substr(entity_start_range,1,2) = &second_let
and substr(entity_end_range,1,2) = &second_let
end-select
end-procedure get_con_info_alpha
!******************************************************************************
begin-procedure get_con_info_alpha2

   if $ret_entity >= &entity_start_range_alpha and $ret_entity <= &entity_end_ra
nge_alpha
      move &contact_number_alpha to $tele_ph_no
      move &admin_short_alpha to $admin_short
      move &administrator_long_alpha to $admin_long_nm
      move &first_line_alpha to $first_line
      move &second_line_alpha to $second_line
   end-if
end-procedure get_con_info_alpha2
!******************************************************************************
begin-procedure get_con_info_last_alpha
begin-select
entity_start_range      &entity_start_range_last_alpha
entity_end_range        &entity_end_range_last_alpha
contact_number          &contact_number_last_alpha
administrator_short     &admin_short_last_alpha
administrator_long      &administrator_long_last_alpha
first_line              &first_line_last_alpha
second_line             &second_line_last_alpha

       do get_con_info_last_alpha2
from ret_contact_info
where substr(entity_start_range,-2) = &last_let
and substr(entity_end_range,-2) = &last_let
end-select
end-procedure get_con_info_last_alpha
!******************************************************************************
begin-procedure get_con_info_last_alpha2

   if $ret_entity >= &entity_start_range_last_alpha and $ret_entity <= &entity_e
nd_range_last_alpha
      move &contact_number_last_alpha to $tele_ph_no
      move &admin_short_last_alpha to $admin_short
      move &administrator_long_last_alpha to $admin_long_nm
      move &first_line_last_alpha to $first_line
      move &second_line_last_alpha to $second_line
   end-if
end-procedure get_con_info_last_alpha2
!******************************************************************************
begin-procedure get_paycenter_info

begin-select
name                 &paycenter_name

from pebs_payroll_centers
where vgroup_entity = $ret_entity
and id = $paycenter
end-select

end-procedure get_paycenter_info
!******************************************************************************
begin-procedure get_participant_info

begin-select
name                    &ndci_name
ssn         &ndci_ssn
addr1                &ndci_addr1
addr2                &ndci_addr2
addr4                &ndci_citystate
zip                    &ndci_zip
!home_phone     &ndci_home_ph

from vpart@rtldevl
where ssn    = $ssn
and  entity            = $ret_entity
and nvl(SUFFIX,'X') = nvl($ret_suffix,'X')
end-select

end-procedure get_participant_info
!******************************************************************************
begin-procedure header_part_loan_application

print $bold (1,0)
   let #start = round(( 100 - length($line1) ) / 2,0)
   print $line1 (+1, #start)
   let #start2 = round(( 100 - length($line2) ) / 2,0)
   print $line2 (+1, #start2)
   let $line3 = 'PARTICIPANT LOAN APPLICATION'
   let #start3 = round(( 100 - length($line3) ) / 2,0)
   print $line3 (+1, #start3)

!print 'THE STATE OF '   (+1,40)
!print $upper_st (  , 53)
!print 'PUBLIC EMPLOYEES DEFERRED COMPENSATION PLAN'  (+1,28)
!print 'PARTICIPANT LOAN APPLICATION'   (+1,36)

begin-document  (+1,6)
 $light2
  Please review this application carefully before completing it.  The entire
  application must be completed and signed.  Your application must be approved
  under guidelines established under the Plan by the Employer and/or Plan
  Sponsor (hereinafter collectively referred to as "Plan Sponsor") as
  administered by $admin_long_nm                        (hereinafter
  "Administrator" or "Service Center"). If you do not understand any part of thi
s
  application, please contact the Service Center at $tele_ph_no .
$bold1
  NAME:____________________________________ SOCIAL SECURITY NUMBER:____________
  ADDRESS:__________________________________________________________
  CITY:__________________ STATE:____________ ZIP:_____________
  DAYTIME PHONE:___________________________ HOME PHONE:________________________
  E-MAIL ADDRESS:_____________________________________
.b
  EMPLOYER/DEPARTMENT:____________________________
  PAYCENTER NUMBER: $paycenter
  PAYCENTER NAME: &paycenter_name
  $bold2
  $elig2
  $elig3
.b
  $amount_desired     $loan_amount
  The minimum loan amount is $min_ln  The maximum amount of an approved loan
  shall not exceed the lesser of: (i) 50% of your total vested account balance
  in all MSRP Plans you participate in (not including any value attributable to
  any life insurance policy or deemed IRA account) less any outstanding loans in
  all MSRP Plans you participate in, or (ii) $50thou less your highest outstandi
ng
  loan balance during the preceding one-year period, based on all MSRP Plans you

  participate in.  $the_bold                     amount listed above will be con
tingent upon your account
  value at the time the loan is processed.  $by_bold                     signing
 this Loan Application, you
  represent that your receipt of the "Loan Amount Desired" from the Plan will no
t
  cause you to exceed these limits.
$light2
  The loan amount will be withdrawn from your account in accordance with the
  administrative procedures under the Plan.  If the source for a single loan
  includes both your Deferred Compensation and Eligible Rollover Accounts, you
  must complete a loan application and loan agreement for each account.  You
  may elect which funds and money sources you wish the amount to be taken from
  provided your Plan allows for such.  If funds and sources are not indicated,
  money will be taken according to the default structure chosen by the Plan
  Sponsor.
.b
  Do you currently have an outstanding loan under the Plan? __________
.b
  Have you had an outstanding loan within the last 12 months under the Plan or
  any other plan of the Plan Sponsor? __________
.b
  Have you ever defaulted on any loan under the Plan that you have not repaid
  in full? _________
$bold2
  $loan_period            $months
$bold2
$security                                 You are giving a security interest i
n your vested Plan
end-document
end-procedure header_part_loan_application
!******************************************************************************
begin-procedure header_part_loan_application1
begin-document (+1,6)
  balance as of the date of the Loan Process Date, together with all additions
  thereof, to the Plan that shall at all times be equal to 100% of the unpaid
  principal balance of the loan together with accrued interest.
$bold2
  $important                                       Under the terms of the Plan a
nd applicable law,
  if you become delinquent on loan repayments, the Administrator must consider
  the entire loan in default and report the delinquency to the Internal Revenue
  Service as a taxable event.  In such case, a copy of such report will be
  mailed to you before February 1 after the calendar year in which the default
  occurs.  You will then be responsible for paying income tax and penalties on
  the taxable amount of the loan default.
$bold2
  $intRate                                  Under current law, the interest rate
 on the loan must
  be determined at the time the loan is made, not at the time you receive or
  complete this application.  The rate should be fixed for the duration of the
  loan.  The interest rate will be 1% above the prime rate as published by the
  Wall Street Journal two weeks prior to the end of the most recent calendar-yea
r
  quarter.  Along with this Loan Application, you should have received the requi
red
  Truth In Lending Disclosure Statement that will describe how the interest is
  calculated and will state the interest rate for your loan.
$bold2
  $applFee
  your Plan account pro rata.  The application fee is nonrefundable.
$bold2
  $annualAdminFee
  be deducted from your Plan account pro rata and will be assessed each year
  based on the anniversary of the loan set up until the loan is paid.
$bold2
  $loanDefaultFeeHeader
  $loanDefaultFee
$bold2
  $insuffFundFeeHeader                                                   is unab
le to process a
  loan payment on the date due because of lack of sufficient funds, an
  $insufficientFundFee
.b
  Along with this Loan Application, you should have received the following:
  (i) a Loan Agreement that sets forth the terms of the loan and (ii) a
  Truth-In-Lending Disclosure Statement.  $by_bold                     signing t
he Loan
  Application, you certify that all of the information provided by you herein
 is complete and accurate, that you understand and agree to the terms set
  forth in the Loan Agreement and acknowledge you have received and read a
  fully completed Truth-In-Lending Disclosure Statement.
.b
  $light2
__________________________                        _____________________________
Participant's Signature                            Date
end-document

end-procedure header_part_loan_application1
!******************************************************************************

_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users