About Us | Products | FAQ | Demo | Customer Area | Education | Linux Hints & Tips | Presentations | News | VM Industry | Employment Opportunities

Home | Contact Us | License Info | Newsletter    

ESASLR EXEC

 
/************************************************************/
/**   (c) COPYRIGHT  Velocity Software, Inc.   1993-1996   **/
/************************************************************/
/*                                                          */
/*               ESAMAP/ESAMON SLR Interface                */
/*                                                          */
/* Usage:  ESASLR   function  operands  "(" options )]      */
/*                                                          */
/*    Function: GENERATE | ASSEMBLE | UPDATE | COLLECT      */
/*    Operands: NODE | FTYPE                                */
/*    Options:  TEST                                        */
/*                                                          */
/************************************************************/
 
 
Parse Upper Arg function operands '(' options ')' .
 
If function = ''
 Then Call Exit 24 'No function specified'
 
If WORDPOS('TEST', options) > 0
 Then netid = '*' /* So send stuff back to me*/
 Else Do
   'MAKEBUF'
   buffer = RC
   'IDENTIFY ( LIFO'
   If RC = 0
    Then Parse Pull . . . . netid .
   'DROPBUF' buffer
 End
 
opts  = 'S      C   D       U'
types = 'System CPU Devices User'
fns   = 'SYS    CPU DEV     USER'
 
node = ''
If function = 'GENERATE'
 Then Parse var operands ftype .
 Else Parse var operands node ftype .
 
If ftype = '' Then ftype = 'HISTORY'
If node  = '' Then node  = 'MVS'
 
Do i = 1 to 1;
 option = word(opts ,i)
 type   = word(types,i)
 fn     = word(fns  ,i)
 esafn  = 'ESA' || fn
 
 Select
 
  When function = 'GENERATE'
   Then Do
    Address Command 'ESTATE' esafn ftype '*'
    If Rc <> 0 Then Call Exit 8,
             'No history file found with filetype' ftype
 
       /* build assemble files for slr tables*/
       Say 'Building tables for' esafn ftype
       'pipe < ESA'fn ftype '| SEGGEN' esafn ftype
 
       Say 'SLR' type 'log table definition created.'
   End
 
  When function = 'ASSEMBLE'
   Then Do
     'CP SPOOL PUNCH CONT TO' netid
     'CP TAG DEV PUNCH' node 'JOB'
 
     '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'
 
     'CP SPOOL PUNCH NOCONT CLOSE'
     Say 'SLR' type 'table assembly job submitted.'
  End
 
 When function = 'UPDATE'
  Then Do
    'CP SPOOL PUNCH CONT TO' netid
    'CP TAG DEV PUNCH' node 'JOB'
    'PIPE',
      '< segment list ',
      '| locate /*/ ',                   /* Only selected segments */
      '| locate 10-12 /'fn'/ ',        /* 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'
 
    'CP SPOOL PUNCH NOCONT CLOSE'
    Say 'SLR table update job submitted.'
  End
 
 When function = 'COLLECT'
  Then Do
    'CP SPOOL PUNCH CONT TO' netid
    'CP TAG DEV PUNCH' node 'JOB'
 
    'PIPE <' esafn type ,
      '| segcoll' esafn type
 
    'PIPE',
      '< segment list ',
      '| locate /*/ ',            /* Only selected segments */
      '| locate 10-12 /'type'/',  /* from the named file */
      '| runcoll' esafn type ,
      '| CP close 00D'
 
 
    'CP SPOOL PUNCH NOCONT CLOSE'
    Say 'SLR' type 'log collection job submitted.'
  End
 
 Otherwise
  Call Exit 24 'Function "'function'" not recorgnized'
 
End
 
Call Exit 0
 
Exit:
   Parse Arg xRc xMsg
   If xMsg <>'' Then Say xMsg
   Exit xRc