//GRISLE   JOB ,'NEWMAN',MSGCLASS=S,
//          CLASS=H,NOTIFY=COINEWM,TIME=5
/*JOBPARM SHIFT=D,LINES=1000
/*ROUTE PRINT IOROOM
//*
//STEP1 EXEC SAS6,TIME=5
//ALLDATA DD DSN=COINEWM.COCODRIE.DAT,DISP=SHR
//OUTDATA DD DSN=COINEWM.COCODRIE.OUT,DISP=SHR
//SYSIN DD *
********************************************************************;
DATA A ;
   INFILE ALLDATA ;
   INPUT STATIO$ 1-8 DDAY 11-12 MMO$ 13-15 YYEAR 16-17
         HHOUR 19-20 WATER 25-32 ;
         COMA = ',' ;
         MON = 0 ;
         IF MMO  =  'JAN' THEN MON = 1 ;
         IF MMO  =  'FEB' THEN MON = 2 ;
         IF MMO  =  'MAR' THEN MON = 3 ;
         IF MMO  =  'APR' THEN MON = 4 ;
         IF MMO  =  'MAY' THEN MON = 5 ;
         IF MMO  =  'JUN' THEN MON = 6 ;
         IF MMO  =  'JUL' THEN MON = 7 ;
         IF MMO  =  'AUG' THEN MON = 8 ;
         IF MMO  =  'SEP' THEN MON = 9 ;
         IF MMO  =  'OCT' THEN MON = 10 ;
         IF MMO  =  'NOV' THEN MON = 11 ;
         IF MMO  =  'DEC' THEN MON = 12 ;
         IF WATER =  .  THEN WATER = -9 ;
PROC PRINT ;
********************************************************************;
DATA CLEAN ;
SET A ;
FILE OUTDATA ;
PUT STATIO$ 1-7  COMA$  8 DDAY  9-15 COMA$ 16 MMO$ 17-19
COMA$20 YYEAR 21-24 COMA$ 25 HHOUR 26-28 COMA$ 29
WATER 30 -36 .2 COMA$ 37 MON 38-40 ;
//
