Of course after I start talking about writing a perl extension, I come up with
a question regarding perl as it stands to which I don't have an answer.  I'm
trying to stream a job which uses perl.pub.sys as follows:

!JOB TESTJ,MYUSER.MYACCT
!RUN PERL.PUB.SYS
print "Testing\n";
__END__
!ECHO Testing this out.
!EOJ

the $STDLIST reads as follows:

 1
 2 JOB TESTJ,MYUSER.MYACCT,MYGROUP.
 3 Priority = DS; Inpri = 14; Time = UNLIMITED seconds.
 4 Job number = #j4372.
 5 MON, FEB 10, 1997,  3:50 PM.
 6 HP3000  Release: C.55.00   User Version: C.55.00
 7 MPE/iX  HP31900 C.05.08  Copyright Hewlett-Packard 1987.
 8 All rights reserved.
 9 STREAMED BY ASHTED,MYUSER.MYACCT (#S1263) ON LDEV# 22
10    STREAM DATE:   MON, FEB 10, 1997,  3:50 PM
11
12 Use the :IDX udc for an Index comparison report.
13
14
15
16 END OF PROGRAM
17 :RUN PERL.PUB.SYS
18
19 Testing
20
21 END OF PROGRAM
22 CPU sec. = 5.  elapsed min. = 1.  MON, FEB 10, 1997,  3:50 PM.

I'm guessing that PERL.PUB.SYS closes $STDIN or something.  Am I going to have
to give up and make this into two files--the stream file and the perl script?
Will that solve it?

Thanks,
Ted
--
Ted Ashton ([log in to unmask]) | From the Tom Swifty collection:
Southern Adventist University    | "Yes, I'm THAT strongly built", said Tom
Collegedale, TN  37315           | soberly.
(423) 238-2703                   |