IBM Mainframe Forum

[Swapnilkumar]

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.

Select all

//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')   
/*                             

This is like "Include Cond" in SORT

Select all

//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                                                 
/*                                                                 

This code is similar to FNAMES keyword. And C'' will work in OR condition for the events.

Select all

DD01  COPYREC IF=(32,GE,X'F0F0F0F0F0F0F0F0F2F5F0F0F0C0'),
             AND=(32,LT,X'F0F0F0F0F0F0F0F1F0F0F0F0F0C0')

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.

[BillyBoyo]

Please don't post links to competitor sites.

Do you have StarTool? If so, the documentation should be available to you.

I have no direct idea, but I doubt that your assumptions are correct. There would be no need for a product from one vendor to rely on the availability of another. A DD-name is clearly present in the control card, I'd suspect if you change it to something else and change the JCL then it would run.