MVSFORUMS.com :: View topic - PROCLIB and WHEN/ELSE

through

[^/[Print]\]

MVSFORUMS.com -> TSO and ISPF

#1: PROCLIB and WHEN/ELSE Author: misi01, Location: Stockholm, Sweden

Posted: Thu Jul 28, 2022 6:58 am
—
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.

#2: Author: kolusu, Location: San Jose

Posted: Thu Jul 28, 2022 3:24 pm
—
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

#3: Author: misi01, Location: Stockholm, Sweden

Posted: Mon Aug 01, 2022 7:08 am
—
Thanks, I'll try that ...... as soon as I can remember WHERE I saw it bonk

MVSFORUMS.com -> TSO and ISPF

output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Page 1 of 1