....
/*********************************************************/
/* (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 < ESASLRPA JCL ',
'! \ nw \append literal //L EXEC GASM,M=',
'\ nw 1-6 next \L',
'! \ next \append < ESASLRSI JCL ',
'! \ nw \append <\ nw 1-6 nw \l ASSEMBLE ',
'! \ next \append < ESASLREJ JCL ',
'! \ nw \append literal //S EXEC GASM,M=\',
'\ nw 1-6 next \S',
'! \ next \append < ESASLRSI JCL ',
'! \ nw \append <\ nw 1-6 nw \s ASSEMBLE ',
'! \ next \append < ESASLREJ JCL ',
'! \ nw \punch 00D ',
'! \ nw '\take 0 ',
'! cp close 00D\ nw ',
'| runpipe ',
'| console'
'CP CLOSE 00D'
Don't miss Velocity Software's Performance Seminars
Check our calendar for workshops and other events.