But I'm feeling a bit lazy
and wondered if anyone had developed a neat little tool for this?I realize that this is relatively new JCL. Came in with JES2 2.2 in 2017(?) (I guess imported from JES3) so perhaps there may be little experience here.
This is my (obfuscated) JOBGROUP...
//ABCBLGRP JOBGROUP (SJ,P),'ABC JOBGROUP',
//* TYPE=SCAN,
// ONERROR=STOP,
// OWNER=ABC1234
//ABCBLS2T GJOB
//ABCBLS2F GJOB
// AFTER NAME=ABCBLS2T,WHEN=(RC>0 OR ABEND)
//ABCBLSET JOBSET
// AFTER NAME=ABCBLS2T,WHEN=(RC=0)
//ABCBLR10 SJOB
//ABCBLR12 SJOB
//ABCBLR20 SJOB
//ABCBLR23 SJOB
//ABCBLR40 SJOB
//ABCBLR44 SJOB
//ABCBLR50 SJOB
//ABCBLR55 SJOB
//ABCBLITA SJOB
//ABCBLCLA SJOB
//ABCBLSET ENDSET
//ABCBLSEF GJOB
// AFTER NAME=ABCBLSET,WHEN=(RC>0 OR ABEND)
//ABCBLRPT GJOB
// AFTER NAME=ABCBLSET
// AFTER NAME=ABCBLS2T,WHEN=(RC=0)
//ABCBLGRP ENDGROUP
//* TYPE=SCAN,
// ONERROR=STOP,
// OWNER=ABC1234
//ABCBLS2T GJOB
//ABCBLS2F GJOB
// AFTER NAME=ABCBLS2T,WHEN=(RC>0 OR ABEND)
//ABCBLSET JOBSET
// AFTER NAME=ABCBLS2T,WHEN=(RC=0)
//ABCBLR10 SJOB
//ABCBLR12 SJOB
//ABCBLR20 SJOB
//ABCBLR23 SJOB
//ABCBLR40 SJOB
//ABCBLR44 SJOB
//ABCBLR50 SJOB
//ABCBLR55 SJOB
//ABCBLITA SJOB
//ABCBLCLA SJOB
//ABCBLSET ENDSET
//ABCBLSEF GJOB
// AFTER NAME=ABCBLSET,WHEN=(RC>0 OR ABEND)
//ABCBLRPT GJOB
// AFTER NAME=ABCBLSET
// AFTER NAME=ABCBLS2T,WHEN=(RC=0)
//ABCBLGRP ENDGROUP
(PS: I posted this on the Expert Forum before but got no hits
)
