Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum 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: 2406
Location: Hampshire, 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

Senior Member


Joined: 14 Mar 2007
Posts: 10700
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: 1220
Location: Vilnius, Lithuania

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

Senior Member


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

Senior Member


Joined: 14 Mar 2007
Posts: 10700
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: 1220
Location: Vilnius, Lithuania

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 List of Active Jobs in CTRL-M Vineet JCL & VSAM 1 Mon Sep 21, 2020 7:58 pm
No new posts Determine what library member is in, ... mdwait JCL & VSAM 9 Thu Jul 23, 2020 3:02 am
No new posts ISPF Edit Macro with profile commands... Lynne Schuler TSO/ISPF 14 Thu Jun 18, 2020 7:25 pm
No new posts Fetch the Dataset names from inside m... kalyan94 TSO/ISPF 18 Wed Jun 17, 2020 2:06 pm
No new posts Finding Esoteric Unit Names Programma... schippsid All Other Mainframe Topics 2 Mon May 04, 2020 9:11 pm

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