|
Identification Division.
Program-Id. hexconv.
Data Division.
Working-Storage Section.
01 CH Pic X occurs 4.
01 NUM Pix S9(4) comp redefines CH.
01 NUM-High Pix S9(4) comp.
01 NUM-Low Pic S9(4) comp.
77 Num-Upper Pic S9(4).
01 Hex Pic X occurs 16 Value '0123456789ABCDEF'.
Linkage Section.
77 ch-to-be-converted pic X.
77 Result Pic X(2).
Procedure Division using ch-to-be-converted
returning result.
* hexadecimal conversion
move zero to Num.
move ch-to-be-converted to CH(4).
Divide Num by 16 giving Num-High.
Multiply Num-High by 16 giving Num-Upper.
Subtract Num-Upper from Num.
Move Num to Num-Low.
add 1 to Num-High, Num-Low.
*
String Hex(Num-High), Hex(Num-Low) into Result.
End-Program hexconv.
¤ Dauer der Verarbeitung: 0.31 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
