complex skeleton variables in do loop?

Heath Robertson · New User Joined: 07 May 2008 Posts: 7 Location: Perth, WA

Hi,

I have a batch TSO job creating a multi step job using a skeleton with a do loop. I am trying to use a concatenated variable in skeleton to set various jcl parameters.

The REXX/clist builds variables ;

disk1 = sysars1
volume1 = 200323
disk2 = sysars1
volume2 = 200323

etc...

up to disk20

Then the skeleton has the job card and then a do stmt to to parse through each disk var is sequence. the SKL reads;

//*
)SET Q = 0
)DO 20
)SET Q = &Q + 1
)SET TD = "DISK&Q"
)cm builds TD as DISK1 on initial run
)SET TDISK "&"&TD
)cm here I wanted to build a string &disk1, but fails with RC=20 as shown )cm in the ISPFTTRC output.
)IF &TDISK = NO THEN )LEAVE
//*
//* RESTORE OF VOLUME &DISK.&Q STEP&Q
//*
//RSTVOL&Q EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//TAPEIN DD DSN=&DSN.&Q,
// DISP=OLD,
// UNIT=3590-1,VOL=(,RETAIN,,SER=&VOLS.&Q),
// LABEL=&LABEL&.Q
//DISKOUT DD DISP=OLD,UNIT=3390,VOL=SER=&DISK.&Q
//SYSIN DD *
RESTORE FULL INDD(TAPEIN) OUTDD(DISKOUT)
)ENDDO

I want to build a variable that refers to the constant string "&DISK" and the counter "Q". so that when I test "&TDISK above it resolves to the value of the variable value &DISK1 built in the REXX.

If I change the )SET TD = "DISK&Q" to read )SET TD = "&DISK&Q" then the ISPFTTRC output shows that this resolves to "SYSARS11" and not "&DISK1"

Has anyone achieved this or managed this in some other way?

Any help appreciated,
Heath

expat · Posted: Thu May 08, 2008 11:42 am

Would it not be easier to invoke the skeleton FTINCL from the REXX each time a new volume is encountered.

That way you keep the DO loop in the REXX where it is easier to code and control.

Heath Robertson · New User Joined: 07 May 2008 Posts: 7 Location: Perth, WA

gcicchet · Posted: Thu May 08, 2008 12:51 pm

Hi,
you may need to show some of the code.

Are you using FTCLOSE after each FTINCL ?

Gerry

Heath Robertson · New User Joined: 07 May 2008 Posts: 7 Location: Perth, WA

so are you saying that for each step include I should

FTOPEN,

FTINCL,

FTLOSE

With a Alloc and free outside my loop?

I'll give that a try!

Heath Robertson · New User Joined: 07 May 2008 Posts: 7 Location: Perth, WA

Ok... I tried this two ways.... Did the Open, and included the Jobcard skel.

Then following that did a close, e.g.

"ALLOC F(ISPFILE) DA('dataset(member)') shr"
"ispfttrc skl(*)"
"ISPEXEC FTOPEN"
"ISPEXEC FTINCL dfdssklj"
"ispexec ftclose name(dfdssrst)"

This includes the Jobcard..

Then I updated the section for each step as follows;

"ISPEXEC FTOPEN"
"ISPEXEC FTINCL dfdsskls"
"ispexec ftclose name(dfdssrst)"

This section includes the step for each unit etc.

When looking in the output file the tayloring is there, but ony the last FTINCL.... I removed the second Open and the result was the same.....

Ideas?

expat · Posted: Thu May 08, 2008 1:53 pm

Try something like this

Heath Robertson · New User Joined: 07 May 2008 Posts: 7 Location: Perth, WA

expat,

Did you try that and did it work?

I updated my rexx in a similar fashion, and NO JOY...

REXX loop was;

"ALLOC F(ISPFILE) DA('hyr.RECOVERY.JOBS(dfdssrst)') shr"
"ispfttrc skl(*)"
"ISPEXEC FTOPEN"
"ISPEXEC FTINCL dfdssklj"
do out = 1 to dsname.0
dsname = dsname.out
label = label.out
vols = vols.out
disk = disk.out
"ISPEXEC FTINCL dfdsskls"
end
"ispexec ftclose name(dfdssrst)"

and still only the last ftincl...

This is driving me crazy!

expat · Posted: Thu May 08, 2008 2:14 pm

I allocate my ISPFILE as a PS dataset

TEST02 skeleton

Heath Robertson · New User Joined: 07 May 2008 Posts: 7 Location: Perth, WA

Thanks for that Expat!

I was allocation a PDS member as the ISPFILE dd using an ispalloc.

I then altered the job to use a ddstmt of ISPFILE and a sequential file and it worked.

Thanks for your input.

HEATH

expat · Posted: Thu May 08, 2008 6:23 pm

I can somewhere recall having a similar problem years ago and recalled using a PS ISPFILE and the problem was fixed. Since then I use only PS where possible.

gcicchet · Posted: Fri May 09, 2008 7:55 am

Hi Heath,
I tried the following code and writing to a PDS without any problems.

I can never remember writing an ISPFILE to a PS file.

Heath Robertson · New User Joined: 07 May 2008 Posts: 7 Location: Perth, WA

Gerry,

In your example you allocated the PDS without member name in the Alloc statement. and then only specified the member name in the ispexec ftclose statement.

So this may have been my error all along. Because the change I am putting in means I generate one multi step job rather than 14 single step one, I am allocating the DD within the JCL.

But using the name option may have really been the option all along!

Thanks...

expat · Posted: Fri May 09, 2008 11:59 am

gcicchet · Posted: Fri May 09, 2008 12:09 pm

Hi Expat,

you too must have been born at an early age.

Gerry