Thank you, One more Question RE: jobnumber in a cl

Scott
Thank you,  

I have one other question if your interested in making my life easier for
the weekend. :-)

I have a infds for a print file, and it has these fields defined
D PRT1            DS                   
D  STDFIL           *FILE              
D  STDFMT           *RECORD            
D  STSTS            *STATUS            
D  STLBF1                93    102     
D  STLP                 152    153B 0  
....

I would like to add, 
D  splname               83     92a 

but I didn't want to overlap those *fields...

Do you know how much space in bytes, does the *file, *record *status uses
up?  I looked through the compile listing but I didn't seem them defined
with a size.


Tim

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [SMTP:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
> Sent: Friday, April 02, 2004 3:19 PM
> To:   Midrange Systems Technical Discussion
> Subject:      Re: jobnumber in a cl
> 
> 
> Hi Tim,
> 
> > I have a CL, that submits a job, is there any way, to retrieve the job
> > number of the submitted job?
> 
> When you submit a job it puts a message in your program queue that
> contains the submitted job's name/user/number.  So, it's relatively easy
> to retrieve that message and get the job id from the msgdta.  Here's a
> sample:
> 
>      DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(26)
>      DCL VAR(&JOBNAME) TYPE(*CHAR) LEN(10)
>      DCL VAR(&JOBUSER) TYPE(*CHAR) LEN(10)
>      DCL VAR(&JOBNBR) TYPE(*CHAR) LEN(6)
> 
>      SBMJOB CMD(CALL MYPGM)
> 
>      RCVMSG MSGTYPE(*LAST) MSGDTA(&MSGDTA)
>      CHGVAR VAR(&JOBNAME) VALUE(%SST(&MSGDTA 1  10))
>      CHGVAR VAR(&JOBUSER) VALUE(%SST(&MSGDTA 11 10))
>      CHGVAR VAR(&JOBNBR)  VALUE(%SST(&MSGDTA 21 6))
> 
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
> 
This e-mail message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential or privileged
information.  Any unauthorized review, use, disclosure or distribution is
prohibited.  If you are not the intended recipient, please contact the
sender by reply e-mail and destroy the message.