ADM・MFD画面コンバージョン・サービス
IMS・MFS画面コンバージョン・サービス

日立・ADM用画面定義体のMFDやIBM・IMS用画面定義体のMFSをIBMi(System−i、AS/400)の画面定義体のDDSに変換します。(Web化対応も可能です)

以下にMFDをDDSに変換した例を掲載します。

変換後の画面例

変換後の社員検索画面

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

定義体例

変換前 MFDソース(一部割愛)

      
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

      
    

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

変換後 DDSソース(一部割愛)

      

          中略

     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


      
    

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