....
/*********************************************************/ /* (c) COPYRIGHT Velocity Software, Inc. 1996 */ /*********************************************************/ /* Punch the necessary deck to run a COLLECT job */ Parse Arg histfn histft . Do Forever 'peekto record' If Rc <> 0 Then Exit (Rc<>12)*Rc segname = Left(record,6) Address CMS 'punch ESASLRJ'Substr(histfn,4,1) 'JCL * (NOH' Address CMS 'punch ESASLRPR JCL * (NOH' 'callpipe literal DATASET(ESASLR.LOG.'segname')|', 'punch 00D' Address CMS 'punch ESASLREJ JCL * (NOH' 'callpipe literal //ESALOG DD *,DLM='??'|', 'punch 00D' Address CMS 'netdata send' segname histft '* to * at *', '(nospool notype nolog' Address CMS 'punch ESASLREF JCL * (NOH' Address CMS 'punch ESASLRPS JCL * (NOH' 'callpipe < ESASLRCS JCL |', 'change /segname/'segname'/ |', 'punch 00D' Address CMS 'punch ESASLREJ JCL * (NOH' Address CMS 'SPOOL PUN CLOSE' 'readto' End