#include <stdio.h>
    DATABASE PERS = FILENAME "PERSONNEL";
    main()
    {
    READY PERS;
    START_TRANSACTION READ_ONLY;
    FOR C IN CURRENT_JOB
       CROSS J IN JOBS OVER JOB_CODE
          printf ("%s",C.LAST_NAME);
          printf ("  %s",J.JOB_CODE);
          printf ("  %s\n", J.JOB_TITLE);
    END_FOR;
    COMMIT;
    FINISH;
    }