//A  EXEC  PGM=PRIMALS
//STEPLIB  DD DISP=SHR,DSN=CRIP5B.DIENST
//         DD DISP=SHR,DSN=CRIS0C.PP.FORTLIB
//FT06F001 DD SYSOUT=A
//FT08F001 DD DISP=SHR,DSN=TSIO.AAAAHBFA.MERIN(PRIMDATA)
//FT05F001 DD *
EXAMPLE PRIMALS
   41   41    8    8    6   48
    6    6    6    6    6    6    6    6
    0    0    0    0    0    1
    8    0    0    0    0
    1    1    1    1    0    0    0    0    1    1
         1

(8I1)