Spoolfiles Auf PC stellen

[kochuwe01]

Wir haben die Spools des Users per DOS-Batch auf den PC als textfile geholt:

username.bat:
o:
cd O:\username\spool
perl username.pl
pause
--------------------------------------------------
Perl runterladen und die Perl.Exe & DLL zur Verfügung stellen.
perlscript username.pl :

#perl
###################################
# Put in the username here:
$login="Loginname für AS400" ;
$passwort="......" ;
$query_user="username" ;

###################################



$system="as400-name" ;
$WRKSPLF = "temp/$query_user\.spl" ;
$FTP = "temp/$query_user\.ftp" ;
$drucker="PC" ;
$EOF = "E N D E" ;
$syscmd =`rexec $system -l $query_user "wrksplf select($query_user)" >$WRKSPLF ` ;



open(DATEI, "<$WRKSPLF") ;



$z = <DATEI> ;$z = <DATEI> ;$z = <DATEI> ;$z = <DATEI> ;

#diese Zeile hier kann nach dem ersten Run wieder raus:
#------------------------------------------------------------------------------
$syscmd = `rexec $system -l $query_user 'CRTPF FILE($query_user/spool) RCDLEN(150) SIZE(*NOMAX)' ` ;
#------------------------------------------------------------------------------
# aufpassen, falls die substr angepasst werden müssen
while ($z = <DATEI>) {
if ( ! grep /$EOF/, $z ) {
$file = substr($z ,1, 10) ;
$spoolNo = substr($z ,99, 7) ;
$job = substr($z ,107, 10) ;
$jobNo = substr($z ,118, 6) ;
print "\n\n rtv spool:\n z:$z: \n $spool: \n file:$file: \n user:$user: \n spoolNo:$spoolNo: \n job:$job: \n jobNo:$jobNo: \n" ;



$file =~ s/\s//g ;
$spoolNo =~ s/\s//g ;
open(FTPCMD, ">$FTP") ;

print FTPCMD "prompt\nopen $system\n$login \n$passwort\n" ;
print FTPCMD "quote rcmd CPYSPLF FILE($file) TOFILE($query_user/spool) JOB($jobNo/$query_user/$job) SPLNBR($spoolNo)\ncd $query_user\nlcd $query_user\nget spool\nquote rcmd clrpfm $query_user/spool\nquit\n" ;
close FTPCMD ;
$syscmd = `ftp -s:$FTP ` ;

$newname = "$system\_$file\_$jobNo\_$spoolNo.txt" ;

print "$newname\n" ;
$syscmd = `copy $query_user\\spool $query_user\\$newname ` ;


}
}

close DATEI ;