Código de AS/400 - Accesar un archivo de transacciones y su maestro de clientes

Accesar un archivo de transacciones y su maestro de clientesgráfica de visualizaciones


AS/400

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 26 de Agosto del 2002 por Walter Fölgar
16.189 visualizaciones desde el 26 de Agosto del 2002. Una media de 28 por semana
Estas especificaciones hacen lo mismo que un SET RELATION de FOX.

Encadena el archivo maestro de clientes a partir del archivo de transacciones, y cuando se procesa el programa, no es necesario hacer ningun tipo de lectura, adicional para obtener los datos generales del cliente, basta con declarar el archivo logico en el programa y el sistema operativo se encarga de hacer las lecturas necesarias.

Con esta tecnica se permite tener Join files hasta de 32 archivos, en una sola declaracion de archivo logico.

Versión 1
estrellaestrellaestrellaestrellaestrella(1)

Publicado el 26 de Agosto del 2002gráfica de visualizaciones de la versión: Versión 1
16.190 visualizaciones desde el 26 de Agosto del 2002. Una media de 28 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
A* CREDIT FILE TRANSACTION JOIN WITH CUSTOMER FILE
     A* PROGRAM RPG ILE CXC100, LIBRARY XCXC
     A*
     A* ING. WALTER A. F™LGAR                              11.2001
     A                                      DYNSLT
     A                                      JDFTVAL
     A          R CXC100R                   JFILE(XCXC/CCMO XCXC/CCMC)
     A          J                           JOIN(CCMO CCMC)
     A                                      JFLD(CODCLI CODCLI)
     A            NOMCLI                    JREF(CCMC) +
     A                                      COLHDG('NOMBRE DEL CLIENTE')
     A            CLNREG                    JREF(CCMC) +
     A                                      COLHDG('NUMERO' 'REGISTRO')
     A            CLGIRO                    JREF(CCMC) +
     A                                      COLHDG('GIRO')
     A*
     A            STATUS                    JREF(CCMO) +
     A                                      COLHDG('ESTADO')
     A            CIA                       JREF(CCMO) +
     A                                      COLHDG('EMPRESA')
     A            NUMFAC                    JREF(CCMO) EDTCDE(J) +
     A                                      COLHDG('NUMERO' 'FACTURA')
     A            CCMO01                    JREF(CCMO)
     A            CCMO02                    JREF(CCMO)
     A            CODCLI                    JREF(CCMO) +
     A                                      COLHDG('CODIGO' 'CLIENTE')
     A            VALFAC                    JREF(CCMO) EDTCDE(K $) +
     A                                      COLHDG('VALOR' 'FACTURA')
     A            CONDIC                    JREF(CCMO)
     A                                      COLHDG('CONDICION' 'DE PAGO')
     A            TIPOT                     JREF(CCMO)
     A            CODTRA                    CONCAT(TIPOT CLAMOV) +
     A                                      COLHDG('TRANSACCION')
     A            NUMDOC                    JREF(CCMO) +
     A                                      COLHDG('NUMERO' 'DOCUM')
     A            CCMO03                    JREF(CCMO)
     A            NUMVOU                    JREF(CCMO) +
     A                                      COLHDG('NUMERO' 'VOUCHER')
     A            DOCUM                     JREF(CCMO) +
     A                                      COLHDG('DOCUMTO.')
     A            CCMO04                    JREF(CCMO)
     A            PLANTA                    JREF(CCMO) COLHDG('PLANTA')
     A            VENDED                    JREF(CCMO) COLHDG('VENDEDOR')
     A            CLAMOV                    JREF(CCMO)
     A            NUMLE                     JREF(CCMO)
     A            CLACOB                    JREF(CCMO)
     A            CODIV                     JREF(CCMO) COLHDG('PAIS')
     A*                ( EN POSIC 84-85 SE GRABA EL CODIGO DE PAIS. )
     A            PAGAN                     JREF(CCMO)
     A            VACIO                     JREF(CCMO)
     A*    ( EN POSIC 90-97 CONTIENE EL FOB EN DOLARES FACT.EXPORTACION, 8.2 )
     A            VALIVA                    JREF(CCMO) EDTCDE(K $) +
     A                                      COLHDG('VALOR' 'I.V.A.')
     A*    ( PAISES EXTERIOR CONTIENE EL VALOR EN DOLARES DE LA FACTURA  )
     A            CCMO91                    JREF(CCMO)
     A            FECFAC                    JREF(CCMO) EDTWRD('  /  /   0') +
     A                                      COLHDG('FECHA' 'FACTURA')
     A            FECVEN                    JREF(CCMO) EDTWRD('    /  / 0') +
     A                                      COLHDG('FECHA' 'VENCTO.')
     A            FECREC                    JREF(CCMO) EDTWRD('  /  /   0') +
     A                                      COLHDG('FECHA' 'REGISTRO')
     A            FECDOC                    JREF(CCMO) EDTWRD('  /  /   0') +
     A                                      COLHDG('FECHA' 'DOCUMTO')
     A* ACCESS KEY
     A          K CODCLI
     A          K PLANTA
     A          K NUMFAC
     A          S STATUS                    COMP(EQ ' ')



Comentarios sobre la versión: Versión 1 (1)

gustavo rojas
14 de Enero del 2005
estrellaestrellaestrellaestrellaestrella
Esta buena esta forma de accesar maestros y transacciones en un solo paso, lo probare y te aviso.
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s290