PGM PARM(&APPLI &WUSER &USERLG +
&WPWD &PWDLG +
&WADR &ADRLG +
&CODERETOUR +
&PROFIL &PASSWORD &CURLIB)
DCL VAR(&APPLI) TYPE(*CHAR) LEN(4)
DCL VAR(&WUSER) TYPE(*CHAR) LEN(50)
DCL VAR(&USERLG) TYPE(*CHAR) LEN(4)
DCL VAR(&WPWD) TYPE(*CHAR) LEN(50)
DCL VAR(&PWDLG) TYPE(*CHAR) LEN(4)
DCL VAR(&WADR) TYPE(*CHAR) LEN(50)
DCL VAR(&ADRLG) TYPE(*CHAR) LEN(4)
DCL VAR(&CODERETOUR) TYPE(*CHAR) LEN(4)
DCL VAR(&PROFIL) TYPE(*CHAR) LEN(10)
DCL VAR(&PASSWORD) TYPE(*CHAR) LEN(10)
DCL VAR(&CURLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&USER) TYPE(*CHAR) LEN(32)
DCL VAR(&ADR) TYPE(*CHAR) LEN(32)
DCL VAR(&POS) TYPE(*DEC) LEN(3 0)
DCL VAR(&ANONYMOUS) TYPE(*DEC) LEN(1 0) VALUE(5)
DCL VAR(&ACCORD) TYPE(*DEC) LEN(1 0) VALUE(1)
DCL VAR(&REFUS) TYPE(*DEC) LEN(1 0) VALUE(0)
/*********************************************************************/
/*QIBM_QTMF_SVR_LOGON : serveur FTP */
/* */
/*Format TCPL0100 : - APPLICATION 1 = FTP */
/* - IDENTIFIANT */
/* - LG DE IDENTIFIANT */
/* - MOT DEPASSE */
/* - LG DE MOT DE PASSE */
/* - ADRESSE IP */
/* - LG DE ADRESSE IP */
/* EN RETOUR */
/* - CODE RETOUR 0 = REJET, 1= OK AVEC UN PROFIL */
/* 5=OK EN MODE ANONYMOUS */
/* - PROFIL A UTILISER */
/* - MOT DE PASSE A UTILISER */
/* - CURLIB A UTILISER */
/* */
/*********************************************************************/
|
| 
| 