How to get the library from which the panel is taken.

Ayyappan · New User Joined: 05 Jul 2005 Posts: 35 Location: India

Hi,

I have a CLIST which is displaying a panal. I want to know where the panel definition is stored. I checked in all the datasets against ISPPLIB and I couldn't find it. Also my CLIST is not having any LIBDEF statements to define the ISPPLIB. Could anyone help me on this?

Thanks.
Ayyappan

MGIndaco · Posted: Wed Dec 21, 2005 11:34 pm Post subject:

I'm almost sure that in ISPPLIB there is something that referr to that panel.
When you look for the panel make sure that you are currently using it because we can alloc dinamically a library/ddname using the libdef so, remember, that you will able to see the library only if you are running the program and viewing the panel.
If you cannot, after this search, find what you're looking for I suppose that the panel is created and executed dinamically thru rexx or clist. In this case I suppose that you will find some information on the main CLIST that perhaps can create the panel in your personal library: myuserid.PANELS

I hope in this suggest.

superk

I'm stumped. Even an inline panel requires a LIBDEF statement.

MGIndaco · Posted: Thu Dec 22, 2005 1:52 am Post subject:

Please, forget this sentece:

Ayyappan · New User Joined: 05 Jul 2005 Posts: 35 Location: India

Hi,

I used TSO ISRDDN command to get the list of datasets associated with ISPPLIB and i checked in all the datasets and I couldn't find my panel definition in any of those. Will ISRDDN give all the dataset names associated with ISPPLIB? I checked in my CLIST and it is not having any LIBDEF statements.

Thanks.
Ayyappan

Paddy · Posted: Thu Dec 22, 2005 12:14 pm Post subject:

Hi Ayyapan

Check in your profile dataset. Perhaps that your panel is located in.

Regards

Paddy

Paddy · Posted: Thu Dec 22, 2005 1:14 pm Post subject:

Hi again Ayyapan

I have just had an idea. Check in your procedure if you find any macro 'ALLOC FI(........', perhaps along the treatment you call a load module who find panels in dataset allocated with 'ALLOC FI(....'. In this case the dataset don't appear in ISPPLIB concatenation.

I hope this will help you.

Best regards.

Paddy

MGIndaco · Posted: Thu Dec 22, 2005 8:40 pm Post subject:

Hi Paddy I tried but in each cases when we alloc dinamically a library, to display the panel we must use a libdef. For what I know, and I repeat is not enough, there is no way to display a panel that is not allocated to ISPPLIB.
Originally we can't see the library in isrddn but when we call the panel the library must be concatenated.
I don't know if there is a method to use an alternate DD of ISPPLIB but in each case, if we look for the member in ISRDDN in ISPPLIB or other, the panel must be present even if the library is a temp.

I hope in this suggest.

Paddy · Posted: Thu Dec 22, 2005 9:31 pm Post subject:

Hi MGindaco

You are right, I badly expressed myself. I spoke about panel which use some softwares as CFT by example. The panels are not really ISPF panels but some panels stored in VSAM and used by a load module. I attach an example of this type of procedure where we don't see the panels libraries in concatenation.

i apologize to you.
Best regards

Paddy

If Lang = '' Then Lang = 'FR' /* 'FR' OR 'UK'
ddexp = "EXPL.CFT."Sysname
ddlan = "CFI"Lang
/* 1 : ALLOCATE FILES (WITH REUSE BANANE |)
"ALLOC FI(CFTSUBM) SYSOUT(x) WRITER(INTRDR) REUSE"
"ALLOC FI(CFTIN) SHR DA('*') REUSE"
"ALLOC FI(CFTOUT) SHR DA('*') REUSE"
"ALLOC FI(VFMIN) SHR DA('*') REUSE"
"ALLOC FI(VFMOUT) SHR DA('*') REUSE"
"ALLOC FI(CFTCAT) SHR DA('"ddexp".CATALOG') REUSE"
"ALLOC FI(CFTPARM) SHR DA('"ddexp".PARM') REUSE"
"ALLOC FI(CFTPART) SHR DA('"ddexp".PART') REUSE"
"ALLOC FI(CFTCOM) SHR DA('CFTEXP"Lsyst".COM1') REUSE"
"ALLOC FI(CFTLOG) SHR DA('"ddexp".LOG1'
'"ddexp".LOG2') REUSE"
"ALLOC FI(CFTFCNF) SHR DA('"ddexp"."ddlan"CNF') REUSE"
"ALLOC FI(CFTFMON) SHR DA('"ddexp"."ddlan"MON') REUSE"
"ALLOC FI(CFTFHLP) SHR DA('"ddexp"."ddlan"HLP') REUSE"
"ALLOC FI(CFTFCFT) SHR DA('"ddexp"."ddlan"CFT') REUSE"
"ALLOC FI(CFTFDAT) SHR DA('"ddexp"."ddlan"DAT') REUSE"
"ALLOC FI(CFTFDIA) SHR DA('"ddexp"."ddlan"DIA') REUSE"
"ALLOC FI(CFTFHPE) SHR DA('"ddexp"."ddlan"HPE') REUSE"
"ALLOC FI(CFTFPCF) SHR DA('"ddexp"."ddlan"PCF') REUSE"
"ALLOC FI(CFTFPHP) SHR DA('"ddexp"."ddlan"PHP') REUSE"
"ALLOC FI(CFTFSCR) SHR DA('"ddexp"."ddlan"SCR') REUSE"

SAY "PP001I : Faire PF4 ou EXIT pour quitter |" ;
" CALL 'SYS2.CFT.LOAD(CFTINT)' "