//A  EXEC  PGM=ANACOR
//STEPLIB  DD DISP=SHR,DSN=CRIP5B.DIENST
//         DD DISP=SHR,DSN=CRIS0C.PP.FORTLIB
//FT08F001 DD DISP=SHR,DSN=TSIO.AAAAHBFD.DATA(SOCMOB)
//FT06F001 DD SYSOUT=A
//FT05F001 DD *
*** EXAMPLE SOCIAL MOBILITY ***
    7    7
  -0.    1    2    1
    8    0              5
    4    4    1
(7I3)