IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Utility to List PDS member names with profile as PACK ON


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
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
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: 2455
Location: Hampshire, UK

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

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

Senior Moderator


Joined: 14 Mar 2007
Posts: 10730
Location: italy

PostPosted: Fri Jun 12, 2015 2:07 pm
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

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
Warnings : 1

Senior Member


Joined: 07 Feb 2009
Posts: 1244
Location: Vilnius, Lithuania

PostPosted: Fri Jun 12, 2015 2:58 pm
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 Moderator


Joined: 14 Mar 2007
Posts: 10730
Location: italy

PostPosted: Fri Jun 12, 2015 3:12 pm
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 Moderator


Joined: 14 Mar 2007
Posts: 10730
Location: italy

PostPosted: Fri Jun 12, 2015 3:29 pm
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
Warnings : 1

Senior Member


Joined: 07 Feb 2009
Posts: 1244
Location: Vilnius, Lithuania

PostPosted: Fri Jun 12, 2015 9:18 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Column names in SYSIBM tables DB2 5
No new posts How to list BMS MAP screens in BMS Ph... CICS 2
No new posts Which SORT utility can improve the Pe... DFSORT/ICETOOL 16
This topic is locked: you cannot edit posts or make replies. Assembler - Packed Decimals - PACK in... PL/I & Assembler 3
This topic is locked: you cannot edit posts or make replies. Copy list of files from PS to another... CLIST & REXX 11
Search our Forums:

Back to Top