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

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

移行ツール一覧　>　ＡＤＭ・ＭＦＤ画面コンバージョン・サービス/ＩＭＳ・ＭＦＳ画面コンバージョン・サービス

ＡＤＭ・ＭＦＤ画面コンバージョン・サービス
ＩＭＳ・ＭＦＳ画面コンバージョン・サービス

日立・ＡＤＭ用画面定義体のＭＦＤやＩＢＭ・ＩＭＳ用画面定義体のＭＦＳをＩＢＭｉ（Ｓｙｓｔｅｍ−ｉ、ＡＳ／４００）の画面定義体のＤＤＳに変換します。（Ｗｅｂ化対応も可能です）

以下にＭＦＤをＤＤＳに変換した例を掲載します。

変換後の画面例

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

定義体例

      
GAMN1X   FMT
         DEV      TYPE=(5425,3,INOUT),FEAT=(PFK,NOPEN,PR,NOCD,IGNORE),
         MODEL=2,MODULUS=10,DSCA=X'0000',

          中略

         DFLD     POS=(1,2),CODE=EBCDIK,
         DFC=(NORM,NOBLNK,NOREV,PROT,PRINT,NOMOD),
         DFC3=(NOAUTO,NOMODU,NONEED,SKIP),
         FLD='(GAMN1)                      '
         DFLD     POS=(1,32),CODE=KANJI,
         DFC=(NORM,NOBLNK,NOREV,PROT,PRINT,NOMOD),
         DFC3=(NOAUTO,NOMODU,NONEED,SKIP),FLD='社員検索'
FMA01    DFLD     POS=(1,63),CODE=EBCDIK,
         DFC=(NORM,NOBLNK,NOREV,PROT,PRINT,NOMOD),
         DFC3=(NOAUTO,NOMODU,NONEED,SKIP),LTH=8
FMA02    DFLD     POS=(1,72),CODE=EBCDIK,
         DFC=(NORM,NOBLNK,NOREV,PROT,PRINT,NOMOD),
         DFC3=(NOAUTO,NOMODU,NONEED,SKIP),LTH=8

          中略

FMX02    DFLD     POS=(24,46),CODE=EBCDIK,
         DFC=(NODISP,NOBLNK,NOREV,PROT,NOPRT,NOMOD,DYNA),
         DFC3=(NOAUTO,NOMODU,NONEED,SKIP),LTH=30
         FMTEND
GAMN1O   MSG      TYPE=OUTPUT,SOR=(GAMN1X,IGNORE),NXT=GAMN1I,
         FILL=NULL,OPT=1,PAGE=NO
         SEG      GRAPHIC=YES
         MFLD     FLD=CURSR,DFC=NO,LTH=4,JUST=L
         MFLD     FLD=(FMA01,DATE4),LTH=8,JUST=L

          中略

         MFLD     FLD=FMX01,DFC=NO,LTH=38,JUST=L
         MSGEND
GAMN1I   MSG      TYPE=INPUT,SOR=GAMN1X,FILL=X'00',OPT=1
         SEG      GRAPHIC=YES
         MFLD     FLD='TRAN01  '
         MFLD     FLD='    '
         MFLD     FLD='@'
         MFLD     FLD=PFKFLD,LTH=1,JUST=L,FILL=X'40'

          中略

         MFLD     FLD=FMD01,LTH=4,JUST=L,FILL=X'40'
         MSGEND

      
    

      

          中略

     A                                      CF20(20 'FUNCTION 20')
     A                                      CF21(21 'FUNCTION 21')
     A                                      CF22(22 'FUNCTION 22')
     A                                      CF23(23 'FUNCTION 23')
     A                                      CF24(24 'FUNCTION 24')
     A          R GAMN1X                    PUTOVR
     A**************************************************
     A* 固定値
     A**************************************************
     A                                001002'(GAMN1)                      '
     A                                      COLOR(GRN)
     A                                001032G'社員検索'
     A                                      COLOR(GRN)

          中略

     A**************************************************
     A* 変数項目
     A**************************************************
     A            FMA01      00008X  O001063
     A                                      OVRATR
     A                                      COLOR(GRN)
     A                                      DSPATR(&FMA01A)
     A            FMA02      00008X  O001072
     A                                      OVRATR
     A                                      COLOR(GRN)
     A                                      DSPATR(&FMA02A)

          中略

     A            FMX02      00030X  B024046
     A                                      OVRATR
     A                                      COLOR(GRN)
     A                                      DSPATR(&FMX02A)
     A**************************************************
     A* 属性項目
     A**************************************************
     A            FMA01A         1A  P
     A            FMA02A         1A  P

          中略

     A            FMX02A         1A  P