#PUSH JobList JobLine JobNbr nowhere                                
#PUSH #INLINEPREFIX                                                 
#SET  #INLINEPREFIX --                                              
SPOOLCOM/outv JobList/$PPLS;JOB (REPORT bat0420  01)                
PURGE $dev1.idrrpt.bat0420                                           
#extractv JobList JobLine                                           
#extractv JobList JobLine                                            
#extractv JobList JobLine                                        
[#loop                                                               
   |until| [#emptyv JobList]                                         
   |do|                                                              
   #set JobNbr [#charget JobLine 1 FOR 4]                           
   PERUSE /INLINE,outv nowhere/$ppls                                 
   -- JOB [JobNbr]
   -- LIST EDIT /out $dev1.idrrpt.bat0420/ ALL                      
   -- e                                                              
   #extractv JobList JobLine                                        
]
SPOOLCOM $ppls;JOB (REPORT bat0420  01,OWNER),HOLD,OWNER dev.jim