DCCM・XMAP画面コンバージョン・サービス

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

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

変換後の画面例

変換後の社内事務オンライン開始画面

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

定義体例

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

      
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,'PF2  ・・・  社内事務準備メニュー'),
                     ATTR=(WHITE,PRINT,PROT)
              CNSFLD POS=(014,017),
                     VAL=(G,'PF4  ・・・  社内事務メニュー'),
                     ATTR=(WHITE,PRINT,PROT)
              CNSFLD POS=(016,017),
                     VAL=(G,'PF11 ・・・  終了'),
                     ATTR=(CYANIC,PRINT,PROT)
              CNSFLD POS=(022,002),
                     VAL=(G,'PF8:プリンター接続'),
                     ATTR=(YELLOW,PRINT,REVERSE,PROT)
              CNSFLD POS=(022,026),
                     VAL=(G,'PF10:プリンター開放'),
                     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

      
    

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

変換後 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 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'PF2  ・・・  社内事務準-
     A                                      備メニュー'
     A                                      COLOR(WHT)
     A                                 14 18G'PF4  ・・・  社内事務メ-
     A                                      ニュー'
     A                                      COLOR(WHT)
     A                                 17 18G'PF11 ・・・  終了'
     A                                      COLOR(TRQ)
     A                                 22  3G'PF8:プリンター接続'
     A                                      DSPATR(RI)
     A                                      COLOR(YLW)
     A                                 22 27G'PF10:プリンター開放'
     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









      
    

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