....
/*********************************************************/
/* (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
Don't miss Velocity Software's Performance Seminars
Check our calendar for workshops and other events.