//CLEANUP JOB ,'DANA MAXFIELD     ',
//         MSGCLASS=S,MSGLEVEL=(1,1)
//*
//*
/*JOBPARM SHIFT=D
//*
//         EXEC SAS606
//MESS     DD DSN=COINEWM.MIDAS.TEMP,DISP=MOD
//CLEAN    DD DSN=COINEWM.MIDAS.SEQ,DISP=OLD
//SYSIN    DD *
DATA _NULL_;
    *  MAKE SURE THE INPUT FILE IS IN FB FORMAT.  VB CAUSES ERRORS.;
    INFILE MESS;
    FILE CLEAN;
    INFORMAT PART1 PART2 $CHAR200.  PART3 $CHAR20.;
    INPUT PART1 $CHAR200. @201  PART2 $CHAR200.  @401 PART3 $CHAR20.;
    IF SUBSTR(PART1,2,4) NOT = ' ' THEN DO;       /* IF NOT BLANK */
       IF SUBSTR(PART1,1,1) = '25'X THEN DO;
          SUBSTR(PART1,1,1) = ' ';
          PUT PART1  1-200 PART2  201-400 PART3  401-420;
          END;
       ELSE PUT ' '   PART1  2-201 PART2  202-401 PART3  402-420;
       END;
