Title : IMS 3.1 TCO USERMOD TO ENHANCE MSGDFS3343

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

This usermod enhances message DFS3343 to include the name of the TCO
script which is not found.

++USERMOD (xxxxxxx) REWORK(1991253).
++VER (P115) FMID (HMJ3102) PRE(UL92584).
++SRCUPD (DFSTDDM0).
./ CHANGE NAME=DFSTDDM0
         BCTR  R4,0                       DECREMENT FOR EX     @IBM0001 05524830
         EX    R4,MVNAME                  MOVE NAME TO DFS3343 @IBM0001 05524860
         OC    NAME-MSG3343(8,R1),SPACES  NAME TO UPPER CASE   @IBM0001 05524870
MVNAME   MVC   NAME-MSG3343(0,R1),0(R8)   MOVE NAME TO DFS3343 @IBM0001 05524960
               (CODE,CL2' '),(C'; MEMBER='),(NAME,CL8' '))     @IBM0001 05766400


<END>