Re: let $where2 = 'and workorder.crewid = ''$crewb'''

[Arun Kumar <arunkumar13@YAHOO.COM>]

Try this,

if $site = '3'
          input $crewb 'Enter desired Crewid'
          uppercase $crewb
     let $where2 = 'and workorder.crewid ='|| '''' ||
$crewb || ''''
     end-if





--- "McCown, Larry" <MCCOWLA@MAIL.NORTHGRUM.COM>
wrote:
> Would someone be nice enough to review this $where2
> statement and let me
> know if you have any suggestions for when $site = 3.
>  $Site 1 & 2 work fine
> but when I try Site 3 no records are returned.
> SQR 4.3
> SQLServer 7
> Maximo 4.0.3
> Thank you in advance for your insight.
> Larry McCown
> Northrop Grumman
> Western Region Facilities
> One Hornet Way WG00/W9
> El Segundo, Ca. 90245
> mccowla@mail.northgrum.com
> <mailto:mccowla@mail.northgrum.com>
> Phone (310)628-3939
> Fax      (310)331-7452
>
>
>
> begin-procedure sel_wos
>
>         if $site = '1'
>   let $where2 = 'and workorder.crewid in
>
(''ES-02'',''PS-08'',''SM-01'',''SM-03'',''SC-01'',''SC-02'',''SC-03'',''CT-
> 01'')'
>         end-if
>         if $site = '2'
>   let $where2 = 'and workorder.crewid in (''AC
> 0'',''AC 1'',''AC 2'',''CA
> 1'',''CM 2'',''CT 0'',''CT 1'',''CT 2'',
>                 ''EC 0'',''EC 1'',''EC
> 2'',''ENG1'',''FM 1'',''HK 1'',''HK
> 2'',''MG 0'',''MG 1'',
>                 ''MM 1'',''MM 2'',''NC 1'',''PA
> 2'',''PEO1'',''PL 1'',''PL
> 2'',''RS 1'',''UO 1'',
>                 ''UO 2'',''UO 3'',''UW
> 1'',''VUW1'',''VUW2'',''WE 1'')'
>     end-if
>     if $site = '3'
>          input $crewb 'Enter desired Crewid'
>          uppercase $crewb
>     let $where2 = 'and workorder.crewid =
> ''$crewb'''
>     end-if
>  move $current-date to $today
> begin-select
> workorder.status        &status      (+1,1,5)
> on-break
> print=change/top-page before=prt
> workorder.crewid            &crewid      (,8,5)
> on-break print=always
> before=prt
> workorder.wonum             &wonum       (,14,8)
>            !len10
> workorder.eqnum         &eqnum       (,22,8)
>    !len10
> workorder.description   &wodesc      !(,31,35)
>    !len50
> workorder.woeq1         &woeq1       (,68,6)
>    !len10   Bldg
> workorder.reportdate    &reportdate  (,74,11)
> edit mm/dd/yy!len10
> reported date
> workorder.WOPRIORITY    &wopriority  (,86,1)
> workorder.WORKTYPE          &worktype    (,88,4)
> workorder.jpnum         &wojpnum
> workorder.pmnum         &wopmnum
>    let #daysopen2 =
> datediff($current-date,&reportdate,'day')
>                 move #daysopen2 to #open
>     if #open >=45
>             print #open  (,93,3)    edit 999  BOLD
>         else
>             print #open  (,93,3)    edit 999
>     end-if
>     if &worktype = 'PM'
>         !        if $site = '1'
>             do jobplan
>    !     else
>                 if $site = '2'
>             do palmdale
>             end-if
>         else
>             print &wodesc   (,31,35)
>    ! end-if
>    ! end-if
>     end-if
>
>         add 1 to #count
>         from workorder
>         where [$where]
>         [$where2]
>     and workorder.reportdate < $current-date - #days
>     and workorder.historyflag = 'N'
> !       [$order]
>     order by 2,1,7
> end-select
> end-procedure


__________________________________________________
Do You Yahoo!?
Make international calls for as low as $.04/minute with Yahoo! Messenger
http://phonecard.yahoo.com/