marcopolorez

X COBOL X

Dec 22nd, 2017
724
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. ​      $  set noalter nowarning autolock ms(2) nobound filetype(4)
  3.          IDENTIFICATION DIVISION.
  4.          PROGRAM-ID. 161950073855929.
  5.          AUTHOR. MARCO POLO.
  6.          ENVIRONMENT DIVISION.
  7.          CONFIGURATION SECTION.
  8.          SOURCE-COMPUTER. VDX.
  9.          OBJECT-COMPUTER. VDX.
  10.          INPUT-OUTPUT SECTION.
  11.          FILE-CONTROL.
  12.            COPY SP03A60.SEL.
  13.            COPY SP03A66.SEL.
  14.            COPY SP03A69.SEL.
  15.          DATA DIVISION.
  16.          FILE SECTION.
  17.            COPY SP03A60.FD.
  18.            COPY SP03A66.FD.
  19.            COPY SP03A69.FD.
  20.          WORKING-STORAGE SECTION.
  21.            77 status03-a60 pic x(02).
  22.            77 status03-a66 pic x(02).
  23.            77 status03-a69 pic x(02).
  24.          77 ws-st pic xx.
  25.          88 st value "00" "02" "10" "23" "99" "9D".
  26.          PROCEDURE DIVISION.
  27.            DECLARATIVES.
  28.              ERRO SECTION.
  29.                USE AFTER STANDARD ERROR PROCEDURE ON
  30.                  sp03a60
  31.                  sp03a66
  32.                  sp03a69.
  33.                PROCED1.
  34.                  move status03-a60 to ws-st
  35.                  if not st
  36.                    DISPLAY "{&__status&:"status03-a60"}]"
  37.                    STOP RUN.
  38.                  move status03-a66 to ws-st
  39.                  if not st
  40.                    DISPLAY "{&__status&:"status03-a66"}]"
  41.                    STOP RUN.
  42.                  move status03-a69 to ws-st
  43.                  if not st
  44.                    DISPLAY "{&__status&:"status03-a69"}]"
  45.                    STOP RUN.
  46.                FIM-PROCED.
  47.            END DECLARATIVES.
  48.              DISPLAY "[".
  49.            INICIO.
  50.          MOVE "../arqf/fisc1711" TO ws-sp03a60
  51.          MOVE "../arqf/fiscfat1711" TO ws-sp03a66
  52.          MOVE "../arqf/fiscit1711" TO ws-sp03a69
  53.          OPEN INPUT sp03a60 sp03a66 sp03a69
  54.          INITIALIZE sp0369
  55.          move 77088 to sp0369item.
  56.          POSICIONA.
  57.          INITIALIZE sp0360 sp0366
  58.          START sp03a69 KEY IS GREATER sp0369key1
  59.          INVALID KEY
  60.          GO TO FIM
  61.          END-START
  62.          READ sp03a69 NEXT AT END
  63.          GO TO FIM
  64.          END-READ
  65.          IF sp0369item not = 77088
  66.          GO TO FIM.
  67.          
  68.          
  69.          IF sp0369dtmov-dia not < 13
  70.          and sp0369dtmov-dia not > 17
  71.          and (sp0369mov not = 12 and 2 and 6 and 16)
  72.          GO TO POSICIONA.
  73.          move sp0369loja to sp0360loja
  74.          move sp0369entsai to sp0360entsai
  75.          move sp0369tp-emi to sp0360tp-emi
  76.          move sp0369mov to sp0360mov
  77.          move sp0369nf to sp0360nf
  78.          move sp0369cnpj to sp0360cnpj
  79.          move sp0369serie to sp0360serie.
  80.          READ sp03a60.
  81.          IF status03-a60 = "23"
  82.          INITIALIZE sp0360.
  83.          move sp0369loja to sp0366loja
  84.          move sp0369entsai to sp0366entsai
  85.          move sp0369tp-emi to sp0366tp-emi
  86.          move sp0369mov to sp0366mov
  87.          move sp0369nf to sp0366nf
  88.          move sp0369cnpj to sp0366cnpj
  89.          move sp0369serie to sp0366serie.
  90.          START sp03a66 KEY IS GREATER sp0366key
  91.          INVALID KEY
  92.          GO TO PULA-SP03A66
  93.          END-START
  94.          READ sp03a66 NEXT AT END
  95.          GO TO PULA-SP03A66
  96.          END-READ.
  97.          PULA-SP03A66.
  98.          IF sp0369loja not = sp0366loja
  99.          or sp0369entsai not = sp0366entsai
  100.          or sp0369tp-emi not = sp0366tp-emi
  101.          or sp0369mov not = sp0366mov
  102.          or sp0369nf not = sp0366nf
  103.          or sp0369cnpj not = sp0366cnpj
  104.          or sp0369serie not = sp0366serie
  105.          INITIALIZE sp0366.
  106.                DISPLAY "{"
  107.       -       "&#&loja&#& : "
  108.       -       "&#&" sp0369loja "&#&,"
  109.       -       "&#&item&#& : "
  110.       -       "&#&" sp0369item "&#&,"
  111.       -       "&#&mov&#& : "
  112.       -       "&#&" sp0369mov "&#&,"
  113.       -       "&#&quant&#& : "
  114.       -       "&#&" sp0369quant "&#&,"
  115.       -       "&#&ftconv&#& : "
  116.       -       "&#&" sp0369ftconv "&#&,"
  117.       -       "&#&valor&#& : "
  118.       -       "&#&" sp0369vl-item "&#&,"
  119.       -       "&#&preco&#& : "
  120.       -       "&#&" sp0369preco "&#&,"
  121.       -       "&#&pmz&#& : "
  122.       -       "&#&" sp0369pmz "&#&,"
  123.       -       "&#&custo&#& : "
  124.       -       "&#&" sp0369prcus "&#&,"
  125.       -       "&#&bonif&#& : "
  126.       -       "&#&" sp0369bonif "&#&,"
  127.       -       "&#&cfop&#& : "
  128.       -       "&#&" sp0369cfop "&#&,"
  129.       -       "&#&depsaldest&#& : "
  130.       -       "&#&" sp0360dep-sal-dest "&#&,"
  131.       -       "&#&tipo&#& : "
  132.       -       "&#&" sp0366tipo "&#&"
  133.       -       "},"
  134.          GO TO POSICIONA.
  135.            FIM.
  136.              DISPLAY "]".
  137.              CLOSE sp03a60.
  138.              CLOSE sp03a66.
  139.              CLOSE sp03a69.
  140.              STOP RUN.
  141.  
  142.       $  set noalter nowarning autolock ms(2) nobound filetype(4)
  143.          IDENTIFICATION DIVISION.
  144.          PROGRAM-ID. 161950153929421.
  145.          AUTHOR. MARCO POLO.
  146.          ENVIRONMENT DIVISION.
  147.          CONFIGURATION SECTION.
  148.          SOURCE-COMPUTER. VDX.
  149.          OBJECT-COMPUTER. VDX.
  150.          INPUT-OUTPUT SECTION.
  151.          FILE-CONTROL.
  152.            COPY SP01A10.SEL.
  153.          DATA DIVISION.
  154.          FILE SECTION.
  155.            COPY SP01A10.FD.
  156.          WORKING-STORAGE SECTION.
  157.            77 status01-a10 pic x(02).
  158.          77 ws-st pic xx.
  159.          88 st value "00" "02" "10" "23" "99" "9D".
  160.          PROCEDURE DIVISION.
  161.            DECLARATIVES.
  162.              ERRO SECTION.
  163.                USE AFTER STANDARD ERROR PROCEDURE ON
  164.                  sp01a10.
  165.                PROCED1.
  166.                  move status01-a10 to ws-st
  167.                  if not st
  168.                    DISPLAY "{&__status&:"status01-a10"}]"
  169.                    STOP RUN.
  170.                FIM-PROCED.
  171.            END DECLARATIVES.
  172.              DISPLAY "[".
  173.            INICIO.
  174.          MOVE "../arqm/mv1711" TO ws-sp01a10
  175.          OPEN INPUT sp01a10
  176.          INITIALIZE sp0110a.
  177.          
  178.          POSICIONA.
  179.          START sp01a10 KEY IS GREATER sp0110key
  180.          INVALID KEY
  181.          GO TO FIM
  182.          END-START
  183.          READ sp01a10 NEXT AT END
  184.          GO TO FIM
  185.          END-READ
  186.          
  187.          
  188.          IF sp0110item not = 0
  189.          MOVE 999999 TO sp0110item
  190.          GO TO POSICIONA.
  191.          IF sp0110dmov < 13
  192.          MOVE 999999 TO sp0110item
  193.          GO TO POSICIONA.
  194.          IF sp0110dmov > 17
  195.          MOVE 999999 TO sp0110item
  196.          GO TO POSICIONA.
  197.          IF sp0110mov not = 40
  198.          and 70 and 71
  199.          and 84 and 85
  200.          and 86 and 87
  201.          MOVE 999999 TO sp0110item
  202.          GO TO POSICIONA.
  203.          MOVE 77088 TO sp0110item
  204.          MOVE 0 TO sp0110grade.
  205.          READ sp01a10
  206.          IF status01-a10 = "23"
  207.          MOVE 999999 TO sp0110item
  208.          GO TO POSICIONA.
  209.                DISPLAY "{"
  210.       -       "&#&loja&#& : "
  211.       -       "&#&" sp0110loja "&#&,"
  212.       -       "&#&item&#& : "
  213.       -       "&#&" sp0110item "&#&,"
  214.       -       "&#&mov&#& : "
  215.       -       "&#&" sp0110mov "&#&,"
  216.       -       "&#&quant&#& : "
  217.       -       "&#&" sp0110quant "&#&,"
  218.       -       "&#&ftconv&#& : "
  219.       -       "&#&" sp0110ftconv "&#&,"
  220.       -       "&#&valor&#& : "
  221.       -       "&#&" sp0110vlitem "&#&,"
  222.       -       "&#&preco&#& : "
  223.       -       "&#&" sp0110prunit "&#&,"
  224.       -       "&#&pmz&#& : "
  225.       -       "&#&" sp0110pmz "&#&,"
  226.       -       "&#&custo&#& : "
  227.       -       "&#&" sp0110custo "&#&,"
  228.       -       "&#&cfop&#& : "
  229.       -       "&#&" sp0110cdfis2-04 "&#&"
  230.       -       "},"
  231.          GO TO POSICIONA.
  232.            FIM.
  233.              DISPLAY "]".
  234.              CLOSE sp01a10.
  235.              STOP RUN.
  236.  
  237.       $  set noalter nowarning autolock ms(2) nobound filetype(4)
  238.          IDENTIFICATION DIVISION.
  239.          PROGRAM-ID. 161951457328019.
  240.          AUTHOR. MARCO POLO.
  241.          ENVIRONMENT DIVISION.
  242.          CONFIGURATION SECTION.
  243.          SOURCE-COMPUTER. VDX.
  244.          OBJECT-COMPUTER. VDX.
  245.          INPUT-OUTPUT SECTION.
  246.          FILE-CONTROL.
  247.            COPY SP03A60.SEL.
  248.            COPY SP03A66.SEL.
  249.            COPY SP03A69.SEL.
  250.          DATA DIVISION.
  251.          FILE SECTION.
  252.            COPY SP03A60.FD.
  253.            COPY SP03A66.FD.
  254.            COPY SP03A69.FD.
  255.          WORKING-STORAGE SECTION.
  256.            77 status03-a60 pic x(02).
  257.            77 status03-a66 pic x(02).
  258.            77 status03-a69 pic x(02).
  259.          77 ws-st pic xx.
  260.          88 st value "00" "02" "10" "23" "99" "9D".
  261.          PROCEDURE DIVISION.
  262.            DECLARATIVES.
  263.              ERRO SECTION.
  264.                USE AFTER STANDARD ERROR PROCEDURE ON
  265.                  sp03a60
  266.                  sp03a66
  267.                  sp03a69.
  268.                PROCED1.
  269.                  move status03-a60 to ws-st
  270.                  if not st
  271.                    DISPLAY "{&__status&:"status03-a60"}]"
  272.                    STOP RUN.
  273.                  move status03-a66 to ws-st
  274.                  if not st
  275.                    DISPLAY "{&__status&:"status03-a66"}]"
  276.                    STOP RUN.
  277.                  move status03-a69 to ws-st
  278.                  if not st
  279.                    DISPLAY "{&__status&:"status03-a69"}]"
  280.                    STOP RUN.
  281.                FIM-PROCED.
  282.            END DECLARATIVES.
  283.              DISPLAY "[".
  284.            INICIO.
  285.          MOVE "../arqf/fisc1711" TO ws-sp03a60
  286.          MOVE "../arqf/fiscfat1711" TO ws-sp03a66
  287.          MOVE "../arqf/fiscit1711" TO ws-sp03a69
  288.          OPEN INPUT sp03a60 sp03a66 sp03a69
  289.          INITIALIZE sp0369
  290.          move 496858 to sp0369item.
  291.          POSICIONA.
  292.          INITIALIZE sp0360 sp0366
  293.          START sp03a69 KEY IS GREATER sp0369key1
  294.          INVALID KEY
  295.          GO TO FIM
  296.          END-START
  297.          READ sp03a69 NEXT AT END
  298.          GO TO FIM
  299.          END-READ
  300.          IF sp0369item not = 496858
  301.          GO TO FIM.
  302.          
  303.          
  304.          IF sp0369dtmov-dia not < 13
  305.          and sp0369dtmov-dia not > 17
  306.          and (sp0369mov not = 12 and 2 and 6 and 16)
  307.          GO TO POSICIONA.
  308.          move sp0369loja to sp0360loja
  309.          move sp0369entsai to sp0360entsai
  310.          move sp0369tp-emi to sp0360tp-emi
  311.          move sp0369mov to sp0360mov
  312.          move sp0369nf to sp0360nf
  313.          move sp0369cnpj to sp0360cnpj
  314.          move sp0369serie to sp0360serie.
  315.          READ sp03a60.
  316.          IF status03-a60 = "23"
  317.          INITIALIZE sp0360.
  318.          move sp0369loja to sp0366loja
  319.          move sp0369entsai to sp0366entsai
  320.          move sp0369tp-emi to sp0366tp-emi
  321.          move sp0369mov to sp0366mov
  322.          move sp0369nf to sp0366nf
  323.          move sp0369cnpj to sp0366cnpj
  324.          move sp0369serie to sp0366serie.
  325.          START sp03a66 KEY IS GREATER sp0366key
  326.          INVALID KEY
  327.          GO TO PULA-SP03A66
  328.          END-START
  329.          READ sp03a66 NEXT AT END
  330.          GO TO PULA-SP03A66
  331.          END-READ.
  332.          PULA-SP03A66.
  333.          IF sp0369loja not = sp0366loja
  334.          or sp0369entsai not = sp0366entsai
  335.          or sp0369tp-emi not = sp0366tp-emi
  336.          or sp0369mov not = sp0366mov
  337.          or sp0369nf not = sp0366nf
  338.          or sp0369cnpj not = sp0366cnpj
  339.          or sp0369serie not = sp0366serie
  340.          INITIALIZE sp0366.
  341.                DISPLAY "{"
  342.       -       "&#&loja&#& : "
  343.       -       "&#&" sp0369loja "&#&,"
  344.       -       "&#&item&#& : "
  345.       -       "&#&" sp0369item "&#&,"
  346.       -       "&#&mov&#& : "
  347.       -       "&#&" sp0369mov "&#&,"
  348.       -       "&#&quant&#& : "
  349.       -       "&#&" sp0369quant "&#&,"
  350.       -       "&#&ftconv&#& : "
  351.       -       "&#&" sp0369ftconv "&#&,"
  352.       -       "&#&valor&#& : "
  353.       -       "&#&" sp0369vl-item "&#&,"
  354.       -       "&#&preco&#& : "
  355.       -       "&#&" sp0369preco "&#&,"
  356.       -       "&#&pmz&#& : "
  357.       -       "&#&" sp0369pmz "&#&,"
  358.       -       "&#&custo&#& : "
  359.       -       "&#&" sp0369prcus "&#&,"
  360.       -       "&#&bonif&#& : "
  361.       -       "&#&" sp0369bonif "&#&,"
  362.       -       "&#&cfop&#& : "
  363.       -       "&#&" sp0369cfop "&#&,"
  364.       -       "&#&depsaldest&#& : "
  365.       -       "&#&" sp0360dep-sal-dest "&#&,"
  366.       -       "&#&tipo&#& : "
  367.       -       "&#&" sp0366tipo "&#&"
  368.       -       "},"
  369.          GO TO POSICIONA.
  370.            FIM.
  371.              DISPLAY "]".
  372.              CLOSE sp03a60.
  373.              CLOSE sp03a66.
  374.              CLOSE sp03a69.
  375.              STOP RUN.
  376.  
  377.       $  set noalter nowarning autolock ms(2) nobound filetype(4)
  378.          IDENTIFICATION DIVISION.
  379.          PROGRAM-ID. 161951541332375.
  380.          AUTHOR. MARCO POLO.
  381.          ENVIRONMENT DIVISION.
  382.          CONFIGURATION SECTION.
  383.          SOURCE-COMPUTER. VDX.
  384.          OBJECT-COMPUTER. VDX.
  385.          INPUT-OUTPUT SECTION.
  386.          FILE-CONTROL.
  387.            COPY SP01A10.SEL.
  388.          DATA DIVISION.
  389.          FILE SECTION.
  390.            COPY SP01A10.FD.
  391.          WORKING-STORAGE SECTION.
  392.            77 status01-a10 pic x(02).
  393.          77 ws-st pic xx.
  394.          88 st value "00" "02" "10" "23" "99" "9D".
  395.          PROCEDURE DIVISION.
  396.            DECLARATIVES.
  397.              ERRO SECTION.
  398.                USE AFTER STANDARD ERROR PROCEDURE ON
  399.                  sp01a10.
  400.                PROCED1.
  401.                  move status01-a10 to ws-st
  402.                  if not st
  403.                    DISPLAY "{&__status&:"status01-a10"}]"
  404.                    STOP RUN.
  405.                FIM-PROCED.
  406.            END DECLARATIVES.
  407.              DISPLAY "[".
  408.            INICIO.
  409.          MOVE "../arqm/mv1711" TO ws-sp01a10
  410.          OPEN INPUT sp01a10
  411.          INITIALIZE sp0110a.
  412.          
  413.          POSICIONA.
  414.          START sp01a10 KEY IS GREATER sp0110key
  415.          INVALID KEY
  416.          GO TO FIM
  417.          END-START
  418.          READ sp01a10 NEXT AT END
  419.          GO TO FIM
  420.          END-READ
  421.          
  422.          
  423.          IF sp0110item not = 0
  424.          MOVE 999999 TO sp0110item
  425.          GO TO POSICIONA.
  426.          IF sp0110dmov < 13
  427.          MOVE 999999 TO sp0110item
  428.          GO TO POSICIONA.
  429.          IF sp0110dmov > 17
  430.          MOVE 999999 TO sp0110item
  431.          GO TO POSICIONA.
  432.          IF sp0110mov not = 40
  433.          and 70 and 71
  434.          and 84 and 85
  435.          and 86 and 87
  436.          MOVE 999999 TO sp0110item
  437.          GO TO POSICIONA.
  438.          MOVE 496858 TO sp0110item
  439.          MOVE 0 TO sp0110grade.
  440.          READ sp01a10
  441.          IF status01-a10 = "23"
  442.          MOVE 999999 TO sp0110item
  443.          GO TO POSICIONA.
  444.                DISPLAY "{"
  445.       -       "&#&loja&#& : "
  446.       -       "&#&" sp0110loja "&#&,"
  447.       -       "&#&item&#& : "
  448.       -       "&#&" sp0110item "&#&,"
  449.       -       "&#&mov&#& : "
  450.       -       "&#&" sp0110mov "&#&,"
  451.       -       "&#&quant&#& : "
  452.       -       "&#&" sp0110quant "&#&,"
  453.       -       "&#&ftconv&#& : "
  454.       -       "&#&" sp0110ftconv "&#&,"
  455.       -       "&#&valor&#& : "
  456.       -       "&#&" sp0110vlitem "&#&,"
  457.       -       "&#&preco&#& : "
  458.       -       "&#&" sp0110prunit "&#&,"
  459.       -       "&#&pmz&#& : "
  460.       -       "&#&" sp0110pmz "&#&,"
  461.       -       "&#&custo&#& : "
  462.       -       "&#&" sp0110custo "&#&,"
  463.       -       "&#&cfop&#& : "
  464.       -       "&#&" sp0110cdfis2-04 "&#&"
  465.       -       "},"
  466.          GO TO POSICIONA.
  467.            FIM.
  468.              DISPLAY "]".
  469.              CLOSE sp01a10.
  470.              STOP RUN.
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×