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_ //==========================================((__| /___> // ___ ___ ___ ___ __ | // // /__// //__ / /\ // _ |// // /__//__//__ _/_ / //__/ '' //