++APAR(ASZ3065). /*-----------------------------------------------------

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999.

ASZ3065 990318 61VASE PS OMCSIRM V201 MSGDAIO63I OMCSIRVM 990421 O__-PJS
when updating USERVIEW file, adding more report masks may fail with
message DAIO63I.
(ASEC250 - see ASZ3072 for ASEC200)

_PROBLEM DESCRIPTION:
when updating USERVIEW file, adding more report masks may fail with
message DAIO63I.
DAIO63I RECORD TOO LONG - LENGTH 05861 MAX 04082
DAIO64I DFMP: PETER   USERVIEW DFCB: PETER   USERVIEW

_PROBLEM SUMMARY:
USERS AFFECTED: IRM users

Trailing blanks are not removed from the report mask which reduces
the number of report masks that can be saved in a USERVIEW record.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3065

OMCSIRVM will be modified to truncate trailing blanks from report masks
before attempting to replace USERVIEW records.

_SMP/E SITES PLEASE NOTE:

1. If you have PTF ASP0699 installed on your system, you may apply two
   or more source update APAR fixes to the same source module
   simultaneously.  If you do not have PTF ASP0699 installed, do NOT
   attempt to apply two or more source update APAR fixes to the same
   source module simultaneously - you will get incorrect results.

_NON-SMP/E SITES PLEASE NOTE:

1. Apply this fix using the ASMPMAIN program.  Refer to ASE Technical
   Bulletin TB90-0014 for sample JCL for running this program or see
   the .ASESAMP member called RUNASMP.

2. This fix contains ++SRCUPD statements.  After applying the fix you
   must recompile the ECL programs named in ++SRCUPD statements to
   create new load modules from them.  For sample JCL see the .ASESAMP
   member called RUNECLC which was distributed on PUT9112.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE.

       */
++VER(Z038) FMID(ASEC200) PRE(ASP0372).
++SRCUPD(OMCSIRVM).
./ CHANGE NAME=OMCSIRVM
APAR ASZ3065                                                            Z3065002
/*PRE ASP0372                                                           Z3065004
AUDIT ON                                                                Z3065006
F RLOOP: 1                                                              Z3065008
F &USRVMARG                                                             Z3065010
C &USRVMARG '&TERM(&USRVMARG,TRUNCB)'                                   Z3065012
END                                                                     Z3065014