home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv7.zip / VACPP / IBMCPP / macros / CODE / EXEC.LX < prev    next >
Text File  |  1995-05-08  |  1KB  |  34 lines
  1. /* */
  2. trace 'o'
  3.  
  4. parse arg dsn
  5.  
  6. if dsn <> '' then do                            /* dsn specified            */
  7.   parse value dsn with '<'server'>'filename     /* get the server           */
  8.   if server = '' then do
  9.     filename = dsn                              /* fixup filename           */
  10.     'extract name'                              /* get name of current file */
  11.     parse value name with '<'server'>'.         /* find server from it      */
  12.   end
  13.  
  14.   if server <> '' then do                       /* got a server now         */
  15.     'HOSTCMD' server 'EXEC' "'"filename"'"             /* submit job               */
  16.   end
  17. end
  18. else do                                         /* no dsn specified         */
  19.   'extract name'                                /* get current file name    */
  20.  
  21.   parse value name with '<'server'>'hlq'.'filename   /* get high level qual */
  22.  
  23.   tempdsn = hlq||'.$CODEJCL'||'.D$'||date('B')||'.T$'||time('S') /* bld dsn */
  24.  
  25.   'HOSTCMD' server 'alloc dsn('"'"tempdsn"'"') space(10 2) tracks recfm(f b)',
  26.                    'lrecl(80) blksize(6400) dsorg(ps) reuse'   /* alloc dsn */
  27.  
  28.   'SAVETO <'server'>'tempdsn                    /* save curr file contents  */
  29.  
  30.   'HOSTCMD' server 'EXEC' "'"tempdsn"'"                /* submit job               */
  31.  
  32.   'HOSTCMD' server 'delete' "'"tempdsn"'"       /* delete dsn               */
  33. end
  34.