Date:         Wed, 5 Aug 2009 04:28:51 -0400
Reply-To:     REXX Programming discussion list <REXXLIST@LISTSERV.UGA.EDU>
Sender:       REXX Programming discussion list <REXXLIST@LISTSERV.UGA.EDU>
From:         Errol Van staden <vs.errol@GMAIL.COM>
Subject:      Re: Automated browsing of CICS STC jobs in SDSF

Very late here but I couln't resist this reply.
Try using the ISFAFD program. it is designed specifically to do what you
require here

Sample

//DELETE   EXEC  PGM=IEFBR14
//DD1      DD    DSN=ONLES.HEALTH.CHECK.REPORT,DISP=(OLD,DELETE)
//ISFEXEC  EXEC  PGM=ISFAFD,PARM='++60,236'       EXEC
//ALLOC01  DD  DSN=ONLES.HEALTH.CHECK.REPORT,
//      DCB=(LRECL=240,RECFM=FBA,BLKSIZE=24000),SPACE=(CYL,(2,1)),
//      DISP=(NEW,CATLG)
//ISFOUT  DD  SYSOUT=*       DD OUT CAN BE SYSOUT OR DSN
//ISFIN  DD  *
         H ESSYSHCK
         AFD REFRESH
         F ESSYSHCK LAST
         AFD REFRESH
         ++?
         F SYSOUT
         ++S
         PRINT D
         ++<='''ONLES.HEALTH.CHECK.REPORT'''><=' '><='SHR'>
         AFD REFRESH
         PRINT
         AFD PF03
         AFD PF03
/*
//IEBGENER EXEC PGM=IEBGENER
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DUMMY
//SYSUT1   DD  DISP=SHR,DSN=ONLES.HEALTH.CHECK.REPORT
//SYSUT2   DD  DSN=SYS1.HEALTH.CHECK.GDG00(+1),
//      DCB=(LRECL=240,RECFM=FBA,BLKSIZE=24000),SPACE=(CYL,(2,1)),
//      DISP=(NEW,CATLG),UNIT=3390,VOL=SER=SHR010
//

Just check it out in the manuals and adjust according to your
requirements. It's very easy to
use