Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Utility to List PDS member names with profile as PACK ON

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
GaganGarg

Active User


Joined: 31 Mar 2010
Posts: 134
Location: India

PostPosted: Fri Jun 12, 2015 12:25 pm    Post subject: Utility to List PDS member names with profile as PACK ON
Reply with quote

Hi,

I have a requirement to list down PDS member names in a PS file for which profile is PACK ON. Could anybody please give an idea on this?
Back to top
View user's profile Send private message

Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2010
Location: UK

PostPosted: Fri Jun 12, 2015 1:45 pm    Post subject:
Reply with quote

What is the problem that you are having?
Back to top
View user's profile Send private message
enrico-sorichetti

Moderator


Joined: 14 Mar 2007
Posts: 10472
Location: italy

PostPosted: Fri Jun 12, 2015 2:07 pm    Post subject: Reply to: Utility to List PDS member names with profile as PACK ON
Reply with quote

that it is impossible to do it the way the TS asked...

the profile is a <virtual> entity that lasts only for the edit session...
( You could edit something in xxx.yyy.jcl using any profile icon_cool.gif )

when opening the member again ISPF will use the JCL profile

giving warnings about PACK ON/OFF NUMBER ON/OFF CAPS ON/OFF

the only thing that can be done is to edit every member using an edit macro to check if
the pack option is set !

see here

http://www.ibmmainframes.com/viewtopic.php?t=25947&highlight=

the relevant lines are
Code:
call $isred "(PACK) = PACK "
if pack = "ON" then do
   call $isred "PACK OFF"
   call $isred "END"
end
else do
   call $isred "CANCEL"
end


just modify the inner macro to write the result
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1103
Location: Oostende, Belgium

PostPosted: Fri Jun 12, 2015 2:58 pm    Post subject: Re: Reply to: Utility to List PDS member names with profile as PACK ON
Reply with quote

enrico-sorichetti wrote:
that it is impossible to do it the way the TS asked...

Theoretically you could look at the first 4 (or is it 8) bytes of the data set/member...
Back to top
View user's profile Send private message
enrico-sorichetti

Moderator


Joined: 14 Mar 2007
Posts: 10472
Location: italy

PostPosted: Fri Jun 12, 2015 3:12 pm    Post subject: Reply to: Utility to List PDS member names with profile as PACK ON
Reply with quote

Quote:
Theoretically you could look at the first 4 (or is it 8) bytes of the data set/member...

yes, but ...
icon_wink.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Moderator


Joined: 14 Mar 2007
Posts: 10472
Location: italy

PostPosted: Fri Jun 12, 2015 3:29 pm    Post subject: Reply to: Utility to List PDS member names with profile as PACK ON
Reply with quote

/continuation on
not for the faint of hart,

the first 4 bytes could be
'000140c6'x or '000140e5'x
and the next four bytes would contain the LRECL for FB datasets or the LRECL - 4 for VB datasets
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1103
Location: Oostende, Belgium

PostPosted: Fri Jun 12, 2015 9:18 pm    Post subject: Re: Reply to: Utility to List PDS member names with profile as PACK ON
Reply with quote

enrico-sorichetti wrote:
/continuation on
not for the faint of hart,

the first 4 bytes could be
'000140c6'x or '000140e5'x
and the next four bytes would contain the LRECL for FB datasets or the LRECL - 4 for VB datasets

And the really funny thing is editing a dataset or member and manually putting in those bytes, and follow them with junk. icon_lol.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to list data set names with diffe... murali.andaluri CLIST & REXX 10 Thu Apr 12, 2018 11:33 pm
No new posts List of jobs ran thru scheduler ddhar All Other Mainframe Topics 1 Tue Mar 27, 2018 4:32 am
No new posts How could i share my personal dataset... James Halley TSO/ISPF 1 Fri Mar 23, 2018 9:41 pm
No new posts Set UCTRAN through PROFILE ismail.hasan CICS 2 Tue Mar 13, 2018 2:23 am
This topic is locked: you cannot edit posts or make replies. How could i share my personal dataset... samenxia163 TSO/ISPF 1 Fri Mar 09, 2018 12:18 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us