// job001 job
//step001 exec pgm=cob002
//i1 DD dsn=…….data.input,disp=shr
//o1 DD “ “ “ .output,disp=shr.
//job002 job
//step001 exec pgm=cob001
//o1 DD dsn=user.source.jcl, disp=shr
//step002 exec pgm=IEBGENER
//sysut1 DD dsn=user.sour.jcl, disp=shr
//sysut2 DD dest=(x,intrdr)
No comments:
Post a Comment