Urgente Amigos Abap.....s.o.s

¿Qué ha sucedido?
At the conversion of a text from codepage '4110' to codepage '4102':

- a character was found that cannot be displayed in one of the two
codepages;
- or it was detected that this conversion is not supported

The running ABAP program 'ZUNIXFBR' had to be terminated as the conversion
would have produced incorrect data.

The number of characters that could not be displayed (and therefore not
be converted), is 10. If this number is 0, the second error case, as
mentioned above, has occurred.

Anál.errores
An exception occurred that is explained in detail below.
The exception, which is assigned to class 'CX_SY_CONVERSION_CODEPAGE', was
caught in
procedure "COLLECT_DATA" "(FORM)", nor was it propagated by a RAISING claus
Since the caller of the procedure could not have anticipated that the
exception would occur, the current program is terminated.
The reason for the exception is:
Characters are always displayed in only a certain codepage. Many
codepages only define a limited set of characters. If a text from a
codepage should be converted into another codepage, and if this text
contains characters that are not defined in one of the two codepages, a
conversion error occurs.

Moreover, a conversion error can occur if one of the needed codepages
'4110' or '4102' is not known to the system.

If the conversion error occurred at read or write of screen, the file
name was '/home/anonimo/'. (further information about the file: "X 162
4096rwxrwxrwx201001140910152010010913574420100109135744")



Falta cláusula RAISING en interface
Programa ZUNIXFBR
Include ZUNIXFBR
Línea 151
Tp.módulo (FORM)
Nombre módulo COLLECT_DATA



Posición desencadenante de excepción
Programa ZUNIXFBR
Include ZUNIXFBR
Línea 165
Tp.módulo (FORM)
Nombre módulo COLLECT_DATA



135 *---------------------------------------------------------------------*
136 FORM MAKE_LOC.
137 CLEAR: PARCOM_LOC.
138 PARCOM_LOC(4) = 'cat '.
139 PARCOM_LOC+4(45) = PARCOM.
140 ENDFORM.
141
142 *---------------------------------------------------------------------*
143 * FORM COLLECT_DATA. *
144 *---------------------------------------------------------------------*
145 *FORM COLLECT_DATA.
146 * REFRESH TABL.
147 * CALL 'SYSTEM' ID 'COMMAND' FIELD PARCOM_LOC
148 * ID 'TAB' FIELD TABL-*SYS*.
149 *ENDFORM.
150
151 FORM COLLECT_DATA.
152 REFRESH TABL.
153
154 *{ REPLACE SBXK900051 1
155 *\ OPEN DATASET PARCOM FOR INPUT IN TEXT MODE.
156 OPEN DATASET PARCOM FOR INPUT IN TEXT MODE encoding default.
157 *} REPLACE
158 IF SY-SUBRC NE 0.
159 MESSAGE I703 WITH PARCOM.
160 ERROR = 1.
161 EXIT.
162 ENDIF.
163
164 DO.
>>>> READ DATASET PARCOM INTO TABL.
166 IF SY-SUBRC NE 0.
167 EXIT.
168 ELSE.
169 APPEND TABL.
170 ENDIF.
171 ENDDO.
172 ENDFORM.
173 *-------------------------------------------------------------------*
174 * FORM WRITE_FILE_CONTENT. *
175 *-------------------------------------------------------------------*
176 FORM WRITE_FILE_CONTENT.
177 *{ REPLACE SBXK900051 1
178 *\ DATA: LÆNGDE LIKE SY-FDPOS.
179 *\
180 *\ LOOP AT TABL.
181 *\ LÆNGDE = STRLEN( TABL-LINE ).
182 *\ IF LÆNGDE GE 0.
183 *\ PERFORM COLORLINE USING ' 0' TABL-LINE+0(69).
184 *\ PERFORM STREGER_3.

Form Collect_data.
Refresh Tabl.

*{ Replace Sbxk900051 1
*\ Open Dataset Parcom For Input In Text Mode.
Open Dataset Parcom For Input In Text Mode Encoding Default.
*} Replace
If Sy-subrc Ne 0.
Message I703 With Parcom.
Error = 1.
Exit.
Endif.

Do.
Read Dataset Parcom Into Tabl.
If Sy-subrc Ne 0.
Exit.
Else.
Append Tabl.
Endif.
Enddo.
Endform.

Form File_tabpro.
If P_unix Ne Space.
Transfer Tabpro To P_prove Length 335.
Endif.
Append Tabpro.
Endform. " File_tabpro