....
/*********************************************************/
/* (c) COPYRIGHT Velocity Software, Inc. 1996 */
/*********************************************************/
/* Build jobs to assemble table definitions */
Parse Upper Arg type .
If type = 'USER' Then type = 'USR'
'pipe',
'< segment list ',
'| locate /*/ ', /* Only selected segments */
'| locate 10-12 /'type'/ ', /* from the named file */
'| spec \(stagesep !)',
' < ESASLRJ'Left(type,1) 'JCL ',
'! \ 1 \append < ESASLRPS JCL ',
'! \ nw \append <\ nw 1-6 nw \ TBLUPDT ',
'! \ next \append < ESASLREJ JCL ',
'! \ nw \punch 00D ',
'! \ nw \take 0 ',
'! cms sp pun close\ nw',
'| runpipe ',
'| console'
'CP CLOSE 00D'
Don't miss Velocity Software's Performance Seminars
Check our calendar for workshops and other events.