MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

PROCLIB and WHEN/ELSE

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Thu Jul 28, 2022 6:58 am    Post subject: PROCLIB and WHEN/ELSE Reply with quote

I saw this for the first time ever in a PROCLIB. Can anyone explain what the WHEN/ELSE/END lines are or where I can read about them ?
Code:

))WHEN PROD PRODHOLD
//      LOCKMAX=, .......
))ELSE
//      LOCKMAX=3,.....
))END


I'm assuming it's not some home-grown exit, but I can't be certain.
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12354
Topics: 75
Location: San Jose

PostPosted: Thu Jul 28, 2022 3:24 pm    Post subject: Reply with quote

misi01,

That is definitely NOT a standard JCL supported syntax. Looking at the syntax values it seems to be related to DB2. Do you have a OEM product to handle Db2 ?

What happens you try to expand the proc with TYPRUN=SCAN ?
Code:

//PROCEXPN JOB (B004273,BIN#,BLDG#,DEPT#),&SYSUID,TYPRUN=SCAN, 
//         MSGCLASS=H,MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID     
/*                                                             
//         JCLLIB  ORDER=your.pds.that.has.whenproc   
//STEP0100 EXEC whenproc

_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Mon Aug 01, 2022 7:08 am    Post subject: Reply with quote

Thanks, I'll try that ...... as soon as I can remember WHERE I saw it bonk
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group