Re: SQR 3728 error

[Rick_Creel@AONCONS.COM]

You've gotten your answer ... to indent the EVALUATE statement.

In looking at your code, some of the WHEN conditions have included a BREAK
command, and some you do not.  You  might want to consider having a BREAK
statement with each of your WHEN conditions.  This isn't part of your initial
problem, but it might save you some debugging headaches later on :-)






"Deitrick, Mark" <Mark_Deitrick@SUPERIORESSEX.COM> on 05/17/2001 10:07:17 AM

Please respond to sqr-users@list.iex.net

To:   SQR-USERS@list.iex.net
cc:    (bcc: Rick Creel/IT/Aon Consulting)

Subject:  SQR 3728 error



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