Re: SQR 3728 error

[Ray Ontko <rayo@ONTKO.COM>]

It looks like your EVALUATE statements begin in the
first column.  Since you're inside a BEGIN-SELECT
block, they need to be indented.

Ray

[Charset iso-8859-1 unsupported, filtering to ASCII...]
> Hi all,
>
> I'm hoping someone else has encountered this problem as well.  Whenever I
> run the following procedure, I receive the error:
>
> Error on line 145:
>    (SQR 3728) SQL expression not ended, perhaps missing &Name.
> >From PS_JOB PJ, PS_EMPLOYMENT PE
>
> Errors were found in the program file.
>
> SQRW: Program Aborting.
>
>
>
>
> Begin-Procedure Activity
> Begin-Select Distinct
> PJ.EMPLID &Emplid
>   Move &Emplid to $Emplid
> PJ.ACTION &Action
>   Move &Action to $Action 00
> PJ.ACTION_DT &Term_Date
>   Move &Term_Date to $Term_Date
> PJ.ACTION_REASON &Term_Code
>   Move &Term_Code to $Term_Code 00
> EVALUATE $Action
>      WHEN = 'Hire'
>           LET $Action = '01'
>      WHEN = 'LOA'
>          LET $Action = '03'
>          BREAK
>      WHEN = 'Return-LOA'
>          LET $Action = '04'
>      WHEN = 'Terminatn'
>          LET $Action = '05'
>          BREAK
>      WHEN = 'Transfer'
>          LET $Action = '10'
>      WHEN = 'Rehire'
>          LET $Action = '14'
>          BREAK
>      END-EVALUATE
>
> EVALUATE $Term_Code
>      WHEN = 'LVE'
>           LET $Term_Code = '07'
>      WHEN = 'RAT'
>          LET $Term_Code = '30'
>          BREAK
>      WHEN = 'ERT'
>          LET $Term_Code = '31'
>      WHEN = 'PTD'
>          LET $Term_Code = '34'
>          BREAK
>      WHEN = 'DEA'
>          LET $Term_Code = '80'
>          BREAK
>      END-EVALUATE
>
>
>   do Format-Datetime($DATE, $DATE, {DEFCMP},'','')
>   Let $DATE_YYYY = SUBSTR($DATE,1,4)
>   Let $DATE_MM = SUBSTR($DATE,5,2)
>   LET $DATE_DD = SUBSTR($DATE,7,2)
>   LET $DATE1 = $DATE_MM||$DATE_DD||$DATE_YYYY
>
>   do Format-Datetime($Term_Date, $Term_Date, {DEFCMP},'','')
>   Let $DATE_YYYY2 = SUBSTR($Term_Date,1,4)
>   Let $DATE_MM2 = SUBSTR($Term_Date,5,2)
>   LET $DATE_DD2 = SUBSTR($Term_Date,7,2)
>   LET $Term_Date2 = $DATE_MM2||$DATE_DD2||$DATE_YYYY2
>
>
>   Write 1 from $Emplid:9 $Action:2 $Term_Date2:8 $Term_Code:2
>
> >From PS_JOB PJ, PS_EMPLOYMENT PE
> where PE.EMPLID = PJ.EMPLID
> and PJ.paygroup in ('TM0', 'TM1', 'TM2', 'TM3')
> and PJ.action_reason in ('LVE', 'RAT', 'ERT', 'PTD','DEA')
> and PE.cmpny_seniority_dt < '01-JAN-2000'
> and PJ.action_dt between $BEGINDATE AND $ENDDATE
> order by 1, 3 ASC
> End-Select
> End-Procedure
>
> The version of SQRW we are using is 3.0.13.2.
> The machine is Windows NT 4.0 sp3.0
> And the database is Oracle 7.3.4.4.0.
>
> If anyone has any ideas on how to work around this error, I would be most
> appreciative.
>
> Thanks in advance,
>
> Mark Deitrick
> Superior Essex
> DBA
>
>
>
> "Follow the path of the unsafe, independent thinker. Expose your ideas to
> the dangers of controversy.  Speak your mind and fear less the label of
> 'crackpot' than the stigma of conformity.  And on issues that seem important
> to you, stand up and be counted at any cost."
>  -Thomas J. Watson
>

----------------------------------------------------------------------
Ray Ontko   rayo@ontko.com   Phone 1.765.935.4283   Fax 1.765.962.9788
Ray Ontko & Co.   Software Consulting Services   http://www.ontko.com/