株式会社　カルテック・エスキューブ

• 移行ツール一覧
• 移行事例一覧
• 移行事例概要
• Ｗｅｂ化対応

移行ツール一覧　>　ＫＣＯＲＡＬ／ＮＣＯＲＡＬ／ＣＡＮＯＡＩＤ言語コンバージョン・サービス

ＫＣＯＲＡＬ／ＮＣＯＲＡＬ／ＣＡＮＯＡＩＤ言語
コンバージョン・サービス

ＫＣＯＲＡＬ／ＮＣＯＲＡＬ／ＣＡＮＯＡＩＤ言語をＣＯＢＯＬに変換します。（Ｓｙｓｔｅｍ−ｉ版はＷｅｂ化対応も可能です）

ＣＯＲＡＬ言語はオンライン処理やバッチ処理を簡便に記述できる簡易言語で、日立の汎用機ユーザーでよく使われています。

ＣＡＮＯＡＩＤはＫＣＯＲＡＬの文法をベースにリポジトリ機能やＣＡＳＥツール機能付加したキャノンソフトウェア�鰍ﾌ言語で、日立やＩＢＭの汎用機ユーザー向けに提供されています。（ＣＡＮＯＡＩＤの汎用機版は２０１０年で保守打切りになっています）

当社ツールではＣＯＲＡＬ／ＣＡＮＯＡＩＤのシンタックス（文法）からＣＯＢＯＬ言語プログラムを自動生成することができます。

現在はＳｙｓｔｅｍ−ｉ（ＡＳ／４００［ＩＢＭｉ］）だけでなく、ＩＭＳ　ＤＢ／ＤＣ対応版もあります。

以下にＣＯＲＡＬをＣＯＢＯＬ言語に変換した例を掲載します。

このページのトップへ戻る

プログラム例

      
      IGMNR02                                MPPR          
      DGMNM02         IGMNM02
      DGMNM04         OGMNM04
      DWRKDV020       UWRKDR020
      DGMNCTS00       UCTS
      *









      *REMARKS*************************************************
      *    1.SYSTEM   : ﾄｳﾛｸ ｼｽﾃﾑ                             *
      *    2.FUNCTION : ｳﾘｱｹﾞ ﾄｳﾛｸ                            *
      *    3.ETC      :                                       *
      *********************************************************
           -EJECT-
           -NOGEN-
      *   ----------------------------------------
      *
      *               ﾓｼﾞﾕ-ﾙ  ﾃｲｷﾞｼﾖ
      *
      *   ----------------------------------------
      *
      T         ﾒｲﾝｺﾝﾄﾛ-ﾙ             ...  #00
      *
      T         ﾆﾕﾘﾖｸｺｳﾓｸﾁｴﾂｸ         ...  #10
      *
      T         ﾄｳﾛｸDBﾂｲｶ         ...  #11
      *
      T         ｶﾞﾒﾝﾋﾖｳｼﾞｼﾖﾘ          ...  #12
      *
           -EJECT-
      *   ----------------------------------------
      *
      *               ﾘﾔｸｼﾖｳ  ﾃｲｷﾞｼﾖ
      *
      *   ----------------------------------------
      *
      T         MIB                   ...  GMNM02I
      *
      T         MOB                   ...  GMNM02O
      *
      T         PFK                   ...  GMNM02I-PFK
           -EJECT-
      *        --------------------------------
      *
      *                 ﾜ-ｸ  ｴﾘｱ  ﾃｲｷﾞ
      *
      *        --------------------------------
               @GMNPR001  ｵ  ﾃﾝｶｲ  ｽﾙ.
               @GMNPR002  ｵ  ﾃﾝｶｲ  ｽﾙ.
               @GMNPR003  ｵ  ﾃﾝｶｲ  ｽﾙ.
               @GMNPR42D  ｵ  ﾃﾝｶｲ  ｽﾙ.
      *
      JWRKDR020-RD  SELECT  *
      -             FROM    WRKDR020
           -EJECT-
      ******************************************************************
      *                 ﾒｲﾝ ｺﾝﾄﾛ-ﾙ                                     *
      ******************************************************************











       #00.
       #00-10.
               GMNM02  ｵ  ﾖﾑ.
                   ｵﾜﾘ  ﾅﾗ  #00-90  ﾍ  ｲｸ.
      *
               GMNM02  ｵ  ｸﾘｱ  ｽﾙ.
               SPACE    --->    ERRMSG-NO:GMNM02O
                                ERRMSG-XO:GMNM02O.
               'GMNM02' --->    NOW-MAP:CTS.
               'GMNT02' --->    NOW-TC:CTS.
               'GMNR02' --->    NOW-PGM:CTS.
               GMNPR003  ｵ  ｼﾖｷｶ  ｽﾙ.
               '00'     --->    ERR-CD:GMNPR003.
      *
               @GMNPR501  ｵ  ﾃﾝｶｲ  ｽﾙ.






       #00-90.
               ｼﾕｳﾘﾖｳ.
           -EJECT-
           

      ******************************************************************
      *                 ﾆﾕﾘﾖｸｺｳﾓｸ ﾁｴﾂｸ                                 *
      ******************************************************************
       #10.
       #10-10.
               ﾓｼ  YORU-FLGI:GMNM02I = 'Y' OR 'N'
               ﾃﾞﾅｹﾚﾊﾞ
                   #10-20  ｵ  ｼﾖﾘ  ｽﾙ.
               #10-90  ﾍ  ｲｸ.
               
               
               
                              
      *
       #10-20.
               @GMNPR101(YORU-FLGA:GMNM02O,11,39,'07')
               
                            ｵ  ﾃﾝｶｲ  ｽﾙ.
       #10-90.
               #10  ｵ  ﾃﾞﾙ.
           -EJECT-


      ******************************************************************
      *                 ﾄｳﾛｸDB ﾂｲｶ                                     *
      ******************************************************************
       #11.
       #11-10.
               ﾓｼ  ERR-CD:GMNPR003 = '00'  ﾅﾗ
                   #11-20  ｵ  ｼﾖﾘ  ｽﾙ.
               #11-90  ﾍ  ｲｸ.
               
               
               
       #11-20.


      
    

      
       IDENTIFICATION                            DIVISION.
       PROGRAM-ID.                               GMNR02.
       ENVIRONMENT                               DIVISION.
       INPUT-OUTPUT                              SECTION.
       FILE-CONTROL.
       DATA                                      DIVISION.
       FILE                                      SECTION.
       WORKING-STORAGE                           SECTION.
           COPY      GMNCTS00C.
           COPY      GMNM04I.
           COPY      GMNM04O.
              中略
           COPY      WRKDV020       ・・・・・
           COPY      WRKDV020I      ・・・・・
      *
      *REMARKS*************************************************
      *    1.SYSTEM   : ﾄｳﾛｸ ｼｽﾃﾑ                             *
      *    2.FUNCTION : ｳﾘｱｹﾞ ﾄｳﾛｸ                            *
      *    3.ETC      :                                       *
      *********************************************************
           EJECT.
      *    -NOGEN-
      *   ----------------------------------------
      *
      *               ﾓｼﾞﾕ-ﾙ  ﾃｲｷﾞｼﾖ
      *
      *   ----------------------------------------
      *
      *T         ﾒｲﾝｺﾝﾄﾛ-ﾙ             ...  #00
      *
      *T         ﾆﾕﾘﾖｸｺｳﾓｸﾁｴﾂｸ         ...  #10
      *
      *T         ﾄｳﾛｸDBﾂｲｶ         ...  #11
      *
      *T         ｶﾞﾒﾝﾋﾖｳｼﾞｼﾖﾘ          ...  #12
      *
           EJECT.
      *   ----------------------------------------
      *
      *               ﾘﾔｸｼﾖｳ  ﾃｲｷﾞｼﾖ
      *
      *   ----------------------------------------
      *
      *T         MIB                   ...  GMNM02I
      *
      *T         MOB                   ...  GMNM02O
      *
      *T         PFK                   ...  GMNM02I-PFK
           EJECT.
      *        --------------------------------
      *
      *                 ﾜ-ｸ  ｴﾘｱ  ﾃｲｷﾞ
      *
      *        --------------------------------
           COPY      'GMNPR001'.
           COPY      'GMNPR002'.
           COPY      'GMNPR003'.
           COPY      'GMNPR42D'.
      *
      *JWRKDR020-RD  SELECT  * FROM    WRKDR020
           EJECT.
           
      ******************************************************************
      *                 ﾒｲﾝ ｺﾝﾄﾛ-ﾙ                                     *
      ******************************************************************
       LINKAGE                                   SECTION.
           COPY      CPYLINK.
       PROCEDURE                                 DIVISION
           USING LINKAGE-AREA.
       MAIN-RTN SECTION.
       MAIN-RTN-START.
           PERFORM INIT-RTN
           PERFORM L00
           PERFORM FINAL-RTN.
       MAIN-RTN-EXT.
           EXIT.
       L00 SECTION.
       L00-10.
           CALL DSPAPI            USING LINKAGE-AREA
                                        DSPAPI-CTLI
                                        GMNM02-INF
                                        GMNM02I
              中略

           MOVE GMNM02-OUTCURS-LIN   TO WK-CURS-LIN
           MOVE GMNM02-OUTCURS-COL   TO WK-CURS-COL

              中略

           INITIALIZE GMNPR003
           MOVE '00'                 TO ERR-CD OF GMNPR003.
      *
           COPY      'GMNPR501'.

              中略

      *
       L00-90.
           PERFORM FINAL-RTN
              中略
           EJECT.

      ******************************************************************
      *                 ﾆﾕﾘﾖｸｺｳﾓｸ ﾁｴﾂｸ                                 *
      ******************************************************************
       L10 SECTION.
       L10-10.
           IF  GMNM02-YORU-FLG-I = 'Y' OR 'N'
           THEN
               CONTINUE
           ELSE
               PERFORM L10-20
                  THRU L10-20-EXT
           END-IF
           GO  TO  L10-90.
      *
       L10-20.
           COPY      'GMNPR101'      ・・・・・
       L10-20-EXT.
           EXIT.
       L10-90.
           GO  TO  L10-EXT.
       L10-EXT.
           EXIT.
           EJECT.
      ******************************************************************
      *                 ﾄｳﾛｸDB ﾂｲｶ                                     *
      ******************************************************************
       L11 SECTION.
       L11-10.
           IF  ERR-CD OF GMNPR003 = '00'
           THEN
               PERFORM L11-20
                  THRU L11-20-EXT
           END-IF
           GO  TO  L11-90.
       L11-20.

              中略

      *--------------------------------------------
      * 　初期処理
      *--------------------------------------------
       INIT-RTN SECTION.
       INIT-RTN-START.

              中略

      *ワークステーションID
           CALL '#JOBNAMEG' USING CD-SCA-TERMINAL.

      * DATE/TIME
           COPY ACDATETIME.

              中略

      *ファイルのオープン

       INIT-RTN-EXT. EXIT.
      *--------------------------------------------
      * 　終了処理
      *--------------------------------------------
       FINAL-RTN SECTION.
       FINAL-RTN-START.

              中略

      * 画面出力域＝＞ＣＴＳに退避

              中略

      *ファイルのクローズ

       FINAL-RTN-EXT. EXIT.