atb8999.pco

行业应用源码 行业应用源码 行业应用源码 行业应用源码 行业应用源码 行业应用源码

           EXIT.

       5101-FETCH-ACT-RTN.
           MOVE   '/ 5101- /'     TO    WK-PARA.
           EXEC SQL FETCH CUR_AIF INTO 
                    :CUT-ORGIDT, :CUT-CUSIDT, :CUT-APCODE, 
                    :CUT-CURCDE, :CUT-ACTDEP, :CUT-LSTBAL
           END-EXEC.
       5101-EXIT.
            EXIT.

       5105-PRO-END-ORG-RTN.
           MOVE         '/ 5105- /'            TO    WK-PARA.
           MOVE         WK-L-ORGIDT            TO    LOG-ORGIDT.
           EXEC SQL INSERT INTO ACTLOG
                          ( JOBNAM, ORGIDT )
                     VALUES 
                          (:LOG-JOBNAM,:LOG-ORGIDT)
           END-EXEC.
           EXEC SQL COMMIT END-EXEC.
       5105-EXIT.
           EXIT.

       5110-SEL-SCTORG-RTN.
           MOVE         '/ 5110- /'         TO      WK-PARA.
           MOVE         CUT-ORGIDT          TO      ORG-ORGIDT.
           EXEC SQL SELECT  CRNDAT, NWKDAY, SYSSTS, ORGNAM
                      INTO :SCT-CRNDAT,:SCT-NWKDAY,:SCT-SYSSTS,
                           :ORG-ORGNAM
                      FROM  ACTORG, ACTSCT
                     WHERE  ACTORG.SCTNUM = ACTSCT.SCTNUM
                       AND  ACTORG.ORGIDT = :ORG-ORGIDT
                       AND  ACTSCT.RECSTS = :CNST-M-RECSTS-VALID
                       AND  ACTORG.RECSTS = :CNST-M-RECSTS-VALID
           END-EXEC
           MOVE        SQLCODE             TO      SQL-ERR-CODE.
           IF  NOT SQL-C-NORMAL
           THEN
             MOVE     'ACTSCT'             TO      WK-SQLTNAME
             GO  TO  STOP-RUN
           END-IF. 
           IF SCT-SYSSTS NOT = CNST-M-SYSSTS-BATCH
           THEN
             DISPLAY 'SYSTEM STATUS ERROR!!:' SCT-SYSSTS
             GO  TO  STOP-RUN
           END-IF.
       5110-EXIT.
           EXIT.

       5111-SEL-SCTTLR-RTN.
           MOVE    ' 5111-SCTTLR '         TO    WK-PARA.
           CALL    'SCRCTTLR'  USING CNST-M-RETN-CODE TLR-ORGIDT
                                     '19' TLR-TLRNUM TLR-VCHSET.
           IF NOT CNST-M-RETN-CODE-OK
           THEN
             MOVE   'SCRCTTLR'    TO    WK-SQLTNAME
             DISPLAY 'RETN CODE' CNST-M-RETN-CODE
             GO TO STOP-RUN
           END-IF.
       5111-EXIT.
            EXIT.

xiaojf*5121-UPD-SCTTLR-RTN.
xiaojf*    MOVE         '/ 5121- /'            TO    WK-PARA.
xiaojf*    MOVE         'SCTTLR'               TO    WK-SQLTNAME.
xiaojf*    EXEC SQL UPDATE SCTTLR
xiaojf*                SET VCHSET = :TLR-VCHSET
xiaojf*              WHERE ORGIDT = :TLR-ORGIDT
xiaojf*                AND TLRNUM = :TLR-TLRNUM
xiaojf*    END-EXEC.
xiaojf*    MOVE   SQLCODE   TO   SQL-ERR-CODE
xiaojf*    IF NOT SQL-C-NORMAL
xiaojf*    THEN
xiaojf*      DISPLAY 'NOT FOUND  SCTTLR   !    '
xiaojf*              'TLRNUM = ', TLR-TLRNUM
xiaojf*      GO TO STOP-RUN
xiaojf*    END-IF.
xiaojf*5121-EXIT.
xiaojf*     EXIT.

*******     填IFA,产生 VCH

       5200-PRO-IFA-RTN.
           MOVE          '/ 5200- /'       TO      WK-PARA.
           INITIALIZE REKEXCG.
           INITIALIZE RERY.
           MOVE          CUT-ORGIDT        TO      APA-BR-ORGIDT.
           MOVE          CUT-ACTDEP        TO      APA-BR-DEPNUM.
           MOVE          TLR-TLRNUM        TO      APA-TELLER-CODE-G.
           MOVE          SPACE             TO      APA-TXN-DATE.
           CALL 'RERTRDT' USING APA-TXN-DATE, SCT-CRNDAT.
           MOVE          '1'               TO      RERY-APA-STATUS.
           MOVE          0                 TO      RERY-CALLID.
           MOVE          SCT-CRNDAT        TO      EXCH-DATE.
           MOVE          '01.01.01'        TO      EXCH-TIME.
           MOVE          '0'               TO      EXCH-CASTYP(1).
           MOVE          '0'               TO      EXCH-CASTYP(2).
           MOVE          '-'               TO      EXCH-DC-FLAG(1).
           MOVE          '+'               TO      EXCH-DC-FLAG(2).
           MOVE          1                 TO      EXCH-ERYSEQ(1).
           MOVE          2                 TO      EXCH-ERYSEQ(2).
           MOVE          2                 TO      EXCH-NUM.
           IF CUT-LSTBAL > 0
           THEN
             MOVE      CUT-LSTBAL          TO      EXCH-TXNAMT(1)
             MOVE      0                   TO      EXCH-TXNAMT(2)
             MOVE      CUT-CURCDE          TO      EXCH-TXNCUR(1)
             MOVE      CNST-M-CURCDE-001   TO      EXCH-TXNCUR(2)
             MOVE      CUT-CURCDE          TO      CXR-CURCDE
             PERFORM   5202-READ-CXR-CURRAT THRU   5202-EXIT
             MOVE      CXR-RATVAL          TO      EXCH-RATVAL(1)
             MOVE      CXR-RATVAL          TO      EXCH-MIDRAT(1)
           ELSE
             MOVE      0                   TO      EXCH-TXNAMT(1)
             MOVE      CUT-LSTBAL          TO      EXCH-TXNAMT(2)
             MOVE      CNST-M-CURCDE-001   TO      EXCH-TXNCUR(1)
             MOVE      CUT-CURCDE          TO      EXCH-TXNCUR(2)
             MOVE      CUT-CURCDE          TO      CXR-CURCDE
             PERFORM   5202-READ-CXR-CURRAT THRU   5202-EXIT
             MOVE      CXR-RATVAL          TO      EXCH-MIDRAT(2)
             MOVE      CXR-RATVAL          TO      EXCH-RATVAL(2)
           END-IF.
           MOVE        'EFEX'              TO      RERY-PRDCDE.
           MOVE        '01'                TO      RERY-EVTCDE.
           MOVE        '0000'              TO      RERY-CTPCDE.
           MOVE        '11'                TO      RERY-CATCDE.
           MOVE        CUT-CUSIDT          TO      RERY-CUSID1.
           MOVE        CUT-CUSIDT          TO      RERY-CUSID2.
           MOVE        CUT-APCODE          TO      RERY-APCDE1.
           MOVE        CUT-APCODE          TO      RERY-APCDE2.
xiaojf*    MOVE        CUT-CURCDE          TO      RERY-ACURR1.
xiaojf*    MOVE        '001'               TO      RERY-ACURR2.
           MOVE        CUT-ORGIDT          TO      RERY-ORGID1.
           MOVE        CUT-ORGIDT          TO      RERY-ORGID2.
           MOVE        CUT-ORGIDT          TO      RERY-TXNORG.
           MOVE        CUT-ACTDEP          TO      RERY-TXNDEP.
           MOVE        CUT-LSTBAL          TO      RERY-TXAMT1.
           STRING      'AT99' ATR-ATRNAM   DELIMITED BY SIZE
                                           INTO    RERY-FURIN1.
           MOVE        RERY-FURIN1         TO      RERY-FURIN2.
xiaojf*    MOVE        'AT99'              TO      RERY-ANACDE.
xiaojf*    MOVE        'AUTO99'            TO      RERY-VCHANO.
           PERFORM     5201-PRO-VCH-RTN    THRU    5201-EXIT.
       5200-EXIT.
           EXIT.

       5201-PRO-VCH-RTN.
           MOVE        '/ 5201- /'       TO      WK-PARA.
           MOVE        TLR-TLRNUM        TO      APA-TELLER-CODE-G.
           MOVE        TLR-TLRNUM        TO      RERY-TLRNUM.
           CALL 'REROREF' USING CNST-M-RETN-CODE CUT-ORGIDT
                                '19' RERY-PRDCDE 
                                APA-TXN-DATE(1:4) RERY-OURREF
           IF NOT CNST-M-RETN-CODE-OK
           THEN
             DISPLAY 'CALL REROREF RETURN CODE ='
                                          CNST-M-RETN-CODE
             GO TO STOP-RUN
           END-IF.
           display '----------------------------------'.
           display RERY-PRDCDE.
           display RERY-EVTCDE.
           display RERY-CATCDE.
           display '----------------------------------'.
           CALL 'REREXAC2' USING CNST-M-RETN-CODE REKEXCG RERY APA
           IF NOT CNST-M-RETN-CODE-OK
           THEN
             DISPLAY 'CALL REREXAC2 RETURN CODE ='
                                          CNST-M-RETN-CODE
             GO TO STOP-RUN
           END-IF.
           MOVE        CUT-ORGIDT          TO    TLR-ORGIDT.
           MOVE        RERY-VCHSET         TO    TLR-VCHSET.
xiaojf*    PERFORM     5121-UPD-SCTTLR-RTN THRU  5121-EXIT.
           IF TLR-VCHSET = 9999
           THEN
             PERFORM   5111-SEL-SCTTLR-RTN THRU  5111-EXIT
           END-IF.
       5201-EXIT.

       5202-READ-CXR-CURRAT.
           MOVE        'ACTCXR'              TO      WK-SQLTNAME.
021127*    MOVE        CNST-M-XRTCDE-4       TO      WK-XRTCDE.
021127     MOVE        CNST-M-XRTCDE-CASH    TO      WK-XRTCDE.
           MOVE        CNST-M-XRTCDE-8       TO      WK-XRTCDE-1.
           EXEC SQL SELECT CURRAT,RATVAL
                      INTO :CXR-CURRAT,:CXR-RATVAL
                      FROM ACTCXR
                     WHERE CURCDE = :CXR-CURCDE
                      AND SECCCY = :CNST-M-CURCDE-001
                      AND ((XRTCDE = :WK-XRTCDE  AND 
                          CURCDE NOT IN ('013','014','027','038'))
                       OR (XRTCDE = :WK-XRTCDE-1   AND
                          CURCDE IN ( '013','014','027','038')))
           END-EXEC.
	   MOVE     SQLCODE     TO    SQL-ERR-CODE.
	   IF NOT SQL-C-NORMAL
           THEN
               DISPLAY 'RATVAL NOT FOUND !!!'
               DISPLAY 'CXR-CURCDE = ',CXR-CURCDE
               GO TO  STOP-RUN
           END-IF.

       5202-EXIT.
           EXIT.

       8000-PGM-END-RTN.
           MOVE         '/ 8000- /'            TO    WK-PARA.
           MOVE         ZEROS                  TO    RETURN-CODE
           DISPLAY  '*** ATB8999  END ***'.
           STOP RUN.
       8000-EXIT.
           EXIT.

       STOP-RUN.
           MOVE         SQLCODE                TO    WK-SQLECODE.
           DISPLAY      'WK-AREA= '            WK-AREA.
           EXEC  SQL  ROLLBACK  END-EXEC.
           MOVE         8                      TO    RETURN-CODE.
           STOP RUN.

       9999-CONNECT.
           EXEC SQL INCLUDE APS999 END-EXEC.