On Thursday 20 August 2009, David Andrews wrote:
> A member in SYS1.PROCLIB is started via operator command.  When I insert
> a JOB statement as the first record, the system executes the member as a
> job (which allows me to use instream data, for example).
>
> This works well for plain old console START commands, but when I
> internally issue a START command for the same member, and pass a program
> token in the MGCR parameter list, then MVS 1.8 starts the member as a
> plain old started task -- and then jobfails it for the "misplaced JOB
> statement".
>
> I don't see this behavior documented in the JCL reference or the
> Authorized Assembler Services Guide (not saying it isn't there, just
> that I don't see it).  Is this WAD?
I tried what I think you describe on z/OS 1.9.  Seems to work.  Here's what I 
did.  Tell me what's different from your test and I'll try that.  Although, 
it doesn't show here, I tried it with a PTOKEN as well (just changed the 
flag).  That worked also.

*---+----1----+----2----+----3----+----4----+---
          MODESET KEY=ZERO,MODE=SUP              
          #xdchook ,                             
          SR    R0,R0                            
          MGCR  D_MGCRDATA                       
          MODESET  KEY=NZERO,MODE=PROB           
 * 
 and the parameters:
 
 D_MGCRDATA EQU *                              
          DC    X'80'                          
          DC    AL1(D_MGCRDATA_L1)             
          DC    X'0000'                        
          DC    C'S  X1'                       
 D_MGCRDATA_L1  EQU  *-D_MGCRDATA              
          DC    AL4(0)              Ptoken     
          DC    CL80' security token ' UTOKEN  
 D_MGCRDATA_L2  EQU  *-D_MGCRDATA              
 
 and the proc:
 
 //RGPX1    JOB ,R.G.PACE,NOTIFY=RGP00,MSGCLASS=H    
 //STEP     EXEC PGM=IEFBR14                         
 //SYSIN     DD  *                                   
 JUNK                                                
 JUNK                                                
 //                                           


-- 
Regards,
Richard Pace

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to