Re: controlar EXITPOINT para transferencia de datos...

[miguel miguel]

gracias alex, echaré un vistazo al documento.

 

saludos

 

On 8/7/06, alex martinez <[EMAIL PROTECTED]> wrote:

Creo que te equivocas de exit point, este es el que utilizaba el antiguo PC Support/400 (sino me falla la memoria)

Este PDF de Administracion de Client Access contiene bastante información

http://as400bks.rochester.ibm.com/iseries/v5r1/ic2924/info/rzaii/rzaii.pdf

2006/8/4, miguel miguel <[EMAIL PROTECTED]>:

Estoy intentando controlar la transferencia de datos, he seguido los siguientes pasos:

 

1) escribir este pgm:

 

 PGM PARM(&RC &STRU)                                             
 DCL  VAR(&RC) TYPE(*CHAR) LEN(1)  /* 1 ACEPTA, 0 DENIEGA */     
 DCL  VAR(&STRU) TYPE(*CHAR) LEN(80)                             
 DCL  VAR(&USER) TYPE(*CHAR) LEN(10) /* USUARIO*/                
 DCL  VAR(&APP1) TYPE(*CHAR) LEN(10) /* FUNCION */               
 DCL  VAR(&APP2) TYPE(*CHAR) LEN(10) /* SUBFUNCION */            
 DCL  VAR(&TFOBJ) TYPE(*CHAR) LEN(10) /* NOMBRE DEL FICHERO */   
 DCL  VAR(&TFLIB) TYPE(*CHAR) LEN(10) /* BIBLIOTECA */           
 DCL  VAR(&TFMBR) TYPE(*CHAR) LEN(10) /* MIEMBRO */              
 DCL  VAR(&TFFMT) TYPE(*CHAR) LEN(10) /* FORMATO */              
 DCL  VAR(&TYPE) TYPE(*CHAR) LEN(2)   /* TIPO DE JOURNAL */      

 MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(EXIT))                   
                                                                     
              CHGVAR     VAR(&RC) VALUE('0') /* DENIEGA POR OMISION */
                                                                     
              CHGVAR     VAR(&USER)  VALUE('%SST(&STRU 1  10))')     
              CHGVAR     VAR(&APP2)  VALUE('%SST(&STRU 21 10))')     
              CHGVAR     VAR(&TFOBJ) VALUE('%SST(&STRU 31 10))')     
              CHGVAR     VAR(&TFLIB) VALUE('%SST(&STRU 41 10))')     
              CHGVAR     VAR(&TFMBR) VALUE('%SST(&STRU 51 10))')     
              CHGVAR     VAR(&TFFMT) VALUE('%SST(&STRU 61 10))')     
                                                                     
 If COND(&USER *EQ 'PEPEPE') THEN(CHGVAR &RC '1')                     
                                                                      
                                                                      
  EXIT:                                                              
        ENDPGM                               

 

2) asignarle a:

 

                                                               
Punto de salida:   QIBM_QTF_TRANSFER        Formato:   TRAN0100 
                                                               

 

3) poner:

 

CHGNETA PCSACC(*REGFAC)

 

4) ENDTCP y STRTCP

 

y no me funciona... :(

 

deja transferencias a todos quisqui, y al examinar el objeto (el *pgm del exitpoint) no se ha ejecutado ni una sola vez.

 

¿alguien sabe qué me falta por hacer?

 

saludos

miguel

 

 

 

 

                        

--
Mi blog sobre as400
http://www.ajut400.com