HP 3000 Manual page 66

AB234CIC012345
BB222CIC012345
AC102GSD100001
EOF FOUND 1N
4 RECORDS PROCESSED *** 0 ERRORS
END OF SUBSYSTEM
:EOJ
CPU SEC. = 6.
Example 2: Job Stream with XSORTEXT.
Single input to different output.
!JOB TSTXSRT2,MGR.SUBSYS,XSORT;OUTCLASS=,1
!COMMENT THIS IS AN EXAMPLE OF A SINGLE INPUT-TO-
!COMMENT DIFFERENT-OUTPUT SORT.THE JOB IS STREAMED,
!COMMENT THE SPECIFICATIONS ON XSORTEXT.
!COMMENT******************************************
!COMMENT******************************************
!FCOPY FROM=TSTIN;TO=
!PURGE TSTOUT
!FILE XSORTIN=TSTIN
!FILE XSORTOUT=TSTOUT
!FILE XSORTEXT=TSTSPEC
!RUN XSORT.PUB.SYS
!SAVE TSTOUT
!FCOPY FROM=TSTOUT;TO=
!EOJ
NOTE
The only difference between Example 1 and Example 2 is the use of TSTSPEC in the
equation using XSORTEXT. TSTSPEC is an EDITOR file containing the same XSORT
specs as those imbedded in the previous job stream.
Example 3: Session With the Specifications Entered Interactively.
Single input to different output.
:PURGE TSTOUT
:FILE XSORTIN=TSTIN
:FILE XSORTOUT=TSTOUT
:RUN XSORT.PUB.SYS
HP32104A.05.00 EXTRA FUNCTION SORT FOR RPG/3000
(C) HEWLETT-PACKARD CO. 1980 WED, MAR 11, 1981, 9:16 AM
00000HSORTR 4A
00000NSORTR 4A
00005I C 33NECX
7-68
ALBERS *
WOODS *
WOODSON *
FROMFILE AFTER RECORD 3
ELAPSED MIN. = 1.
X 33
X 33
WED, MAR 11, 1981,
(XSORT)
9:45 AM