FWIW:

Got my copy (for my OS/2 box) but haven't had time to put it up.

August is loking good <g>.

At 09:11 AM 7/19/99 -0700, Paul OldenKamp wrote: >Phil Mason wrote: >> >> if anyone wants any bit of code tried out in v8, then you could send it to >> me and I will give it a try - so long as it is quick & easy to run. >> >> Phil Mason >> >> p.s. I have my copy of SAS V8 because I am writing a book for the SAS Books >> By Users programme (BBU). Want to write a book and get all the SAS software >> you need? If so, check the SAS web site or ask me about it. > >First my question on V8 shipping. At the PNWSUG Conference last month >the SI folks told us that V8 would ship to *all* the V7 sites in July. >Since we are well into July I was wondering whether any V7 sites have >received V8. As of last week we haven't but SI sends things to us in >funny ways so that we often don't get them. They told us that our >7-1 documentation CD(one for the whole Boeing Company I guess) was >sent to us in May but nobody knows where it was sent and the >Representatives who should have received it haven't. > >Below is a SAS/GRAPH program using the annotate macros that behaves >differently in 6.12 and 7. Could you run it in V8 Phil? At the PNWSUG >I learned that changes have been made in the annotate macros between >v6.12 and v7/8 but the changes are undocumented. > >I got a program similar to this one to work in one session but in >subsequent sessions I have not been able to get it to work. When I >comment out the gridlab and gridsum macros in the datastep the main >table appears, sometimes with additional uncalled for elements, and >when I comment out the grid macro the gridlab and gridsum mostly seem >to work but I cannot get both to work together. Here's the program: > >proc format > library=work > ; > value $prty > 'A/C' = 'AOG/Critical' > 'R/E' = 'Routine/Expedite' > ; >run; > >data next00_t; > infile cards; > input @01 custind 2.0 > @05 prty $5. > @10 week 8. > @20 stocked 2. > @25 etosbysd 10.6 > ; > format week date7.; >cards; > 65.262998 > 0 48.296247 > 1 71.195679 > 14329 53.269971 > 14329 0 25.733042 > 14329 1 62.871967 > 14336 63.558060 > 14336 0 43.834494 > 14336 1 70.472497 > 14343 65.125700 > 14343 0 46.355140 > 14343 1 71.549656 > 14350 62.283137 > 14350 0 46.334451 > 14350 1 67.357829 > 14357 65.219881 > 14357 0 43.964365 > 14357 1 72.575921 > 14364 66.761178 > 14364 0 51.888939 > 14364 1 71.447010 > 14371 65.221478 > 14371 0 48.432056 > 14371 1 71.423974 > 14378 67.402359 > 14378 0 55.963303 > 14378 1 71.409788 > 14385 68.869048 > 14385 0 55.717489 > 14385 1 73.622366 > 14392 73.126914 > 14392 0 53.653137 > 14392 1 78.759740 > 14399 64.090909 > 14399 0 44.780988 > 14399 1 70.759575 > 14406 64.810413 > 14406 0 51.848907 > 14406 1 69.968354 > 14413 60.100205 > 14413 0 46.982055 > 14413 1 65.181675 > 14420 62.718724 > 14420 0 49.490420 > 14420 1 68.174176 > 14427 71.230249 > 14427 0 54.803261 > 14427 1 76.931594 >;; >run; > >options > mprint > mlogic > symbolgen > ; >run; > > %macro grid > (row, > col, > txt, > orgy, > boxh, > pos, > font, > fsize); > > %system > (2,3,3); > > %bar > (&col-3.5, > &orgy-(&boxh*(&row)), > &col+3.5, > &orgy-(&boxh*&row+2), > black, > 0, > E); > > %label > (&col-.03, > &orgy-(&boxh*(&row-1)) - .3, > &txt, > black, > 0, > 0, > &fsize, > &font, > &pos > ); > > %mend grid; > > %macro gridsum > (row, > txt, > orgy, > boxh, > pos, > font, > fsize); > > %system > (1,3,3); > > %bar > (102, > &orgy-(&boxh*(&row)), > 110, > &orgy-(&boxh*&row+2), > black, > 0, > E); > > %label > (106, > &orgy-(&boxh*(&row-1)) - .3, > &txt, > black, > 0, > 0, > &fsize, > &font, > &pos > ); > > %mend gridsum; > > %macro gridlab > (row, > txt, > orgy, > boxh, > pos, > font, > fsize); > > %system > (1,3,3); > > %bar > (-10, > &orgy-(&boxh*(&row)), > 0, > &orgy-(&boxh*&row+2), > black, > 0, > E); > > %label > (0, > &orgy-(&boxh*(&row-1)) - .3, > &txt, > black, > 0, > 0, > &fsize, > &font, > &pos > ); > > %mend gridlab; > >%annomac; > >data anno1; > length text $20; > %dclanno; > set next00_t(keep=week etosbysd custind week stocked prty) > end=eof > ; > by custind prty week stocked; > if 1 then do; > if stocked eq . then do; > if week eq . then do; > %gridlab(1, > 'Week End', > 16, > 2, > 7, > swissb, > 1.65); > %gridlab(2, > 'All', > 16, > 2, > 7, > swissb, > 1.65); > %gridsum(1, > 'Mean', > 16, > 2, > 8, > swissb, > 1.65); > %gridsum(2, > put(etosbysd,5.2), > 16, > 2, > 8, > swissb, > 1.65); > end; > else do; > %grid(1, > week, > put(week,mmddyy5.), > 16, > 2, > 8, > swissb, > 1.65); > %grid(2, > week, > put(etosbysd,5.2), > 16, > 2, > 8, > swissb, > 1.65); > end; > end; > else if stocked then do; > if week eq . then do; > %gridlab(3, > 'Yes', > 16, > 2, > 7, > swissb, > 1.65); > %gridsum(3, > put(etosbysd,5.2), > 16, > 2, > 8, > swissb, > 1.65); > end; > else do; > %grid(3, > week, > put(etosbysd,5.2), > 16, > 2, > 8, > swissb, > 1.65); > end; > end; > else if not stocked then do; > if week eq . then do; > %gridlab(4, > 'Not', > 16, > 2, > 7, > swissb, > 1.65); > %gridsum(4, > put(etosbysd,5.2), > 16, > 2, > 8, > swissb, > 1.65); > end; > else do; > %grid(4, > week, > put(etosbysd,5.2), > 16, > 2, > 8, > swissb, > 1.65); > end; > end; > end; >run; > >options > nobyline > compress=yes > ; >run; > >proc catalog > c=work.gseg > kill > ; >run; > >goptions > reset=all > target=pscolor > ftext=swissb > ftitle=swissb > rotate=landscape > hsize=10 > vsize=7.5 > xmax=8.5 > ymax=11 > horigin=.5 > vorigin=.5 > ; >run; > >symbol1 f=special v=J i=j w=6 h=3 line=1 c=cx008000; >symbol2 f=special v=K i=j w=6 h=3 line=2 c=cxff0000; >symbol3 f=special v=L i=j w=6 h=3 line=3 c=cx0000ff; >symbol4 f=special v=M i=j w=6 h=3 line=4 c=cx800080; >symbol5 f=marker v=A i=j w=6 h=3 line=1 c=cxff0000; >symbol6 f=marker v=B i=j w=6 h=3 line=2 c=cxff8000; >symbol7 f=marker v=C i=j w=6 h=3 line=3 c=cxffff00; >symbol8 f=marker v=D i=j w=6 h=3 line=4 c=cx00ff00; >symbol9 f=marker v=M i=j w=6 h=3 line=1 c=cxff0000; >symbol10 f=marker v=N i=j w=6 h=3 line=2 c=cxff8000; >symbol11 f=marker v=O i=j w=6 h=3 line=3 c=cxffff00; >symbol12 f=marker v=P i=j w=6 h=3 line=4 c=cx00ff00; > >axis1 > offset=(3.0,3.0) cells > order=('02Apr99'd to '02Jul99'd by week) > label=(h=2 ' ') > major=(h=-1) > value=none > ; > >axis2 > order=(0 to 100 by 10) > minor=(n=1) > label=(a=90 'Percent Successful to Target Date') > ; > >legend1 > cborder=black > cframe=cxd0d0d0 > position=(middle right outside) > down=3 > label=(position=top j=c h=1.5 'Part?') > shape=symbol(4,3) cell > value=(j=l 'All' > j=l 'Not' > j=l 'Yes' > ) > ; > >title1 h=2 'Division'; >footnote1 h=1 j=r 'Note: Includes xxx' > j=l 'P. OldenKamp, xxx-xxx-xxxx' > ; >footnote2 h=1 j=r ' ' > ; >run; > >proc gplot > data=next00_t > nocache > ; > by custind prty; > title2 h=1.5 "#byval1 Order Entered"; > title3 h=1.5 "#byval2"; > plot etosbysd*week=stocked / > anno=anno1 > cframe=cxd0d0d0 > haxis=axis1 > legend=legend1 > vaxis=axis2 > autovref > autohref > ; > format etosbysd 3. week mmddyy5. prty $prty.; >run; >quit; > >-- >---------------------------------------------------------------------- > // Paul OldenKamp > // Boeing Commercial Airplane Group . > // P. O. Box 3707, MS 36-40 |\ > // Seattle, WA 98124-2207 | \____oo_ > //==========================================((__| /___> > // ___ ___ ___ ___ __ | // > // /__// //__ / /\ // _ |// > // /__//__//__ _/_ / //__/ '' > //

---------------------------------------------------------------------------- William W. Viergever Voice : (916) 483-8398 Viergever & Associates Fax : (916) 486-1488 A SAS Institute Quality Partner (USA) E-mail : wwvierg@ibm.net Sacramento, CA 95825

"Age is a question of mind over matter. If you don't mind, it don't matter." - Satchel Paige -

"Reality is merely an illusion, albeit a very persistent one." - Albert Einstein - ----------------------------------------------------------------------------