//* JOBCARD
//STEP010 EXEC PGM=EZTPA00 
//MYKIDS   DD * 
CORA       14 F 
EMMA       08 F 
WILLIAM    16 M 
HANNAH     10 F 
//MYGIRLS  DD SYSOUT=*
//SYSPRINT DD SYSOUT=* 
//SYSIN    DD * 
FILE MYKIDS 
   NAME     1  10  A 
   AGE     12   2  N  0 
   GENDER  15   1  A 

FILE MYGIRLS PRINTER 

JOB INPUT MYKIDS 
   IF GENDER EQ 'F' 
      PRINT MYGIRLS 
   END-IF 

REPORT MYGIRLS LINESIZE 60 PRINTER MYGIRLS + 
      NOADJUST NODATE NOPAGE 
   TITLE 1 'BILL''S DAUGHTERS' 
   LINE NAME AGE