*******************************************************************
* Project code name "ORCA"
* This program is distributed in the hope that it will be useful
* for further advancement in medical care, according to JMA Open
* Source License, but WITHOUT ANY WARRANTY.
* Everyone is granted permission to use, copy, modify and
* redistribute this program, but only under the conditions described
* in the JMA Open Source License. You should have received a copy of
* this licence along with this program.
********************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. CYBERM0006.
*****************************************************************
* システム名 : ＯＲＣＡ
* サブシステム名 : 月次帳票
* コンポーネント名 : 診療区分別集計表 外来版（CBM006）
* 管理者 :
* 作成日付 作業者 記述
* 04/02/18 cyber-links 楠本 新規作成
*****************************************************************
* プログラム修正履歴
* Maj/Min/Rev 修正者 日付 内容
*****************************************************************
*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
* エラーファイル
SELECT RECEERR-FILE ASSIGN RECEERR
FILE STATUS IS STS-RECEERR.
*
DATA DIVISION.
FILE SECTION.
*
* エラーファイル
FD RECEERR-FILE.
01 RECEERR-REC PIC X(200).
*
WORKING-STORAGE SECTION.
* シェル用領域
COPY "CPCOMMONSHELL.INC".
*
* エラーファイル 名称領域
COPY "CPCOMMONDAT2.INC"
REPLACING //RECE01PARA//
BY //RECEERR//.
03 FILLER PIC X(04) VALUE ".dat".
*
COPY "CBM006.INC".
*
* スパ領域
01 STS-AREA.
03 STS-RECEERR PIC X(02).
*
* フラグ領域
01 FLG-AREA.
03 FLG-END PIC 9(01).
03 FLG-SYSKANRI PIC 9(01).
03 FLG-HKNNUM PIC 9(01).
* カウント領域
01 CNT-AREA.
03 CNT-LINE PIC 9(02).
03 CNT-PAGE PIC 9(06).
*
* システム領域
01 SYS-AREA.
03 SYS-YMD.
05 SYS-YY PIC 9(02).
05 SYS-MM PIC 9(02).
05 SYS-DD PIC 9(02).
*
* 添字領域
01 INDEX-AREA.
03 IDX1 PIC 9(03).
* パラメタ領域
01 WRK-PARA.
COPY "CPORCSPRTLNK.INC".
03 WRK-PARA-JOBID PIC 9(07).
03 WRK-PARA-SHELLID PIC X(08).
03 WRK-PARA-HOSPID PIC X(24).
03 WRK-PARA-DENPPRTYM PIC X(06).
*
* 一時領域
01 WRK-AREA.
03 WRK-RECEERR PIC X(200).
*
03 WRK-PARA-DENPPRTYMDWH PIC X(22).
03 WRK-SYSYMDWH PIC X(22).
03 WRK-PTNUM PIC X(20).
*
03 WRK-SYSYMD.
05 WRK-SYSYY PIC 9(04).
05 WRK-SYSMM PIC 9(02).
05 WRK-SYSDD PIC 9(02).
03 WRK-SYMD.
05 WRK-SYY PIC 9(04).
05 WRK-SMM PIC 9(02).
05 WRK-SDD PIC 9(02).
03 WRK-HENYMDG PIC X(22).
*
03 WRK-PAGE PIC ZZ9.
03 WRK-Z9 PIC Z9.
03 WRK-Z PIC ZZ,ZZZ,ZZ9.
03 WRK-TENSUTBL OCCURS 45.
05 WRK-TENSU PIC S9(07).
03 WRK-TENSUTBLG OCCURS 10.
05 WRK-TENSUG PIC S9(07).
03 WRK-RECEMAISU PIC 9(7).
03 WRK-GOUKEI PIC 9(7).
*
COPY "CPSHELLTBL.INC".
*
COPY "ORCA-DBPATH".
*
*****************************************************************
* ファイルレイアウト
*****************************************************************
*
* システム管理マスタ
COPY "CPSYSKANRI.INC".
*
* 医療機関情報情報
COPY "CPSK1001.INC".
*
* 出力先プリンタ名割り当て情報
COPY "CPSK1031.INC".
*
* ジョブ管理マスタ
01 JOBKANRI-REC.
COPY "CPJOBKANRI.INC".
* +--------------------------------------------------- +
* 請求管理マスタ ＜---- | 今回 請求管理マスターを使用します。 |
COPY "CPRCF010.INC". | 請求管理マスターは総括表のインプットにも |
* | なっておりますので月次で統計を作成するのであれば |
* 保険者情報 | このＤＢがメインになってくると思います。 |
01 HKNJAINF-REC. +----------------------------------------------------+
COPY "CPHKNJAINF.INC".
*
* 保険マスタ
01 HKNNUM-REC.
COPY "CPHKNNUM.INC".
*
01 PRTKANRI-REC.
COPY "CPPRTKANRI.INC".
*
01 PRTDATA-REC.
COPY "CPPRTDATA.INC".
*
*****************************************************************
* サブプロ用 領域
*****************************************************************
*
* ジョブ管理ＤＢ制御サブ
COPY "CPORCSJOBKANRI.INC".
*
* 印刷ＤＢ更新サブ
COPY "CPORCSPRT.INC".
*
* 日付変換サブ
COPY "CPORCSDAY.INC".
COPY "CPORCSLNK.INC".
*
* ＤＢ検索
COPY "MCPAREA".
*
*
COPY "MCPDATA.INC".
COPY "CPORCMCP.INC".
*
COPY "COMMON-SPA".
*
****************************************************************
LINKAGE SECTION.
01 COMMAND-PARAM.
02 FILLER PIC X(256).
****************************************************************
PROCEDURE DIVISION
USING
COMMAND-PARAM.
*
*****************************************************************
* 主 処理
*****************************************************************
000-PROC-SEC SECTION.
*
PERFORM 100-INIT-SEC
*
PERFORM 200-MAIN-SEC
*
PERFORM 300-END-SEC
*
STOP RUN
.
*****************************************************************
* 初期 処理
*****************************************************************
100-INIT-SEC SECTION.
*
INITIALIZE FLG-AREA
INITIALIZE STS-AREA
INITIALIZE WRK-AREA
INITIALIZE CNT-AREA
*
PERFORM 100-DBOPEN-SEC
*
UNSTRING COMMAND-PARAM DELIMITED BY ","
INTO LNK-PRTKANRI-RENNUM
LNK-PRTKANRI-TBL-KEY
LNK-PRTKANRI-TBL-GROUP
LNK-PRTKANRI-SHORI-RENNUM
LNK-PRTKANRI-SRYYM
LNK-PRTKANRI-SKYYMD
LNK-PRTKANRI-SHELLID
LNK-PRTKANRI-PRIORITY
LNK-PRTKANRI-TERMID
LNK-PRTKANRI-OPID
LNK-PRTKANRI-PRTNM
WRK-PARA-JOBID
WRK-PARA-SHELLID
WRK-PARA-HOSPID +------------------------------------------------------------+
WRK-PARA-DENPPRTYM ＜-- |こちら月次帳票印字指示画面からの引数です。 |
* |今回はWRK-PARA-DENPPRTYMだけですが、 |
* ステップ管理開始処理 |引数が複数ある場合はこのWRK-PARA-DENPPRTYMいかに追加します。|
MOVE "STS" TO SJOBKANRI-MODE +------------------------------------------------------------+
INITIALIZE JOBKANRI-REC
MOVE WRK-PARA-JOBID TO JOB-JOBID
MOVE WRK-PARA-SHELLID TO JOB-SHELLID
MOVE "CYBERM0006" TO JOB-PGID
MOVE "診療区分別集計表（外来）" TO JOB-SHELLMSG
CALL "ORCSJOB" USING ORCSJOBKANRIAREA
JOBKANRI-REC
*
*
MOVE "RECEERR" TO RECEERR-FILE-ID
MOVE LNK-PRTKANRI-TERMID TO RECEERR-TERMID
*
* パラメタ編集処理
PERFORM 110-PARA-HENSYU-SEC
.
100-INIT-EXT.
EXIT.
*
*****************************************************************
* パラメタ編集処理
*****************************************************************
110-PARA-HENSYU-SEC SECTION.
*
* システム日付セット
MOVE LNK-PRTKANRI-SKYYMD TO WRK-SYMD
PERFORM 31012-SEIWA-HEN-SEC
MOVE WRK-HENYMDG TO WRK-SYSYMDWH
*
* 対象年月日編集
MOVE WRK-PARA-DENPPRTYM TO WRK-SYMD (1:6)
MOVE "01" TO WRK-SYMD (7:2)
PERFORM 31012-SEIWA-HEN-SEC
MOVE WRK-HENYMDG(1:16) TO WRK-PARA-DENPPRTYMDWH
*
* 医療機関ＩＤ編集
MOVE SPACE TO SYS-1001-REC
INITIALIZE SYS-1001-REC
MOVE "1001" TO SYS-1001-KANRICD
MOVE "*" TO SYS-1001-KBNCD
MOVE SYS-1001-REC TO MCPDATA-REC
PERFORM 800-SYSKANRI-READ-SEC
IF FLG-SYSKANRI = ZERO
MOVE MCPDATA-REC TO SYS-1001-REC
MOVE SYS-1001-HOSPID TO WRK-PARA-HOSPID
ELSE
MOVE "医療機関ＩＤが取得できませんでした。"
TO WRK-RECEERR
PERFORM 500-ERR-HENSYU-SEC
END-IF
*
.
110-PARA-HENSYU-EXT.
EXIT.
*
*****************************************************************
* 主 処理
*****************************************************************
200-MAIN-SEC SECTION.
*
*
PERFORM 2000-RECE-HEAD-SEC
*
PERFORM 900-DBSELECT1-SEC
MOVE ZERO TO FLG-END +-------------------------------------+
PERFORM 2001-KOKHO-SYUKEI-SEC ＜--- | まず国保データの処理を行います |
UNTIL FLG-END = 1 +-------------------------------------+
PERFORM 900-DBCLOSE1-SEC
* +-------------------------------------+
PERFORM 900-DBSELECT2-SEC ＜--- | 次に社保データの処理を行います |
MOVE ZERO TO FLG-END +-------------------------------------+
PERFORM 2001-SYAHO-SYUKEI-SEC
UNTIL FLG-END = 1
PERFORM 900-DBCLOSE2-SEC
*
PERFORM 2002-RECE-OUT-SEC
PERFORM 2003-INJI-SEC
*
.
200-MAIN-EXT.
EXIT.
*
*****************************************************************
* 年齢見出し処理
*****************************************************************
2000-RECE-HEAD-SEC SECTION.
*
INITIALIZE CBM006
*
MOVE "請求年月" TO CBM006-MIDASI
MOVE WRK-PARA-DENPPRTYMDWH
TO CBM006-SRYYMD
MOVE WRK-SYSYMDWH TO CBM006-SYSYMD
*
.
*
2000-RECE-HEAD-EXT.
EXIT.
*
*****************************************************************
* 国保集計処理
*****************************************************************
2001-KOKHO-SYUKEI-SEC SECTION.
*
*
IF RECE10-NYUGAIKBN = "2"
ADD 1 TO WRK-RECEMAISU
PERFORM VARYING IDX1 FROM 1 BY 1
UNTIL IDX1 > 45
ADD RECE10-TENSU(IDX1 1) TO WRK-TENSU(IDX1)
ADD RECE10-TENSU(IDX1 2) TO WRK-TENSU(IDX1)
ADD RECE10-TENSU(IDX1 3) TO WRK-TENSU(IDX1)
ADD RECE10-TENSU(IDX1 4) TO WRK-TENSU(IDX1)
ADD RECE10-TENSU(IDX1 5) TO WRK-TENSU(IDX1)
END-PERFORM
END-IF
*
* 請求管理情報db
PERFORM 900-DBFETCH1-SEC
.
*
2001-KOKHO-SYUKEI-EXT.
EXIT.
*
*****************************************************************
* 社保集計処理
*****************************************************************
2001-SYAHO-SYUKEI-SEC SECTION.
*
*
IF RECE10-NYUGAIKBN = "2"
ADD 1 TO WRK-RECEMAISU
PERFORM VARYING IDX1 FROM 1 BY 1
UNTIL IDX1 > 45
ADD RECE10-TENSU(IDX1 1) TO WRK-TENSU(IDX1)
ADD RECE10-TENSU(IDX1 2) TO WRK-TENSU(IDX1)
ADD RECE10-TENSU(IDX1 3) TO WRK-TENSU(IDX1)
ADD RECE10-TENSU(IDX1 4) TO WRK-TENSU(IDX1)
ADD RECE10-TENSU(IDX1 5) TO WRK-TENSU(IDX1)
END-PERFORM
END-IF
*
* 請求管理情報db
PERFORM 900-DBFETCH2-SEC
.
*
2001-SYAHO-SYUKEI-EXT.
EXIT.
*
*****************************************************************
* 帳票編集処理
*****************************************************************
2002-RECE-OUT-SEC SECTION.
*
ADD 1 TO CNT-PAGE
MOVE CNT-PAGE TO WRK-PAGE
MOVE WRK-PAGE TO CBM006-PAGE
PERFORM VARYING IDX1 FROM 1 BY 1
UNTIL IDX1 > 45
ADD WRK-TENSU(IDX1) TO WRK-GOUKEI
MOVE WRK-TENSU(IDX1) TO WRK-Z
MOVE WRK-Z TO CBM006-KHNTEN(1 IDX1)
EVALUATE IDX1
WHEN 1
WHEN 2
WHEN 3
WHEN 4
WHEN 5
WHEN 6
WHEN 7
ADD WRK-TENSU(IDX1) TO WRK-TENSUG(01)
WHEN 8
WHEN 9
WHEN 10
WHEN 11
WHEN 12
WHEN 13
ADD WRK-TENSU(IDX1) TO WRK-TENSUG(02)
WHEN 14
WHEN 15
WHEN 16
WHEN 17
WHEN 18
WHEN 19
WHEN 20
WHEN 21
ADD WRK-TENSU(IDX1) TO WRK-TENSUG(03)
WHEN 22
WHEN 23
WHEN 24
ADD WRK-TENSU(IDX1) TO WRK-TENSUG(04)
WHEN 25
WHEN 26
ADD WRK-TENSU(IDX1) TO WRK-TENSUG(05)
WHEN 27
WHEN 28
ADD WRK-TENSU(IDX1) TO WRK-TENSUG(06)
WHEN 29
WHEN 30
ADD WRK-TENSU(IDX1) TO WRK-TENSUG(07)
WHEN 31
WHEN 32
ADD WRK-TENSU(IDX1) TO WRK-TENSUG(08)
WHEN 33
WHEN 34
WHEN 35
ADD WRK-TENSU(IDX1) TO WRK-TENSUG(09)
END-EVALUATE
END-PERFORM
*
PERFORM VARYING IDX1 FROM 1 BY 1
UNTIL IDX1 > 9
MOVE WRK-TENSUG(IDX1) TO WRK-Z
MOVE WRK-Z TO CBM006-KHNTENG(1 IDX1)
END-PERFORM
MOVE WRK-GOUKEI TO WRK-Z
MOVE WRK-Z TO CBM006-GOUKEI
MOVE WRK-RECEMAISU TO WRK-Z
MOVE WRK-Z TO CBM006-RECEMAISU
.
*
2002-RECE-OUT-EXT.
EXIT.
*
*****************************************************************
* 帳票印刷処理
*****************************************************************
2003-INJI-SEC SECTION.
*
INITIALIZE ORCSPRTAREA
MOVE "INS" TO SPRT-MODE
MOVE LNK-PRTKANRI-RENNUM TO SPRT-RENNUM
MOVE LNK-PRTKANRI-TBL-KEY
TO SPRT-TBL-KEY
MOVE LNK-PRTKANRI-TBL-GROUP
TO SPRT-TBL-GROUP
MOVE LNK-PRTKANRI-SRYYM TO SPRT-SRYYM
MOVE LNK-PRTKANRI-SKYYMD TO SPRT-SKYYMD
MOVE LNK-PRTKANRI-SHELLID
TO SPRT-SHELLID
MOVE LNK-PRTKANRI-SHORI-RENNUM
TO SPRT-SHORI-RENNUM
MOVE LNK-PRTKANRI-PRIORITY
TO SPRT-PRIORITY +---------------------------------------------------------------+
MOVE "CBM006.red" TO SPRT-PRTID ＜--- | monpeで作成されたredファイルをSPRT-PRTIDとし印刷指示します。|
MOVE "診療別集計表" TO SPRT-TITLE +---------------------------------------------------------------+
MOVE CBM006 TO SPRT-PRTDATA ＜--- | 印字されるデータ部分はCBM006にセットされておりますので |
MOVE LNK-PRTKANRI-TERMID TO SPRT-TERMID | これをSPRT-PRTDATAにセットします。 |
MOVE LNK-PRTKANRI-OPID TO SPRT-OPID +---------------------------------------------------------------+
MOVE LNK-PRTKANRI-PRTNM TO SPRT-PRTNM
MOVE "2" TO SPRT-SITEKBN <-- カスタマイズプログラムは 2 です
CALL "ORCSPRT" USING ORCSPRTAREA これにより/usr/lib/jma-receipt/site-lib/form 下の
IF SPRT-RETURN = ZERO redファイルが印字されます
CONTINUE
ELSE
MOVE "印刷ＤＢに更新できませんでした"
TO WRK-RECEERR
PERFORM 500-ERR-HENSYU-SEC
END-IF
*
.
2003-INJI-EXT.
EXIT.
*
*****************************************************************
* エラー出力処理
*****************************************************************
500-ERR-HENSYU-SEC SECTION.
*
OPEN INPUT RECEERR-FILE
IF STS-RECEERR = ZERO
CLOSE RECEERR-FILE
ELSE
OPEN OUTPUT RECEERR-FILE
*
MOVE WRK-RECEERR TO RECEERR-REC
WRITE RECEERR-REC
CLOSE RECEERR-FILE
*
* ジョブ管理開始処理
MOVE "JBE" TO SJOBKANRI-MODE
INITIALIZE JOBKANRI-REC
MOVE WRK-PARA-JOBID TO JOB-JOBID
MOVE WRK-PARA-SHELLID
TO JOB-SHELLID
MOVE WRK-RECEERR TO JOB-YOBI
MOVE "9999" TO JOB-ERRCD
CALL "ORCSJOB" USING ORCSJOBKANRIAREA
JOBKANRI-REC
END-IF
*
MOVE 1 TO FLG-END
*
.
500-ERR-HENSYU-EXT.
EXIT.
*
*****************************************************************
* 終了 処理
*****************************************************************
300-END-SEC SECTION.
*
* ステップ管理終了処理
MOVE "STE" TO SJOBKANRI-MODE
INITIALIZE JOBKANRI-REC
MOVE WRK-PARA-JOBID TO JOB-JOBID
MOVE WRK-PARA-SHELLID TO JOB-SHELLID
MOVE CNT-PAGE TO JOB-UPDCNT
CALL "ORCSJOB" USING ORCSJOBKANRIAREA
JOBKANRI-REC
*
PERFORM 900-DBDISCONNECT-SEC
*
.
300-END-EXT.
EXIT.
*
*****************************************************************
* 西暦日本語変換処理
*****************************************************************
31012-SEIWA-HEN-SEC SECTION.
*
INITIALIZE STS-AREA-DAY
INITIALIZE LNK-DAY2-AREA
MOVE "21" TO LNK-DAY2-IRAI
MOVE WRK-SYMD TO LNK-DAY2-YMD
CALL "ORCSDAY" USING STS-AREA-DAY
LNK-DAY2-AREA
MOVE LNK-DAY2-EDTYMD3 TO WRK-HENYMDG
INSPECT WRK-HENYMDG REPLACING ALL " " BY " "
.
31012-SEIWA-HEN-EXT.
EXIT.
*
*****************************************************************
* 請求管理マスタ 年月で検索 国保
****************************************************************
900-DBSELECT1-SEC SECTION.
*
INITIALIZE RECE10-REC
MOVE WRK-PARA-HOSPID TO RECE10-HOSPID
MOVE WRK-PARA-DENPPRTYM TO RECE10-SKYYM
*
MOVE RECE10-REC TO MCPDATA-REC
MOVE "DBSELECT" TO MCP-FUNC
MOVE "SEIKYU-KEY4" TO ORC-DBPATH
CALL "ORCMCPSUB" USING MCPAREA
ORCMCPAREA
MCPDATA-REC
IF MCP-RC = ZERO
PERFORM 900-DBFETCH1-SEC
ELSE
MOVE 1 TO FLG-END
END-IF
.
900-DBSELECT1-EXT.
EXIT.
*
*****************************************************************
* 請求管理マスタ 年月で検索 社保
****************************************************************
900-DBSELECT2-SEC SECTION.
*
INITIALIZE RECE10-REC
MOVE WRK-PARA-HOSPID TO RECE10-HOSPID
MOVE WRK-PARA-DENPPRTYM TO RECE10-SKYYM
*
MOVE RECE10-REC TO MCPDATA-REC
MOVE "DBSELECT" TO MCP-FUNC
MOVE "SEIKYU-KEY3" TO ORC-DBPATH
CALL "ORCMCPSUB" USING MCPAREA
ORCMCPAREA
MCPDATA-REC
IF MCP-RC = ZERO
PERFORM 900-DBFETCH2-SEC
ELSE
MOVE 1 TO FLG-END
END-IF
.
900-DBSELECT2-EXT.
EXIT.
*
*****************************************************************
* 請求管理マスタを検索処理 国保
*****************************************************************
900-DBFETCH1-SEC SECTION.
*
MOVE "DBFETCH" TO MCP-FUNC
MOVE "SEIKYU-KEY4" TO ORC-DBPATH
CALL "ORCMCPSUB" USING MCPAREA
ORCMCPAREA
MCPDATA-REC
IF MCP-RC = ZERO
MOVE ZERO TO FLG-END
MOVE MCPDATA-REC TO RECE10-REC
ELSE
MOVE 1 TO FLG-END
END-IF
.
900-DBFETCH1-EXT.
EXIT.
*
*****************************************************************
* 請求管理マスタを検索処理 社保
*****************************************************************
900-DBFETCH2-SEC SECTION.
*
MOVE "DBFETCH" TO MCP-FUNC
MOVE "SEIKYU-KEY3" TO ORC-DBPATH
CALL "ORCMCPSUB" USING MCPAREA
ORCMCPAREA
MCPDATA-REC
IF MCP-RC = ZERO
MOVE ZERO TO FLG-END
MOVE MCPDATA-REC TO RECE10-REC
ELSE
MOVE 1 TO FLG-END
END-IF
.
900-DBFETCH2-EXT.
EXIT.
*
*****************************************************************
* 保険番号マスタ検索処理
*****************************************************************
900-HKNMSTFETCH-SEC SECTION.
*
MOVE "HKNNUM-KEY5" TO ORC-DBPATH
MOVE "DBFETCH" TO MCP-FUNC
CALL "ORCMCPSUB" USING
MCPAREA
ORCMCPAREA
MCPDATA-REC
IF MCP-RC = ZERO
MOVE MCPDATA-REC TO HKNNUM-REC
MOVE ZERO TO FLG-HKNNUM
ELSE
INITIALIZE HKNNUM-REC
MOVE 1 TO FLG-HKNNUM
END-IF
.
900-HKNMSTFETCH-EXT.
EXIT.
*
*****************************************************************
* ＤＢ クローズ処理
*****************************************************************
900-DBCLOSE1-SEC SECTION.
*
MOVE "DBCLOSE" TO MCP-FUNC
MOVE "SEIKYU-KEY4" TO ORC-DBPATH
CALL "ORCMCPSUB" USING MCPAREA
ORCMCPAREA
MCPDATA-REC
.
900-DBCLOSE1-EXT.
EXIT.
*
*****************************************************************
* ＤＢ クローズ処理
*****************************************************************
900-DBCLOSE2-SEC SECTION.
*
MOVE "DBCLOSE" TO MCP-FUNC
MOVE "SEIKYU-KEY3" TO ORC-DBPATH
CALL "ORCMCPSUB" USING MCPAREA
ORCMCPAREA
MCPDATA-REC
.
900-DBCLOSE2-EXT.
EXIT.
*
*****************************************************************
* 管理マスタ読み込み
*****************************************************************
800-SYSKANRI-READ-SEC SECTION.
*
MOVE WRK-SYSYMD TO ORC-DBYMD
MOVE "DBSELECT" TO MCP-FUNC
MOVE "SYSKANRI-KEY" TO ORC-DBPATH
CALL "ORCMCPSUB" USING MCPAREA
ORCMCPAREA
MCPDATA-REC
IF MCP-RC = ZERO
MOVE "DBFETCH" TO MCP-FUNC
MOVE "SYSKANRI-KEY" TO ORC-DBPATH
CALL "ORCMCPSUB" USING MCPAREA
ORCMCPAREA
MCPDATA-REC
IF MCP-RC = ZERO
MOVE ZERO TO FLG-SYSKANRI
ELSE
MOVE 1 TO FLG-SYSKANRI
END-IF
ELSE
MOVE 1 TO FLG-SYSKANRI
END-IF
*
MOVE "DBCLOSE" TO MCP-FUNC
MOVE "SYSKANRI-KEY" TO ORC-DBPATH
CALL "ORCMCPSUB" USING MCPAREA
ORCMCPAREA
MCPDATA-REC
*
.
800-SYSKANRI-READ-EXT.
EXIT.
*
*****************************************************************
* ＤＢ オープン処理
*****************************************************************
100-DBOPEN-SEC SECTION.
*
MOVE "DBOPEN" TO MCP-FUNC.
CALL "ORCMCPSUB" USING MCPAREA
ORCMCPAREA
MCPDATA-REC.
*
MOVE "DBSTART" TO MCP-FUNC.
CALL "ORCMCPSUB" USING MCPAREA
ORCMCPAREA
MCPDATA-REC.
.
100-DBOPEN-EXT.
EXIT.
*
*****************************************************************
* ＤＢ クローズ処理
*****************************************************************
900-DBDISCONNECT-SEC SECTION.
*
MOVE "DBCOMMIT" TO MCP-FUNC.
CALL "ORCMCPSUB" USING MCPAREA
ORCMCPAREA
MCPDATA-REC.
*
MOVE "DBDISCONNECT" TO MCP-FUNC.
CALL "ORCMCPSUB" USING MCPAREA
ORCMCPAREA
MCPDATA-REC.
.
900-DBCLOSE-EXT.
EXIT. |