ＤＣＣＭ・ＸＭＡＰ画面コンバージョン・サービス
日立・ＤＣＣＭ用画面定義体のＸＭＡＰをＩＢＭｉ（Ｓｙｓｔｅｍ−ｉ、ＡＳ／４００）の画面定義体のＤＤＳに変換します。（Ｗｅｂ化対応も可能です）
以下にＸＭＡＰをＤＤＳに変換した例を掲載します。
変換後の画面例
定義体例
変換前 ＸＭＡＰソース（一部割愛）
GAMN01 PANEL LANG=*
&GAMN01 MODATTR PARM=((C,'YYYN ',YELLOW,PRINT,TRANS),
(C,'SYYN ',CYANIC,PRINT,TRANS),
(C,'SYYNP ',CYANIC,PRINT,TRANS,PROT),
(C,'SYNNP ',CYANIC,PRINT,PROT),
(C,'RYNNP ',RED,PRINT,PROT),
(C,'RYYN ',RED,PRINT,TRANS),
(C,'RYYY ',RED,PRINT,TRANS,REVERSE),
(C,'DNNN ',DARK))
GAMN01 LOGSEG CLEAR=(X,'00')
L000C000 LOGFLD LNG=00008,TYPE=IN,VAL='TRAN01 '
INC CTLFLD TYPE=INC,LNG=00008
CNTRLX CTLFLD TYPE=(CNTRL,X),LNG=00003
INCURSX CTLFLD TYPE=(INCURS,X),LNG=00004
OUTCURSX CTLFLD TYPE=(OUTCURS,X),LNG=00004
L023C002 CTLFLD TYPE=ATTR,LNG=00008
L023C002 LOGFLD LNG=(00079,C),TYPE=OUT,LEVEL=1,CODE=E
L024C002 CTLFLD TYPE=ATTR,LNG=00008
L024C002 LOGFLD LNG=(00060,N),TYPE=OUT,LEVEL=1,CODE=K
L024C064 CTLFLD TYPE=ATTR,LNG=00008
L024C064 LOGFLD LNG=(00015,C),TYPE=OUT,LEVEL=1,CODE=E
LOGSEND
PHSEG DEV=(5425,D2),POS=(001,001),SIZE=(024,080),
CURS=(001,001),INC=((C,'ENTER ',ENTER),
中略
(C,'PF20 ',PF20),
(C,'PF21 ',PF21),
(C,'PF22 ',PF22),
(C,'PF23 ',PF23),
(C,'PF24 ',PF24)),
CNTRL=(ERWRT,FRKB,SZ1920),NULL=SPACE,FORM=LINE
CNSFLD POS=(001,001),VAL=(C,'GAMN01'),
ATTR=(WHITE,PRINT,PROT)
CNSFLD POS=(001,072),VAL=(C,'ABC-01'),
ATTR=(WHITE,PRINT,PROT)
CNSFLD POS=(006,019),VAL=(G,'社内事務オンライン開始'),
ATTR=(MAGENTA,PRINT,REVERSE,TWOWH,PROT)
CNSFLD POS=(012,017),
VAL=(G,'ＰＦ２ ・・・ 社内事務準備メニュー'),
ATTR=(WHITE,PRINT,PROT)
CNSFLD POS=(014,017),
VAL=(G,'ＰＦ４ ・・・ 社内事務メニュー'),
ATTR=(WHITE,PRINT,PROT)
CNSFLD POS=(016,017),
VAL=(G,'ＰＦ１１ ・・・ 終了'),
ATTR=(CYANIC,PRINT,PROT)
CNSFLD POS=(022,002),
VAL=(G,'ＰＦ８：プリンター接続'),
ATTR=(YELLOW,PRINT,REVERSE,PROT)
CNSFLD POS=(022,026),
VAL=(G,'ＰＦ１０：プリンター開放'),
ATTR=(YELLOW,PRINT,REVERSE,PROT)
VARFLD LOGFLD=L000C000,POS=DUMMY
VARFLD LOGFLD=L023C002,CTLFLD=L023C002,POS=(023,001),
MODATTR=&GAMN01,ATTR=(RED,PRINT,PROT)
VARFLD LOGFLD=L024C002,CTLFLD=L024C002,POS=(024,001),
MODATTR=&GAMN01,ATTR=(RED,PRINT,PROT)
VARFLD LOGFLD=L024C064,CTLFLD=L024C064,POS=(024,063),
MODATTR=&GAMN01,ATTR=(RED,PRINT,PROT)
PHSEND
PNLEND
変換後 ＤＤＳソース（一部割愛）
中略
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 GAMN01
A************************************************************************
A* 固定値
A************************************************************************
A 1 2'GAMN01'
A COLOR(WHT)
A DSPATR(PC)
A 1 73'ABC-01'
A COLOR(WHT)
A 6 20G'社内事務オンライン開始'
A DSPATR(RI)
A COLOR(PNK)
A 12 18G'ＰＦ２ ・・・ 社内事務準-
A 備メニュー'
A COLOR(WHT)
A 14 18G'ＰＦ４ ・・・ 社内事務メ-
A ニュー'
A COLOR(WHT)
A 17 18G'ＰＦ１１ ・・・ 終了'
A COLOR(TRQ)
A 22 3G'ＰＦ８：プリンター接続'
A DSPATR(RI)
A COLOR(YLW)
A 22 27G'ＰＦ１０：プリンター開放'
A DSPATR(RI)
A COLOR(YLW)
A************************************************************************
A* ユーザー変数項目
A************************************************************************
A L023C002 79A B 23 2DSPATR(PR)
A DSPATR(&L023C002A)
A OVRATR
A COLOR(RED)
A L024C002 30G B 24 2DSPATR(PR)
A DSPATR(&L024C002A)
A OVRATR
A COLOR(RED)
A L024C064 15A B 24 64DSPATR(PR)
A DSPATR(&L024C064A)
A OVRATR
A COLOR(RED)
A************************************************************************
A* 属性項目
A************************************************************************
A L023C002A 1A P
A L024C002A 1A P
A L024C064A 1A P
