//CR6TYPE  JOB ,'MASRIQUI',MSGCLASS=S,
//          CLASS=H,NOTIFY=COINEWM,TIME=5
/*JOBPARM SHIFT=D,LINES=90
/*ROUTE PRINT IOROOM
//*
//STEP1 EXEC SAS6,TIME=5
//RAWDATA DD DSN=COINEWM.CRUISE6.MIDAS,DISP=SHR
//OUTDATA DD DSN=COINEWM.CRUISE6.TYPE,DISP=SHR
//SYSIN DD *
********************************************************************;
*                                                                  *;
*                                                                  *;
*                                                                  *;
*                                                                  *;
*                                                                  *;
*                                                                  *;
*                                                                  *;
*                                                                  *;
********************************************************************;
*********       READ THE DATA FILE                  ****************;
*********        COINEWM.CRUISE6.MIDAS              ****************;
*********                                           ****************;
DATA A ;
   INFILE RAWDATA FIRSTOBS = 1 OBS = 100 ;
   INPUT V1$ 1-120 V2$ 121-240 V3$ 241-360 V4$ 361-480 ;
********************************************************************;
*********                                                    *******;
PROC PRINT ;
*********                                                    *******;
DATA B ;
SET A ;
FILE OUTDATA ;
 PUT V1$ 1-120 V2$ 121-240 V3$ 241-360 V4$ 361-480 ;
//
