IBM Mainframe Forum

Hello,

the options REUSE and DYNAMNBR=500 don't work...



So i will divide the input dataset in five smaller dataset. And i will exec the PGM five times.

I just have a problem in divided thhe input dataset in 5 smaller by using ICETOOL
.

So maybe i will post in dfsort forum .

I just have a problem in devided thhe input dataset in 5 smaller by using ICETOOL

Why not use IDCAMS REPRO with the COUNT / SKIP options?

Sorry, I should have read more careful what you posted.
As you use the format CC=BPXWDYN('ALLOC RTDDN(DISKDD) SHR VOL('DISK') UNIT(SYSDA)') you MUST do a "FREE DD("diskdd")" after calling IEHLIST.

Robert Sample wrote:

I just have a problem in devided thhe input dataset in 5 smaller by using ICETOOL

Why not use IDCAMS REPRO with the COUNT / SKIP options?

Because my input dataset will become bigger and bigger beaucause of the number of the volume wich is growing day by day.

So i would like to find a way to divide dynamicly the input dataset by considering the numbers of the line of the input dataset.

willy jensen wrote:Sorry, I should have read more careful what you posted.
As you use the format CC=BPXWDYN('ALLOC RTDDN(DISKDD) SHR VOL('DISK') UNIT(SYSDA)') you MUST do a "FREE DD("diskdd")" after calling IEHLIST.

Thnk's Willy for your advice but it dosen't work too by doing this :



i have this error :

ALLOC DISK FAILED 35127296
ISPD117

Yeah, but the code is different - 35127296 = x'0218', and if you look at where Robert Sample mentioned, you will find that 0215 means 'Specified volume or an acceptable volume is not mounted, and user does not have volume mounting authorization through the DYNALLOC request.'
And your 'SAY 'IEHLIST RC' RC' is placed wrongly in the program, the FREE command also sets the RC value.

1. You use 'ALLOC DISK FAILED' message text twice. I suggest to use different messages so that you can tell which instance issued the message.

2. I am not familiar with this syntax:

Shouldn't it be something like:

where the EXIT occurs after your recovery routine?

@Pedro - the 'EXIT CLOSE(text,rc) is from my sample on page 1. The CLOSE function has an EXIT at the end, so could equally well have been 'Call CLOSE text,rc'. I like functions.

willy jensen wrote:Yeah, but the code is different - 35127296 = x'0218', and if you look at where Robert Sample mentioned, you will find that 0215 means 'Specified volume or an acceptable volume is not mounted, and user does not have volume mounting authorization through the DYNALLOC request.'
And your 'SAY 'IEHLIST RC' RC' is placed wrongly in the program, the FREE command also sets the RC value.

Willy you're right.

It works now !

Thank you for your help

This is a different topic to the one that began this topic in the first place. Locked.