home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv9.zip / vac22os2 / ibmcobol / bin / iwzvcprp.cmd < prev    next >
OS/2 REXX Batch file  |  1996-05-14  |  1KB  |  35 lines
  1. /*** Licensed Material - Program Property of IBM 5622-793                             */
  2. /*** (C) Copyright IBM Corp. 1983, 1996                                               */
  3. /*** All Rights Reserved                                                              */
  4. /*** US Government Users Restricted Rights - Use, duplication or disclosure           */
  5. /*** restricted by GSA ADP Schedule Contract with IBM Corp.                           */
  6.  
  7. '@ECHO OFF'
  8. trace o
  9.      Arg infile rcfile options 
  10.  
  11.      cicsrc = 0
  12.      maxgoodrc = 4
  13.      environ  = 'OS2ENVIRONMENT'
  14.      cicsset  = VALUE('CICSSET',,environ)
  15.      tempdir = VALUE('TMP',,environ)
  16.  
  17.      command = 'faaprpdc' infile options        
  18.  
  19.      /* set up CICS environment variables */
  20.      if cicsset = '' then call 'cicsenv'
  21.      address cmd 'SET COBWRK=' || tempdir 
  22.      address cmd 'SET CICSCOBWORK=' || tempdir
  23.  
  24.      address cmd command 
  25.      cicsrc = rc
  26.  
  27.      /* set the returncode from preprocessing.  since iwzvcprp is executed in a */
  28.      /* different process than iwzvcomp, the returncode must be passed back to  */
  29.      /* iwzvcomp in a file.  The calling command file (iwzvcomp) has provided   */ 
  30.      /* the name of the file to put the return code into.                       */ 
  31.      call lineout rcfile,cicsrc
  32.      call lineout rcfile
  33.  
  34. exit 
  35.