Tema: Editar numero en CtList
Ver Mensaje Individual
  #2
Antiguo 9 de marzo de 2019, 21:10
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207
Predeterminado
1
Likes

Breew

 Inactivo Inactivo
Breew,

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  EDT-NUM                   PIC -ZZZ.ZZZ,99.
  5.  01  TXT-NUM REDEFINES EDT-NUM PIC X(11).
  6.  
  7.  PROCEDURE       DIVISION.
  8.      
  9.      MOVE -58471 TO EDT-NUM
  10.      
  11.      INVOKE ctList1 "AddItem" USING TXT-NUM


NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita