neelima.sinha
New User
Joined: 14 Sep 2007 Posts: 30 Location: Bangalore
|
|
|
|
My JCL is something like this and I want to display the output of file SDSF.FORMATA on screen ....
//*--------------------------------------------------------------------
// JCLLIB ORDER=(JJL.SUPPORT.CNTL)
//SDSF1 EXEC PGM=ISFAFD
//ISFOUT DD DISP=OLD,DSN=SDSF.OUTPUT
//ISFIN DD *
RES
SORT RESOURCE A
//SORT EXEC PGM=SORT,COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=SDSF.OUTPUT,DISP=SHR
//SORTOUT DD DSN=SDSF.FORMATA,DISP=SHR
//SYSIN DD *
SORT FIELDS=(08,16,CH,A)
SUM FIELDS=NONE
INCLUDE COND=(08,16,CH,EQ,C'SCHR_CR_STREAM_A',OR,
08,16,CH,EQ,C'SCHR_CR_STREAM_B',OR,
08,16,CH,EQ,C'SCHR_CR_STREAM_C',OR,
08,16,CH,EQ,C'SCHR_CR_STREAM_D',OR,
08,16,CH,EQ,C'SCHR_CR_STREAM_E',OR,
08,16,CH,EQ,C'SCHR_CR_STREAM_F',OR,
08,16,CH,EQ,C'SCHR_CR_STREAM_G',OR,
08,16,CH,EQ,C'SCHR_CR_STREAM_H',OR,
08,16,CH,EQ,C'SCHR_CR_STREAM_I',OR,
08,16,CH,EQ,C'SCHR_CR_STREAM_J',OR,
08,16,CH,EQ,C'SCHR_CR_STREAM_P',OR,
08,16,CH,EQ,C'SCHR_CR_STREAM_R')
OUTREC IFTHEN=(WHEN=(34,2,CH,EQ,C'ON'),
OVERLAY=(1:23,1,2:13X,15:C'MVSI',80X)),
IFTHEN=(WHEN=(52,2,CH,EQ,C'ON'),
OVERLAY=(1:23,1,2:13X,15:C'MVSL',80X)),
IFTHEN=(WHEN=(61,2,CH,EQ,C'ON'),
OVERLAY=(1:23,1,2:13X,15:C'MVSM',80X)),
IFTHEN=(WHEN=(70,2,CH,EQ,C'ON'),
OVERLAY=(1:23,1,2:13X,15:C'MVSP',80X)),
IFTHEN=(WHEN=NONE,OVERLAY=(15:C'NOT ACTIVE',80X))
/* |
|