[sqr-users] Need help in SQR -- pls

[deepa konga <deepakonga@yahoo.com>]

Hey hello,

I have been trying to pass the run control parameters..

I m getting errors...

pls help me with this


#Include 'Setenv.Sqc' !Set Environment
#Include 'Setup31.Sqc' !Printer And Page-Size Initialization

!---------------------------------------------------------------------------------------------------------------
Begin-Setup
!---------------------------------------------------------------------------------------------------------------
Declare-Variable
DATE $VDATE $TDATE
End-Declare
!-------------------------------------------------------------
End-Setup
!-------------------------------------------------------------


!-------------------------------------------------------------
Begin-Report
!-------------------------------------------------------------
Do Init-Report
If $Prcs_Process_Instance <> ''
Do Update-Prcs-Run-Status
End-If
!------------------------- 
End-Report
!-------------------------


!--------------------------------------
Begin-Procedure Init-Report
!--------------------------------------
Do Init-Datetime
Do Init-Number
Do Get-Current-Datetime
Do Define-Prcs-Vars
Do Get-Run-Control-Parms
Do get_parameters
!---------------------------
End-Procedure
!---------------------------


!--------------------------------------
begin-heading 3
!--------------------------------------
print 'BUSINESS_UNIT' (2,1)
print 'VOUCHER_ID' (,30)
print 'VNDR_LOC' (,70)
!------------------------- 
end-heading
!------------------------- 


!-------------------------
begin-procedure get_parameters
!-------------------------
!-------------------------
begin-select 
!-------------------------
A.BUSINESS_UNIT &A.BUSINESS_UNIT
A.VOUCHER_ID &A.VOUCHER_ID
A.VNDR_LOC &A.VNDR_LOC
let $BU = &A.BUSINESS_UNIT
let $VID = &A.VOUCHER_ID 
let $VNDRLOC = &A.VNDR_LOC 
do voucher_list
from PS_CT_RAD_RECORD A
where A.OPRID = $PRCS_OPRID
and A.RUN_CNTL_ID = $PRCS_RUNCNTL_ID
!-------------------------
end-select
!-------------------------
!-------------------------
end-procedure
!-------------------------


!-------------------------
begin-procedure voucher_list
!-------------------------
!-------------------------
begin-select
!-------------------------
B.BUSINESS_UNIT (,1) 
B.VOUCHER_ID (,30) 
B.VNDR_LOC (,70)
from PS_VOUCHER B 
order by B.BUSINESS_UNIT, B.VOUCHER_ID
where B.BUSINESS_UNIT = $BU and B.VOUCHER_ID = $VID and B.VNDR_LOC = $VNDRLOC
!-------------------------
end-select
!-------------------------
!--------------------------------------
end-procedure
!--------------------------------------


#Include 'Curdttim.Sqc' !Current Date And Time
#Include 'Datetime.Sqc' !Routines For Date And Time Formatting
#Include 'Number.Sqc' !Routines To Format Numbers
#Include 'Prcsapi.Sqc' !Update Process Request Api
#Include 'Prcsdef.Sqc' !Update Process Request Variable Declaration
#Include 'Reset.Sqc' !End Of Program


These are the errors i m getting

Error on line 61:
(SQR 3719) Columns names and expressions must be unique or be given unique 
pseudonyms (&name).
let $BU = &A.BUSINESS_UNIT

Error on line 62:
(SQR 3719) Columns names and expressions must be unique or be given unique 
pseudonyms (&name).
let $VID = &A.VOUCHER_ID

Error on line 63:
(SQR 3719) Columns names and expressions must be unique or be given unique 
pseudonyms (&name).
let $VNDRLOC = &A.VNDR_LOC

Error on line 65:
(SQR 3728) SQL expression not ended, perhaps missing &name.
from PS_CT_RAD_RECORD A
(SQR 1303) Error in SQL (perhaps missing &name after expression):
SELECT B.BUSINESS_UNIT, B.VOUCHER_ID, B.VNDR_LOC from PS_VOUCHER B order by 
B.BUSINESS_UNIT, B.VOUCHER_ID where B.BUSINESS_UNIT = ? and B.VOUCHER_ID = ? 
and B.VNDR_LOC = ? 
(SQR 1304) Check SELECT columns, expressions and 'where' clause for syntax.

SQR for PeopleSoft: Program Aborting.
 
Thanks
 
Deepa!!!!!!


      

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