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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2000.

ASZ3169 000718 61VLLC MB OMCSIRM P860 INCORROUT  OMCSIRAR 000724 O__-PJS
on AR panel, dataset name is a required field but should be optional.

_PROBLEM DESCRIPTION:
In IRM option AR, the user is forced to enter a value in the dataset
name field when generating a report online.

_PROBLEM SUMMARY:
USERS AFFECTED: users of IRM option AR

A value for dataset name was forced even when it was not required, ie.
when the batch option was set to N.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3169

OMCSIRAR will be modified to allow the dataset name to be blank.  When
batch option 'N' is selected and the dataset name is blank, reports
will be written to sysout.

_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(ASP0860).
++SRCUPD(OMCSIRAR).
./ CHANGE NAME=OMCSIRAR
APAR ASZ3169                                                            Z3169002
/*PRE ASP0860                                                           Z3169004
AUDIT ON                                                                Z3169006
F ONLID: 1                                                              Z3169008
F 'IF &PCMD'                                                            Z3169010
:D2                                                                     Z3169012
:I1  /*--1----+----2----+----3----+----4----+----5                      Z3169014
         IF &PCMD=(CAN,CANCEL)                                          Z3169016
F ONLIE: 1                                                              Z3169018
F $VERIFY                                                               Z3169020
C DSNAME '((BLANK,DSNAME))'                                             Z3169022
F 'GOTO ONLID'                                                          Z3169024
DO 1                                                                    Z3169026
:I6  /*--1----+----2----+----3----+----4----+----5                      Z3169028
                                                                        Z3169030
         IF &PCMD=END                                                   Z3169032
            PROF PUT                                                    Z3169034
            CLEANUP RAM &@MF                                            Z3169036
            DELETE PROGRAM ASESTDPR                                     Z3169038
            RETURN RETC=0                                               Z3169040
END                                                                     Z3169042