API tools faq
paste
Guest User

Untitled

a guest
Sep 13th, 2014
626
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 2.78 KB | None | 0 0
raw download clone embed print report
  1.           IDENTIFICATION DIVISION.
  2.           PROGRAM-ID. HELLO-WORLD.
  3.  
  4.        ENVIRONMENT DIVISION.
  5.           INPUT-OUTPUT SECTION.
  6.           FILE-CONTROL.
  7.             SELECT inputee ASSIGN TO "input.txt"
  8.              ORGANIZATION IS LINE SEQUENTIAL.
  9.  
  10.           DATA DIVISION.
  11.  
  12.           FILE SECTION.
  13.           FD inputee.
  14.           01 CLIENTES.
  15.                02 CODCLI PIC 9(5).
  16.                02 TCUENTA PIC X(2).
  17.                02 SUCURSAL PIC 9(4).
  18.                02 NCUENTA PIC 9(8).
  19.                02 DIGITO PIC 9.
  20.                02 FECHA PIC 9(8).
  21.                02 COPER PIC 9(5).
  22.                02 IMPOR PIC 9(6).
  23.                02 CANAL PIC XX.
  24.  
  25.        WORKING-STORAGE SECTION.
  26.        01 WS-CLIENTES.
  27.            02 WS-CODCLI PIC 9(5).
  28.            02 WS-TCUENTA PIC X(2).
  29.            02 WS-SUCURSAL PIC 9(4).
  30.            02 WS-NCUENTA PIC 9(8).
  31.            02 WS-DIGITO PIC 9.
  32.            02 WS-FECHA PIC 9(4)/99/99.
  33.            02 WS-COPER PIC 9(5).
  34.            02 WS-IMPOR PIC $ZZ99v99.
  35.            02 WS-CANAL PIC XX.
  36.  
  37.        01 WS-AUX.
  38.            88 EoF VALUE HIGH-VALUE.
  39.            02 N PIC 99.
  40.            02 HOJA PIC 99.
  41.            02 MOV PIC 99.
  42.  
  43.        PROCEDURE DIVISION.
  44.  
  45.        OPEN INPUT inputee
  46.  
  47.        PERFORM 110-Repeat THRU 110-FinRepeat UNTIL EoF.
  48.  
  49.        CLOSE inputee
  50.  
  51.        STOP RUN.
  52.  
  53.        100-Cuadrito.
  54.  
  55.        DISPLAY "------------------------------------------------------".
  56.        DISPLAY "|Fecha:"WS-FECHA"        Hoja:""                     |".
  57.        DISPLAY "|                                                    |".
  58.        DISPLAY "|     LISTADO DE MOVIMIENTOS POR HOME BANKING        |".
  59.        DISPLAY "|                                                    |".
  60.        DISPLAY "|CODIGO DE CLIENTE:" WS-CODCLI "                     |".
  61.        DISPLAY "|                                                    |".
  62.        DISPLAY "|TIPO DE CUENTA: "WS-TCUENTA "                       |".
  63.        DISPLAY "|                                                    |".
  64.        DISPLAY "|Numero de cuenta. Fecha.  Cod de operacion. Importe.|".
  65.        DISPLAY "|                                                    |".
  66.        DISPLAY "|"WS-NCUENTA"    "WS-FECHA"   "WS-COPER"   "WS-IMPOR"|".
  67.        DISPLAY "------------------------------------------------------".
  68.        100-FinCuadrito.
  69.  
  70.        110-Repeat.
  71.  
  72.        READ inputee
  73.            AT END SET EoF TO TRUE
  74.  
  75.        MOVE CODCLI TO WS-CODCLI
  76.        MOVE TCUENTA TO WS-TCUENTA
  77.        MOVE SUCURSAL TO WS-SUCURSAL
  78.        MOVE NCUENTA TO WS-NCUENTA
  79.        MOVE DIGITO TO WS-DIGITO
  80.        MOVE FECHA TO WS-FECHA
  81.        MOVE COPER TO WS-COPER
  82.        MOVE IMPOR TO WS-IMPOR
  83.        MOVE CANAL TO WS-CANAL
  84.  
  85.        PERFORM 100-Cuadrito THRU 100-FinCuadrito.
  86.  
  87.        ADD 1 TO N.
  88.        110-FinRepeat.
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!