Aqui tienes Alfredo... Saludos,
Rafael >>> [EMAIL PROTECTED] 01/24 10:15 a.m. >>> Busca la utilidad COLORILE y COLORRPG ahora mismo no se donde estan Seguire buscando a ver si doy con ellas. Saludos Paco Medina Dtor.Informatica Exclusivas Camacho, S. Ltd. Av. J. Ortega y Gasset, 301 (Pol. San Luis) 29006 Málaga, España Tel. +34 952 322 900 Fax +34 952 314 900 www.e-camacho.com [EMAIL PROTECTED] Este mensaje se dirige exclusivamente a su destinatario y puede contener información privilegiada o confidencial. Si no es vd. el destinatario indicado, queda notificado de que la utilización, divulgación y/o copia sin autorización está prohibida en virtud de la legislación vigente. Si ha recibido este mensaje por error, le rogamos que nos lo comunique inmediatamente por esta misma vía y proceda a su destrucción. Gracias. This message is intended exclusively for its addressee and may contain information that is CONFIDENTIAL and protected by professional privilege. If you are not the intended recipient you are hereby notified that any dissemination, copy or disclosure of this communication is strictly prohibited by law. If this message has been received in error, please immediately notify us via e-mail and delete it. Thank you. _____ De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Alfredox Enviado el: jueves, 24 de enero de 2008 14:09 Para: forum.help400 Asunto: Re: sintaxis coloreada en programas RPGLE hola Helar, no encuentro tal utilidad .... SHTL, esta bien escrito? saludos El día 24/01/08, Helar Salas - INCALPACA TPX < <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]> escribió: Hay una utilidad SHTL libre en Internet... Helar Salas Dpto. de Sistemas INCALPACA TPX SA Tlf. 603000 Ext. 112 [EMAIL PROTECTED] ----- Original Message ----- From: Alfredox <mailto:[EMAIL PROTECTED]> To: [email protected] Sent: Wednesday, January 23, 2008 3:08 PM Subject: sintaxis coloreada en programas RPGLE Holas, tengi una pregunta sobre el rpg, tengo que dar mantenimiento a unos programas y queria saber si hay algun editor de RPGLE que coloree la sintaxis del codigo?? es muy ficifil diferenciar todo en un solo color. saludos y gracias, Alfredo -- _____ __________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400 -- __________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400 -- Cuando la desesperanza llega...y la paz interior me avandona....pienso que todo se confabula contra mi...hay palabras magicas que me salvan.. y dice asi: "quiero cantar una linda cancion a aquel que mi vida cambio, es mi amigo Jesus."
FCLRTXTDFCF E WORKSTN
F RRN KSFILE SFLRCD
F KINFDS INFDS
FTXTFILE UF F 210 DISK
E COLR 1 27 2
E HX 26 1
E HC 26 1
E CLR 26 2
E DTA 198 1
E FLD 26 3
ITXTFILE AA 01
I 13 210 DTA
I DS
I 1 78 FLDDS
I 1 3 FLD01
I 4 6 FLD02
I 7 9 FLD03
I 10 12 FLD04
I 13 15 FLD05
I 16 18 FLD06
I 19 21 FLD07
I 22 24 FLD08
I 25 27 FLD09
I 28 30 FLD10
I 31 33 FLD11
I 34 36 FLD12
I 37 39 FLD13
I 40 42 FLD14
I 43 45 FLD15
I 46 48 FLD16
I 49 51 FLD17
I 52 54 FLD18
I 55 57 FLD19
I 58 60 FLD20
I 61 63 FLD21
I 64 66 FLD22
I 67 69 FLD23
I 70 72 FLD24
I 73 75 FLD25
I 76 78 FLD26
I DS
I 1 26 HX
I 1 1 HX001
I 2 2 HX002
I 3 3 HX003
I 4 4 HX004
I 5 5 HX005
I 6 6 HX006
I 7 7 HX007
I 8 8 HX008
I 9 9 HX009
I 10 10 HX010
I 11 11 HX011
I 12 12 HX012
I 13 13 HX013
I 14 14 HX014
I 15 15 HX015
I 16 16 HX016
I 17 17 HX017
I 18 18 HX018
I 19 19 HX019
I 20 20 HX020
I 21 21 HX021
I 22 22 HX022
I 23 23 HX023
I 24 24 HX024
I 25 25 HX025
I 26 26 HX026
I DS
I 1 3 FIELD
I 1 1 HEX
I 2 3 CHAR
I******PGMSDS [EMAIL PROTECTED]
IINFDS DS
I 369 369 KEY
I B 370 3710CURSOR
I B 378 3790PAGRRN
*
C *IN03 DOWEQ*OFF
C Z-ADDW WW
C WRITEBOTTOM
C EXFMTSFLCTL
C CURSOR DIV 256 ROW
C MVR COL
C MOVEA'000000' *IN,80 80 - 85
* -------------
* F1 OR F3=EXIT
* -------------
C *IN03 IFEQ *ON
C MOVE *ON *INLR
C LEAVE
C ENDIF
* ---------
* F9=COLOR
* ---------
C *IN09 IFEQ *ON
* CHECK FOR VALID COLUMN RANGE
C COL IFLT 2
C COL ORGT 78
C ROW ORLT 4
C ROW ORGT 19
C MOVE *ON *IN85
C ITER
C ENDIF
*
C CRRN IFNE 0
C CRRN CHAINSFLRCD 95
C *IN95 IFEQ *OFF
C EXSR @COLOR
C MOVEADTA,W SCTXT
C UPDATSFLRCD
C ITER
C ENDIF
C ENDIF
C ENDIF
* -------------------
* F10=POSITION TO TOP
* -------------------
C *IN10 IFEQ *ON
C CRRN IFNE 0
C CRRN CHAINSFLRCD 95
C *IN95 IFEQ *OFF
C MOVE *OFF *IN63
C Z-ADDPOSRRN RRNUM
C EXSR @UPRTN
C ENDIF
C ENDIF
C ITER
C ENDIF
* -------------
* F19=LEFT
* -------------
C *IN19 IFEQ *ON
C MOVE *OFF *IN25
C MOVE *OFF *IN63
*
C SUB 78 W
C W IFLT 1
C Z-ADD1 W
C MOVE *ON *IN82
C ENDIF
*
C ENDIF
* --------------
* F20=RIGHT
* --------------
C *IN20 IFEQ *ON
C MOVE *OFF *IN25
C MOVE *OFF *IN63
*
C ADD 78 W
C W IFGT 198
C Z-ADD120 W
C MOVE *ON *IN83
C ENDIF
*
C ENDIF
* --------------
* ROLLUP/PAGEDWN
* --------------
C *IN50 IFEQ *ON
C *IN80 ANDEQ*OFF
C EXSR @UPRTN
C ITER
C ENDIF
* ---------------
* ROLLDOWN/PAGEUP
* ---------------
C *IN51 IFEQ *ON
C *IN80 ANDEQ*OFF
C EXSR @DWRTN
C ITER
C ENDIF
* ----------------------------
* VALID COMMAND KEY NOT PRESED
* ----------------------------
C *IN25 IFEQ *OFF
C *IN61 IFEQ *ON
C 1 CHAINSFLRCD 95
C Z-ADDPOSRRN RRNUM
C ENDIF
C EXSR @UPRTN
C ENDIF
*
C ENDDO
*---------------------------------------------------------------*
* CLEAR SUBFILE
*---------------------------------------------------------------*
C @CLEAR BEGSR
C MOVEA'001' *IN,60 60 - 62
C WRITESFLCTL
C MOVEA'100' *IN,60
C MOVE *OFF *IN69
C ENDSR
*---------------------------------------------------------------*
* ROLL UP SUBFILE
*---------------------------------------------------------------*
C @UPRTN BEGSR
C *IN63 IFEQ *ON
C MOVE *ON *IN80
C ELSE
*
C EXSR @CLEAR
C Z-ADD0 RRN
C Z-ADD0 X
*
C X DOUEQSFSIZE
C *IN69 IFEQ *OFF
C RRNUM CHAINTXTFILE 69
C *IN69 IFEQ *ON
C MOVE *ON *IN63
C LEAVE
C ENDIF
*
C MOVEADTA,W SCTXT
C Z-ADDRRNUM POSRRN
C ADD 1 RRN 61
C ADD 1 X
C WRITESFLRCD
C ADD 1 RRNUM
C ENDIF
C ENDDO
C *IN69 IFNE *ON
*
* END OF FILE AND NOT A MSG AT TOP, SHOW MSG BOTTOM OF LIST
C RRNUM CHAINTXTFILE 69
C *IN69 IFEQ *ON
C *IN81 ANDNE*ON
C MOVE *ON *IN80
C ENDIF
C ENDIF
*
C ENDIF
C ENDSR
*---------------------------------------------------------------*
* ROLL DOWN SUBFILE
*---------------------------------------------------------------*
C @DWRTN BEGSR
C MOVE *OFF *IN63
C *IN61 IFEQ *ON
C 1 CHAINSFLRCD 95
C POSRRN SUB SFSIZE RRNUM
C ENDIF
C RRNUM IFLT 1
C Z-ADD1 RRNUM
* END OF FILE, SHOW MSG TOP OF LIST
C MOVE *ON *IN81
C ENDIF
C EXSR @UPRTN
C ENDSR
*---------------------------------------------------------------*
* COLOR SELECTION
*---------------------------------------------------------------*
C @COLOR BEGSR
*
C POSRRN CHAINTXTFILE 95
C *IN95 IFEQ *OFF
C COL SUB 2 O 30
C ADD WW O
* CURSOR MUST BE AT A BLANK POSITION
C DTA,O IFNE ' '
C Z-ADD1 X
C DTA,O LOKUPHC,X 99
C ELSE
C MOVE *ON *IN99
C ENDIF DTA,C NE ' '
C ENDIF *IN95
*
C *IN99 IFEQ *ON
C EXFMTCOLORW
C *IN15 IFEQ *ON
C MOVE *BLANK HX
C Z-ADD1 C 30
C ELSE
C Z-ADD1 C
C 'X' LOKUPHX,C 15
C ENDIF *IN15
*
C *IN15 IFEQ *ON
C MOVELHC,C SEL 1
C MOVE SEL DTA,O
C EXCPTUPDTXT
C ENDIF *IN15
*
C ELSE
C MOVE *ON *IN84
C ENDIF *IN99
C ENDSR
*---------------------------------------------------------------*
* FIRST TIME SUBROUTINE
*---------------------------------------------------------------*
C *INZSR BEGSR
* ACCEPT FILE MEMBER NAME ...
C *ENTRY PLIST
C PARM SCLIB
C PARM SCFILE
C PARM SCMBR
C *LIKE DEFN W WW
* INITIALIZE FIELDS ...
C Z-ADD1 W
C Z-ADD0 X 30
C Z-ADD16 SFSIZE 30
C Z-ADD0 RRN 30
C Z-ADD1 RRNUM 60
C MOVEACOLR CLR
C*** MOVELCOLR HC
C MOVELX'20' HC,1
C MOVELX'21' HC,2
C MOVELX'24' HC,3
C MOVELX'25' HC,4
C MOVELX'22' HC,5
C MOVELX'23' HC,6
C MOVELX'26' HC,7
C MOVELX'2A' HC,8
C MOVELX'2B' HC,9
C MOVELX'2C' HC,10
C MOVELX'2D' HC,11
C MOVELX'2E' HC,12
C MOVELX'30' HC,13
C MOVELX'31' HC,14
C MOVELX'34' HC,15
C MOVELX'35' HC,16
C MOVELX'3A' HC,17
C MOVELX'3B' HC,18
C MOVELX'3E' HC,19
C MOVELX'32' HC,20
C MOVELX'33' HC,21
C MOVELX'36' HC,22
C MOVELX'38' HC,23
C MOVELX'39' HC,24
C MOVELX'3C' HC,25
C MOVELX'3D' HC,26
C*
C Z-ADD1 LP 20
C LP DOWLE26
C MOVE HC,LP HEX
C MOVE COLR,LP CHAR
C MOVE FIELD FLD,LP
C ADD 1 LP
C ENDDO LP
C MOVEAFLD FLDDS
C*
C EXSR @UPRTN
C ENDSR
*---------------------------------------------------------------*
OTXTFILE E UPDTXT
O DTA 210
**
20
21
24
25
22
23
26
2A
2B
2C
2D
2E
30
31
34
35
3A
3B
3E
32
33
36
38
39
3C
3D
PGM PARM(&L &F &N)
DCL VAR(&L) TYPE(*CHAR) LEN(10)
DCL VAR(&F) TYPE(*CHAR) LEN(10)
DCL VAR(&N) TYPE(*CHAR) LEN(10)
OVRDBF FILE(TXTFILE) TOFILE(&L/&F) MBR(&N)
CALL PGM(CLRTXT) PARM(&L &F &N)
ENDPGM
CMD PROMPT('COLORIZE TEXT SOURCE FILE')
PARM KWD(LIB) TYPE(*NAME) LEN(10) MIN(1) +
PROMPT('LIBRARY NAME:')
PARM KWD(FILE) TYPE(*NAME) LEN(10) MIN(1) +
PROMPT('FILE NAME:')
PARM KWD(MBR) TYPE(*NAME) LEN(10) MIN(1) +
PROMPT('MEMBER NAME:') A DSPSIZ(24 80 *DS3)
A PRINT
A ERRSFL
A HELP
A CF03(03 'EXIT')
A CF01(03)
A VLDCMDKEY(25 'VALID COMMAND KEY')
A R SFLRCD SFL
A POSRRN 7S 0H
A SCTXT 78A O 4 2
A R SFLCTL SFLCTL(SFLRCD)
A CF09(09 'COLOR TEXT')
A CF10(10 'POSITION TO TOP')
A CF19(19 'VIEW LEFT')
A CF20(20 'VIEW RIGHT')
A ROLLUP(50 'ROLL UP')
A ROLLDOWN(51 'ROLL DOWN')
A CSRLOC(ROW COL)
A OVERLAY
A SFLCSRRRN(&CRRN)
A 61 SFLDSP
A 60 SFLDSPCTL
A 62 SFLCLR
A 63 SFLEND(*MORE)
A SFLSIZ(0016)
A SFLPAG(0016)
A 80 SFLMSG('YOU HAVE REACHED THE BOTTOM-
A OF THE LIST')
A 81 SFLMSG('YOU HAVE REACHED TO TOP OF -
A THE LIST.')
A 82 SFLMSG('WINDOW STARTS AT POSITION 1-
A ')
A 83 SFLMSG('WINDOW STARTS AT POSITION 1-
A 20')
A 84 SFLMSG('CURSOR MUST BE AT A BLANK P-
A OSITION IN RECORD')
A 85 SFLMSG('CURSOR OUTSIDE RANGE. ROWS -
A 4 - 19, COLUMNS 2 - 78.')
A CRRN 5S 0H
A ROW 3S 0H
A COL 3S 0H
A 1 26'LIBRARY '
A DSPATR(UL)
A 1 38'FILE '
A DSPATR(UL)
A 1 50'MEMBER '
A DSPATR(UL)
A 2 2'WINDOW:'
A W 3Y 0B 2 10CHECK(RB)
A EDTCDE(4)
A RANGE(1 198)
A SCLIB 10A O 2 26DSPATR(HI)
A COLOR(BLU)
A SCFILE 10A O 2 38DSPATR(HI)
A COLOR(BLU)
A SCMBR 10A O 2 50DSPATR(HI)
A COLOR(BLU)
A 3 2'__________________________________-
A ___________________________________-
A _________'
A COLOR(WHT)
A R BOTTOM
A 21 2'__________________________________-
A ___________________________________-
A _________'
A COLOR(WHT)
A 23 2'F3=EXIT'
A COLOR(BLU)
A 23 11'F9=COLOR AT POSITION'
A COLOR(BLU)
A 23 34'F19=LEFT'
A COLOR(BLU)
A 23 44'F20=RIGHT'
A COLOR(BLU)
A R COLORW
A CF15(15 'BLANK OUT POSITION')
A KEEP
A WINDOW(2 2 16 20)
A WDWBORDER((*COLOR GRN) (*CHAR '...:-
A ::.:'))
A HX001 1A B 1 2
A HX002 1A B 2 2
A HX003 1A B 3 2
A HX004 1A B 4 2
A HX005 1A B 5 2
A HX006 1A B 6 2
A HX007 1A B 7 2
A HX008 1A B 8 2
A HX009 1A B 9 2
A HX010 1A B 10 2
A HX011 1A B 11 2
A HX012 1A B 12 2
A HX013 1A B 13 2
A HX014 1A B 1 12
A HX015 1A B 2 12
A HX016 1A B 3 12
A HX017 1A B 4 12
A HX018 1A B 5 12
A HX019 1A B 6 12
A HX020 1A B 7 12
A HX021 1A B 8 12
A HX022 1A B 9 12
A HX023 1A B 10 12
A HX024 1A B 11 12
A HX025 1A B 12 12
A HX026 1A B 13 12
A FLD01 3A O 1 4
A FLD02 3A O 2 4
A FLD03 3A O 3 4
A FLD04 3A O 4 4
A FLD05 3A O 5 4
A FLD06 3A O 6 4
A FLD07 3A O 7 4
A FLD08 3A O 8 4
A FLD09 3A O 9 4
A FLD10 3A O 10 4
A FLD11 3A O 11 4
A FLD12 3A O 12 4
A FLD13 3A O 13 4
A FLD14 3A O 1 14
A FLD15 3A O 2 14
A FLD16 3A O 3 14
A FLD17 3A O 4 14
A FLD18 3A O 5 14
A FLD19 3A O 6 14
A FLD20 3A O 7 14
A FLD21 3A O 8 14
A FLD22 3A O 9 14
A FLD23 3A O 10 14
A FLD24 3A O 11 14
A FLD25 3A O 12 14
A FLD26 3A O 13 14
A 15 2'F15=RESET TO BLANK'
A COLOR(BLU)
A R DUMMY
A ASSUME
A 1 3' '
__________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
