tpl 1.16 module Mainframe.Examples;metadata origin := "ONLINE_DOCS";end metadata;from SupportingFiles.Mainframe.Support import MainframeModel 3.0;pattern Mainframe_TapeDrive 1.0 overview tags IBM, TapeDrive; end overview; constants filter := ""; end constants; triggers on result_list := DiscoveredMainframeViewResultList where discovery_method = "getTapeDrive"; end triggers; body MainframeModel.createTapeStorage(result_list, filter); end body;end pattern;pattern Mainframe_DASD 1.0 overview tags IBM, DASD; end overview; constants filter := "^AL"; end constants; triggers on result_list := DiscoveredMainframeViewResultList where discovery_method = "getDiskDrive"; end triggers; body MainframeModel.createDiskStorage(result_list, filter); end body;end pattern;pattern Mainframe_Transaction 1.0 overview tags IBM, Transaction; end overview;  constants filter := "^CICSTRAN-C"; create_programs := false; end constants; triggers on result_list := DiscoveredMainframeViewResultList where discovery_method in ["getCICSTransaction", ]; end triggers; body MainframeModel.createTransactions(result_list, filter, create_programs); end body;end pattern;pattern Mainframe_MQ 1.0 overview tags IBM, MQ; end overview; constants filter := "^MQCHNL-"; end constants; triggers on result_list := DiscoveredMainframeViewResultList where discovery_method in ["getMQQueue",  "getMQChannel",  "getMQListener"]; end triggers; body MainframeModel.createMQDetails(result_list, filter); end body;end pattern;