Chapter 11. Exits 257
         lr    r1,r13                                                   02270000
         l     r2,4(r13)                                                02280002
         storage RELEASE,length=workl,addr=(r1)                         02290003
         lr    r13,r2                                                   02300002
         drop  r13                                                      02310000
                                                                        02320000
bagit    ds    0h                                                       02330000
         lm    14,12,12(r13)                                            02340001
         br    r14                                                      02350000
psize    equ   ((*-ARSLOG+99)/100)*5                                    02360000
         dc    C'PATCH AREA - ARSLOG &sysdate'                          02370000
pspace   dc    25s(*)                                                   02380000
         org   pspace                                                   02390000
         dc    ((psize+1)/2)s(*)                                        02400000
                                                                        02410000
                                                                        02420000
mvcins   mvc   0(0,r14),0(r15)                                          02430000
                                                                        02450000
wto1     wto   text=,                                                  +02460000
               desc=(6),                                               +02470000
               mcsflag=(BUSYEXIT),                                     +02480000
               routcde=(11),                                           +02490000
               mf=L                                                     02500000
wto1l    equ   *-wto1                                                   02510000
         ltorg                                                          02520005
                                                                        02530005
workarea dsect                                                          02870000
rsa      ds    18f                                                      02880000
wtoe     ds    cl(wto1l)                                                02890006
msgtxt   ds    cl(72)                                                   02900005
workl    equ   *-workarea                                               02910000
                                                                        02920000
plist    dsect                                                          02930000
instance ds    a                                                        02940005
tstamp   ds    a                                                        02950005
logrec   ds    a                                                        02960005
userid   ds    a                                                        02970005
acct     ds    a                                                        02980005
sev      ds    a                                                        02990005
msgnum   ds    a                                                        03000005
msgtxta  ds    a                                                        03010005
                                                                        03020005
         yregs ,                                                        03030007
         iezwpl                                                         03040005
         end   ,                                                        03050005
When the exit routine is assembled and link-edited to a library, it must be associated with the 
exit in one of two ways:
/SM590000Use the exit statement in the PROGXX parmlib member. For more information about the 
PROGXX parmlib member, see z/OS MVS Initialization and Tuning Reference, 
SA22-7592.