INFORME PARA RPG 400
INFORME DE PROGRAMACIÓN ESTRUCTURADA II :
R.P.G. 4 0 0
AUTOR : GrisUNO
CARRERA: ANALISIS DE SISTEMAS
INTRODUCCIÓN :
El AS/400 fue la más moderna tecnología de IBM en el mercado de los mini computadores. Representó una mejora fundamental en la facilidad de uso y la integración del sistema y es el paso siguiente de la línea de productos de los sistemas 36 y 38. Se asemeja al sistema 38 en cuanto a la funcionalidad e incorpora la cómoda interfaz de usuario del sistema 36. Esta máquina representa el esquema de conectividad del SAA de IBM entre mainframes, minis y PC.
Uno de los aspectos revolucionarios del AS/400 es que trata casi todas las entidades de datos como objetos. Esto incluye la descripción de dispositivos para terminales o impresoras, bases de datos, programas, pantallas. El sistema operativo del AS/400 (OS/400) almacena descripciones de todos los objetos. Un usuario puede simplemente dar nombre a un objeto, y el computador no solo lo reconoce y lo encuentra, sino que tiene una completa descripción de el. Además, el sistema puede utilizar un objeto, una vez definido, con la mínima intervención del usuario.
RPG es un lenguaje que combina la sencillez de un generador de informes con las características de un lenguaje de alto nivel, orientado a resolver principalmente problemas de tipo comercial.
Muchas son las ventajas que presenta el RPG (Programa Generador de Reportes), dado que es prácticamente un método de programación, automatizado en la mayoría de sus fases, proporcionando, por consiguiente al programador, rapidez y simplicidad en su Forma de codificación.
DESARROLLO:
H J
FVENTAS IP F 128 DISK
FLISTADO O F 132 OV PRINTER
E TT 1 12 55
IVENTAS NS 01 1 C0
I 2 40CODT L2
I 5 60NVEN L1
I 7 13 CODP
I 14 14 TIPOV
I 15 220FECHV
I 23 240UNIV
I 25 310MONTO
I AB 02 1NC0
C 90 SETOF 88 1
C 90 TIME HORA 60
C N90 SETON 9088 1 2
C 01 EXSR CALCU
C 01 EXSR ACUMV
CL1 EXSR CORV
CL2 EXSR CORT
C CALCU BEGSR
CSR TIPOV COMP 1 10 3
C TIPOV COMP 2 11 3
C TIPOV COMP 3 12 3
C TIPOV COMP 4 13 3
C UNIV COMP 3 20 3
C 10
COR 11
CAN 20 EXSR VERT
C N10N11 MOVE 0,02 AUXP 33
C MONV MULT AUXP COMIS 60H
CSR ENDSR
CSR VERT BEGSR
C CODT COMP 111 30 3
C CODT COMP 222 31 3
C CODT COMP 333 32 3
C 30 EXSR TAHU
C 31 EXSR TPRO
C 32 EXSR THUE
CSR ENDSR
CSR TAHU BEGSR
C NVEN COMP 01 40 3
C NVEN COMP 02 41 3
C NVEN COMP 03 42 3
C 40 MOVE 0,055 AUXP
C 41 MOVE 0,058 AUXP
C 42 MOVE 0,052 AUXP
CSR ENDSR
CSR TPRO BEGSR
C NVEN COMP 01 43 3
C NVEN COMP 02 44 3
C 43 MOVE 0,05 AUXP
C 44 MOVE 0,054 AUXP
CSR ENDSR
CSR THUE BEGSR
C NVEN COMP 01 45 3
C NVEN COMP 02 46 3
C NVEN COMP 03 47 3
C 45 MOVE 0,053 AUXP
C 46 MOVE 0,054 AUXP
C 47 MOVE 0,052 AUXP
CSR ENDSR
CSR ACUMV BEGSR
C ADD UNIV AVUNIV 30
C ADD MONV AVMONV 80
C ADD COMIS AVCOMI 70
CSR ENDSR
CSR CORV BEGSR
C ADD AVUNIV ATUNIV 40
C ADD AVMONV ATMONV 90
C ADD AVCOMI ATCOMI 80
CSR ENDSR
CSR CORT BEGSR
C ADD ATUNIV AGUNIV 50
C ADD ATMONV AGMONV 100
C ADD ATCOMI AGCOMI 90
CSR ENDSR
OLISTADO H 101 88
O OR OV
O TT,1 55
O TT,2 110
O PAGE Z 92
O H 2 88
O OR OV
O TT,3 55
O TT,4 110
O UDATE 52 ' - - '
O HORA 92 ' : : '
O H 1 88
O OR OV
O TT,5 55
O TT,6 110
O H 1 88
O OR OV
O TT,7 55
O TT,8 110
O H 1 88
O OR OV
O TT,9 55
O TT,9 110
O D 1 01
O 30 15 'AHUMADA 425'
O 32 15 'HUERFANOS 716'
O NVEN 21
O CODP 30
O FECHV 42
O UNIV Z 55
O 10 70 'EFECTIVO'
O 11 70 'CHQ. AL DIA'
O 12 70 'CHQ. A PLAZO'
O 13 70 'TARJ. CREDITO'
O TIPOV 80
O MONTO 1 88
O PCOMIS1 99
O COMIS 110
O T 21 L1
O TT,10 55
O 30 40 48 'CARLOS PEREZ LOPEZ'
O 30 41 48 'MARCELA SOTO PASTEN'
O 30 42 48 'LUIS GARCIA RETAMAL'
O 31 43 48 'PEDRO BARRIA JARA'
O 31 44 48 'CARLA HESSMANN KULT'
O 32 45 48 'MONICA CARRILLO SAL'
O 32 46 48 'ANDREA GUTIERREZ PE'
O 32 47 48 'FELIPE VELASCO MALD'
O AVUNIVZB 55
O AVMONT1B 80
O AVCOMI1B 107
O T 21 L2
O TT,11 55
O ATUNIVZB 55
O ATMONT1B 80
O ATCOMI1B 107
O T 21 LR
O TT,12 55
O AGUNIVZB 55
O AGMONT1B 80
O AGCOMI1B 107
H J
FVENTAS IF E DISK
FLISTADO O E 99 PRINTER
E TCT 3 3 3 0 TAB.COD.TIENDA
E TNT 1 3 15 TAB.NOM.TIENDA
E TABNU 1 8 5 0 TABNO 24 TAB.ALT.VEND
E TABBU 1 8 7 1 TABP 2 1 TAB.ALT.PORC
I DS
I 1 50BUSCAR
I 1 30TDA
I 4 50VEN
C WRITELTIT
C READ VENTAS 90 3
C *IN90 DOUEQ*OFF B001
C EXSR PROCES 001
C ENDDO E001
C EXSR RUFINA
CSR PROCES BEGSR
C CODAC IFEQ 0 B001
C EXSR PROREG 001
C ELSE X001
C READ VENTAS 90 3 001
C ENDIF E001
CSR ENDSR
CSR RUFINA BEGSR
C EXSR CORT
C WRITELTG
C MOVE '1' *INLR
CSR ENDSR
CSR PROREG BEGSR
C Z-ADDCODT AUXT 30
C Z-ADDNUMV AUXV 20
C MOVE AUXT TDA
C MOVE AUXV VEN
C MOVE BUSCAR BUSPOR
C CODT IFEQ AUXT B001
C NUMV IFEQ AUXV B002
C EXSR CALCU 002
C EXSR ACUMV 002
C EXSR IMPDET 002
C ELSE X002
C EXSR CORV 002
C ENDIF E002
C ELSE X001
C EXSR CORT 001
C ENDIF E001
C READ VENTAS 90 3
CSR ENDSR
CSR CALCU BEGSR
C TIPV IFEQ 1 B001
C TIPV OREQ 2 001
C UNIV ANDEQ3 001
C UNIV ORGT 3 001
C EXSR CALPOR 001
C ELSE X001
C MOVE 0,02 AUXPO 32 001
C ENDIF E001
C MONV MULT AUXPO COMIS
CSR ENDSR
CSR CALPOR BEGSR
C BUSCAR LOKUPTABBU TABP 10 1
C TABP DIV 100 AUXPO
CSR ENDSR
CSR ACUMV BEGSR
C ADD UNIV AVUNIV 30
C ADD MONV AVMONV 70
C ADD COMIS AVCOMI 70
CSR ENDSR
CSR IMPDET BEGSR
C MOVE NUMV TVNUMV
C MOVE CODP TVCODP
C MOVE FECHV TVFECH
C MOVE UNIV TVUNIV
C EXSR BUSTV
C MOVE AUXTV TVTIPV
C MOVE MONV TVMONV
C AUXPO MULT 100 PORC
C MOVE PORC TVPORC
C MOVE COMIS TVCOMI
C EXSR BUST
C WRITELDET
C *IN99 IFEQ *ON B001
C WRITELTIT 001
C MOVE '0' *IN99 001
C ENDIF E001
CSR ENDSR
CSR BUSTV BEGSR
C TIPV IFEQ 1 B001
C MOVEL'EFECTIVO'AUXTV 001
C ELSE X001
C TIPV IFEQ 2 B002 24
C MOVEL'CH.AL DI'AUXTV 002
C ELSE X002
C TIPV IFEQ 3 B003
C MOVEL'CH.FECHA'AUXTV 003
C ELSE X003
C MOVEL'T.CREDIT'AUXTV 003
C ENDIF E003
C ENDIF E002
C ENDIF E001
CSR ENDSR
CONCLUSIÓN:
Como conclusión tenemos que las maquinas desarrolladas por IBM de alto rendimiento son una plataforma muy estable, robusta y confiable, para desarrollar sistemas computacionales para distintas entidades, en este tipo de servidores es posible trabajar en multitud de lenguajes programables estructurados como lo son COBOL 400, C 400, R.P.G. 400. En esta ocasión nos enfocamos en la plataforma de desarrollo que es el Report Program Generador o R.P.G. este lenguaje es semi-automatizado lo que permite que el desarrollador se enfoque a crear la solución al problema, que en otros aspectos un poco menos importantes de la programación. La integración de multitud switches es lo que permite este comportamiento automático del lenguaje; En la lectura de registros, cortes de control, y comparaciones de distinta índole. La integración del lenguaje con la propia maquina (Forma interna de Trabajar.) Y el sistema operativo OS/400 hacen de este lenguaje una potente herramienta para el desarrollo de aplicaciones de toda índole. Luego se implementaron métodos más modernos en la programación de dicho lenguaje para hacer más legible para los desarrolladores y transportar el lenguaje a las nuevas generaciones de desarrolladores que en ese entonces se incubaban en la escena de la informática. Al hacer esto el lenguaje perdió mucho de la automatización que tenia aunque en las nuevas versiones de RPG aun se puede desarrollar con un estilo de programación estructurada a lo RPG II, Esto lo hace más actual y entendible.
Aun que en mi opinión personal me gusta mas el estilo de programación de RPG II por las prestaciones que entrega al desarrollador. Claro esta que esto solo lo dirá el tiempo y la multitud de programadotes que utilizan este lenguaje alrededor del mundo.
Sin mucho mas que decir doy por concluido mi visión del lenguaje programable RPG 400 (Programa Generador de Reportes). Como dato interesante hoy vemos que IBM lanzo su nueva versión de RPG a la cual llaman RPG IV con muy pocos cambios en el lenguaje mismo, sino que hace mas cambios en la integración con los nuevos sistemas operativos de IBM para maquinas I SERIES lo cual actualiza aun más el lenguaje para uso posterior de nuevas generaciones de programadotes, analistas, geeks e ingenieros.
De esta Manera me despido, con un cordial saludo a toda la escena under chilena.
R.P.G. 4 0 0
AUTOR : GrisUNO
CARRERA: ANALISIS DE SISTEMAS
INTRODUCCIÓN :
El AS/400 fue la más moderna tecnología de IBM en el mercado de los mini computadores. Representó una mejora fundamental en la facilidad de uso y la integración del sistema y es el paso siguiente de la línea de productos de los sistemas 36 y 38. Se asemeja al sistema 38 en cuanto a la funcionalidad e incorpora la cómoda interfaz de usuario del sistema 36. Esta máquina representa el esquema de conectividad del SAA de IBM entre mainframes, minis y PC.
Uno de los aspectos revolucionarios del AS/400 es que trata casi todas las entidades de datos como objetos. Esto incluye la descripción de dispositivos para terminales o impresoras, bases de datos, programas, pantallas. El sistema operativo del AS/400 (OS/400) almacena descripciones de todos los objetos. Un usuario puede simplemente dar nombre a un objeto, y el computador no solo lo reconoce y lo encuentra, sino que tiene una completa descripción de el. Además, el sistema puede utilizar un objeto, una vez definido, con la mínima intervención del usuario.
RPG es un lenguaje que combina la sencillez de un generador de informes con las características de un lenguaje de alto nivel, orientado a resolver principalmente problemas de tipo comercial.
Muchas son las ventajas que presenta el RPG (Programa Generador de Reportes), dado que es prácticamente un método de programación, automatizado en la mayoría de sus fases, proporcionando, por consiguiente al programador, rapidez y simplicidad en su Forma de codificación.
DESARROLLO:
H J
FVENTAS IP F 128 DISK
FLISTADO O F 132 OV PRINTER
E TT 1 12 55
IVENTAS NS 01 1 C0
I 2 40CODT L2
I 5 60NVEN L1
I 7 13 CODP
I 14 14 TIPOV
I 15 220FECHV
I 23 240UNIV
I 25 310MONTO
I AB 02 1NC0
C 90 SETOF 88 1
C 90 TIME HORA 60
C N90 SETON 9088 1 2
C 01 EXSR CALCU
C 01 EXSR ACUMV
CL1 EXSR CORV
CL2 EXSR CORT
C CALCU BEGSR
CSR TIPOV COMP 1 10 3
C TIPOV COMP 2 11 3
C TIPOV COMP 3 12 3
C TIPOV COMP 4 13 3
C UNIV COMP 3 20 3
C 10
COR 11
CAN 20 EXSR VERT
C N10N11 MOVE 0,02 AUXP 33
C MONV MULT AUXP COMIS 60H
CSR ENDSR
CSR VERT BEGSR
C CODT COMP 111 30 3
C CODT COMP 222 31 3
C CODT COMP 333 32 3
C 30 EXSR TAHU
C 31 EXSR TPRO
C 32 EXSR THUE
CSR ENDSR
CSR TAHU BEGSR
C NVEN COMP 01 40 3
C NVEN COMP 02 41 3
C NVEN COMP 03 42 3
C 40 MOVE 0,055 AUXP
C 41 MOVE 0,058 AUXP
C 42 MOVE 0,052 AUXP
CSR ENDSR
CSR TPRO BEGSR
C NVEN COMP 01 43 3
C NVEN COMP 02 44 3
C 43 MOVE 0,05 AUXP
C 44 MOVE 0,054 AUXP
CSR ENDSR
CSR THUE BEGSR
C NVEN COMP 01 45 3
C NVEN COMP 02 46 3
C NVEN COMP 03 47 3
C 45 MOVE 0,053 AUXP
C 46 MOVE 0,054 AUXP
C 47 MOVE 0,052 AUXP
CSR ENDSR
CSR ACUMV BEGSR
C ADD UNIV AVUNIV 30
C ADD MONV AVMONV 80
C ADD COMIS AVCOMI 70
CSR ENDSR
CSR CORV BEGSR
C ADD AVUNIV ATUNIV 40
C ADD AVMONV ATMONV 90
C ADD AVCOMI ATCOMI 80
CSR ENDSR
CSR CORT BEGSR
C ADD ATUNIV AGUNIV 50
C ADD ATMONV AGMONV 100
C ADD ATCOMI AGCOMI 90
CSR ENDSR
OLISTADO H 101 88
O OR OV
O TT,1 55
O TT,2 110
O PAGE Z 92
O H 2 88
O OR OV
O TT,3 55
O TT,4 110
O UDATE 52 ' - - '
O HORA 92 ' : : '
O H 1 88
O OR OV
O TT,5 55
O TT,6 110
O H 1 88
O OR OV
O TT,7 55
O TT,8 110
O H 1 88
O OR OV
O TT,9 55
O TT,9 110
O D 1 01
O 30 15 'AHUMADA 425'
O 32 15 'HUERFANOS 716'
O NVEN 21
O CODP 30
O FECHV 42
O UNIV Z 55
O 10 70 'EFECTIVO'
O 11 70 'CHQ. AL DIA'
O 12 70 'CHQ. A PLAZO'
O 13 70 'TARJ. CREDITO'
O TIPOV 80
O MONTO 1 88
O PCOMIS1 99
O COMIS 110
O T 21 L1
O TT,10 55
O 30 40 48 'CARLOS PEREZ LOPEZ'
O 30 41 48 'MARCELA SOTO PASTEN'
O 30 42 48 'LUIS GARCIA RETAMAL'
O 31 43 48 'PEDRO BARRIA JARA'
O 31 44 48 'CARLA HESSMANN KULT'
O 32 45 48 'MONICA CARRILLO SAL'
O 32 46 48 'ANDREA GUTIERREZ PE'
O 32 47 48 'FELIPE VELASCO MALD'
O AVUNIVZB 55
O AVMONT1B 80
O AVCOMI1B 107
O T 21 L2
O TT,11 55
O ATUNIVZB 55
O ATMONT1B 80
O ATCOMI1B 107
O T 21 LR
O TT,12 55
O AGUNIVZB 55
O AGMONT1B 80
O AGCOMI1B 107
H J
FVENTAS IF E DISK
FLISTADO O E 99 PRINTER
E TCT 3 3 3 0 TAB.COD.TIENDA
E TNT 1 3 15 TAB.NOM.TIENDA
E TABNU 1 8 5 0 TABNO 24 TAB.ALT.VEND
E TABBU 1 8 7 1 TABP 2 1 TAB.ALT.PORC
I DS
I 1 50BUSCAR
I 1 30TDA
I 4 50VEN
C WRITELTIT
C READ VENTAS 90 3
C *IN90 DOUEQ*OFF B001
C EXSR PROCES 001
C ENDDO E001
C EXSR RUFINA
CSR PROCES BEGSR
C CODAC IFEQ 0 B001
C EXSR PROREG 001
C ELSE X001
C READ VENTAS 90 3 001
C ENDIF E001
CSR ENDSR
CSR RUFINA BEGSR
C EXSR CORT
C WRITELTG
C MOVE '1' *INLR
CSR ENDSR
CSR PROREG BEGSR
C Z-ADDCODT AUXT 30
C Z-ADDNUMV AUXV 20
C MOVE AUXT TDA
C MOVE AUXV VEN
C MOVE BUSCAR BUSPOR
C CODT IFEQ AUXT B001
C NUMV IFEQ AUXV B002
C EXSR CALCU 002
C EXSR ACUMV 002
C EXSR IMPDET 002
C ELSE X002
C EXSR CORV 002
C ENDIF E002
C ELSE X001
C EXSR CORT 001
C ENDIF E001
C READ VENTAS 90 3
CSR ENDSR
CSR CALCU BEGSR
C TIPV IFEQ 1 B001
C TIPV OREQ 2 001
C UNIV ANDEQ3 001
C UNIV ORGT 3 001
C EXSR CALPOR 001
C ELSE X001
C MOVE 0,02 AUXPO 32 001
C ENDIF E001
C MONV MULT AUXPO COMIS
CSR ENDSR
CSR CALPOR BEGSR
C BUSCAR LOKUPTABBU TABP 10 1
C TABP DIV 100 AUXPO
CSR ENDSR
CSR ACUMV BEGSR
C ADD UNIV AVUNIV 30
C ADD MONV AVMONV 70
C ADD COMIS AVCOMI 70
CSR ENDSR
CSR IMPDET BEGSR
C MOVE NUMV TVNUMV
C MOVE CODP TVCODP
C MOVE FECHV TVFECH
C MOVE UNIV TVUNIV
C EXSR BUSTV
C MOVE AUXTV TVTIPV
C MOVE MONV TVMONV
C AUXPO MULT 100 PORC
C MOVE PORC TVPORC
C MOVE COMIS TVCOMI
C EXSR BUST
C WRITELDET
C *IN99 IFEQ *ON B001
C WRITELTIT 001
C MOVE '0' *IN99 001
C ENDIF E001
CSR ENDSR
CSR BUSTV BEGSR
C TIPV IFEQ 1 B001
C MOVEL'EFECTIVO'AUXTV 001
C ELSE X001
C TIPV IFEQ 2 B002 24
C MOVEL'CH.AL DI'AUXTV 002
C ELSE X002
C TIPV IFEQ 3 B003
C MOVEL'CH.FECHA'AUXTV 003
C ELSE X003
C MOVEL'T.CREDIT'AUXTV 003
C ENDIF E003
C ENDIF E002
C ENDIF E001
CSR ENDSR
CONCLUSIÓN:
Como conclusión tenemos que las maquinas desarrolladas por IBM de alto rendimiento son una plataforma muy estable, robusta y confiable, para desarrollar sistemas computacionales para distintas entidades, en este tipo de servidores es posible trabajar en multitud de lenguajes programables estructurados como lo son COBOL 400, C 400, R.P.G. 400. En esta ocasión nos enfocamos en la plataforma de desarrollo que es el Report Program Generador o R.P.G. este lenguaje es semi-automatizado lo que permite que el desarrollador se enfoque a crear la solución al problema, que en otros aspectos un poco menos importantes de la programación. La integración de multitud switches es lo que permite este comportamiento automático del lenguaje; En la lectura de registros, cortes de control, y comparaciones de distinta índole. La integración del lenguaje con la propia maquina (Forma interna de Trabajar.) Y el sistema operativo OS/400 hacen de este lenguaje una potente herramienta para el desarrollo de aplicaciones de toda índole. Luego se implementaron métodos más modernos en la programación de dicho lenguaje para hacer más legible para los desarrolladores y transportar el lenguaje a las nuevas generaciones de desarrolladores que en ese entonces se incubaban en la escena de la informática. Al hacer esto el lenguaje perdió mucho de la automatización que tenia aunque en las nuevas versiones de RPG aun se puede desarrollar con un estilo de programación estructurada a lo RPG II, Esto lo hace más actual y entendible.
Aun que en mi opinión personal me gusta mas el estilo de programación de RPG II por las prestaciones que entrega al desarrollador. Claro esta que esto solo lo dirá el tiempo y la multitud de programadotes que utilizan este lenguaje alrededor del mundo.
Sin mucho mas que decir doy por concluido mi visión del lenguaje programable RPG 400 (Programa Generador de Reportes). Como dato interesante hoy vemos que IBM lanzo su nueva versión de RPG a la cual llaman RPG IV con muy pocos cambios en el lenguaje mismo, sino que hace mas cambios en la integración con los nuevos sistemas operativos de IBM para maquinas I SERIES lo cual actualiza aun más el lenguaje para uso posterior de nuevas generaciones de programadotes, analistas, geeks e ingenieros.
De esta Manera me despido, con un cordial saludo a toda la escena under chilena.
Comentarios
Publicar un comentario