STARBAT utility in JCL
Posted: Wed Oct 24, 2012 11:23 am
No description for this utility on Google!!
Wanna know more on this then,
Please follow the link link to competitor site removed. Thank you Anuj for your comments and I would like to illustate with some examples mentioned below.
This is like "Include Cond" in SORT
This code is similar to FNAMES keyword. And C'' will work in OR condition for the events.
like wise this, we can code STARBAT for hex comparision and normal comparisions (GT,LE,GE, EQ etc) too.
I have also not worked much on this, following are my assumptions.
1) Changeman should be installled on your system.
2) The DD names used are prefixed with DD0
Please share across if you know more on this.
Wanna know more on this then,
Please follow the link link to competitor site removed. Thank you Anuj for your comments and I would like to illustate with some examples mentioned below.
//STEP15 EXEC PGM=STARBAT
//DD01 DD *
----+----1----+----2----+----3--
ASDADSADADASDASDADSADSADA
ASDADSADAAASDASDADSADSADA
ASDADSADABASDASDADSADSADA
ASDADSADAAASDASDADSADSADA
ASDADSADAAASDASDADSADSADA
ASDADSADAAASDASDADSADSADA
//DD01O DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//SYSIN DD *
DD01 COPYREC IF=(10,EQ,C'B')
/*
//DD01 DD *
----+----1----+----2----+----3--
ASDADSADADASDASDADSADSADA
ASDADSADAAASDASDADSADSADA
ASDADSADABASDASDADSADSADA
ASDADSADAAASDASDADSADSADA
ASDADSADAAASDASDADSADSADA
ASDADSADAAASDASDADSADSADA
//DD01O DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//SYSIN DD *
DD01 COPYREC IF=(10,EQ,C'B')
/*
//STEP10 EXEC PGM=STARBAT
//DD01 DD SYSOUT=input data
//DD01O DD SYSOUT=*
//DD02O DD SYSOUT=*
//DD03O DD SYSOUT=*
//DD04O DD SYSOUT=*
//DD05O DD SYSOUT=*
//DD06O DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//SYSIN DD *
DD01 MULTICOPY IF=(157,EQ,C'31,32,33,34,35,36,37,38,77,50'),
WRITE=DD01O,
IF=(157,EQ,C'30'),WRITE=DD02O,
IF=(157,EQ,C'52,54,55,56,72,81'),WRITE=DD03O,
IF=(157,EQ,C'00'),WRITE=DD04O,
IF=(157,EQ,C'04'),WRITE=DD05O,
IF=(157,NE,
C'31,32,33,34,35,36,37,38,77,50,30,52,54,55,56,72,81,00,04'),
WRITE=DD06O
/*
//DD01 DD SYSOUT=input data
//DD01O DD SYSOUT=*
//DD02O DD SYSOUT=*
//DD03O DD SYSOUT=*
//DD04O DD SYSOUT=*
//DD05O DD SYSOUT=*
//DD06O DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//SYSIN DD *
DD01 MULTICOPY IF=(157,EQ,C'31,32,33,34,35,36,37,38,77,50'),
WRITE=DD01O,
IF=(157,EQ,C'30'),WRITE=DD02O,
IF=(157,EQ,C'52,54,55,56,72,81'),WRITE=DD03O,
IF=(157,EQ,C'00'),WRITE=DD04O,
IF=(157,EQ,C'04'),WRITE=DD05O,
IF=(157,NE,
C'31,32,33,34,35,36,37,38,77,50,30,52,54,55,56,72,81,00,04'),
WRITE=DD06O
/*
DD01 COPYREC IF=(32,GE,X'F0F0F0F0F0F0F0F0F2F5F0F0F0C0'),
AND=(32,LT,X'F0F0F0F0F0F0F0F1F0F0F0F0F0C0')
AND=(32,LT,X'F0F0F0F0F0F0F0F1F0F0F0F0F0C0')
I have also not worked much on this, following are my assumptions.
1) Changeman should be installled on your system.
2) The DD names used are prefixed with DD0
Please share across if you know more on this.