Calling FTP RMTSYS from ODBC in PHP?
Tags:
Hello everyone.
This is an interesting problem. I have this code and I want to call
FTP RMTSYS('') command through ODBC from PHP.
Nothing happens. When I issue the command in DBVisualizer:
CALL QSYS.QCMDEXC('FTP RMTSYS(iSeries_SERVER)', 0000000020.00000);
I get this error:
Program contains commands only valid when run interactively.
Application error. CPD0772 unmonitored by QSNDEVQ at statement
0000000001, instruction X'0000'.
FTP client exit error.
Now, this command can be run in batch mode when in CL or RPG-ILE programme. Can it be run this way, from ODBC in PHP?
The following code works until it reaches the command in question.
Any help or hint would be appreciated :)
<?php
/* Starting PHP session */
session_start();
/* Declaring varialbes */
$_SESSION[server]= 'iSeries_SERVER';
$_SESSION[user]= 'username';
$_SESSION= 'password';
$up = "up";
$lib = "lib";
$libu = "libu";
$lpar = "lpar";
$table = 'library.ftpin';
/* Creating connection towards iSeries server */
$conn = odbc_connect($_SESSION[server],$_SESSION[user],$_SESSION);
if ($conn == false) {
echo " Not connected to database ! ";
}
else
{
echo " Connected to database ! ";
};
/* Creating INPUT file for FTP */
$create_ftpin = "create table library.ftpin (rcdfmt char(300))";
$crttbl_res = odbc_do($conn, $create_ftpin);
/* Creating OUTPUT file for FTP */
$create_ftpout = "create table library.ftpout (rcdfmt char(300))";
$crttbl_res = odbc_do($conn, $create_ftpout);
/* Inserting values into INPUT file for FTP */
$insert = "insert into library.ftpin values
'library library',
'bin',
'namefmt 1',
'quote rcmd CRTLIB LIB(TEMPX)',
'cd tempx.lib',
'lcd library.lib',
'put transfer.file',
'quote rcmd RSTOBJ obj(*all) savlib(lib) dev(*savf) savf(tempx/transfer) mbropt(*all) alwobjdif(*all) rstlib(TEMPXX)',
'quote rcmd RMVLIBLE LIB(TEMPX)',
'quote rcmd DLTLIB LIB(TEMPX)',
'close',
'quit'
";
$insrt_res = odbc_do($conn, $insert);
/* Calling subsequent commands from PHP through ODBC */
$qry1="CALL QSYS.QCMDEXC('CRTSAVF FILE(library/TRANSFER)', 0000000029.00000)";
$stmt1 = odbc_prepare($conn, $qry1);
$result1 = odbc_execute($stmt1);
$qry2="CALL QSYS.QCMDEXC('CRTSRCPF FILE(library/ftpout) MBR(ftpout)', 0000000063.00000)";
$qry2 = "CALL QSYS.QCMDEXC ('SAVOBJ OBJ(*ALL) LIB(library) DEV(*SAVF) OBJTYPE(*ALL) SAVF(library/TRANSFER) SAVACT(*SYNCLIB)', 0000000092.00000)";
$stmt2 = odbc_prepare($conn, $qry2);
$result2 = odbc_execute($stmt2);
$qry3 = "CALL QSYS.QCMDEXC('OVRDBF FILE(INPUT) TOFILE(library/ftpin)', 0000000039.00000)";
$stmt3 = odbc_prepare($conn, $qry3);
$result3 = odbc_execute($stmt3);
$qry4 = "CALL QSYS.QCMDEXC('OVRDBF FILE(OUTPUT) TOFILE(library/ftpout)', 0000000041.00000)";
$stmt4 = odbc_prepare($conn, $qry4);
$result4 = odbc_execute($stmt4);
/* Everything works until here! */
$qry5 = "CALL QSYS.QCMDEXC('FTP RMTSYS(ASUDOT21)', 0000000020.00000)";
$stmt5 = odbc_prepare($conn, $qry5);
$result5 = odbc_execute($stmt5);
$qry6 = "CALL QSYS.QCMDEXC('DLTOVR FILE(INPUT OUTPUT)', 0000000024.00000)";
$stmt6 = odbc_prepare($conn, $qry6);
$result6 = odbc_execute($stmt6);
$qry8="CALL QSYS.QCMDEXC('DSPF FILE(library/ftpout)', 0000000063.00000)";
$qry9="CALL QSYS.QCMDEXC('DLTF FILE(library/ftpout)', 0000000063.00000)";
$qry10="CALL QSYS.QCMDEXC('CLRLIB library', 0000000063.00000)";
odbc_close($conn);
session_destroy();
?>
Software/Hardware used:
AS400, iSeries, PHP, ODBC
Software/Hardware used:
AS400, iSeries, PHP, ODBC
Asked:
Last updated:
Discuss This Question: 9 Replies