IBM 1130 User Manual page 560

Filling a Field with a Specific Character--FILL
If your program requires that you create long strings
of the same digit or character, the FILL subroutine
may be used. The statement
CALL FILL (KAHHY, 10,36, IT)
will place the coding of IT in positions 10- 36 of the
array KAHHY. IT may be any integer between
+32767 and -32768.
In a standard FOHTHAN program, this is a
useful way to clear a set of totals to zero.
If you are using the decimal arithmetic routines,
this can also be used to clear a total field to zero.
When using the overlapped I/O routines, it is
often necessary to fill an area with blanks, dashes,
or some other character.
A table of the decimal equivalent of various
EBCDIC (AI) characters may be found in the CSP
manual. However, it is usually easier to obtain
their value indirectly with a DATA statement. For
example, to fill a printer output line with dashes,
you would place a DATA statement in the beginning
of your program:
DATA IDASH/' - '/
placing the dash character between the quotes or
apostrophes. Then the FILL statement
CALL FILL (lOUT, 1,120, IDASH)
would fill the lOUT array with the Al code for a
dash.
Section Subsections Page
70 40
I
20 09
Comparing Alphabetic Fields--NCOMP
The requirements for alphabetic comparisons
can usually be broken into two main classifications:
1. Comparing to determine whether there is a
match/no match condition.
2. Comparing to determine whether one field is
higher than, lower than or equal to another
field.
Because the first is quite a bit simpler than the
second, these two types of alphabetic compares will
be discussed separately.