Okay here is the problem. I am using FOCUS to help me recall / unmigrate a bunch of files. The 'list' is in a file that is input for another job and I'm editing the list names to get what I want to use. The issue is the list may have wildcards (like UID.MASTER.*). Unless someone has a better utility I'm going to use TSO LISTDS (which BTW works great in native FOCUS). But when I put it in the required JCL stream - no go.

<snip>
I've tried
000075 -REG
000076 -SET &DSNLIST = '''' | &PLINE || '''' || ' ';
000077 -TSO LISTDS &DSNLIST;
and
000077 TSO LISTDS &DSNLIST;
with
000078 -RUN
000078 -*UN and without
000079 -GOTO MORE;
000080 -*
000081 -LEVELS
000082 -SET &DSNLIST = '''' | &PLINE || '''' || ' LEVEL';
</snip>

Any ideas.

no go? What's the error you're getting?

When you say you put it in the JCL stream, do you mean like this:
//STEP01 EXEC FOCUS
//SYSIN DD *
...
-REG
-SET &DSNLIST = '''' | &PLINE || '''' || ' ';
TSO LISTDS &DSNLIST
...
FIN
/*
//

If so, this won't work - you cannot have Dialog Manager commands in the JCL stream.

What you need to do is to create a FOCUS program and execute it from the JCL stream:

//STEP01 EXEC FOCUS
//SYSIN DD *
EX KEEPACT1
FIN
/*
//

The program KEEPACT1 would then contain all the program code.

You can also code the SYSIN like this:

//SYSIN DD DSN=ZZ.YY.CNTL(KEEPACT1),DISP=SHR

I think the last executed line in the program needs to be FIN to ensure that the condition code is zero.

I hope this helps.

Hi Sandy,

How about extracting the names of the datasets, in a separate step, before your FOCUS step?

For example:



//S200 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//IDCAMSPR DD DSN=SYSID.GETDS,
// DISP=SHR,
// SPACE=(TRK,(5,5),RLSE),
// DSORG=PS,LRECL=125,RECFM=VBA
//SYSIN DD *
/* GET ALL DATASETS BEGINNING WITH X.X. */
LISTCAT LVL(X.X) ALL OFILE(IDCAMSPR)
/* */

You can then use the output (IDCAMSPR), from this step, as input into your FOCUS step.

Regards,
Dave

This message has been edited. Last edited by: <Mabel>,