HP RPG/XL Programmer's Guide (30318-90001)

8- 16
Figure 8-12. Setting a User-Defined JCW - Program SIZER Comments
Comments
1 This line defines the file, LIMITS, created by the UDC.
2 This line describes the input record in the LIMITS file.
Column 27 contains B to specify the record code.
3 This line defines the first field, IEOF.
4 This line defines the second field, ILIMIT.
5 This line creates a User-Defined JCW, JCWEOF, containing the
IEOF field information.
Columns 18-27 names the field, IEOF, that is written to JCWEOF.
Columns 28-32 contain PUTJW to update the User-Defined JCW (this
operation uses the intrinsic, PUTJCW).
Columns 33-42 name the User-Defined JCW, JCWEOF.
Columns 58-59 contain 20 to turn indicator 20 on when the PUTJW
operation is successful.
6 This line creates a User-Defined JCW, JCWLIM, containing the
ILIMIT field information.
Columns 18-27 names the field, ILIMIT, that is written to
JCWLIM.
Columns 28-32 contain PUTJW to update the User-Defined JCW (this
operation uses the intrinsic, PUTJCW).
Columns 33-42 name the User-Defined JCW, JCWLIM.
Columns 58-59 contain 20 to turn indicator 20 on when the PUTJW
operation is successful.
Segments of the program, UPDATE, are shown below. UPDATE reads the
User-Defined JCWs (JCWEOF and JCWLIM) created in Figure 8-12. UPDATE
increments the record count (from JCWEOF) each time a record is written