Ver Mensaje Individual
  #7
Antiguo 6 de agosto de 2022, 01:04
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 19.09.2026 13:19
Posts Posts: 458
Likes enviados Enviados: 267
Likes recibidos Recibidos: 243

Hola: te paso una dll que conseguí hace mucho tiempo para hacer la conversión de caracteres de archivos grabados en DOS a WIN

Código COBOL:
  1. Working.....
  2.  
  3.  01  WT2-PARMS IS GLOBAL EXTERNAL.
  4.      02 WT2-OPTION        PIC X(3).
  5.      02 WT2-STRING        PIC X(255).
  6.      02 WT2-RETURN        PIC 9.

Código COBOL:
  1.      move nombre              to wt2-string.
  2.      invoke pow-self "CallForm" using "WT2TW" "WT2TW".
  3.      move wt2-string          to nombre.

Saludos

Fito...
Archivos Adjuntos
Tipo de Archivo: rar wt2tw.rar (0)Descargas: 56
Fito is offline   Responder Con Cita