SELECT PGM



IBM's Command List programming language & Restructured Extended Executor

Re: SELECT PGM

Postby samb01 » Thu Jul 19, 2018 6:48 pm

Hello,

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


CC=BPXWDYN('ALLOC RTDDN(DISKDD) SHR VOL('DISK') UNIT(SYSDA) REUSE')  

 


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 .
samb01
 
Posts: 292
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Re: SELECT PGM

 

Re: SELECT PGM

Postby Robert Sample » Thu Jul 19, 2018 6:52 pm

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?
Robert Sample
Global moderator
 
Posts: 3524
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 251 times

Re: SELECT PGM

Postby willy jensen » Thu Jul 19, 2018 6:56 pm

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.
willy jensen
 
Posts: 175
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 25 times

Re: SELECT PGM

Postby samb01 » Thu Jul 19, 2018 7:08 pm

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.
samb01
 
Posts: 292
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 0 time
Been thanked: 0 time

Re: SELECT PGM

Postby samb01 » Thu Jul 19, 2018 7:26 pm

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 :


"DELSTACK"                                      
 QUEUE ' LISTVTOC VOL=3390='DISK',DSNAME='DSN  
 "EXECIO" QUEUED() "DISKW SYSIN (FINIS)"        
 "CALL *(IEHLIST)"                              
 "FREE DD("DISKDD")"                            
 SAY 'IEHLIST RC' RC                            
 "EXECIO * DISKR SYSPRINT (FINIS)"              

 


i have this error :
ALLOC DISK FAILED 35127296
ISPD117
samb01
 
Posts: 292
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 0 time
Been thanked: 0 time

Re: SELECT PGM

Postby willy jensen » Thu Jul 19, 2018 7:34 pm

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 jensen
 
Posts: 175
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 25 times

Re: SELECT PGM

Postby Pedro » Thu Jul 19, 2018 7:47 pm

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:
IF CC<>0 THEN EXIT CLOSE('ALLOC DISK FAILED' CC,8)

Shouldn't it be something like:
IF CC<>0 THEN Do; CLOSE('ALLOC DISK FAILED' CC,8); EXIT; End

where the EXIT occurs after your recovery routine?
Pedro Vera
User avatar
Pedro
 
Posts: 586
Joined: Thu Jul 31, 2008 9:59 pm
Location: Silicon Valley
Has thanked: 0 time
Been thanked: 42 times

Re: SELECT PGM

Postby willy jensen » Thu Jul 19, 2018 8:01 pm

@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
 
Posts: 175
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 25 times

Re: SELECT PGM

Postby samb01 » Thu Jul 19, 2018 8:34 pm

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 :D
samb01
 
Posts: 292
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 0 time
Been thanked: 0 time

Re: SELECT PGM

Postby NicC » Fri Jul 20, 2018 1:11 am

This is a different topic to the one that began this topic in the first place. Locked.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 2812
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 116 times

Previous

Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post