#!/usr/bin/perl
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
#  
#  
# Licensed Materials - Property of IBM 
#  
# (C) COPYRIGHT International Business Machines Corp. 2001,2019 
# All Rights Reserved 
#  
# US Government Users Restricted Rights - Use, duplication or 
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 
#  
# IBM_PROLOG_END_TAG 
#
# @(#)15   1.2         src/rsct/cfg_access/cfgmgr/ct_write_machines_lst.perl, cfg.access, rsct_rady, rady2035a 2/9/15 18:25:33
#
# Usage: ct_write_machines_lst  <filename>
#
# Get the arguments...
if ($#ARGV < 0) {
    print STDERR "#No output file name\n";
    exit 1;
}

my $filename = shift @ARGV;            # user specified resource


# return codes:
#   0 if successful
#   1 if there is an error
#   2 if <ct_write_machines.lst> not supported

exit(2);	# not-supported