Re: Members ending with '0001'

["Al Barsa, Jr." <barsa2@xxxxxxx>]

At 08:20 AM 5/23/97 -0500, you wrote:
>
>
>
>
>
>Chris Ring
>05-23-97 08:20 AM
>
>Do you have a clue as to how these members with 4 digit numbers are being
>created?  Our '400 is on V3R7 and I have found several QRPGSR0001 members
>with the text of "Old name QRPGSRC in USERID owned by QPGMR."
>
If the file level identifier or member level identifier do not match, and
you specify ALWOBJDIF(*ALL) and MBROPT(*ALL), the old file/member will be
renamed with an 0001 on the end (if an 0001 already exists, then 0002 ...)
and the file will be restored.  ALWOBJDIF also allows other bad restore
conditions to be fixed (e.g.:  owner differences ...).

The purpose of this support is to get more stuff to restore properly,
however the system is unduly harsh when restoring source, where there can
be little difference except for the length of the SRCDTA field (in
practicality *).  If you have multiple systems where you want to
interchange source, it's best to restore the file object first to insure a
match.  Your condition is not so bad for small source members, but what
would happen if you tried to restore your order details file which could
presumably consume most of your disk?  This would be a bad situation.

We need to push IBM make ALWOBJDIF more granular, so that you can make some
of the other things it allows work selectively.

*       The Release 1.0 System/38 definition of a source file was ANY file where
the first field was named SRCSEQ defined as 6.2 signed, the second field
was named SRCDAT defined as 6.0 signed, and the last field was named SRCDTA
as character of any length.  You could then have ANY additional fields you
wanted!  I last tested this circa System/38 Release 4.0, and it worked!  I
haven't re tested in many years.  The SEU restriction is that the total
length of a source file record format be greater than or equal to 13 bytes,
and less than or equal to 240 bytes. 

Al Barsa, Jr. - Account for Midrange-L
Barsa Consulting, LLC.  
400 > 390

Phone:  914-251-9400
Fax:    914-251-9406





Private mail should be sent to barsa@ibm.net
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *