//COINEWN JOB (1110,81912,,100),'DANA MAX',MSGCLASS=S,
//          CLASS=H,NOTIFY=COINEWM
/*JOBPARM SHIFT=D
/*ROUTE PRINT LOCAL
//*
//STEP1 EXEC SAS
//DISKIN  DD DSN=COINEWM.MAP.PGM(LONGLAT),DISP=SHR
//DISKOUT DD DSN=COINEWM.MAP.PGM(JUNK),DISP=SHR
//SAS.SYSIN DD *
DATA ONE;
     INFILE DISKIN;
     INPUT SPECIES $ GEARCODE $ DATE LONG LAT COUNTED DENSITY;
    IF  SPECIES='POSA' AND
        DATE=9205 AND
        (GEARCODE='B');
    IF COUNTED=. THEN COUNTED=0;
    IF DENSITY=. THEN DENSITY=0;
PROC SORT NODUP;
     BY DATE LONG LAT;
DATA TWO;
     SET ONE;
     FILE DISKOUT;
     PUT    SPECIES    1-4
            GEARCODE     6
            DATE      8-11
            LONG     15-18
            LAT      20-23
            COUNTED  25-28
       @ 30 DENSITY    8.3;
//*
