// EXEC PGM=ANAPROF
//STEPLIB DD DSN=CRIP5B.DIENST,DISP=SHR
// DD DSN=CRIS0C.PP.FORTLIB,DISP=SHR
//FT05F001 DD *
***TEST ANAPROF***
    0    2    7
    1         1
    8    2    1
(7I3)
//FT06F001 DD SYSOUT=*
//FT08F001 DD DISP=SHR,DSN=TSIO.AAAAHBFD.DATA(SOCMOB)