Mass Delete na queue do Z/OS

Como descrito anteriormente publicarei os scripts(transformados em programas) , os quais funcionam como "utilitários" para o Z/OS . O primero script permite "mass delete" de jobs na queue.

delete_job.php

set_time_limit(0);
include('server.inc');
//-------------------------------------------------
$conn_id = ftp_connect("$ftp_server");
$login_result = ftp_login($conn_id, $ftp_user_name, $ftp_user_pass);
// ------------------------------------------------verifica conexao
if ((!$conn_id) (!$login_result)) {
echo "Ftp falhou!";
echo "Conexão $ftp_server para o user $ftp_user_name";
die;
} else {
echo "Conexão para o user $ftp_user_name";
}
$a2 = ftp_site($conn_id,"quote site filetype=jes");
include('jes.inc');
$teste = ftp_rawlist($conn_id,$wer);
$tam = count($teste);
for($i=0;$i<$tam;$i++) {
echo $teste[$i];
$nj = substr($teste[$i],9,8);
echo $nj ;
ftp_delete($conn_id, $nj);
}
ftp_close($conn_id);
ftp_quit($conn_id);

--------------------------------------------------------------------

server.inc

$ftp_server="ip"; //ip do servidor
ftp $ftp_user_name="user"; //user tso
$ftp_user_pass="password"; //password tso

--------------------------------------------------------------------

jes.inc

$a3 = ftp_site($conn_id,"quote site jesentrylimit=900"); //limita a 900 jobs

------------------------------------------------------------------------------------------------

Agora com o script acima , iremos transforma-lo em em programa executavel no Windows , utilizando o Bamcompile :

http://www.bambalam.se/bamcompile/

Conforme descrito no link acima :

bamcompile [-options] infile.php [outfile.exe]
bamcompile [-options] project_directory mainfile.php [outfile.exe]
bamcompile projectfile.bcp

Options: -w Hide console window for windowed applications
-c Compress output exe (using UPX)
-d Do not encode PHP files
-e:extension.dll Embed and use PHP extension
-i:icon.ico Add icon to exe
------------------------------------------------------------------------------------------------
Utilizarei um arquivo .BAT para "compilação" do Script

compile.bat

bamcompile -c delete_job.php
pause

------------------------------------------------------------------------------------------------
Resultado:

delete_job.exe



Não esqueçam de alterar o ip do servidor de ftp , user e password de tso .

Duplo clique e começa a execucao em uma janela DOS.


Ronaldo Menezes