HP 3000 Manual page 65

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
AB234CIC012345
AC102GSD100001
AC321ABCD10001
BB222CIC012345
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
(C) HEWLETT-PACKARD
00000HSORTR 4A
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
(C) HEWLETT-PACKARD CO. 1980
*200*
WARNING: FROMFILE RECSIZE IS 33 BYTES, TOFILE RECSIZE IS 133 BYTES.
AC321ABCD10001
JONES X
ALBERS
WOODSON
FRANKEN
WOODS
EXTRA FUNCTION SORT FOR RPG/3000
CO. 1980 WED, MAR 11, 1981,
X 33
FRANKEN *
.
(XSORT)
9:44 AM
WED, MAR 11, 1981, 9:45 AM
7-67