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

ICETOOL job to pull ML1 datasts


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
pavan reddy

New User


Joined: 21 Dec 2020
Posts: 4
Location: India

PostPosted: Mon Dec 21, 2020 4:38 pm
Reply with quote

Hi, I am trying to report all ML1 files in mainframe dataset, the dcollect output record structure for ML1 is as below
34 (22) BITSTRING
11.. ....
..11 1111
1 UCFLAG1
UCLEVEL
*
INFORMATION FLAG 1
LEVEL OF VOLUME (L0, L1;

I am trying to print as HEADER('miglevel') on(39,1,BI) and it prints a number 160
please help me in printing the flag so that i can identify whether it is a ml1 or ml2 files
Back to top
View user's profile Send private message
pavan reddy

New User


Joined: 21 Dec 2020
Posts: 4
Location: India

PostPosted: Mon Dec 21, 2020 6:09 pm
Reply with quote

I tried with HEADER('miglevel') on(UMLEVEL) which is also not working, so looking for some help to the right code
Back to top
View user's profile Send private message
Joerg.Findeisen

Active User


Joined: 15 Aug 2015
Posts: 385
Location: Bamberg, Germany

PostPosted: Mon Dec 21, 2020 6:10 pm
Reply with quote

For DCOLLECT ML1 Data you would write:
Code:
INCLUDE COND=(73,1,BI,EQ,B'01......')
Back to top
View user's profile Send private message
pavan reddy

New User


Joined: 21 Dec 2020
Posts: 4
Location: India

PostPosted: Mon Dec 21, 2020 6:23 pm
Reply with quote

Hi Joerg,
Thanks for your response...I was able to pull the output with Include cond but i want to report that as a column in my output whether the file is in ML1 or ML2(let me know if it is possible to report inte form of a header like we report for DSN - HEADER('datasetname') on(29,44,CH)
Back to top
View user's profile Send private message
Joerg.Findeisen

Active User


Joined: 15 Aug 2015
Posts: 385
Location: Bamberg, Germany

PostPosted: Mon Dec 21, 2020 10:24 pm
Reply with quote

You need to translate the Bit value before using them as text field. You can use INREC and IFTHEN=(WHEN=(..)) and OVERLAY for that.
Code:
..n:73,1,CHANGE=(3,
                 B'10......',C'ML2',
                 B'01......',C'ML1',
                 B'00......',C'ONL')..
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Moderator


Joined: 14 Mar 2007
Posts: 10712
Location: italy

PostPosted: Mon Dec 21, 2020 10:42 pm
Reply with quote

see here for dcollect dfsort examples

www.ibm.com/support/pages/dfsortmvs-downloads
Back to top
View user's profile Send private message
pavan reddy

New User


Joined: 21 Dec 2020
Posts: 4
Location: India

PostPosted: Tue Dec 22, 2020 4:25 pm
Reply with quote

Thank you for the support.
Back to top
View user's profile Send private message
Joerg.Findeisen

Active User


Joined: 15 Aug 2015
Posts: 385
Location: Bamberg, Germany

PostPosted: Tue Dec 22, 2020 10:03 pm
Reply with quote

@Pavan: It seems you were successful, right?
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 -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts How can we simulate JOINKEYS in ICETOOL DFSORT/ICETOOL 8
No new posts Hexadecimal Group compare and write t... DFSORT/ICETOOL 5
No new posts Splice multiple records into single r... DFSORT/ICETOOL 4
No new posts Using ICETOOL set return code as per ... DFSORT/ICETOOL 4
No new posts ICETOOL Sorting and Discarding DUPS SYNCSORT 11
Search our Forums:

Back to Top