Tema: Limpiar linea
Ver Mensaje Individual
  #1
Antiguo 30 de julio de 2026, 11:00
dariodr
Forero
Última Actividad 20.09.2026 10:04
Posts Posts: 57
Likes enviados Enviados: 17
Likes recibidos Recibidos: 11
Predeterminado Limpiar linea
0
Likes

None...

Inactivo Inactivo
Buenas amigos coboleros, tengo este codigo y una consulta.
Como hago (en ADD-CUSTOMER) para que cada vez que quiera agregar otro registro se borre la informacion anterior, no se si entiende.

Código COBOL:
  1. IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. CUSTOMER-MANAGER.
  3.  
  4.        ENVIRONMENT DIVISION.
  5.  
  6.        DATA DIVISION.
  7.        WORKING-STORAGE SECTION.
  8.        01  MENU-CHOICE        PIC 9.
  9.        01  EXIT-FLAG          PIC X VALUE "N".
  10.            88  EXIT-PROGRAM     VALUE "Y".      
  11.        01  NOMBRE        PIC X(10).
  12.        01  APELLIDO      PIC X(30).
  13.        01  TELEFONO      PIC X(7).
  14.        01  SEGUIR        PIC X.
  15.        01  STATUS-MESSAGE     PIC X(40).
  16.        01  ERROR-MESSAGE      PIC X(40).
  17.  
  18.        SCREEN SECTION.
  19.        01  MAIN-MENU-SCREEN.
  20.            05  BLANK SCREEN.
  21.            05  LINE 1  COLUMN 1  VALUE "============================".
  22.            05  LINE 2  COLUMN 15 VALUE "CUSTOMER MANAGEMENT SYSTEM"
  23.                HIGHLIGHT.
  24.            05  LINE 3  COLUMN 1  VALUE "============================".
  25.            05  LINE 5  COLUMN 20 VALUE "MAIN MENU".
  26.            05  LINE 6  COLUMN 20 VALUE "---------".
  27.            05  LINE 8  COLUMN 20 VALUE "1. Add Customer".
  28.            05  LINE 9  COLUMN 20 VALUE "2. View Customer".
  29.            05  LINE 10 COLUMN 20 VALUE "3. Update Customer".
  30.            05  LINE 11 COLUMN 20 VALUE "4. Delete Customer".
  31.            05  LINE 12 COLUMN 20 VALUE "5. Exit".
  32.            05  LINE 14 COLUMN 20 VALUE "Enter your choice (1-5): ".
  33.            05  LINE 14 COLUMN 45 PIC 9 TO MENU-CHOICE REQUIRED.
  34.  
  35.        01  CUSTOMER-ENTRY-SCREEN.
  36.            05  BLANK SCREEN.
  37.            05  LINE 1  COLUMN 1  VALUE "============================".
  38.            05  LINE 2  COLUMN 15 VALUE "CUSTOMER ENTRY FORM"
  39.                HIGHLIGHT.
  40.            05  LINE 3  COLUMN 1  VALUE "============================".
  41.            05  LINE 5  COLUMN 10 VALUE "Nombre: ".
  42.            05  LINE 5  COLUMN 25 PIC X(10) TO NOMBRE
  43.                REQUIRED.
  44.            05  LINE 6  COLUMN 10 VALUE "Apellido: ".
  45.            05  LINE 6  COLUMN 25 PIC X(30) TO APELLIDO
  46.                REQUIRED.
  47.            05  LINE 7  COLUMN 10 VALUE "Telefono: ".
  48.            05  LINE 7  COLUMN 25 PIC X(7) TO TELEFONO.
  49.            05  LINE 9 COLUMN 25 VALUE 'OTRO REGISTRO S/N: '.
  50.            05  LINE 9 COLUMN 43 PIC X TO SEGUIR.
  51.  
  52.        PROCEDURE DIVISION.
  53.        MAIN-PROCESS.
  54.            PERFORM UNTIL EXIT-PROGRAM
  55.               PERFORM DISPLAY-MAIN-MENU
  56.               PERFORM PROCESS-MENU-CHOICE
  57.            END-PERFORM
  58.            STOP RUN.
  59.  
  60.        DISPLAY-MAIN-MENU.
  61.            DISPLAY MAIN-MENU-SCREEN.
  62.            ACCEPT MAIN-MENU-SCREEN.
  63.  
  64.        PROCESS-MENU-CHOICE.
  65.            EVALUATE MENU-CHOICE
  66.               WHEN 1
  67.                  PERFORM ADD-CUSTOMER UNTIL SEGUIR = 'N'
  68.              WHEN 5
  69.                 MOVE "Y" TO EXIT-FLAG
  70.              WHEN OTHER
  71.                 MOVE "Invalid choice - please try again"
  72.                      TO ERROR-MESSAGE
  73.                 DISPLAY ERROR-MESSAGE LINE 16 COLUMN 20
  74.            END-EVALUATE.
  75.  
  76.        ADD-CUSTOMER.
  77.            DISPLAY CUSTOMER-ENTRY-SCREEN.
  78.            ACCEPT CUSTOMER-ENTRY-SCREEN.
dariodr is offline   Responder Con Cita