ＣＩＣＳ・ＢＭＳ画面コンバージョン・サービス
ＩＢＭ・ＣＩＣＳ用画面定義体のＢＭＳをＩＢＭｉ（Ｓｙｓｔｅｍ−ｉ、ＡＳ／４００）の画面定義体のＤＤＳに変換します。（Ｗｅｂ化対応も可能です）
以下にＢＭＳをＤＤＳに変換した例を掲載します。
変換後の画面例
定義体例
変換前 BMSソース
PRINT NOGEN
SAMP100 DFHMSD TYPE=&SYSPARM,EXTATT=YES,DATA=FIELD,LANG=COBOL, *
CTRL=(FREEKB,FRSET),TIOAPFX=YES,STORAGE=AUTO,MODE=INOUT,*
COLOR=DEFAULT
SAMP10P DFHMDI SIZE=(24,80)
DFHMDF POS=(01,13),LENGTH=56,COLOR=YELLOW, *
INITIAL='== 3 JOB REPORT =='
DFHMDF POS=(01,73),LENGTH=05,COLOR=GREEN, *
INITIAL='SAMP1',HILIGHT=UNDERLINE
DFHMDF POS=(01,79),LENGTH=01,COLOR=NEUTRAL, *
INITIAL=' '
DFHMDF POS=(02,07),LENGTH=69,COLOR=BLUE, *
INITIAL='MENU SENTAKU'
DFHMDF POS=(04,06),LENGTH=11,COLOR=RED, *
INITIAL='PANEL ====>'
PANEL DFHMDF POS=(04,18),LENGTH=02,COLOR=NEUTRAL, *
ATTRB=(NUM,FSET,IC),INITIAL='**'
DFHMDF POS=(04,21),LENGTH=01,COLOR=NEUTRAL, *
INITIAL=' '
DFHMDF POS=(05,21),LENGTH=01,COLOR=PINK, *
INITIAL='1'
DFHMDF POS=(05,23),LENGTH=12,COLOR=NEUTRAL, *
INITIAL='DAILY REPORT'
DFHMDF POS=(06,21),LENGTH=01,COLOR=PINK, *
INITIAL=' '
DFHMDF POS=(06,23),LENGTH=14,COLOR=NEUTRAL, *
INITIAL='GRAPHIC REPORT'
DFHMDF POS=(07,21),LENGTH=01,COLOR=PINK, *
INITIAL=' '
DFHMDF POS=(07,23),LENGTH=30,COLOR=NEUTRAL, *
INITIAL='DATA1'
DFHMDF POS=(08,21),LENGTH=01,COLOR=PINK, *
INITIAL=' '
DFHMDF POS=(08,23),LENGTH=34,COLOR=NEUTRAL, *
INITIAL='PLAN'
DFHMDF POS=(09,21),LENGTH=01,COLOR=PINK, *
INITIAL=' '
DFHMDF POS=(09,23),LENGTH=10,COLOR=NEUTRAL, *
INITIAL='DATA INPUT'
DFHMDF POS=(10,27),LENGTH=09,COLOR=TURQUOISE, *
INITIAL='PASS WORD'
DFHMDF POS=(10,37),LENGTH=05,COLOR=TURQUOISE, *
INITIAL='====>'
PASS DFHMDF POS=(10,43),LENGTH=04,COLOR=NEUTRAL, *
ATTRB=(PROT,FSET,DRK),INITIAL=' '
DUMY DFHMDF POS=(10,48),LENGTH=01,COLOR=NEUTRAL, *
ATTRB=(PROT,FSET,DRK), *
INITIAL=' '
DFHMDF POS=(10,50),LENGTH=01,COLOR=PINK, *
INITIAL=' '
DFHMDF POS=(11,21),LENGTH=01,COLOR=PINK, *
INITIAL=' '
DFHMDF POS=(11,23),LENGTH=05,COLOR=NEUTRAL, *
INITIAL='PRINT'
ERMSG DFHMDF POS=(22,02),LENGTH=58,COLOR=RED, *
INITIAL=' '
DFHMDF POS=(22,61),LENGTH=01,COLOR=NEUTRAL, *
INITIAL=' '
DFHMDF POS=(23,04),LENGTH=04,COLOR=GREEN, *
INITIAL='PF12'
DFHMDF POS=(23,09),LENGTH=06,COLOR=TURQUOISE, *
INITIAL='= HOME'
DATE DFHMDF POS=(24,64),LENGTH=15,COLOR=GREEN,ATTRB=(ASKIP,FSET), *
INITIAL=' '
DFHMSD TYPE=FINAL
変換後 ＤＤＳソース（一部割愛）
中略
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*+*********************************************************************+
A R SAMP10P
A*+---------------------------------------------------------------------+
A*+ 出力項目 +
A*+---------------------------------------------------------------------+
A 001014'== 3 JOB REPORT =='
A COLOR(YLW)
A 001074'SAMP1'
A COLOR(GRN)
A DSPATR(UL)
A 001080' '
A COLOR(WHT)
A 002008'MENU SENTAKU'
A COLOR(BLU)
A 004007'PANEL ====>'
A COLOR(RED)
中略
A 023005'PF12'
A COLOR(GRN)
A 023010'= HOME'
A COLOR(TRQ)
A*+---------------------------------------------------------------------+
A*+ 入出力項目 +
A*+---------------------------------------------------------------------+
A PANEL 00002A B004019
A DSPATR(&PANELB)
A PASS 00004A B010044
A DSPATR(&PASSB)
A DUMY 00001A B010049
A DSPATR(&DUMYB)
A ERMSG 00058A B022003
A DSPATR(&ERMSGB)
A DATE 00015A B024065
A DSPATR(&DATEB)
A*+---------------------------------------------------------------------+
A PANELB 1A P
A PASSB 1A P
A DUMYB 1A P
A ERMSGB 1A P
A DATEB 1A P
A*+---------------------------------------------------------------------+
