Running the following script:
my $MyJES = MVS::JESFTP->open($MyHost, $MyLogonId, $MyPw) or die;
printf "open to MVS completed w/o error\n";
if ( ! defined $MyJES->submit($MyJob) ) {; #$job is the absolute name of
a valid jcl file
printf "Problem with submission of job\n<$MyJob>\n";
die "problem with submit:"
}
printf "Job submitted successfully.\n";
my $MyMsg = $MyJES->message; # this will retrieve the submit message
where you can find the job number
printf "Message retrieved successfully.\n<$MyMsg>\n";
my $MyJobNumber = substr($MyMsg,index($MyMsg,"JOB"),8); # this could be
changed by a RE but ... it works
my $MyTimeOut = 60;
printf "headed into wait for results.\n<$MyJobNumber>\n";
my $aref;
#jobname is the name of your JOB card. Timeout is 60 by default
$aref = $MyJES->wait_for_results($MyJobName, $MyTimeOut);
printf "received results.\n<$MyJobNumber>\n";
printf "Outputs:\n%s\n",
join(qq[\n], @{$aref});
$MyJES->get_results($aref); #you can use
$jes->get($jobNumber,"DIRECTORY/$jobNumber.out");
It runs and completes on the IBM, but when it tries to get at
the data to reload back down on the PC, I get the following error:
Unable to close datastream at C:\CurrWrka\00COMM~1\pl800.pl line 43
which is coming from Net::FTP when it is attempting to close the
datastream as stated,
I am running XP SP 2, Perl AS 5.8.8, JESFTP is 1.1 Latest
version.
Anyone used the module or anyone execute jcl on MVS and pull the
output back to a PC.
Any insight would be greatly appreciated.
Thanks.
Wags ;)
David R Wagner
Senior Programmer Analyst
FedEx Freight
1.408.323.4225x2224 TEL
1.408.323.4449 FAX
http://fedex.com/us
**********************************************************************
This message contains information that is confidential and proprietary to FedEx
Freight or its affiliates. It is intended only for the recipient named and for
the express purpose(s) described therein. Any other use is prohibited.
**********************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
