Cobol - pasar un campo numerico a edicion

   
Vista:

pasar un campo numerico a edicion

Publicado por irene (5 intervenciones) el 18/04/2016 14:22:21
hola, mi pregunta es:
como puedo pasar un campo pic 9(11)v99 con valor 000012596 a '125,96' (para pasarlo a fichero XML)
sin que se le queden espacios delante
un saludo y muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

pasar un campo numerico a edicion

Publicado por Enrique Achury enrach@msn.com (2 intervenciones) el 19/04/2016 03:54:28
Afortunadamente lo tengo a la mano:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
01    CAMPOS.
        03	NÚMERO-7w		pic 9(7).
        03	ALFA-7w			pic X(7).
 
 0000-pic-9-a-pic-x
		.
		initialize	j	ALFA-7w
		perform	varying	I	from 1 by 1	 until I > 7
				if		NÚMERO-7w(I:1)	not = zero
						perform	varying	I	from I by 1	 until I > 7
								add		1	to	j
								move	NÚMERO-7w(I:1)	to	ALFA-7w(j:1)
						end-perform
				end-if
		end-perform
		.
 0000-exit
                .
En qué versión de COBOL trabajas?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Gabi

pasar un campo numerico a edicion

Publicado por Gabi (1 intervención) el 21/04/2016 16:28:33
Otra forma:

1
2
3
4
5
6
7
77 CAMPO_MASCARA PIC ZZZZZZZZZZZ,ZZ.
77 CAMPO_TEXTO   PIC X(14).
77 CONTADOR PIC 9(03).
 
MOVE numero TO CAMPO_MASCARA.
INSPECT CAMPO_MASCARA TALLYING CONTADOR FOR LEADING SPACES
MOVE CAMPO_MASCARA(CONTADOR + 1 :) TO CAMPO_TEXTO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

pasar un campo numerico a edicion

Publicado por Irene (5 intervenciones) el 22/04/2016 08:31:50
muchas gracias por el aporte, han funcionado perfectamente
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar