Title : IMS 3.1 TCO USERMOD TO ASSIGN SECONDARY AS DEFAULT LTERM Submitter : Doug Lawson National Westminster Bank plc IT Central Computer Services Technical Development Goodmans Fields 74 Alie Street London E1 8HL Phone : 071-480-4118 Release Submitter Details - Y Text :- If the IMS system has a secondary MTO defined then this usermod assigns that LTERM as the default output LTERM instead of the master. This is in case the MTO has signed on (with a userid) but his/her id is not authorised to issue TCO submitted transactions. As the secondary can never sign on, the transactions have the authority of the IMS control region's userid. ++USERMOD (xxxxxxx) . ++VER (P115) FMID (HMJ3102) . ++SRCUPD (DFSTDDM0). ./ CHANGE NAME=DFSTDDM0 * - DEFAULT TO SECONDARY MASTER IF NO DESTINATION FOUND * 05513000 * - OR TO PRIMARY MASTER IF NO SECONDARY DEFINED * 05513100 L R1,SCDSMTRM SECONDARY MASTER ADDRESS @xxxxxxx 05514240 LTR R1,R1 ZERO ? @xxxxxxx 05514280 BE FNDNWB1 YES - USE PRIMARY @xxxxxxx 05514320 ST R1,TCFOCNT DEFAULT TO SECONDARY MASTER @xxxxxxx 05514360 B FNDNWB2 DONT USE PRIMARY @xxxxxxx 05514400 FNDNWB1 DS 0H @xxxxxxx 05514440 FNDNWB2 DS 0H @xxxxxxx 05514600