× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Fair enough but QMNSAVE isn't easy to read either! I leave you with: :-)

QSYS/CHGVAR VAR(&DEVPATH) VALUE(&PATH1 *BCAT &PATH2 *BCAT &PATH3-
*BCAT &PATH4)
IF COND(&PROMPT *EQ 'N') THEN(DO)
QSYS/CHGVAR VAR(&SAVCMD) VALUE('*SYSTEM/SAV OBJ((''/*'') -
(''/QSYS.LIB'' *OMIT) (''/QDLS'' *OMIT)) CLEAR(' *CAT &CLEAR *CAT-
') DEV(' *CAT &DEVPATH *CAT ') UPDHST(*YES) -
ASPDEV(*SYSBAS) ENDOPT(*LEAVE) ')
ENDDO
ELSE CMD(DO)
QSYS/CHGVAR VAR(&SAVCMD) VALUE('? *NLVLIBL/SAV ??OBJ((''/*'') -
(''/QSYS.LIB'' *OMIT) (''/QDLS'' *OMIT)) ??CLEAR(' *CAT -
&CLEAR *CAT ') ?*DEV(' *CAT &DEVPATH *CAT ') ??UPDHST(*YES) -
??ASPDEV(*SYSBAS) ??ENDOPT(*LEAVE) ')
ENDDO
IF COND((&OPTDEV *EQ 'Y') *AND (&PROMPT *EQ 'Y')) THEN(DO)
QSYS/CHGVAR VAR(&SAVCMD) VALUE(&SAVCMD *BCAT 'OPTFILE(''*'')')
ENDDO
QSYS/CALL PGM(QSYS/QCMDEXC) PARM(&SAVCMD 1009)


- Larry "DrFranken" Bolhuis

www.frankeni.com
www.iDevCloud.com
www.iInTheCloud.com

On 4/3/2014 8:33 AM, Charles Wilt wrote:
Hey Doc...I think you're confusing QMNSRBND and QMNSAVE..

QMNSAVE calls QMNSRBND, QMNSRBND basically just the save entire system job
stream.

Charles


On Thu, Apr 3, 2014 at 8:14 AM, DrFranken <midrange@xxxxxxxxxxxx> wrote:

WRT QMNSRBND: YES that's the program but retrieving it will get you
vastly more code than needed for a Save 21. It contains all the options
for the save and restore menu with LOTS of conditioning and because
you're getting the source from RTVCLSRC (note the program is DBCS) you
get no comments, no indenting, and no spaces and still it's 460 lines long.

As a simpler way to see the important bits of what happens in a SAVE 21
simply GO SAVE put 21 on the command line and hit HELP. The important
commands are right there and can be copied to a source member. You must
add the DEV parm to those commands and of course any delays, MONMSG, etc.

Not saying you can't learn from the QMNSRBND program but ferreting out
which parts of that are needed for the SAVE 21 isn't 'Intuitively
obvious to the most casual observer' :-)

- Larry "DrFranken" Bolhuis

www.frankeni.com
www.iDevCloud.com
www.iInTheCloud.com

On 4/1/2014 4:51 PM, Charles Wilt wrote:

Why isn't the up to 24hr delay of GO SAVE good enough?

That automatically shuts down into restricted state.

Personally, I do a RTVCLSRC on QMNSRBND, that's where the option 21 -
Save
entire System is done.

I call it SAVESYSTEM, added some code to cleaning shut down our system
jobs
and and built a command front end for it.

You'll want to also want to remove the parm and add
CHGVAR VAR(&OPTION) VALUE('QMNSAVE')

You end up with a program that display's the save entire system screen,
and
you can specify the time to start.

Charles



On Tue, Apr 1, 2014 at 4:29 PM, John McKee <jmmckee@xxxxxxxxxxxxxx>
wrote:

Still riding system to oblivion. We >may< be losing our only
opportunity
for an attended backup every other week. I have been asked to explore
alternatives.

No money.

I read in Infocenter that GO SAVE 21 has a capability to be set up to 24
hours in the future. Not a scheduled job, just sits in DLYJOB. The
thought occurred to me of writing a CL that would be submitted to
controlling subsystem (BCTL in our case) which would end to restricted
state and perform backup. Just a little afraid of that. If something
failed, with no workstation available, how could anybody know?

I retrieved the source for the GO SAVE 21 CLP, QMNSAVE. Two parms are
passed, &DFT and &CANCEL DFT has a length of 118, but the defaults data
area has a length of 200. I am assuming that is just a quirk, as the
data
area is blank beyond 120 or so.

It looks like the CaNCEL parm is populated and sent back.

I am thinking that this retrieved source could be modified to have no
parameters. Just do RTVDTAARA and run the commands. Add an appropriate
DLYJOB at the top so it could be started from the console and it would
wait
until the appropriate time. Would need to also end the online system
before subsystems are ended. I have that code already.

Final piece is to get the media library to pull tapes as needed. I
presume
the changes to accomplish that are made through the front panel? This
is
3590 E11.

Gets a bit more confusing: We have a single 3590. yet a WRKCFGSTS *DEV
TAP* shows:

TAPMLB01 VARIED ON
TAPMLB02 VARIED OFF
TAP35 VARIED ON
TAP35OLD VARIED OFF

TAPMLB01 was created by auto config. It shows device type 3590 E11.
This
shows resource of TAP01 deallocated.

TAPMLB02 has *RSRCNAME for device type and model. No resources listed.

Can't vary on TAPMLB02 after vary off of TAP35. I am not surprised,
based
on no resoueces.

I do not know why there are two MLBs. My thought is both are
"incorrect".
Many years ago, there was a TAP01.

Ran WRKHDWRSC TYPE(*STG), TAPMLB01 is only tape library.

Was media library even set up correctly? It has never been used, as
far as
I know.

I can add config source if it will make any sense.

John McKee
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.