RE: [sqr-users] Dynamic sql field problem on UNIX server

[James Womeldorf <jwomeldo@fastenal.com>]

I assume when you run on your 'client' you are on some Windows based
operating system.  If that is the case then I believe the actual SQR program
that runs on the client is different than the one that runs on your UNIX
server.  We have run into this situation here using the to-number procedure
which misbehaves when using the Window version.  We were able to code around
our problem.  I'm not certain how you can 'fix' your problem.

Jim Womeldorf
Programmer/Analyst
Fastenal Company
jwomeldo@fastenal.com
(507) 453-8250


-----Original Message-----
From: Bambach, Tom [mailto:TBambach@genchemcorp.com]
Sent: Wednesday, November 13, 2002 6:40 AM
To: sqr-users@sqrug.org
Subject: RE: [sqr-users] Dynamic sql field problem on UNIX server


Prasanna,

Thanks, but my problem is not an "order by" substitution - I have done that
many times with no problem...

This program is substituting for a field name in the select list and works
fine on the client but bombs on the (UNIX) server;  I also have other
programs
that substitute for a field name that work on both the client and UNIX
server,
so I don't understand why this program is having a problem.

Tom

> -----Original Message-----
> From: Prasanna Menta [SMTP:pmenta@umuc.edu]
> Sent: Tuesday, November 12, 2002 2:21 PM
> To:   sqr-users@sqrug.org
> Subject:      Re: [sqr-users] Dynamic sql field problem on UNIX server
> 
> Hello,
> See if the following sample code:
> input $Order_By   'Enter Y - Empl Name Order, N - Employer,Empl Name
> Order '
> Evaluate $Order_by
>     when= 'Y'
>     let $Order_by ='order by c.name'
>     break
>     when='N'
>     let $Order_By = 'order by d.address1,c.name'
>     break
>    End-evaluate
> 
> Select section will be as follows:
> where a.class_nbr = #ClassNbr         
>     AND b.item_amt >0
> [$order_by]
> 
> Hope this helps
> Prasanna
> 
> "Bambach, Tom" wrote:
> > 
> > I am running SQR v4.3.4 for PeopleSoft v7.0 (ORACLE) and v7.5 (ORACLE
> and
> > MS)...
> > 
> > When my code looks like below, it works fine in all
> > environments:
> > 
> > begin-select
> > 
> > X.BUSINESS_UNIT                     &Xbusiness_unit
> > X.VOUCHER_ID                        &Xvoucher_id
> > X.DUE_DT                            &Xdue_dt=date
> > X.SCHEDULED_PAY_DT                  &Xscheduled_pay_dt=date
> > X.REMIT_VENDOR                      &Xremit_vendor
> > V.INVOICE_ID                        &Vinvoice_id
> > V.INVOICE_DT                        &Vinvoice_dt=date
> > V1.WTHD_SW                          &V1wthd_sw
> > 
> >  let $Xbusiness_unit = &Xbusiness_unit
> >  let $Xvoucher_id = &Xvoucher_id
> >  let $Xdue_dt = &Xdue_dt
> >  let $Xscheduled_pay_dt = &Xscheduled_pay_dt
> >  let $Xremit_vendor = &Xremit_vendor
> >  let $Vinvoice_id = &Vinvoice_id
> >  let $Vinvoice_dt = &Vinvoice_dt
> >  let $V1wthd_sw = &V1wthd_sw
> > 
> >  let #upd_ctr = #upd_ctr + 1
> >  if $V1wthd_sw = 'Y'
> >   let #upd_ctr_wthd = #upd_ctr_wthd + 1
> >  end-if
> >  if $run_mode = 'U'
> >   if $V1wthd_sw = 'Y'
> >    do update-tables-wthd
> >   else
> >    do update-tables
> >   end-if
> >  end-if
> > 
> >  do write-file
> > 
> > FROM PS_PYMNT_VCHR_XREF X, PS_VOUCHER V, PS_VENDOR V1
> > WHERE X.BUSINESS_UNIT NOT IN ('GNTCC','GNTCU')
> >  AND X.PYMNT_SELCT_STATUS IN ('D','N','R')
> >  AND X.PYMNT_MESSAGE NOT LIKE 'GCC%'
> >  AND X.BUSINESS_UNIT=V.BUSINESS_UNIT
> >  AND X.VOUCHER_ID=V.VOUCHER_ID
> >  AND V.INVOICE_DT<$pet_dt_plus1
> >  AND V.OPRID='INTRFC'
> >  AND X.REMIT_SETID=V1.SETID
> >  AND X.REMIT_VENDOR=V1.VENDOR_ID
> > 
> > end-select
> > 
> > ===========================================================
> > 
> > But if I use dynamic field definition
> > 
> > if $db_name <> 'EPPROD'
> >  !all databases except EPPROD are v7.5
> >  let $wthdx = 'V1.WTHD_SW '
> > else
> >  !EPPROD is v7.0
> >  let $wthdx = 'V1.M1099_SW '
> > end-if
> > 
> > then use it in the above select
> > [$wthdx]                            &V1wthd_sw=char
> > 
> > instead of
> > V1.WTHD_SW                          &V1wthd_sw
> > 
> > When I run on the Server (UNIX), I get the following
> > error message:
> > 
> > prcs_sqr[271]: 19632 Memory fault(coredump)
> > prcs_sqr: ------------------- Error -------------------
> > prcs_sqr: Command failure
> > prcs_sqr: SQR Command Terminated abnormally
> > prcs_sqr: Return code : 139
> > prcs_sqr: ------------------- Error -------------------
> > 
> > However, if I run on the client with the [$wthdx]...   code
> > (either from a PeopleSoft panel or directly on the desktop),
> > it works fine...
> > 
> > What's going on?
> > 
> > Thanks.
> > 
> > Tom Bambach
> > 
> > _______________________________________________
> > sqr-users mailing list
> > sqr-users@sqrug.org
> > http://www.sqrug.org/mailman/listinfo/sqr-users
> 

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

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