//* STORET.HELP.QUALMAP.POINT.EXAMPLE                                   00000010
//SCAN EXEC WQINTRDR                                                    00000020
//CARDFD DD DATA                                                        00000050
PGM MSP,QUALMAP,PURP 307/EPA,NORET,                                     00000060
LT NORET,L 39,L 125,L 32,L 120,L 30,L 109,L 25,L 97,                    00000070
L 29,L 86,L 24,L 84,L 24,L 79,L 32,L 79,L 35,L 74,L 41,L 69,L 45,L 65,  00000080
L 48, L 67,L 48,L 80,L 50,L 86,L 50,L 96,L 50,L 110,L 50,L 125,         00000090
SCALE 12500000,PRT NO,NOPOLPLT,AGGR=COUNTY,NOCOUN,                      00000100
EXTRACT (1031 OR 1033) AND AMBNT,                                       00000110
P 1031,P 1033,                                                          00000120
HEAD CHROMIUM,                                                          00000130
MSPARMS=BEGIN,MODELL,MAX A,%TILE85T B,NOLIST,                           00000140
PLOTC,LEFT1,STAT 1,GROUPSB 4/50/150/250,GRAPHNO 35/36/37/38,            00000150
SYMANG=0/0/0/0,SYMSIZE=0.1/0.1/0.1/0.1,                                 00000160
LABEL SUSPENDED FRACTION OF WATER#,LABEL UG/L#,                         00000170
PLOTC,LEFT1,STAT 2,GROUPSB 4/50/150/250,GRAPHNO 35/36/37/38,            00000180
SYMANG=0/0/0/0,SYMSIZE=0.1/0.1/0.1/0.1,                                 00000190
LABEL SUSPENDED FRACTION OF WATER#,LABEL UG/L#,                         00000200
PLOTC,LEFT2,STAT 1,GROUPSB 4/50/150/250,GRAPHNO 35/36/37/38,            00000210
SYMANG=0/0/0/0,SYMSIZE=0.1/0.1/0.1/0.1,                                 00000220
LABEL TRIVALENT IN WATER#,LABEL UG/L#,                                  00000230
PLOTC,LEFT2,STAT 2,GROUPSB 4/50/150/250,GRAPHNO 35/36/37/38,            00000240
SYMANG=0/0/0/0,SYMSIZE=0.1/0.1/0.1/0.1,                                 00000250
LABEL TRIVALENT IN WATER#,LABEL UG/L#,                                  00000260
STOPMSP,TLAT 29,TLONG 125,CSIZE .05,                                    00000270
./III      JOB (AAAA,MIII),STORET,MSGCLASS=A,TIME=120,                  00000280
./             MSGLEVEL=(1,1),PRTY=1                                    00000281
**JOBPARM LINES=50                                                      00000290
./FCF DD UNIT=2400,DISP=(OLD,KEEP),VOL=SER=OS6038,                      00000300
./  DCB=(RECFM=VB,LRECL=309,BLKSIZE=6500),                              00000310
./ DSN=CHROMIUM                                                         00000320
./INFL DD UNIT=SYSDA,SPACE=(TRK,(500,500)),                             00000330
./ DCB=(RECFM=FB,LRECL=60,BLKSIZE=3000)                                 00000340
./SINFL DD UNIT=SYSDA,SPACE=(TRK,(200,200)),DISP=(MOD,PASS),            00000350
./ DCB=(RECFM=FB,LRECL=60,BLKSIZE=3000)                                 00000360
