Code Retour sur appel pgm Pase
Posté : lun. 16 juil. 2012, 15:19:18
Bonjour,
Depuis notre passage en V7R1 ce week-end, nous rencontrons un problème sur le test du code retour renvoyé par l'API QUSRJOBI (cf exemple ci-dessous).
Nous utilisons Pase pour faire du sftp avec un partenaire. Depuis la V7R1, le "mget" utilisé dans le sftp renvoie le code 00001 s'il n'y a pas de fichiers à récupérer alors qu'en V5R4 on obtenait 00000
Quelqu'un a-t'il déjà eu ce problème ou y-a-t'il une autre façon de faire ?
Merci
[/code]
Depuis notre passage en V7R1 ce week-end, nous rencontrons un problème sur le test du code retour renvoyé par l'API QUSRJOBI (cf exemple ci-dessous).
Nous utilisons Pase pour faire du sftp avec un partenaire. Depuis la V7R1, le "mget" utilisé dans le sftp renvoie le code 00001 s'il n'y a pas de fichiers à récupérer alors qu'en V5R4 on obtenait 00000
Quelqu'un a-t'il déjà eu ce problème ou y-a-t'il une autre façon de faire ?
Merci
Code : Tout sélectionner
.../...
CHGVAR &SHELL '/QOpensys/usr/bin/sh'
CHGVAR &SHELL (&SHELL *TCAT &NULL)
CHGVAR &CMDSH ('/QOpensys/usr/bin/sftp -v' *BCAT
*BCAT '-b' *TCAT &FICCMD +
*BCAT &USER *TCAT '@' *TCAT &SERVEUR +
*BCAT '-oPasswordAuthentication=' *TCAT &PASSW
CALL PGM(QP2SHELL) PARM(&SHELL '-c' &CMDSH)
CHGVAR VAR(%BIN(&RCVVARLG)) VALUE(200) /* taille de RCVVAR */
CALL PGM(QUSRJOBI) PARM(&RCVVAR +
&RCVVARLEN +
'JOBI0600' +
'*' +
' ' )
IF (%BIN(&RCVVAR 109 4) *NE 0) THEN(DO)
SNDPGMMSG MSGID(CPF9898) MSGTYPE(*ESCAPE) MSGF(QCPFMSG) +
MSGDTA('Erreur dans commande sftp')
ENDDO
.../...