JIS X 3004:1987 データベース言語ＮＤＬ | ページ 15

68
X 3004 - 1987
           CALL CHKSTS (DBSTAT)
           CALL test (DBTST, DBSTAT)
           CALL CHKSTS (DBSTAT)
           IF (DBTST . EQ . 0)   HEN CALL GETCMP
           GOTO 20
        30CALL finish (DBSTAT)
           CALL CHKSTS (DBSTAT)
           WRITE (*, 35)
        35FORMAT (Processing complete)
           RETURN
        SUBROUTINE GETCMP
           CHARACTER*5 DBSTAT
        50CALL fndcn (DBSTAT)
           IF (DBSTAT . EQ . 00000)   OTO 50
           CALL CHKSTS (DBSTAT)
           RETURN
           END
        SUBROUTINE CHKSTS (DBSTAT)
           CHARACTER*5 DBSTAT
           IF (DBSTAT . EQ . 00000 )   ETURN
        40WRITE (*, 45)   BSTAT
        45FORMAT (Database error, A5)
           STOP
           END
           END
3.4   部品展開の<モジュール>の例
    MODULE
           LANGUAGE FORTRAN
           SUBSCHEMA BILLOFMATERIALS OF PARTS
           SET STRUCTURELIST
    PROCEDURE begin STATUS
           READY PART SHARED RETRIEVE
           READY STRUCTURE SHARED RETRIEVE
    PROCEDURE fndprt
                PARTID CHARACTER 5
                STATUS
           FIND FIRST PART WHERE ID =PARTID
    PROCEDURE fndcn STATUS
           FIND NEXT STRUCTURE IN USES
           CONNECT STRUCTURE TO STRUCTURELIST

――――― [JIS X 3004 pdf 71] ―――――

                                                                                             69
                                                                                   X 3004 - 1987
    PROCEDURE fnddg
                PARENTID CHARACTER 5
                COMPONENTID CHARACTER 5
                COMPONENTQTY INTEGER
                STATUS
           FIND FIRST IN STRUCTURELIST
           DISCONNECT SESSION FROM STRUCTURELIST
           GET STRUCTURE
                SET PARENTID TO PARENTID
                SET COMPONENTID TO COMPONENTID
                SET COMPONENTQTY TO QTY
    PROCEDURE fndowu STATUS
           FIND OWNER WHEREUSED
    PROCEDURE test TEST STATUS
           TEST SET EMPTY USES
    PROCEDURE finish STATUS
           COMMIT FINISH

――――― [JIS X 3004 pdf 72] ―――――

70
X 3004 - 1987
                    データベース言語調査研究委員会メンバ(敬称略・順不同)
                                氏名                             所属
     (委員長)          穂 鷹 良 介       筑波大学社会工学系
     (幹事)            鈴 木 健 司       日本電信電話株式会社情報通信処理研究所
                         芝 野 耕 司       日本アイ・ビー・エム株式会社東京基礎研究所
     (委員)            井手下 忠 良      日本電気株式会社基本ソフトウェア開発本部
                         伊 藤 彰 一       工業技術院標準部
                         井 原     実      株式会社東芝府中工場
                         植 村 俊 亮       工業技術院電子技術総合研究所
                         大 島     功      東京電力株式会社情報システム部
                         小 澤     弘      野村コンピュータシステム株式会社技術部
                         片 岡 信 弘       三菱電機株式会社計算機製作所
                         黒 川 恒 雄       日本銀行電算情報局
                         鴻 池 光 夫       富士通株式会社情報システム事業本部
                         原        潔      日本ユニバック株式会社プロダクト本部
                         疋 田 定 幸       沖電気工業株式会社コンピュータシステム開発本部
                         横 井     豊      経済企画庁長官官房
                         横 山 一 郎       株式会社日立製作所ソフトウェア工場
     (事務局)          川 邊 昭 治       財団法人日本規格協会
               データベース言語調査研究委員会NDL分科会メンバ(敬称略・順不同)
                                氏名                             所属
     (主査)            鈴 木 健 司       日本電信電話株式会社情報通信処理研究所
                         石 井 俊 次       三菱電機株式会社計算機製作所
                         井 上 浩 弓** 日本電気株式会社基本ソフトウェア開発本部
                         高 橋 利 彦*      日本電気株式会社基本ソフトウェア開発本部
                         原        潔      日本ユニバック株式会社プロダクト本部
                         穂 鷹 良 介       筑波大学社会工学系
                         三 浦 孝 夫*      三井造船株式会社電算センター
                         横 井     豊      経済企画庁長官官房
                         横 山 一 郎** 株式会社日立製作所ソフトウェア工場
                         米 田     茂*     株式会社日立製作所システム開発研究所
     (事務局)          川 邊 昭 治       財団法人日本規格協会
     ここで,*は1985年度,**は1986年度の検討メンバである。オブザーバ参加は,次のとおりである。
                         塚 崎 義 樹        センチュリリサーチセンター株式会社カリネット部