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

Imágen de perfil

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


AS/400

Publicado el 26 de Agosto del 2002 por Walter Fölgar (3 códigos)
17.769 visualizaciones desde el 26 de Agosto del 2002
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(2)

Publicado el 26 de Agosto del 2002gráfica de visualizaciones de la versión: Versión 1
17.770 visualizaciones desde el 26 de Agosto del 2002
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 (2)

Imágen de perfil
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
Imágen de perfil
8 de Junio del 2019
estrellaestrellaestrellaestrellaestrella
No ha dejado ningún comentario
Responder

Comentar la versión: Versión 1

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

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s290