Ver Mensaje Individual
  #6
Antiguo 5 de febrero de 2015, 15:44
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
37 años
26.06.2022 11:57
PROCEDURE DIVISION
Posts: 1.998
Enviado: 701
Recibido: 852
Soluciones: 100
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Para agregar codigo COBOL hay que meterlo entre los tags COBOL como se indica abajo (sin espacios). O usando el boton
Podeis probar antes de publicar un post con Vista Previa (en modo avanzado del editor)

Código:
[ COBOL ]

...codigo cobol 

[ /COBOL ]
Código COBOL:
  1.               IDENTIFICATION DIVISION.
  2.  
  3.        PROGRAM-ID.    SHELL.
  4.  
  5.        ENVIRONMENT DIVISION.
  6.  
  7.        SPECIAL-NAMES.
  8.  
  9.            DECIMAL-POINT IS COMMA.
  10.  
  11.  
  12.        INPUT-OUTPUT SECTION.
  13.  
  14.        FILE-CONTROL.
  15.  
  16.            SELECT OPTIONAL COMP-FILE
  17.            ASSIGN TO PRINTER "LINK.TXT"
  18.      *    ORGANIZATION IS INDEXED
  19.      *    ACCESS MODE  IS RANDOM
  20.      *    RECORD KEY   IS RE-COM-NAME
  21.            FILE STATUS  IS SW-FILE-STATUS.
  22.  
  23.  
  24.        DATA DIVISION.
  25.  
  26.        FILE SECTION.
  27.  
  28.        FD  COMP-FILE
  29.            LABEL RECORDS ARE STANDARD
  30.            DATA RECORD IS RE-COMP.
  31.        01  RE-COMP      PIC X(100).
  32.  
  33.  
  34.        WORKING-STORAGE SECTION.
  35.  
  36.        01  WS-CAMPO PIC X.
  37.      *01  ws-campo-2 PIC N(10) Usage National.
  38.  
  39.        01  SW-FILE-STATUS              PIC XX.
  40.            88  SW-FS-OK                        VALUE '00' '05'.
  41.            88  SW-DUP-KEY                      VALUE '22'.
  42.            88  SW-FIN-FICH                     VALUE '10'.
  43.            88  SW-NOT-FND                      VALUE '23'.
  44.  
  45.       *01  RUSO PIC N(50) VALUE "ÇÊÙÛÔ".
  46.  
  47.        LINKAGE SECTION.
  48.  
  49.        COPY "PBDM001R.cpy".
  50.  
  51.  
  52.        PROCEDURE DIVISION USING VA-PBDM001R.
  53.  
  54.            OPEN OUTPUT COMP-FILE
  55.  
  56.            STRING "VN-OPTION: " VN-OPTION "|"
  57.            DELIMITED BY SIZE INTO RE-COMP
  58.  
  59.            WRITE RE-COMP
  60.  
  61.            STRING "VA-PBDM001R-INDATA: " VA-PBDM001R-INDATA "|"
  62.            DELIMITED BY SIZE INTO RE-COMP
  63.  
  64.            WRITE RE-COMP
  65.  
  66.            STRING "VA-001R-IN-OP1-DATE: " VA-001R-IN-OP1-DATE "|"
  67.            DELIMITED BY SIZE INTO RE-COMP
  68.  
  69.            WRITE RE-COMP
  70.  
  71.            STRING "VA-001R-OUT-DATE: " VA-001R-OUT-DATE "|"
  72.            DELIMITED BY SIZE INTO RE-COMP
  73.  
  74.            WRITE RE-COMP
  75.  
  76.            STRING "VA-001R-OUT-TIME: " VA-001R-OUT-TIME "|"
  77.            DELIMITED BY SIZE INTO RE-COMP
  78.  
  79.            WRITE RE-COMP
  80.  
  81.            STRING "VA-001R-OUT-STAMP: " VA-001R-OUT-STAMP "|"
  82.            DELIMITED BY SIZE INTO RE-COMP
  83.  
  84.            WRITE RE-COMP
  85.  
  86.            STRING "VN-001R-OUT-NUMMER: " VN-001R-OUT-NUMMER "|"
  87.            DELIMITED BY SIZE INTO RE-COMP
  88.  
  89.            WRITE RE-COMP
  90.  
  91.            STRING "VA-001R-RC: " VA-001R-RC "|"
  92.            DELIMITED BY SIZE INTO RE-COMP
  93.  
  94.            WRITE RE-COMP
  95.  
  96.            STRING "VA-001R-RC-DESC: " VA-001R-RC-DESC "|"
  97.            DELIMITED BY SIZE INTO RE-COMP
  98.  
  99.            WRITE RE-COMP
  100.  
  101.            CLOSE COMP-FILE
  102.  
  103.            GOBACK.
  104.  
Kuk no ha iniciado sesión   Responder Con Cita