Te envio un ejemplo por si te sirve de ayuda.
5722WDS V5R1M0 010525 LISTADO FUENTE SEU
06/06/02 12:19:25 P�G. 1
ARCHIVO FUENTE . . . . . GRIJANDER/QCLSRC
MIEMBRO . . . . . . . . . TAIG10F
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+...
8 ...+... 9 ...+... 0
100 A CCSID(65535)
09/04/01
200 A UNIQUE
26/04/01
300 A REF(REF)
09/04/01
400 A R ATRG00R
25/04/01
500 A TEXT('Registros Desencadenantes')
25/04/01
600 A TRGARC R REFFLD(AGS) COLHDG('Archivo a -
30/05/01
700 A enviar')
30/05/01
800 A TRGTRA R REFFLD(AGS) COLHDG('Archivo
tratado- 30/05/01
900 A ')
30/05/01
1000 A TRGART R REFFLD(ART) COLHDG('C�digo
Art�cul') 25/04/01
1100 A TRGTPO R REFFLD(AFR) COLHDG('Tipo')
25/04/01
1200 * Tipo: A = Alta
25/04/01
1300 * B = Baja
25/04/01
1400 * R = Modif
06/06/02
1500 A TRGPRE R REFFLD(ACT) COLHDG('1er' 'Rep')
06/06/01
1600 A TRGAUX R REFFLD(ACT) COLHDG('1er' 'Aux')
06/06/01
1700 A TRGURE R REFFLD(ACT) COLHDG('Ult' 'Rep')
06/06/01
1800 *
17/05/01
1900 A K TRGARC
26/04/01
2000 A K TRGART
26/04/01
* * * * F I N D E F U E N T E * * * *
5722WDS V5R1M0 010525 LISTADO FUENTE SEU
06/06/02 12:19:26 P�G. 1
ARCHIVO FUENTE . . . . . GRIJANDER/QCLSRC
MIEMBRO . . . . . . . . . TAIG10C
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+...
8 ...+... 9 ...+... 0
100 PGM
17/05/01
200
17/05/01
300 /* *******************************************************************/
17/05/01
400 /* BORRADO DE DESENCADENANTES */
17/05/01
500
17/05/01
600 RMVPFTRG FILE(MIBD/FICH10F)
06/06/02
700 MONMSG MSGID(CPF0000)
17/05/01
800
17/05/01
900 RMVPFTRG FILE(MIBD/FICH20F)
06/06/02
1000 MONMSG MSGID(CPF0000)
17/05/01
1100
17/05/01
1200 /* *******************************************************************/
17/05/01
1300 /* COMPILACION DEL PROGRAMA */
17/05/01
1400
17/05/01
1500 CRTBNDRPG PGM(MILIOB/TAIG10R) +
06/06/02
1600 SRCFILE(MILIFU/QRPGLESRC) OPTION(*NOXREF) +
06/06/02
1700 DBGVIEW(*ALL) OPTIMIZE(*FULL) INDENT(|) +
21/05/01
1800 FIXNBR(*ZONED) ALWNULL(*YES)
21/05/01
1900 /* *******************************************************************/
17/05/01
2000 /* ADICIONA DESENCADENANTES: FICH10F FICH20F */
06/06/02
2100
17/05/01
2200 ADDPFTRG FILE(MIBD/FICH10F) TRGTIME(*AFTER) +
06/06/02
2300 TRGEVENT(*INSERT) PGM(MILIOB/TAIG10R)
06/06/02
2400 MONMSG MSGID(CPF0000)
21/05/01
2500
17/05/01
2600 ADDPFTRG FILE(MIBD/FICH10F) TRGTIME(*AFTER) +
06/06/02
2700 TRGEVENT(*UPDATE) PGM(MILIOB/TAIG10R) +
06/06/02
2800 TRGUPDCND(*CHANGE)
23/05/01
2900 MONMSG MSGID(CPF0000)
17/05/01
3000
17/05/01
3100 ADDPFTRG FILE(MIBD/FICH20F) TRGTIME(*AFTER) +
06/06/02
3200 TRGEVENT(*INSERT) PGM(MILIOB/FICH20R)
06/06/02
3300 MONMSG MSGID(CPF0000)
21/05/01
3400
17/05/01
3500 ADDPFTRG FILE(MIBD/FICH20F) TRGTIME(*AFTER) +
06/06/02
3600 TRGEVENT(*UPDATE) PGM(MILIOB/TAIG10R) +
06/06/02
3700 TRGUPDCND(*CHANGE)
23/05/01
3800 MONMSG MSGID(CPF0000)
17/05/01
3900
17/05/01
4000 ENDPGM
17/05/01
* * * * F I N D E F U E N T E * * * *
5722WDS V5R1M0 010525 LISTADO FUENTE SEU
06/06/02 12:19:35 P�G. 1
ARCHIVO FUENTE . . . . . GRIJANDER/QRPGLESRC
MIEMBRO . . . . . . . . . TAIG10R
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+...
8 ...+... 9 ...+... 0
100 HDATEDIT(*DMY) DECEDIT(',')
25/04/01
200 **********************************************************************
25/04/01
300 ** OBTIENE FICHERO "ATRG00F" CON LOS REGISTROS **
25/04/01
400 ** DESENCADENANTES POR ALTA/BAJA/MODIFICACION **
25/04/01
500 ** **
25/04/01
600 **********************************************************************
25/04/01
700 FATRG00F UF A E K DISK
12/12/01
800 * Archivo de variaciones de datos
26/04/01
900 DPARM1 DS 9999
25/04/01
1000 * Nombre de Archivo F�sico
25/04/01
1100 D FNAME 1 10
25/04/01
1200 * Biblioteca de Archivo F�sico
25/04/01
1300 D LNAME 11 20
25/04/01
1400 * Nombre de Miembro
25/04/01
1500 D MNAME 21 30
25/04/01
1600 * Evento Activador:
25/04/01
1700 * '1' Operaci�n de INSERCI�N
25/04/01
1800 * '2' Operaci�n de SUPRESI�N
25/04/01
1900 * '3' Operaci�n de ACTUALIZACI�N
25/04/01
2000 D TEVEN 31 31
25/04/01
2100 * Hora de Activador:
25/04/01
2200 * '1' Despues de la Operaci�n
25/04/01
2300 * '2' Antes de la Operaci�n
25/04/01
2400 D TTIME 32 32
25/04/01
2500 * Nivel de bloqueo de compromiso
25/04/01
2600 D CMTLCK 33 33
25/04/01
2700 * Reservado
25/04/01
2800 D FILL2 41 48
25/04/01
2900 * Desplazamiengo al Registro Original
25/04/01
3000 D OLDOFF 49 52B 0
25/04/01
3100 * Longitud del Registro Original
25/04/01
3200 D OLDLEN 53 56B 0
25/04/01
3300 * Desplazamiento a correlaci�n BYTES nulos de Archivo Original
25/04/01
3400 D ONOFF 57 60B 0
25/04/01
3500 * Longitud de la correlaci�n de BYTES nulos
25/04/01
3600 D ONLEN 61 64B 0
25/04/01
3700 * Desplazamiento al nuevo registro
25/04/01
3800 D NOFF 65 68B 0
25/04/01
3900 * Longitud del nuevo registro
25/04/01
4000 D NEWLEN 69 72B 0
25/04/01
4100 * Desplazamiento a correlaci�n BYTES nulos de registro nuevo
25/04/01
4200 D NNOFF 73 76B 0
25/04/01
4300 * Longitud de la correlaci�n de BYTES nulos
25/04/01
4400 D NNLEN 77 80B 0
25/04/01
4500 * Reservado
25/04/01
4600 D RESV3 81 96
25/04/01
4700 *....................................................................*
25/04/01
4800 DPARM2 DS
25/04/01
4900 D LENG 1 4B 0
25/04/01
5000 *....................................................................*
25/04/01
5100 *
16/05/01
5200 DREGNEW E DS EXTNAME(FICH10F)
06/06/02
5300 *
16/05/01
5400 DREGNE0 E DS EXTNAME(FICH20F)
06/06/02
5500 *
26/04/01
5600 C *ENTRY PLIST
25/04/01
5700 C PARM PARM1
25/04/01
5800 C PARM PARM2
25/04/01
5900 *
23/05/01
6000 C KTRGR KLIST
23/05/01
6100 C KFLD TRGARC
23/05/01
6200 C KFLD TRGART
23/05/01
6300 *
16/05/01
6400 C *LIKE DEFINE FRTFVA X +1
06/06/02
6500 C *LIKE DEFINE FRTFVA Y +1
06/06/02
6600 C *LIKE DEFINE FRTART VARART
06/06/02
6700 C *LIKE DEFINE FRTDES VARDES
06/06/02
6800 C *LIKE DEFINE FRTDCA VARDCA
06/06/02
6900 C *LIKE DEFINE FRTDIV VARDIV
06/06/02
7000 C *LIKE DEFINE FRTCES VARCES
06/06/02
7100 C *LIKE DEFINE FRTNCO VARNCO
06/06/02
7200 C *LIKE DEFINE FRXDEA VARDEA
06/06/02
7300 C *LIKE DEFINE FRXUBP VARUBP
06/06/02
7400 *
16/05/01
7500 C EXSR BLANQUEA
16/05/01
7600 * Variaciones PRIMER ARCHIVO
06/06/02
7700 C SELECT
25/04/01
7800 C FNAME WHENEQ 'FICH10F'
06/06/02
7900 C EVAL X = OLDOFF + 1
25/04/01
8000 C EVAL Y = OLDLEN
25/04/01
8100 C Y SUBST PARM1:X REGNEW
25/04/01
8200 C IF TEVEN = '1'
25/04/01
8300 C EVAL FRTART = *BLANKS
06/06/02
8400 C EVAL TRGTPO = 'A'
26/04/01
8500 C ELSE
25/04/01
8600 C EVAL TRGTPO = 'M'
26/04/01
8700 C ENDIF
25/04/01
8800 C EVAL VARART = FRTART
06/06/02
8900 C EVAL VARDES = FRTDES
06/06/02
9000 C EVAL VARDCA = FRTDCA
06/06/02
9100 C EVAL VARDIV = FRTDIV
06/06/02
9200 C EVAL VARCES = FRTCES
06/06/02
9300 C EVAL VARNCO = FRTNCO
06/06/02
9400 *
25/04/01
9500 C EVAL X = NOFF + 1
25/04/01
9600 C EVAL Y = NEWLEN
25/04/01
9700 C Y SUBST PARM1:X REGNEW
25/04/01
9800 C IF FRTART <> VARART OR FRTDES <> VARDES OR
06/06/02
9900 C FRTDCA <> VARDCA OR FRTDIV <> VARDIV OR
06/06/02
10000 C FRTCES <> VARCES OR FRTNCO <> VARNCO
06/06/02
10100 C IF FRTCES = *BLANKS AND VARCES <> *BLANKS
06/06/02
10200 C EVAL TRGTPO = 'R'
17/05/01
10300 C ENDIF
17/05/01
10400 C IF FRTCES <> *BLANKS AND VARCES = *BLANKS
06/06/02
10500 C EVAL TRGTPO = 'B'
17/05/01
10600 C ENDIF
17/05/01
10700 C EVAL TRGARC = 'FICH10F'
06/06/02
10800 C EVAL TRGART = ARTART
26/04/01
10900 C KTRGR CHAIN ATRG00R 10
26/04/01
11000 C 10 WRITE ATRG00R
26/04/01
11100 C ENDIF
25/04/01
11200 * Variaciones SEGUNDO ARCHIVO
06/06/02
11300 C FNAME WHENEQ 'FICH20F'
06/06/02
11400 C EVAL X = OLDOFF + 1
25/04/01
11500 C EVAL Y = OLDLEN
25/04/01
11600 C Y SUBST PARM1:X REGNE0
25/04/01
11700 C IF TEVEN = '3'
25/04/01
11800 C EVAL VARDEA = FRXDEA
06/06/02
11900 C EVAL VARUBP = FRXUBP
06/06/02
12000 C EVAL X = NOFF + 1
25/04/01
12100 C EVAL Y = NEWLEN
25/04/01
12200 C Y SUBST PARM1:X REGNE0
25/04/01
12300 C IF FRXDEA <> VARDEA OR FRXUBP <> VARUBP
06/06/02
12400 C EVAL TRGARC = 'EART00F'
03/05/01
12500 C EVAL TRGART = ARXART
26/04/01
12600 C KTRGR CHAIN ATRG00R 10
26/04/01
12700 C 10 EVAL TRGTRA = 'FICH20F'
06/06/02
12800 C 10KTRGR CHAIN ATRG00R 10
03/05/01
12900 C 10 EVAL TRGTPO = 'M'
26/04/01
13000 C 10 WRITE ATRG00R
26/04/01
13100 C ENDIF
25/04/01
13200 C ENDIF
25/04/01
13300 *
16/05/01
13400 C ENDSL
26/04/01
13500 *
16/05/01
13600 C EVAL *INLR = *ON
26/04/01
13700 **********************************************************************
16/05/01
13800 ** SUBRUTINA PARA BLANQUEAR CAMPOS **
16/05/01
13900 **********************************************************************
16/05/01
14000 C BLANQUEA BEGSR
16/05/01
14100 *
16/05/01
14200 C EVAL TRGARC = *BLANKS
16/05/01
14300 C EVAL TRGTRA = *BLANKS
30/05/01
14400 C EVAL TRGART = *BLANKS
16/05/01
14500 *
16/05/01
14600 C ENDSR
16/05/01
* * * * F I N D E F U E N T E * * * *
