//III      JOB (AAAASTORP,MIII),STORET,TIME=1,                          00010000
//             MSGLEVEL=(1,1),PRTY=2                                    00020000
/*ROUTE  PRINT HOLD                                                     00030000
/*JOBPARM LINES=10                                                      00040000
//MSP EXEC SAS,REGION=999K                                              00050000
//SOMSP DD DISP=SHR,                                                    00060000
//  SPACE=(TRK,(1,1)),                                                  00070000
//  DSNAME=IIIAAAA.SOMSP.DATA,                                          00080000
//  DCB=(RECFM=VB,LRECL=126,BLKSIZE=13030)                              00090000
//PICTURE DD UNIT=DISK,DISP=(,CATLG),                                   00100000
//  SPACE=(TRK,(1,1)),                                                  00110000
//  DSNAME=IIIAAAA.GOUT.DATA                                            00120000
//SYSIN DD DATA                                                         00130000
DATA SOMSP;                                                             00140000
INFILE SOMSP;                                                           00150000
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 00160000
   THIS IS A DUMMY INPUT STATEMENT SUPPLIED FOR                         00170000
      -- DOCUMENTATION AND REFERENCE ONLY --                            00180000
         -- FILE SOMSP - RECORD LAYOUT --                               00180100
             INPUT  @1  JOBID     $8.                                   00190000
                    @9  SET      IB2.                                   00200000
                   @11  VRBL     IB2.                                   00210000
                   @13  STNSEQ   IB2.                                   00220000
                   @15  PARNO    IB4.                                   00230000
                   @19  BEGDATE  YYMMDD6.                               00240000
                   @25  ENDDATE  YYMMDD6.                               00250000
                   @31  NOBS     IB2.                                   00260000
                   @33  SWBITS   IB2.                                   00270000
                   @35  IDENT    $24.                                   00280000
                   @59  LATSEC   RB4.                                   00290000
                   @63  LNGSEC   RB4.                                   00300000
                   @67  MILES    RB4.                                   00310000
                   @71  REACH    PD6.                                   00320000
                   @77  STCNTY   PD3.                                   00330000
                   @80  RESVD    $3.                                    00340000
                   @83  MEDIAN   RB4.                                   00350000
                          ;                                             00350100
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00360000
FORMAT CADMIUM $16.;                                                    00370000
INPUT  @35  STATE     2.                                                00380000
            COUNTY    3.                                                00390000
       @31  NOBS      IB2.                                              00400000
       @83  MEDIAN    RB4. ;                                            00410000
IF NOBS>2;                                                              00420000
IF MEDIAN<=5 THEN CADMIUM='0 THRU 5';                                   00430000
IF MEDIAN>5 AND MEDIAN<=10 THEN CADMIUM='5 THRU 10';                    00440000
IF MEDIAN>10 AND MEDIAN<=20 THEN CADMIUM='10 THRU 20';                  00450000
IF MEDIAN>20 AND MEDIAN<=40 THEN CADMIUM='20 THRU 40';                  00460000
IF MEDIAN>40 THEN CADMIUM='OVER 40';;                                   00470000
PROC PRINT;                                                             00480000
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00490000
DATA STATEMAP;                                                          00500000
MERGE SOMSP(IN=INSTORET) MAPS.COUNTIES(IN=INSAS);BY STATE COUNTY;       00510000
IF INSTORET AND INSAS;                                                  00520000
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00521000
DATA STATEBND; SET MAPS.STATES; IF STATE=51; COUNTY=.;                  00540000
DATA FULLMAP;SET STATEBND STATEMAP;                                     00550000
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00551000
PROC GPROJECT OUT=FULLMAP;                                              00560000
ID STATE COUNTY;                                                        00570000
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00580000
PROC GMAP DATA=SOMSP MAP=FULLMAP GOUT=PICTURE.MAP1 ALL;                 00590000
GOPTIONS DEVICE=TEK4014 CHARTYPE=4 HPOS=132 VPOS=61;                    00600000
TITLE1 .H=3 'STORET/SAS EXAMPLE MAP';                                   00610000
TITLE2 .F=DUPLEX .H=2 'CADMIUM IN WATER, UG/L';                         00620000
TITLE3 .F=DUPLEX .H=2 'MEDIANS BY COUNTY';                              00630000
FOOTNOTE1 .F=DUPLEX .H=2 'STORET USER ASSISTANCE';                      00640000
ID STATE COUNTY;                                                        00650000
CHORO CADMIUM/DISCRETE                                                  00660000
MIDPOINTS='0 THRU 5' '5 THRU 10' '10 THRU 20' '20 THRU 40' 'OVER 40';   00670000
