RE: Restoring original sign-on screen source

[Dan Taylor <dtaylor@xxxxxxxx>]

Thank you so much for your assistance.  I will try this out this week and let 
you know what happens.  Thanks again.

Dan

-----Original Message-----
From:   Sean Porterfield [SMTP:sporter@bestdist.com]
Sent:   Monday, December 11, 2000 2:34 PM
To:     MIDRANGE-L@midrange.com
Subject:        Re: Restoring original sign-on screen source

I don't know if there is a "correct" way of doing this, but in my
paranoia of wiping out other members when I had this problem, I restored
to QTEMP then copied back to the file I needed.

Assuming TAP01 is your tape drive:

RSTOBJ OBJ(QDDSSRC) SAVLIB(QGPL) DEV(TAP01) OBJTYPE(*FILE)
FILEMBR((QDDSSRC (QDSIGNON))) RSTLIB(QTEMP)

Dan Taylor wrote:
> 
> The source code for our factory/original sign-on screen was accidentally
> modified and I need to restore it from a tape backup.  What is the command
> that will let me restore member QDSIGNON in file QDDSSRC in library QGPL?
>  Note:  there are currently several other members in this file that we must
> keep.  Any assistance would be greatly appreciated.
> 
> Daniel R. Taylor
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---