About the solution of running ISPF in batch

feng hao · New User Joined: 26 Mar 2008 Posts: 44 Location: China

Hi,

There is a requirement which running below operations in batch mode.
1. Type 3.4 under ISPF and go into DS list panel;
2. Then type HLQ.A.B*.C*, and press enter;
3. Get the data set list after above operations and store it in a dataset.

The question is that, is it possible to implement above requirement by pure JCL without REXX or CLIST?

And it would be quite appreciated if you could provide a "hello world"-like JCL example which interfaces with ISPF services. Then I might change and revision it by referring to IBM redbooks.

enrico-sorichetti · Posted: Mon Apr 18, 2011 3:08 pm

the issue has been debated quite a few times...
what happened when You searched the forums

Peter Nancollis · New User Joined: 15 Mar 2011 Posts: 47 Location: UK

feng hao · New User Joined: 26 Mar 2008 Posts: 44 Location: China

Thank you very much, guys.

To enrico-sorichetti,
I understood your meaning and it was my mistake that I meant only the utility without programming.

To Peter Nancollis,
Yes, Peter, I got it and now I use REXX which calls LMDINIT & LMDLIST, under ISPF host environment which is established by ISPSTART.

Thank you so much for all of your comments, agian!

superk · Posted: Mon Apr 25, 2011 1:17 pm

My answer was going to be yes, you have to use a program to call ISPF Dialog Services, but no, it does not have to be written in REXX or CLIST.

Anuj Dhawan · Posted: Mon Apr 25, 2011 3:09 pm

*Pose* - for this, why not just create a macro in your emulator (PCOM, I can help with).

Michael Jakob · Posted: Fri Apr 29, 2011 4:29 am

/* REXX - This REXX must be started with ISPSTART */
/* Pattern of dataset name must be provided as parameter */
/* Assuming DDMYOUT is allocated in JCL as output-file*/
arg myLevel
/* Prepare Dataset list */
ADDRESS 'ISPEXEC',
"LMDINIT LISTID(MYDLIST) LEVEL(myLevel)"

/* Get first entry */
ADDRESS 'ISPEXEC',
"LMDLIST LISTID(&MYDLIST) OPTION(LIST) DATASET(MYDSN)"
WRC = RC;
DO WHILE(WRC = 0);
/* Whatever you like to do with your Dataset name*/
/* For example: writing to a file */
WDSN.0 = 1;
WDSN.1 = MYDSN;
EXECIO * DISKW DDMYOUT (STEM WDSN.

/* get following entries */
ADDRESS 'ISPEXEC',
"LMDLIST LISTID(&MYDLIST) OPTION(LIST) DATASET(MYDSN) STATS(YES)"
WRC = RC;
END;
/* clear dataset list */
ADDRESS 'ISPEXEC',
"LMDLIST LISTID(&MYDLIST) OPTION(FREE) DATASET(MYDSN) STATS(YES)"

WDSN.0 = 0;
WDSN.1 = '';
EXECIO 0 DISKW DDMYOUT (STEM WDSN. FINIS

ADDRESS 'ISPEXEC',
"LMDFREE LISTID(&MYDLIST)"

EXIT 0
/* this solution is not tested! */

Pedro · Posted: Fri Apr 29, 2011 6:23 am

Michael, welcome to the forum.

Srileka · New User Joined: 21 Jun 2007 Posts: 19 Location: India

Hi,
I have a doubt. When we use OPTION(SAVE) in LMDLIST, is it possible to route the output to a user defined dataset?

The manual says, we can give GROUP and the output dataset would be userid.group.DATASETS or prefix.userid.group.DATASETS. I have many dataset masks for which i need the matching dataset list. So for each LMDLIST command the dataset userid.group.DATASETS would be over written. To avoid this I want to use different dataset names for each LMDLIST.

Thanks,
Srileka.V

enrico-sorichetti · Posted: Wed May 04, 2011 6:22 pm

should not take long to test with different GROUP(<something>) tokens !

Pedro · Posted: Wed May 04, 2011 6:48 pm

It seems like LMDLIST does not exactly fit your naming requirements.

I suggest you follow LMDLIST with:

anatol · Posted: Thu May 05, 2011 1:36 am

If I understood the request - JCL to get list of datasets in file without REXX

Here:
//STEP01 EXEC PGM=IKJEFT01,DYNAMNBR=200
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//OUTDD DD DISP=OLD,DSN=IS10709.LISTC.REPORT
//SYSTSIN DD *
LISTC LV(HLQ.A.B*.C*') OUTFILE(OUTDD)

The list then you can select by SORT or ICETOOL as next step , if format :
IDCAMS SYSTEM SERVICES
NONVSAM ------- HLQ.A.BBB.CCCC
IN-CAT --- UCAT.#volume

is not aceptable

anatol · Posted: Thu May 05, 2011 3:57 am

here is the 2 steps jcl which give you clean list of datasets
//STEP01 EXEC PGM=IKJEFT01,DYNAMNBR=200
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//OUTDD DD DISP=OLD,DSN=out_dsn
//SYSTSIN DD *
LISTC LV('HLQ.A.B*.C*') OUTFILE(OUTDD)
//*********************************************************
//STEP02 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=OLD,DSN=out_dsn
//SORTOUT DD ISP=OLD,DSN=report dsn
//SYSIN DD *
OPTION COPY
INCLUDE COND=(6,15,CH,EQ,C'NONVSAM -------')
INREC FINDREP=(IN=C'NONVSAM -------',OUT=C'')

The OUTDD dataset recm is VBA

enrico-sorichetti · Posted: Thu May 05, 2011 4:22 am

enrico-sorichetti · Posted: Thu May 05, 2011 4:46 am

a better alternative would be the use of the IGGCSI00 catalog interface
which has a much better filtering capability
and can report according to the required pattern layout
search the forums for samples on its usage

anatol · Posted: Thu May 05, 2011 5:22 am

The LV abbreviation evidence is:

anatol · Posted: Thu May 05, 2011 5:24 am

the LV evidance is:

enrico-sorichetti · Posted: Thu May 05, 2011 5:31 am

My bad for the lv ( tested with the batch idcams instead of the tso command )
but tested

Your bad for the mask!
nott tested

and I gave evidence that before posting I tested, You did not

Srileka · New User Joined: 21 Jun 2007 Posts: 19 Location: India

Thanks for your response. I have written the contents of the default file to a personal dataset. Below is my code. Now I am getting RC as 10 for the second time execution of LMDLIST and LMDFREE command, (RC for LMDINIT is 0). Only for the first mask i am getting expected results - list being saved in default dataset, contents are copied to personal dataset, deleting default dataset, all commands give RC 0.

Note:
I am running this REXX in JCL, so allocated all the files in the JCL.

prino · Posted: Mon May 09, 2011 7:30 pm

Add a

Srileka · New User Joined: 21 Jun 2007 Posts: 19 Location: India

Excellent! Its working now... Thanks a lot.

Only the output file writing part is not working - getting only the results of the of first list. I know the reason and i can correct it. Thanks for the fix.

Thanks,
Srileka.V