//A  EXEC  PGM=CANALS
//STEPLIB  DD DISP=SHR,DSN=CRIP5B.DIENST
//         DD DISP=SHR,DSN=CRIS0C.PP.FORTLIB
//FT01F001 DD UNIT=SYSDA,SPACE=(TRK,(10,2)),
//         DCB=(LRECL=804,RECFM=VBS,BLKSIZE=18496)
//FT06F001 DD SYSOUT=*
//FT08F001 DD DISP=SHR,DSN=TSIO.AAAAHBFA.MERIN(JOBRUS)
//FT05F001 DD *
    1
 CANALS OP TESTDATASET
   47    5    4    8
    2    0              0              0
    8    0    0    1    0    0    1
    6    5    5    8    5    6    3    5    3
    0    0    0    0    0    0    0    0    0
    1    1    0    0    0    0    0    0    0
(9I2)