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

7-67
HEWLETT-PACKARD 32212A.3.13 FILE COPIER WED, MAR 11, 1981, 9:44 AM
(C)-HEWLETT-PACKARD CO. 1980
*200*
WARNING: FROMFILE RECSIZE IS 72 BYTES, TOFILE RECSIZE IS 133 BYTES.
.
AB123GSD212345 JONES X
AB234CIC012345 ALBERS
AC102GSD100001 WOODSON
AC321ABCD10001 FRANKEN
BB222CIC012345 WOODS
EOF FOUND IN FROMFILE AFTER RECORD 4
5 RECORDS PROCESSED *** 0 ERRORS
∅
END OF SUBSYSTEM
:PURGE TSTOUT
:FILE XSORTIN=TSTIN
:FILE XSORTOUT=TSTOUT
:RUN XSORT.PUB.SYS
HP32104A.05.00 EXTRA FUNCTION SORT FOR RPG/3000 (XSORT)
(C) HEWLETT-PACKARD CO. 1980 WED, MAR 11, 1981, 9:44 AM
00000HSORTR 4A X 33
00005I C 33NECX
00010FNC 6 9
00020FDC 1 32
00030FDV *
RECORDS READ = 5
RECORDS SELECTED & SORTED = 4
NUMBER OF COMPARES = 7
SCRATCHFILE I/O = 2
CPU SECONDS = .335
ELAPSED SECONDS = 2.992
TOTAL CPU SECONDS = 1.006
END OF PROGRAM
:SAVE TSTOUT
:FCOPY FROM=TSTOUT;TO=
HEWLETT-PACKARD 32212A.3.13 FILE COPIER WED, MAR 11, 1981, 9:45 AM
(C) HEWLETT-PACKARD CO. 1980
*200*
WARNING: FROMFILE RECSIZE IS 33 BYTES, TOFILE RECSIZE IS 133 BYTES.
AC321ABCD10001 FRANKEN *