HP RPG/iX Utilities Reference Manual (30318-90006)

8- 90
SRTUT RECORD 3 (%3, #3)
00000: 0000 0003
SRTUT RECORD 4 (%4, #4)
00000: 0000 0004
SRTUT RECORD 5 (%5, #5)
00000: 0000 0005
SRTUT RECORD 6 (%6, #6)
00000: 0000 0006
SRTUT RECORD 7 (%7, #7)
00000: 0000 0007
A simple RPG program has been devised to make use of the output of the sort.
PAGE 0001 HEWLETT PACKARD 32104A.04.07 RPG/3000 (C) HEWLETT-PACKARD CO. 1978.
WED, MAR 11, 1981, 10:24 AM
0001 $CONTROL USLINIT
0002 H 1
0003 FHISTORY IP F 101R I DISK
0004 FRAF IRE F 4 4 T EDISK
0005 FREPORT 0 F 132 0V LLP
0006 E RAF HISTORY
0007 LREPORT 66FL 60OL
0008 IHISTORY NS 01
0009 I 3 12 CUSTNO
0010 I 31 31 GARTCD
0011 I 32 350DATE
0012 I 36 420UNITSB
0013 C TOTAL ADD UNITSB TOTAL 90
0014 0REPORT H 201 1P
0015 0 OR 0V
0016 0 UDATE Y 16
0017 0 51 "SALES HISTORY LISTING"
0018 0 PAGE Z 72