MVSFORUMS.com

Job Control Language(JCL) :: RE: Pass Parameters from A PDS

Author: jayram99
Posted: Mon Mar 30, 2026 2:05 pm (GMT -5)
Topic Replies: 2

Thanks Kolusu for your help.

Job Control Language(JCL) :: RE: Pass Parameters from A PDS

Author: kolusu
Posted: Sun Mar 29, 2026 7:49 am (GMT -5)
Topic Replies: 2

jayram99,

Look at the example here

CODE the PDS name as JCLLIB and just have an INCLUDE of the member before the PROC name

https://www.mvsforums.com/helpboards/viewtopic.php?p=64267#64267
_________________
Kolusu
www.linkedin.com/in/kolusu

Job Control Language(JCL) :: Pass Parameters from A PDS

Author: jayram99
Subject: Pass Parameters from A PDS
Posted: Sat Mar 28, 2026 5:21 pm (GMT -5)
Topic Replies: 2

Need help on this . I have Dataset ENXX.MIS.PARMLIB(PASSPARM). The PDS has following Details.

Code:

// SET TABLE=ABC0010S
// SET INPUTDS=MIS.PCWDXXXX.ABC0010S.OFILE1(0)

JCL ENXX.MIS.JCL(PCWDAUTX) should read above dataset and pass TABLE Parameter to SAS Step AND INPUTDS Value to ICETOOL Stemp. Attaching JCL For your reference.

Code:

//PCWDAUTX JOB (8456000000,CW),
// 'UPDT CDC_PROCSS_CYCL',
// MSGCLASS=T,
// CLASS=2,
// USER=BTCHJOB
//*___________________________________________________________________
//* Need Help to Read ENXX.MIS.PARMLIB(PASSPARM)
//*
//PROCORDR JCLLIB ORDER=(MIS.PROCLIB)
//PROD SET SSID='DB2P' | 'DB2D' | 'DB2Q' | 'DB2U'
//PROD SET ENV='' | 'ENXX.' | 'SHAD.' | ''
//PROD SET DB2ENV='USER' | 'ENXX.' | 'SHAD.' | 'USER'
//PROD SET TABLE=&TABLE | 'CDWDDB' | 'CDWFV1' | 'CDWP'
//PROD SET INPUTDS=&INPUTDS
//* __________________________________________________________________
//*
//JS10 EXEC PGM=ICETOOL
//*
//*ILEIN DD DSN=&ENV.MIS.PCWDXXXX.ABC0010S.OFILE1(0),
//* DISP=SHR
//FILEIN DD DSN=&INPUTDS, ------------------------> Need Help to pass INPUTDS from ENXX.MIS.PARMLIB(PASSPARM)
//* DISP=SHR
//FILEOUT DD DSN=&TMP1,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE),
// DCB=(RECFM=VB,BLKSIZE=0,DSORG=PS)
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SHOWDEF DD SYSOUT=*
//TOOLIN DD DSN=&ENV.MIS.PARMLIB(CWDAUTMA),
// DISP=(SHR,KEEP,KEEP)
//*
//*| JS40 EXECUTE SAS PROC / OVERRIDES BY ENVIRONMENT |*
//*|------------------------------------------------------------------|*
//*| CREATE CDW TABLE OUTFILE1 |*
//*|__________________________________________________________________|*
//*|SYMBOLIC|REQ| ALL ENVIRONMENTS | DEFAULT |*
//*|--------|---|-----------------------------------------|-----------|*
//*|OPTIONS |YES| SAS DB2 OPTION | '' |*
//*|USERID |YES| UNIX USERID | '' |*
//*|UNIXID |YES| UNIX MACH ID | '' |*
//*|WORK |YES| WORK SPACE | '' |*
//*|______________________________________________________| |*
//*| | | DEVELOPMENT | OPS TESTING | |*
//*| | |-------------------|---------------------| |*
//*|ENV |NO | 'ENXX.' | 'SHAD.' | '' |*
//*|DB2ENV |YES| 'DEVL' | 'SHAD.' | 'USER' |*
//*|________|___|___________________|_____________________|___________|*
//*
//JS40 EXEC SAS,
// OPTIONS='$DB2DBUG',
// DB2ENV=&DB2ENV,
// WORK='500,250',
// ENV=&ENV,
// PARM='SYSPARM="&SSID,&TABLE"' --------------> TABLE Parameter should be Passed from ENXX.MIS.PARMLIB(PASSPARM)
//*
//SASAUTOS DD
// DD
// DD DSN=&ENV.MIS.MACLIB,
// DISP=(SHR,KEEP,KEEP)
//SASLOG DD SYSOUT=*
//SASLIST DD SYSOUT=*
//SASLIB DD DSN=UIS.USER.FORMATS,
// DISP=(SHR,KEEP,KEEP)
// DD DSN=UIS.USER.FMTLIB,
// DISP=(SHR,KEEP,KEEP)
//*
//INFILE DD DSN=&TMP1,
// DISP=SHR
//*
//SYSIN DD DSN=&ENV.MIS.SOURCE(CDWAUT),DISP=SHR

Please advise. Even if any other options or design approach also works for me.

Appreciate your help. Its been long time i am visiting this site. If you see any formatting or posting information is not good , Please correct me.

Thank you,

Utilities :: RE: Calculating Count and Sum after match merge

Author: kris_madras
Posted: Fri Mar 27, 2026 12:33 am (GMT -5)
Topic Replies: 2

Thank You for providing solution. Let me test and confirm the solution.

Utilities :: RE: Calculating Count and Sum after match merge

Author: kolusu
Posted: Thu Mar 26, 2026 5:24 pm (GMT -5)
Topic Replies: 2

kris_madras,

Try this untested JCL

Code:

//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTJNF1 DD *
1000 111
1000 222
2000 333
3000 400
3000 500
4000 100
5000 200
5000 300
5000 400
//SORTJNF2 DD *
1000 CHENNAI
2000 DELHI
3000 HYDERABAD
4000 KOLKATA
5000 MUMBAI
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
JOINKEYS FILES=F1,FIELDS=(1,4,A)
JOINKEYS FILES=F2,FIELDS=(1,4,A)
REFORMAT FIELDS=(F1:1,80,?)

OUTFIL REMOVECC,NODETAIL,
BUILD=(80X),
HEADER1=('KEY | COUNT| SUM|',/,
'----|--------|--------|'),
SECTIONS=(01,04,
TRAILER3=(01,04,'|',
COUNT=(M10,LENGTH=8),'|',
TOTAL=(06,03,ZD,M10,LENGTH=8),'|'))
/*

_________________
Kolusu
www.linkedin.com/in/kolusu

Utilities :: Calculating Count and Sum after match merge

Author: kris_madras
Subject: Calculating Count and Sum after match merge
Posted: Wed Mar 25, 2026 9:59 am (GMT -5)
Topic Replies: 2

Hi,
My requirement is to join two files and find count, get Sum of the fields.
Please help me how can I achieve this using SYNCSORT.

File-1 is FB 80 bytes. Key is in 1-4 positions (4 bytes Number). Another field CITY is in 6-15 positions (10 bytes Character)
File-2 is FB 1000 bytes. Key is in 1-4 positions (4 bytes Number). Another field AMOUNT is in 6-10 (5 bytes Character).

Both files are in sorted order.
File-1 normally has 1000 records, but File-2 has millions of records.

Code:

File-1 (Key, City)
==============
1000 CHENNAI
2000 DELHI
3000 HYDERABAD
4000 KOLKATA
5000 MUMBAI

Code:

File-2 (Key, Amount)
==========
1000 111
1000 222
2000 333
3000 400
3000 500
4000 100
5000 200
5000 300
5000 400

Output file required (Record format FB, LRECL 80)

Code:

Key Count Total
========================
1000 2 333
2000 1 333
3000 2 900
4000 1 100
5000 3 900

Utilities :: RE: SORT - Why no file contention

Author: rsantosh
Posted: Fri Dec 05, 2025 1:37 pm (GMT -5)
Topic Replies: 4

I did notice it and checked both the links. Whole day I was wondering why no contention your reply was relieving
_________________
Regards, Santosh

Utilities :: RE: SORT - Why no file contention

Author: kolusu
Posted: Fri Dec 05, 2025 12:30 pm (GMT -5)
Topic Replies: 4

rsantosh wrote:

Thank you so much. I can relax now.

rsantosh,

Did you overlook this statement in my post?

Kolusu wrote:

Btw using the same dataset for input and output for a COPY operation may cause unpredictable results.

_________________
Kolusu
www.linkedin.com/in/kolusu

Utilities :: RE: SORT - Why no file contention

Author: rsantosh
Posted: Fri Dec 05, 2025 12:16 pm (GMT -5)
Topic Replies: 4

Thank you so much. I can relax now.
_________________
Regards, Santosh

Utilities :: RE: SORT - Why no file contention

Author: kolusu
Posted: Fri Dec 05, 2025 8:20 am (GMT -5)
Topic Replies: 4

rsantosh,

The ENQueue of the dataset is reserved based on the jobname. In this case it is the jobname that is running. So you wouldn't get the contention error.

Btw using the same dataset for input and output for a COPY operation may cause unpredictable results. You can check the restriction here

https://www.ibm.com/docs/en/zos/3.2.0?topic=statement-general-coding-notes

More on this topic
https://www.mvsforums.com/helpboards/viewtopic.php?t=2831
_________________
Kolusu
www.linkedin.com/in/kolusu

Utilities :: SORT - Why no file contention

Author: rsantosh
Subject: SORT - Why no file contention
Posted: Fri Dec 05, 2025 3:32 am (GMT -5)
Topic Replies: 4

Hello,

Sorry for the silly doubt but I was under the impression that below SORT will result in file contention as SORTIN and SORTOUT file are same but job completed successfully and result was as expected(excluded few records).

Code:

//STEP01 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=SANTOSH.TEST,DISP=OLD
//SORTOUT DD DSN=SANTOSH.TEST,DISP=OLD
//SYSIN DD *
SORT FIELDS=COPY
OMIT COND=(9,2,CH,EQ,C'AB')
/*

_________________
Regards, Santosh

Database :: RE: DSN1COPY and get Dataset Name behind any tablespace

Author: kolusu
Posted: Thu Nov 13, 2025 12:35 pm (GMT -5)
Topic Replies: 3

bauer wrote:

Building the path from the single qualifiers is necessary.

bauer,

I am not sure I understand what you meant by Single Qualifiers? Do you mean you just want based on a table name you provide as an input?
_________________
Kolusu
www.linkedin.com/in/kolusu

Database :: RE: DSN1COPY and get Dataset Name behind any tablespace

Author: bauer
Posted: Thu Nov 13, 2025 10:00 am (GMT -5)
Topic Replies: 3

Ok, this helps. Thank you.

So, no path anywhere in the DB2 catalog. Building the path from the single qualifiers is necessary.

Have a nice day - thank you again

Database :: RE: DSN1COPY and get Dataset Name behind any tablespace

Author: kolusu
Subject: Re: DSN1COPY and get Dataset Name behind any tablespace
Posted: Wed Nov 12, 2025 6:08 pm (GMT -5)
Topic Replies: 3

bauer wrote:

How can I find the zOS filesystem name which is behind any given tablespace / table? This information requires DSN1COPY utility.

Bauer,

Here is the link to the explanation to data set naming conventions

https://www.ibm.com/docs/en/db2-for-zos/12.0.0?topic=groups-data-set-naming-conventions

Now that we know the convention, it should be easy to get the list from the db2 catalog tables.

Here is an untested SQL (I just modified an existing sql that I had) which may* give you the information you are looking for.

PS: I defaulted to D (for VSAM data components) for the 2nd qualifier. You can also have C (for VSAM clusters)

Code:

SELECT SUBSTR(VCATNAME,1,LENGTH(VCATNAME)) ||
CHAR('.') ||
CHAR('DSNDBD') ||
CHAR('.') ||
SUBSTR(DBNAME,1,LENGTH(DBNAME)) ||
CHAR('.') ||
SUBSTR(TSNAME,1,LENGTH(TSNAME)) ||
CHAR('.') ||
IPREFIX ||
CHAR('0001.') ||
(CASE WHEN PARTITION >= 0000 AND PARTITION < 1000 THEN 'A'
WHEN PARTITION >= 1000 AND PARTITION < 2000 THEN 'B'
WHEN PARTITION >= 2000 AND PARTITION < 3000 THEN 'C'
WHEN PARTITION >= 3000 AND PARTITION < 4000 THEN 'D'
WHEN PARTITION >= 4000 AND PARTITION < 4097 THEN 'E'
END) ||
(CASE WHEN PARTITION = 0000
THEN '001'
WHEN PARTITION > 0000 AND PARTITION < 1000
THEN SUBSTR(DIGITS(PARTITION),3,3)
WHEN PARTITION >= 1000
THEN SUBSTR(DIGITS(PARTITION),2,4)
END)
FROM SYSIBM.SYSTABLEPART A
WHERE A.VCATNAME > ' '
AND A.VCATNAME <> '00000001'
UNION ALL
SELECT SUBSTR(B.VCATNAME,1,LENGTH(VCATNAME)) ||
CHAR('.') ||
CHAR('DSNDBD') ||
CHAR('.') ||
SUBSTR(DBNAME,1,LENGTH(DBNAME)) ||
CHAR('.') ||
SUBSTR(INDEXSPACE,1,LENGTH(INDEXSPACE)) ||
CHAR('.') ||
IPREFIX ||
CHAR('0001.') ||
(CASE WHEN PARTITION >= 0000 AND PARTITION < 1000 THEN 'A'
WHEN PARTITION >= 1000 AND PARTITION < 2000 THEN 'B'
WHEN PARTITION >= 2000 AND PARTITION < 3000 THEN 'C'
WHEN PARTITION >= 3000 AND PARTITION < 4000 THEN 'D'
WHEN PARTITION >= 4000 AND PARTITION < 4097 THEN 'E'
END) ||
(CASE WHEN PARTITION = 0000
THEN '001'
WHEN PARTITION > 0000 AND PARTITION < 1000
THEN SUBSTR(DIGITS(PARTITION),3,3)
WHEN PARTITION >= 1000
THEN SUBSTR(DIGITS(PARTITION),2,4)
END)
FROM SYSIBM.SYSINDEXPART B
,SYSIBM.SYSINDEXES C
WHERE B.IXCREATOR = C.CREATOR
AND B.IXNAME = C.NAME
AND B.VCATNAME > ' '
AND B.VCATNAME <> '00000001'
;

_________________
Kolusu
www.linkedin.com/in/kolusu

Utilities :: RE: Merging records from two datasets based Primary and secondar

Author: Suchay
Posted: Wed Nov 12, 2025 2:37 pm (GMT -5)
Topic Replies: 5

Thank you Kolusu