bdfs1m0t | Structured Programming Macros |
Use this macro to generate inline code to convert a binary number to character decimal with leading blanks.
Format
|
You can specify a maximum value of 15 for the MAX parameter.
Entry Requirements
None.
Return Conditions
Programming Considerations
Before the conversion: |
R14 contains X'0000F394'. R15 points to EBW000. The length is 8. |
After the conversion: |
R14 is overwritten. EBW000 contains C' 62356'. R15 points to EBW000+8. |
L R14,CONS1 LA R15,EBW000 #CONS INPUT=R14,TO=R15,LENGTH=8 : CONS1 DC X'0000F394'
Before the conversion: |
R14 contains X'0000F394'. R15 points to EBW080. The length is 4. |
After the conversion: |
R14 is overwritten. EBW080 contains C'2356'. R15 points to EBW080+4. |
L R14,CONS2 LA R15,EBW080 #CONS INPUT=R14,TO=R15,LENGTH=4 : CONS2 DC X'0000F394'
Before the conversion: |
R14 contains F'355'. R15 points to EBW040. The length is 7. |
After the conversion: |
R14 is overwritten. EBW040 contains C' 355'. R15 points to EBW040+7. |
L R14,CONS3 LA R15,EBW040 #CONS INPUT=R14,TO=R15,LENGTH=7 : CONS3 DC F'355'
Related Macros