#!/bin/ksh
# $Header: /home/appl/srvexp/script/RCS/SetAuthCode.ksh,v 1.1 2001/12/14 08:05:31 sauge Exp $

. setenv.ksh

export AUTHCODE=$1

if [ "$AUTHCODE" = "" ]
then
  echo "Amduus Information Works, Inc. http://www.amduus.com"
  echo "Set Authorization Code for Creation of Internal User"
  echo "SetAuthCode.ksh [AuthCode]"
  exit 1
fi

$DLC/bin/_progres -b -p oper/SetAuthCode.p -pf $PFFILE
