Public Pastes
daily pastebin goal
25%
SHARE
TWEET

LEOO

marcopolorez Jul 12th, 2018 59 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.       $  set noalter nowarning autolock ms(2) nobound filetype(4)
  2.          IDENTIFICATION DIVISION.
  3.          PROGRAM-ID. 150933315443351.
  4.          AUTHOR. MARCO POLO.
  5.          ENVIRONMENT DIVISION.
  6.          CONFIGURATION SECTION.
  7.          SOURCE-COMPUTER. VDX.
  8.          OBJECT-COMPUTER. VDX.
  9.          INPUT-OUTPUT SECTION.
  10.          FILE-CONTROL.
  11.            COPY SP10A08.SEL.
  12.          DATA DIVISION.
  13.          FILE SECTION.
  14.            COPY SP10A08.FD.
  15.          WORKING-STORAGE SECTION.
  16.            77 STATUS10-A08 pic x(02).
  17.          77 ws-st pic xx.
  18.          88 st value "00" "02" "10" "23" "99" "9D".
  19.          PROCEDURE DIVISION.
  20.            DECLARATIVES.
  21.              ERRO SECTION.
  22.                USE AFTER STANDARD ERROR PROCEDURE ON
  23.                  sp10a08.
  24.                PROCED1.
  25.                  move STATUS10-A08 to ws-st
  26.                  if not st
  27.                    DISPLAY "{&__status&:"STATUS10-A08"}]"
  28.                    STOP RUN.
  29.                FIM-PROCED.
  30.            END DECLARATIVES.
  31.              DISPLAY "[".
  32.            INICIO.
  33.          open i-o sp10a08
  34.          initialize sp1008
  35.          move 35446 to sp1008item
  36.          move 4 to sp1008loja
  37.          move 180618 to sp1008dt-idt
  38.          read sp10a08
  39.          if 38 < sp1008qtate
  40.          compute sp1008qtate = sp1008qtate - 38
  41.          rewrite sp1008
  42.          else
  43.          delete sp10a08.
  44.          move "C" to sp1008idt
  45.          move 180618 to sp1008dt-idt
  46.          read sp10a08
  47.          if status10-a08 = "23"
  48.          move 38 to sp1008qtate
  49.          move "901" to sp1008equipe-cross
  50.          write sp1008
  51.          else
  52.          if sp1008status = " "
  53.          add 38 to sp1008qtate
  54.          move "901" to sp1008equipe-cross
  55.          rewrite sp1008.
  56.                DISPLAY "{"
  57.       -        "&#&loja&#& : "
  58.       -        "&#&" sp1008loja "&#&,"
  59.       -        "&#&chave&#& : "
  60.       -        "&#&" sp1008key "&#&,"
  61.       -        "&#&item&#& : "
  62.       -        "&#&" sp1008item "&#&,"
  63.       -        "&#&quant&#& : "
  64.       -        "&#&" sp1008qtate "&#&,"
  65.       -        "&#&un&#& : "
  66.       -        "&#&" sp1008un "&#&,"
  67.       -        "&#&ftconv&#& : "
  68.       -        "&#&" sp1008ftconv "&#&,"
  69.       -        "&#&status&#& : "
  70.       -        "&#&" sp1008status "&#&,"
  71.       -        "&#&idt&#& : "
  72.       -        "&#&" sp1008idt "&#&,"
  73.       -        "&#&data&#& : "
  74.       -        "&#&" sp1008dt-idt "&#&"
  75.       -        "},"
  76.          GO TO FIM.
  77.            FIM.
  78.              DISPLAY "]".
  79.              CLOSE sp10a08.
  80.              STOP RUN.
RAW Paste Data
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
 
Top