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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999.

ASZ2583 950622 61VTEL PS OMCSIRM V201 INCORROUT  OMCSDSIU 991208 O__-PJS
in dataset identification rules when the argument field is filled with a
quoted string.  Next selection of the rule shows the argument on an
extra line which causes an error when trying save the rule.  Bypass by
ensuring at least two blanks at the right of the field.

_PROBLEM DESCRIPTION:
In dataset identification rules, when the argument field is filled with
a quoted string.  Later selection of the rule shows the argument on an
extra line which causes an error when trying save the rule.

_PROBLEM SUMMARY:
USERS AFFECTED: IRM users

When formatting arguments for the rule display, OMCSDSIU does not
recognise that an argument which fills the panel field will fit.  It
assumes that a continuation is required and puts '+' in the argument
field and creates another line for the text.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ2583

OMCSDSIU will be modified to correctly redisplay an argument which
completely fills the the argument text field on the panel.

_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(ASEB200)
            PRE(ASP0745,ASP0808,
                ASZ2581,ASZ3068,ASZ3106,ASZ3107,ASZ3114).
++SRCUPD(OMCSDSIU).
./ CHANGE NAME=OMCSDSIU
APAR ASZ2583                                                            Z2583002
/*PRE ASP0808,ASZ2581,ASZ3068,ASZ3107,ASZ3114                           Z2583010
AUDIT ON                                                                Z2583012
F BDFRF: 1                                                              Z2583014
F 29                                                                    Z2583016
:I3                                                                     Z2583018
            IF &TEXT=                       /* IF NOTHING SO FAR...     Z2583020
               SET TEXT=&TERM(&TXT,TRUNCB)  /* ...ADD FIRST ITEM        Z2583022
               GOTO BDFRF                   /* ...AND LOOP->            Z2583024
F =+                                                                    Z2583026
:D1                                                                     Z2583028
:I1                                                                     Z2583030
            IF &SS(&TERM(&TEXT,TRUNCR),-1)<>&STR(+) /* IF NOT PRESENT...Z2583032
F BDFRG16D: 1                                                           Z2583034
F =+                                                                    Z2583036
:D2                                                                     Z2583038
:I2                                                                     Z2583040
         IF &SS(&TERM(&ACTN,TRUNCR),-1)<>&STR(+) /* IF NOT PRESENT...   Z2583042
            SET ACTN=&ACTN&STR(+)    /* APPEND THE "CONTINUED" FLAG     Z2583044
END                                                                     Z2583046
++SRCUPD(OMCSDSIR).
./ CHANGE NAME=OMCSDSIR
APAR ASZ2583                                                            Z2583005
/*PRE ASP0745,ASZ3106                                                   Z2583007
AUDIT ON                                                                Z2583009
F BDFRF: 1                                                              Z2583011
F 29                                                                    Z2583013
:I3                                                                     Z2583015
            IF &TEXT=                       /* IF NOTHING SO FAR...     Z2583017
               SET TEXT=&TERM(&TXT,TRUNCB)  /* ...ADD FIRST ITEM        Z2583019
               GOTO BDFRF                   /* ...AND LOOP->            Z2583021
END                                                                     Z2583023