//* STORET.HELP.QUALMAP.SHADE.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 13000000,PRT NO,NOPOLPLT,AGGR COUNTY,                             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 200/205/208/214,        00000150
LABEL SUSPENDED FRACTION OF WATER#,LABEL UG/L#,                         00000160
PLOTC,LEFT1,STAT 2,GROUPSB 4/50/150/250,GRAPHNO 200/205/208/214,        00000170
LABEL SUSPENDED FRACTION OF WATER#,LABEL UG/L#,                         00000180
PLOTC,LEFT2,STAT 1,GROUPSB 4/50/150/250,GRAPHNO 200/205/208/214,        00000190
LABEL TRIVALENT IN WATER#,LABEL UG/L#,                                  00000200
PLOTC,LEFT2,STAT 2,GROUPSB 4/50/150/250,GRAPHNO 200/205/208/214,        00000210
LABEL TRIVALENT IN WATER#,LABEL UG/L#,                                  00000220
STOPMSP,TLAT 29,TLONG 125,CSIZE .05,                                    00000230
./III      JOB (A028,MIII),STORET,MSGCLASS=A,TIME=120,                  00000240
./             MSGLEVEL=(1,1),PRTY=1                                    00000241
**JOBPARM LINES=50                                                      00000250
./FCF DD UNIT=2400,DISP=(OLD,KEEP),VOL=SER=OS6038,                      00000260
./  DCB=(RECFM=VB,LRECL=309,BLKSIZE=6500),                              00000270
./ DSN=CHROMIUM                                                         00000280
./INFL DD UNIT=SYSDA,SPACE=(TRK,(500,500)),                             00000290
./ DCB=(RECFM=FB,LRECL=60,BLKSIZE=3000)                                 00000300
./SINFL DD UNIT=SYSDA,SPACE=(TRK,(200,200)),DISP=(MOD,PASS),            00000310
./ DCB=(RECFM=FB,LRECL=60,BLKSIZE=3000)                                 00000320
