IBM Mainframe Forum

My requirement is to read the input using a subroutine(without using XDECI and XDECO ).

XDECI

XDECI is generally used to scan a data card read by XREAD. The
sequence of actions performed by XDECI is as follows:

1. Beginning at the location given by ADDRESS, memory is scanned
for the first character which is not a blank.

2. If the first character found is anything but a decimal
digit or plus or minus sign, register 1 is set to the address
of that character, and the condition code is set to 3 (overflow)
to show that no decimal number could be converted. The contents
of REG are not changed, and nothing more is done.

3. From one to nine decimal digits are scanned, and the number
converted to binary and placed in REG, with the appropriate sign.
The condition code is set to 0 (0), 1 (-), or 2 (+), depending
on the value just placed in REG.

4. Register 1 is set to the address of the first non-digit after
the string of decimal digits. Thus REG should not usually be 1.
This permits the user to scan across a card image for any number
of decimal values. The values should be separated by blanks, since
otherwise the scanner could hang up on a string like -123*, unless
the user checks for this himself. I.e. XDECI will skip leading blanks
but will not itself skip over any other characters.

5. During step 3, if ten or more decimal digits are found,
register 1 is set to the address of the first character found
which is not a decimal digit, the condition code is set to 3, and
REG is left unchanged. A plus or minus sign alone causes a similiar
action, with R1 set to the address of the character following
the sign character.

XDECO

XDECO converts the value from REG to printable decimal, with
leading zeroes removed, and a minus sign prefixed if needed. The
resulting character string is placed right-justified in a 12-byte
field beginning at ADDRESS. It can then easily be printed using
an XPRNT instruction. The XDECO instruction modifies NO registers.