bcb8564.pco

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

       5500-EXIT.
           EXIT.

       5520-FETCH-CURSOR.
           MOVE       '5520-FETCH-CURSOR'  TO        WK-X-PARA.
           DISPLAY    WK-X-PARA.

           PERFORM  5910-FETCH-CAP   THRU    5910-EXIT.

           MOVE    SQLCODE    TO    SQL-ERR-CODE.

           IF NOT SQL-C-NORMAL
           THEN
             IF SQL-C-RECORD-NOT-FOUND
             THEN
               MOVE    '1'      TO    WK-END-FLAG1
               GO TO 5520-EXIT
             ELSE
               DISPLAY '5520SQLCODE2:',SQLCODE
               GO TO ERRCHK
             END-IF
           END-IF.

           PERFORM  5950-COUNT-APC     THRU    5950-EXIT.

           PERFORM  6000-INSERT-CAP    THRU    6000-EXIT.

       5520-EXIT.
           EXIT.

       5600-PROCES-QTR.
           MOVE       '5600-PROCES-QTR'    TO        WK-X-PARA.
           DISPLAY    WK-X-PARA.

           MOVE    '0'           TO    WK-END-FLAG1.

           MOVE    'S'           TO    TMP-RECTYP.

           MOVE    'I'           TO    CAP-RECTYP.
           MOVE    CNST-M-RECSTS-VALID    TO    CAP-RECSTS.

*****************************************************
********汇总折人民币                                *
*****************************************************

           MOVE    CNST-M-CURCDE-001      TO    CAP-CURCDE.

           EXEC SQL OPEN CUR_TMPCAP END-EXEC.

           PERFORM  5620-FETCH-CURSOR    THRU    5620-EXIT
                    UNTIL WK-END-FLAG1 = '1'.

           EXEC SQL CLOSE CUR_TMPCAP END-EXEC.

       5600-EXIT.
           EXIT.

       5620-FETCH-CURSOR.
           MOVE       '5620-FETCH-CURSOR'  TO        WK-X-PARA.
           DISPLAY    WK-X-PARA.

           PERFORM  5910-FETCH-CAP   THRU    5910-EXIT.

           MOVE    SQLCODE    TO    SQL-ERR-CODE.

           IF NOT SQL-C-NORMAL
           THEN
             IF SQL-C-RECORD-NOT-FOUND
             THEN
               MOVE    '1'      TO    WK-END-FLAG1
               GO TO 5620-EXIT
             ELSE
               DISPLAY '5620SQLCODE2:',SQLCODE
               GO TO ERRCHK
             END-IF
           END-IF.

           PERFORM  5950-COUNT-APC     THRU    5950-EXIT.

           PERFORM  6000-INSERT-CAP    THRU    6000-EXIT.

       5620-EXIT.
           EXIT.

       5700-PROCES-HYR.
           MOVE       '5700-PROCES-HYR'    TO        WK-X-PARA.
           DISPLAY    WK-X-PARA.

           MOVE    '0'           TO    WK-END-FLAG1.

           MOVE    'H'           TO    TMP-RECTYP.

           MOVE    'J'           TO    CAP-RECTYP.
           MOVE    CNST-M-RECSTS-VALID    TO    CAP-RECSTS.

*****************************************************
********汇总折人民币                                *
*****************************************************

           MOVE    CNST-M-CURCDE-001      TO    CAP-CURCDE.

           EXEC SQL OPEN CUR_TMPCAP END-EXEC.

           PERFORM  5720-FETCH-CURSOR    THRU    5720-EXIT
                    UNTIL WK-END-FLAG1 = '1'.

           EXEC SQL CLOSE CUR_TMPCAP END-EXEC.

       5700-EXIT.
           EXIT.

       5720-FETCH-CURSOR.
           MOVE       '5720-FETCH-CURSOR'  TO        WK-X-PARA.
           DISPLAY    WK-X-PARA.

           PERFORM  5910-FETCH-CAP   THRU    5910-EXIT.

           MOVE    SQLCODE    TO    SQL-ERR-CODE.

           IF NOT SQL-C-NORMAL
           THEN
             IF SQL-C-RECORD-NOT-FOUND
             THEN
               MOVE    '1'      TO    WK-END-FLAG1
               GO TO 5720-EXIT
             ELSE
               DISPLAY '5720SQLCODE2:',SQLCODE
               GO TO ERRCHK
             END-IF
           END-IF.

           PERFORM  5950-COUNT-APC     THRU    5950-EXIT.

           PERFORM  6000-INSERT-CAP    THRU    6000-EXIT.

       5720-EXIT.
           EXIT.

       5800-PROCES-YER.
           MOVE       '5800-PROCES-YER'    TO        WK-X-PARA.
           DISPLAY    WK-X-PARA.

           MOVE    '0'           TO    WK-END-FLAG1.

           MOVE    'Y'           TO    TMP-RECTYP.

           MOVE    'K'           TO    CAP-RECTYP.
           MOVE    CNST-M-RECSTS-VALID    TO    CAP-RECSTS.

*****************************************************
********汇总折人民币                                *
*****************************************************

           MOVE    CNST-M-CURCDE-001      TO    CAP-CURCDE.

           EXEC SQL OPEN CUR_TMPCAP END-EXEC.

           PERFORM  5820-FETCH-CURSOR    THRU    5820-EXIT
                    UNTIL WK-END-FLAG1 = '1'.

           EXEC SQL CLOSE CUR_TMPCAP END-EXEC.

       5800-EXIT.
           EXIT.

       5820-FETCH-CURSOR.
           MOVE       '5820-FETCH-CURSOR'  TO        WK-X-PARA.
           DISPLAY    WK-X-PARA.

           PERFORM  5910-FETCH-CAP   THRU    5910-EXIT.

           MOVE    SQLCODE    TO    SQL-ERR-CODE.

           IF NOT SQL-C-NORMAL
           THEN
             IF SQL-C-RECORD-NOT-FOUND
             THEN
               MOVE    '1'      TO    WK-END-FLAG1
               GO TO 5820-EXIT
             ELSE
               DISPLAY '5820SQLCODE2:',SQLCODE
               GO TO ERRCHK
             END-IF
           END-IF.

           PERFORM  5950-COUNT-APC     THRU    5950-EXIT.

           PERFORM  6000-INSERT-CAP    THRU    6000-EXIT.

       5820-EXIT.
           EXIT.

       5910-FETCH-CAP.
           MOVE       '5910-FETCH-CAP'     TO        WK-X-PARA.
           DISPLAY    WK-X-PARA.

           EXEC SQL FETCH CUR_TMPCAP
                     INTO :CAP-ORGIDT, :CAP-APCODE,
                          :CAP-DRAMNT, :CAP-CRAMNT, :CAP-DRCUNT,
                          :CAP-CRCUNT, :CAP-DRBALA, :CAP-CRBALA,
                          :CAP-DAVBAL, :CAP-CAVBAL, :CAP-DLSBAL,
                          :CAP-CLSBAL
           END-EXEC.

       5910-EXIT.
           EXIT.

       5950-COUNT-APC.
           MOVE       '5950-COUNT-APC'     TO        WK-X-PARA.
           DISPLAY    WK-X-PARA.

030528*    EXEC SQL SELECT COUNT(*)
030528*               INTO :WK-CNT-APC
030528*               FROM ACTCUT
030528*              WHERE RECSTS = :CNST-M-RECSTS-VALID
030528*                AND APCODE = :CAP-APCODE
030528*                AND ORGIDT = :CAP-ORGIDT
030528*                AND CURCDE > '000'
030528*    END-EXEC.
      
030528*    MOVE     SQLCODE      TO    SQL-ERR-CODE.
      
030528*    IF NOT SQL-C-NORMAL
030528*    THEN
030528*      DISPLAY 'SELECT APCCNT ERR:',SQLCODE
030528*      GO TO ERRCHK
030528*    END-IF.

030528     EXEC SQL SELECT COUNT
030528                INTO :WK-CNT-APC
030528                FROM TMP_COUNTCUT
030528               WHERE APCODE = :CAP-APCODE
030528                 AND ORGIDT = :CAP-ORGIDT
030528                 AND CURCDE = '000'
030528     END-EXEC.

030528     MOVE     SQLCODE      TO    SQL-ERR-CODE.

030528     IF NOT SQL-C-NORMAL
030528     THEN
030528       IF SQL-C-RECORD-NOT-FOUND
030528       THEN
030528          MOVE           0           TO        WK-CNT-APC
030528       ELSE
030528          DISPLAY 'SELECT APCCNT ERR:',SQLCODE
030528          GO TO ERRCHK
030528       END-IF
030528     END-IF.

       5950-EXIT.
           EXIT.

       5960-COUNT-APC.
           MOVE       '5960-COUNT-APC'     TO        WK-X-PARA.
           DISPLAY    WK-X-PARA.

030528*    EXEC SQL SELECT COUNT(*)
030528*               INTO :WK-CNT-APC
030528*               FROM ACTCUT
030528*              WHERE RECSTS = :CNST-M-RECSTS-VALID
030528*                AND APCODE = :CAP-APCODE
030528*                AND ORGIDT = :CAP-ORGIDT
030528*                AND CURCDE = :CNST-M-CURCDE-001
030528*    END-EXEC.

030528*    MOVE     SQLCODE      TO    SQL-ERR-CODE.
      
030528*    IF NOT SQL-C-NORMAL
030528*    THEN
030528*      DISPLAY 'SELECT APCCNT-001 ERR:',SQLCODE
030528*      GO TO ERRCHK
030528*    END-IF.

030528     EXEC SQL SELECT COUNT
030528                INTO :WK-CNT-APC
030528                FROM TMP_COUNTCUT
030528               WHERE APCODE = :CAP-APCODE
030528                 AND ORGIDT = :CAP-ORGIDT
030528                 AND CURCDE = :CNST-M-CURCDE-001
030528     END-EXEC.

030528     MOVE     SQLCODE      TO    SQL-ERR-CODE.

030528     IF NOT SQL-C-NORMAL
030528     THEN
030528       IF SQL-C-RECORD-NOT-FOUND
030528       THEN
030528          MOVE           0           TO        WK-CNT-APC
030528       ELSE
030528          DISPLAY 'SELECT APCCNT ERR:',SQLCODE
030528          GO TO ERRCHK
030528       END-IF
030528     END-IF.

       5960-EXIT.
           EXIT.

       6000-INSERT-CAP.
           MOVE       '6000-INSERT-CAP'    TO        WK-X-PARA.
           DISPLAY    WK-X-PARA.

           DISPLAY     CAP-ORGIDT ',' CAP-APCODE ',' CAP-CURCDE.
           DISPLAY ',' CAP-RECTYP ',' CAP-GLDATE ',' WK-CNT-APC.
           DISPLAY ',' CAP-DRAMNT.
           DISPLAY ',' CAP-CRAMNT ',' CAP-DRCUNT ',' CAP-CRCUNT.
           DISPLAY ',' CAP-DRBALA ',' CAP-CRBALA ',' CAP-DAVBAL.
           DISPLAY ',' CAP-CAVBAL ',' CAP-DLSBAL ',' CAP-CLSBAL.
           DISPLAY ',' CAP-CREDAT ',' CAP-RECSTS .


           EXEC SQL INSERT INTO TMPCAP (
                                 ORGIDT, APCODE, CURCDE,
                                 RECTYP, GLDATE, APCCNT,
                                 DRAMNT,
                                 CRAMNT, DRCUNT, CRCUNT,
                                 DRBALA, CRBALA, DAVBAL,
                                 CAVBAL, DLSBAL, CLSBAL,
                                 CREDAT, RECSTS )
                        VALUES (
                                :CAP-ORGIDT, :CAP-APCODE, :CAP-CURCDE,
                                :CAP-RECTYP, :CAP-GLDATE, :WK-CNT-APC,
                                :CAP-DRAMNT,
                                :CAP-CRAMNT, :CAP-DRCUNT, :CAP-CRCUNT,
                                :CAP-DRBALA, :CAP-CRBALA, :CAP-DAVBAL,
                                :CAP-CAVBAL, :CAP-DLSBAL, :CAP-CLSBAL,
                                :CAP-CREDAT, :CAP-RECSTS )
           END-EXEC.

           MOVE    SQLCODE      TO    SQL-ERR-CODE.

           IF NOT SQL-C-NORMAL
           THEN
             DISPLAY 'INSERT SQLCODE:',SQLCODE
             GO TO ERRCHK
           END-IF.

       6000-EXIT.
           EXIT.

      *--------------------------------------------------------------*
       8000-TXN-END-RTN.
      *--------------------------------------------------------------*
           MOVE       '8000-RXN'             TO        WK-X-PARA.
           DISPLAY    WK-X-PARA.

           EXEC SQL  COMMIT END-EXEC.
           MOVE 0 TO RETURN-CODE.
       8000-EXIT.
           EXIT.

      *--------------------------------------------------------------*
      *   SQLERR CHECK ROUTINE.                                      *
      *--------------------------------------------------------------*
       ERRCHK.
           DISPLAY     CAP-ORGIDT ',' CAP-APCODE ',' CAP-CURCDE.
           DISPLAY ',' CAP-RECTYP ',' CAP-GLDATE ',' WK-CNT-APC.
           DISPLAY ',' CAP-DRAMNT.
           DISPLAY ',' CAP-CRAMNT ',' CAP-DRCUNT ',' CAP-CRCUNT.
           DISPLAY ',' CAP-DRBALA ',' CAP-CRBALA ',' CAP-DAVBAL.
           DISPLAY ',' CAP-CAVBAL ',' CAP-DLSBAL ',' CAP-CLSBAL.
           DISPLAY ',' CAP-CREDAT ',' CAP-RECSTS .


           DISPLAY      'SQLERRMC : '  SQLERRMC.
           EXEC   SQL  ROLLBACK END-EXEC.
           MOVE 8 TO RETURN-CODE.
           STOP   RUN.