diff --git a/WTOMOSHE.jcl b/WTOMOSHE.jcl
new file mode 100644
index 0000000..bb3ab0c
--- /dev/null
+++ b/WTOMOSHE.jcl
@@ -0,0 +1,45 @@
+//P53ASM   JOB  CLASS=A,NOTIFY=&SYSUID,MSGCLASS=X,MSGLEVEL=(1,0)
+//         SET  STU=&SYSUID               /* DATA SET HLQ = USERID   */
+//S0010    EXEC PROC=ASMACLG
+//C.SYSLIB DD
+//         DD   DISP=SHR,DSN=&STU..COPY.BOOKS
+//G.OUTDD    DD SYSOUT=*,RECFM=FBA,LRECL=133
+//C.SYSIN DD *
+         PRINT GEN
+TESTWTO  CSECT
+         SAVE   (14,12)
+         BASR   R12,0
+         USING  *,R12
+         ST     R13,SAVEA+4
+         LA     R13,SAVEA
+         LA     R5,23               ARBITRARY VALUE FOR R5 OF 10
+         CVD    R5,NUMDEC
+         UNPK   UNDEC,NUMDEC+1
+         MVC    WTOLIST+20(8),UNDEC  WTO MACRO EXPANDS TO 24 BYTES
+WTOLIST  WTO    'REG R5 VLUE XXXXXXXX'
+         L      R13,SAVEA+4
+         RETURN (14,12),RC=0           RETURN TO CALLER (Z/OS)
+         LTORG
+SAVEA    DS 18F
+NUMDEC   DS D
+UNDEC    DS PL4
+R0        EQU 0
+R1        EQU 1
+R2        EQU 2
+R3        EQU 3
+R4        EQU 4
+R5        EQU 5
+R6        EQU 6
+R7        EQU 7
+R8        EQU 8
+R9        EQU 9
+R10       EQU 10
+R11       EQU 11
+R12       EQU 12
+R13       EQU 13
+R14       EQU 14
+R15       EQU 15
+          END
+/*
+//SYSUDUMP DD SYSOUT=*,RECFM=FBA,LRECL=133
+//G.SYSUDUMP DD SYSOUT=*,RECFM=FBA,LRECL=133