++USERMOD(ZP60040)   REWORK(20230509)                      .
++VER(Z038) FMID(EBB1102)
  PRE(UY13810) .
++IF FMID(FBB1221) REQ(ZP60039)
 /*                              ADD TEXT= TO WTO AND WTOR.
   PROBLEM DESCRIPTION:
     MESSAGE TEXT SUPPLIED TO THE WTO AND WTOR MACROS MUST BE INLINE.
       APPLICATIONS ISSUING WTO MESSAGES CANNOT SPECIFY DISPLAY
       TEXT WHICH IS REMOTE, THAT IS, NOT PHYSICALLY LOCATED
       WITHIN THE WTO OR WTOR PARAMETER LIST.

       THIS SYSMOD ENHANCES WTP (WRITE TO PROGRAMMER) TO SUPPORT
       THE EXTENDED WTO PARAMETER LIST (XWPL), AND CHANGES THE
       WTOR MACRO TO ACCEPT THE TEXT= OPERAND AND BUILD A WPL
       OR XWPL AS REQUIRED.

   SPECIAL CONDITIONS:
     ACTION:
       A "CLPA" MUST BE PERFORMED AT IPL TIME FOR THIS SYSMOD TO
       BECOME ACTIVE.

   COMMENTS:
     PRYCROFT SIX P/L PUBLIC DOMAIN USERMOD FOR MVS 3.8 NUMBER 40.

     REWORK HISTORY:
       2018-08-20: INITIAL AVAILABILITY.
       2019-04-22: FIX TPUT OF WTP IN IGC0203E.
       2020-08-18: SILENTLY TRUNCATE EXCESSIVELY LONG TEXT.
       2022-03-08: REMOVE A BLANK LINE FROM THE WTOR MACRO.
       2023-05-09: MOVE LABEL .MFE6C UP 1 LINE TO UNLABELLED ANOP.

     THIS IS SYSMOD NUMBER 2 OF 2 IN A PACKAGE TO SUPPORT TEXT= ON
     WTO AND WTOR MACROS DEVELOPED BY TOM ARMSTRONG.  BOTH SYSMODS
     SHOULD BE ACTIVATED IN THE SAME IPL.  THE SYSMOD DETAILS ARE:
      +---------+---------+------+----------+-----------------------+
      I USERMOD I FMID    I COMP I PART     I DESCRIPTION           I
      +---------+---------+------+----------+-----------------------+
      I ZP60039 I FBB1221 I SU64 I IEAVMWTO I MLWTO SERVICE ROUTINE I
      I         I         I      I IEAVVWTO I WTO/WTOR PROCESSOR    I
      I         I         I      I IEZWPL   I WTO PARAMETER LIST    I
      I         I         I      I WTO      I INVOKE WTO SERVICE    I
      +---------+---------+------+----------+-----------------------+
      I ZP60040 I EBB1102 I BCP  I IGC0203E I WRITE TO PROGRAMMER   I
      I         I         I      I WTOR     I INVOKE WTOR SERVICE   I
      +---------+---------+------+----------+-----------------------+

     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
     MODULES:
       IGC0203E
     MACROS:
       WTOR
 */.