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

2. If all characters in the source field have not been placed in the mask field before theend of the mask field is encountered, the whole mask is set to asterisks and editingis terminated.3. CR (credit) and - (minus) in the rightmost positions of the mask field are blanked ifthe source field is positive (does not have an 11-zone over the rightmost character).4. The zero suppression scan starts at the left end of the mask field and proceeds leftto right, replacing zeros (0), blanks (b's), decimal points (.), and commas (,). Thelast position replaced will occur where the zero suppression character was located,or one position to the left of where a significant character, not zero (0), blank (b),decimal point (. ), or comma (,), occurs. If the zero suppression character was anasterisk (*), the replacement character is an asterisk. Otherwise, the replacementcharacter is a b (blank).5. If the zero suppression character was a dollar sign ($), a dollar sign is placed in thelast replaced position in the zero suppression scan.In order for the edit routine to work correctly and as described, five rules must befollowed in creating the mask field:1. There must be at least as many b's (blanks) in the mask field as characters in thesource field.2. If the mask field contains zero (0), asterisk (*), or dollar sign ($), zero suppressionwill be used and the first character in the mask field must be a b (blank).3. The mask field must not contain more than one of the following, which may appearonly once:0 (zero)* (asterisk)$ (dollar sign)4. If the rightmost character in the mask field is an R, the next character to the leftshouldbe a C, in order to edit with CR (credit). Both characters will be blanked ifthe source field is positive. If the rightmost character in the mask field is - (minus),it will be blanked if the source field is positive.5. All numeric, alphabetic, and special characters may be used in the mask field. Allcharacters that do not have special meaning will be left in their original position inthe mask field during the edit.More detailed information may be found in the EDIT flowchart and listing.