Quote: |
Or more generally the code to add to HEX values in COBOL |
Code: |
01 V1-BIN COMP PIC S9(4). 01 V1-GRP REDEFINES V1-BIN. 05 V1-PAD PIC X. 05 V1-CHAR PIC X. 01 V2-BIN COMP PIC S9(4). 01 V2-GRP REDEFINES V2-BIN. 05 V2-PAD PIC X. 05 V2-CHAR PIC X. 01 V3-BIN COMP PIC S9(4). 01 V3-GRP REDEFINES V3-BIN. 05 V3-PAD PIC X. 05 V3-CHAR PIC X. |
Code: |
MOVE LOW-VALUES TO V1-PAD V2-PAD. COMPUTE V3-BIN = V1-BIN + V2-BIN. |
Code: |
INSPECT variable-name CONVERTING 'abcdefghijklmnopqrstuvwxyz' TO 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'. |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours