1130 Commercial Subroutine Package - All about the IBM 1130 ...

Example: DIMENSION IFLD(20)N=0CALL DECA1(IFLD,7,17,N)Before: 7,17IFLD AbBbCbDbEbFb00000713661EbNbDb1 1Position 1 5 10 15 20N=0After: 7,17IFLD AbBbCbDbEbFb0b0b0b0b0b7b1b3b6b6bJbEbNbDb1Position 1 5 10 15 20N=0Before execution the field is shown in decimal format. The field to be converted is00000713661After execution, the field has been converted to Al format, as is evident, the characterfollowed by a blank. There were no invalid digits in the field, since N is the same.Errors: If an invalid digit (not 0 to 9, inclusive) is encountered, the error indicator isset equal to the position of that character, and processing of the field continues.Remarks: When the error indicator indicates an error, the digit indicated is the lastinvalid digit. There may be other invalid digits in the field, occurring to the left of thedigit noted.These errors should not occur, since the arithmetic routines (ADD, SUB, MPY, andDIV) will resolve carries. However, if this does happen, the user's program shouldindicate (possibly by STOPing) that this has occurred.Note that the error indicator is not reset by this subroutine. It is the responsibility ofthe user to initialize and reset the error indicator.