Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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: 132
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: 1715
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
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

Active Member


Joined: 07 Feb 2009
Posts: 984
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
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

Active Member


Joined: 07 Feb 2009
Posts: 984
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 TAPE VERIFY utility?? MrExtraordinare JCL & VSAM 3 Fri Dec 09, 2016 10:57 pm
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
No new posts Cobol list of programs being called biswajit.dattagupta COBOL Programming 5 Tue Nov 01, 2016 2:10 am
No new posts RACF profile access vasanthz All Other Mainframe Topics 11 Fri Sep 23, 2016 5:51 am
No new posts Best IMS DB Unload Utility jjabez10 IMS DB/DC 12 Thu Sep 22, 2016 11:15 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us