オフコン練習帳

6 Re:勘違いしてました

富山清風 2005-4-14 18:46 [返信] [編集]

> あと、コボルで16進にする命令とか無いですよね？

方法は色々あると思いますが私し以下のようにしています。


002080 01  WK-CNV-COMP                 COMP-1.
002090 01  WK-CNV-COMP-R           REDEFINES WK-CNV-COMP.
002100     03  WK-CNV-00           PIC X(01).
002110     03  WK-CNV-ANK          PIC X(01).
                                                            

004050         MOVE    LOW-VALUE       TO  WK-CNV-00.
004060         MOVE    WK-1 (IX-WORK)  TO  WK-CNV-ANK.
004080         COMPUTE WK-CNV-COMP     =   WK-CNV-COMP + 1
004090         IF    ( CON-CNV-T-1(WK-CNV-COMP) =   "J" )
004120             MOVE    "ANKﾅｼ"     TO  STS-ANK-UMU
004110         ELSE
004120             MOVE    "ANKｱﾘ"     TO  STS-ANK-UMU
004130         END-IF

参考までに

ＭＩＸ項目の１，２バイト文字判断うどん 2005-4-13 10:41

Re:ＭＩＸ項目の１，２バイト文字判断富山清風 2005-4-13 13:03

Re:ＭＩＸ項目の１，２バイト文字判断うどん 2005-4-13 18:07

Re:ＭＩＸ項目の１，２バイト文字判断富山清風 2005-4-13 18:23

勘違いしてましたうどん 2005-4-14 15:52

Re:勘違いしてました富山清風 2005-4-14 18:46 ←いまここ～