|
midrange.com
I found the problem. It is on the QUSRSPLA command. I converted this from CL
to RPG. I thought I got everything correct.
Can anyone figure out what is wrong with it?
* Spool File Information
D Length S 4B 0 Inz(X'000005B8')
D FormatName S 8 Inz('SPLA0100')
D JobID S 16 Inz(*Blanks)
D SplfID S 16 Inz(*Blanks)
D QJob S 26
D RecDS DS
D Reciever 1 1464
D UsrDta 91 100A
D NumPgs 141 144B 0
C Eval QJob = JobName + JobUserName +
C JobNumber
C* Call 'QUSRSPLA'
C* Parm Reciever
C* Parm Length
C* Parm FormatName
C* Parm QJob
C* Parm JobID
C* Parm SplfID
C* Parm SplfName
C* Parm SplfNumber
Could the problem be this?
D RecDS DS
D Reciever 1 1464
D UsrDta 91 100A
D NumPgs 141 144B 0
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
