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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2000.

ASZ3135 000210 61VASE PS OMCSV2  V201 INCORROUT  ASESTDPR 000210 S__-PJS
when $DUMP writes to a database file there is no allowance for ASA
carriage control.

_PROBLEM DESCRIPTION:
When the $DUMP procedure writes to a database file there is no allowance
for ASA carriage control.  Printing that file may produce unexpected
results.

_PROBLEM SUMMARY:
USERS AFFECTED: all

When $DUMP writes to a database file, it does not put a leading space on
each record.  When printed the first character of each record may be
interpreted as a carriage control character giving the wrong result.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3135

The $DUMP procedure of ASESTDPR will be modified to always insert a
leading space on records added to a database file.

_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(ASP0849).
++SRCUPD(ASESTDPR).
./ CHANGE NAME=ASESTDPR
APAR ASZ3135                                                            Z3135002
/*PRE ASP0849                                                           Z3135004
AUDIT ON                                                                Z3135006
F $DUMPF: 1                                                             Z3135008
F DBINSR                                                                Z3135010
C 'DDNM &MAP' 'DDNM  &MAP'                                              Z3135012
END                                                                     Z3135014