Re: Need Help On a Problem

[michaelr_41@xxxxxxxxxxxxxx]

Here's how I define it...seems to work ok.

D SpoolInfo       DS                                            
D  Function                     10                              
D  RecordType                    2                              
D  QualJobName                  26                              
D   JobName                     10    Overlay(QualJobName:1)    
D   JobUser                     10    Overlay(QualJobName:11)   
D   JobNumber                    6    Overlay(QualJobName:21)   
D  FileName                     10                              
D  FileNumber                    9B 0                           
D  QualQueueName                20                              
D   QueueName                   10    Overlay(QualQueueName:1)  
D   QueueLibrary                10    Overlay(QualQueueName:11) 
D  Filler                       56                              


On Mon, 28 Jun 2004 11:03:43 -0500, "Mike Wills" <koldark@xxxxxxxxx>
said:
> It doesn't if you look at the results bellow... I know it has to do
> with the SPLFNUMBER field, I am just not sure why or how to properly
> fix.
> 
> On Mon, 28 Jun 2004 10:33:52 -0500, Bartell, Aaron L. (TC) wrote:
> > Take a look at all of the fields values before you create the SBMJOB
> > statement and see if one of them contains a single quote.
> >
> > Aaron Bartell
> 
> > FUNCTION OF DATAQUEUE = '*SPOOL    '
> > RECTYPE OF DATAQUEUE = '01'
> > JOBNAME OF DATAQUEUE = 'GL221     '
> > JOBUSERNAME OF DATAQUEUE = 'LAWSON7   '
> > JUBNUMBER OF DATAQUEUE = '112185'
> > SPLFNAME OF DATAQUEUE = 'GL221_PRT '
> > SPLFNUMBER OF DATAQUEUE = 00000125.
> > OUTQNAME OF DATAQUEUE = 'LAWPDF    '
> > OUTQLIB OF DATAQUEUE = 'QGPL      '
> 
> -- 
> Mike Wills
> iSeries Programmer/Lawson Administrator
> koldark@xxxxxxxxx
> http://www.koldark.net
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
-- 
  
  michaelr_41@xxxxxxxxxxxxxx