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
.../...