Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- $ set noalter nowarning autolock ms(2) nobound filetype(4)
- IDENTIFICATION DIVISION.
- PROGRAM-ID. 150933315443351.
- AUTHOR. MARCO POLO.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. VDX.
- OBJECT-COMPUTER. VDX.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- COPY SP10A08.SEL.
- DATA DIVISION.
- FILE SECTION.
- COPY SP10A08.FD.
- WORKING-STORAGE SECTION.
- 77 STATUS10-A08 pic x(02).
- 77 ws-st pic xx.
- 88 st value "00" "02" "10" "23" "99" "9D".
- PROCEDURE DIVISION.
- DECLARATIVES.
- ERRO SECTION.
- USE AFTER STANDARD ERROR PROCEDURE ON
- sp10a08.
- PROCED1.
- move STATUS10-A08 to ws-st
- if not st
- DISPLAY "{&__status&:"STATUS10-A08"}]"
- STOP RUN.
- FIM-PROCED.
- END DECLARATIVES.
- DISPLAY "[".
- INICIO.
- open i-o sp10a08
- initialize sp1008
- move 35446 to sp1008item
- move 4 to sp1008loja
- move 180618 to sp1008dt-idt
- read sp10a08
- if 38 < sp1008qtate
- compute sp1008qtate = sp1008qtate - 38
- rewrite sp1008
- else
- delete sp10a08.
- move "C" to sp1008idt
- move 180618 to sp1008dt-idt
- read sp10a08
- if status10-a08 = "23"
- move 38 to sp1008qtate
- move "901" to sp1008equipe-cross
- write sp1008
- else
- if sp1008status = " "
- add 38 to sp1008qtate
- move "901" to sp1008equipe-cross
- rewrite sp1008.
- DISPLAY "{"
- - "&#&loja&#& : "
- - "&#&" sp1008loja "&#&,"
- - "&#&chave&#& : "
- - "&#&" sp1008key "&#&,"
- - "&#&item&#& : "
- - "&#&" sp1008item "&#&,"
- - "&#&quant&#& : "
- - "&#&" sp1008qtate "&#&,"
- - "&#&un&#& : "
- - "&#&" sp1008un "&#&,"
- - "&#&ftconv&#& : "
- - "&#&" sp1008ftconv "&#&,"
- - "&#&status&#& : "
- - "&#&" sp1008status "&#&,"
- - "&#&idt&#& : "
- - "&#&" sp1008idt "&#&,"
- - "&#&data&#& : "
- - "&#&" sp1008dt-idt "&#&"
- - "},"
- GO TO FIM.
- FIM.
- DISPLAY "]".
- CLOSE sp10a08.
- 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.