Not rock solid yet: Beware for MINIOPT records that can follow an MDISK card. They should be joined to the corresponding MDISK statement before the sort (and split out again after the sort). And, what with comments that people often insert somewhere in between the MDISK records to tell what is on then? Note: if you've get RACF or alike and the MDISK passwords are no longer used, you can use the password fields as description, like here an extract of MAINT (collected ages ago).
* MDISK 0190 3390 287 107 VCTBKP RR ALL ZVM440 JUN2005 MDISK 029A 3390 3215 17 VCT024 RR ALL ZVM440 JAN2005 MDISK 159F 3390 3243 13 VCT021 RR RSCS320 SEP1999 MDISK 0490 3390 1 107 VCT024 RR ALL ZVM440 JAN2005 * (for crucial minidisks I let the ALL read password survive, just for the case I'd be forced to IPL without RACF) 2011/5/15 Rich Greenberg <ric...@panix.com> > On: Sun, May 15, 2011 at 08:46:57AM -0500,Alain Benveniste Wrote: > > } I try to sort the MDISK by the rdev in a direct file : > } > } /**/ > } "PIPE (ENDCHAR ?)", > } "< MAINT DIRECT A0", > } "!01: PICK W1 == /MDISK/", > } "! SORT 7.4", > } "!02: FANINANY", > } "!> A A A1", > } "?", > } "01:", > } "!02:" > } > } The work is done but can't find the way to preserve a valid coherence for > } dirmaint after all. I tried buffer, copy, elastic... > } > } the result looks like this : > } > } USER... > } . > } . > } . > } *DVHOPT > } MDISK... > > Alain, > This is working as designed. The sort doesn't output any records until > < reaches EOF and propogates the EOF down the pipe. By then, all the > non-MDISK records have reached the >. > > The way I would do it would be to write NNN0000 in cols 73-79 as the > records are input (where NNN is the record number), then for MDISK > records pick up the first NNN and for each MDISK overlay MMMrdev > in 73-79 (where MMM = first MDISK's NNN), then do a hex sort on 73-79 > after the FANINANY. > > -- > Rich Greenberg Sarasota, FL, USA richgr atsign panix.com + 1 941 378 > 2097 > Eastern time. N6LRT I speak for myself & my dogs only. VM'er since > CP-67 > Canines: Val, Red, Shasta, Zero & Casey (At the bridge) > Owner:Chinook-L > Canines: Red & Cinnar (Siberians) Retired at the beach Asst > Owner:Sibernet-L > -- Kris Buelens, IBM Belgium, VM customer support
