//jobname  JOB
//   SET   RAILOAD=?raiload?
//*--------------------------------------------------------------------
//*
//*      Be sure to edit this member with CAPS ON
//*                                       =======
//*
//*      Function
//*      ========
//*
//*      This job defines or updates passwords for one or more
//*      program products from Relational Architects Intl.
//*
//*
//*      Note
//*      ====
//*
//*      Please use this job to define passwords only for those RAI 
//*      products that do not establish a connection with the RAI 
//*      Server Address Space.
//*
//*
//*      Locate and change all occurrences of the following strings:
//*      ==========================================================
//*
//*      Replace ?raiload? with the dataset name of the system load
//*      library of the Relational Architects product for which you
//*      are defining passwords.
//*
//*
//*      The numbers and arrows to the right of the JCL statements
//*      correspond to the numbered, annotated paragraphs below.
//*
//* (1)  Specify instream input through the SYSIN DDname as follows:
//*
//*      On each line, specify the RAI product name followed by a
//*      pair of eight character password strings.  Both the product
//*      names and password strings must be specified EXACTLY
//*      as supplied (in an Email or fax ) by Relational
//*      Architects or one of its representatives.  In addition,
//*      be sure to specify the product names and password
//*      strings in the same SEQUENCE as supplied to you.
//*
//* (2)  For example, suppose you are specifying passwords
//*      for the product named PRODXYZ.  Suppose further
//*      the passwords supplied by Relational Architects
//*      are 'CCCCCCCC DDDDDDDD'.  You should therefore
//*      replace the line 'product1 aaaaaaaa bbbbbbbb' with
//*      the following:
//*
//*      PRODXYZ CCCCCCCC DDDDDDDD
//*
//*-------------------------------------------------------------------
//PSWDGEN  EXEC PGM=RAIPWG
//STEPLIB  DD  DISP=SHR,DSN=&RAILOAD
//SYSTSPRT DD  SYSOUT=*
//SYSIN    DD  *                                             <--- (1)
  product1 aaaaaaaa bbbbbbbb                                 <--- (2)
//SYSOUT   DD  DSN=&PASSWORD,UNIT=SYSDA,
//             SPACE=(TRK,(10,1)),DISP=(NEW,PASS)
//*-------------------------------------------------------------------
//*
//*        Zap password load modules with updated product passwords
//*
//*-------------------------------------------------------------------
//PSWDZAP  EXEC PGM=IMASPZAP,COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DSN=&PASSWORD,DISP=(OLD,DELETE)
//SYSLIB   DD  DISP=SHR,DSN=&RAILOAD