× 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...my box is in the room down the hall...but we do have a LAN
console, so RDPing in from home isn't a big deal.

And one addition to my CLP is
/* Start Messenger Plus Restricted State Paging */
MPLUS/STRRSMP TOPGR(CRITICAL) MSGQ(QSYSOPR)

:)

Charles


On Thu, Apr 3, 2014 at 1:48 PM, DrFranken <midrange@xxxxxxxxxxxx> wrote:

Not Me (but then you just said "To each his own!)

I prefer to code it so that it can be submitted either to a console
monitor job or as a batch job in QCTL. I rarely see the servers I am
working on these days!

- Larry "DrFranken" Bolhuis

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

On 4/3/2014 9:05 AM, Charles Wilt wrote:
*This message was transferred with a trial version of CommuniGate(r) Pro*
No need to understand every line...just the general flow.

And realize that the key points are DLYJOB, ENDSBS and STRSBS. Those are
easy enough to find. Looking around after finding ENDSBS and you'll see
ENDTCPSVR, ENDHOSTSVR, and ENDTCP..

Each to his own...but I like having my SAVESYSTEM come up with the save
menu option 21 screen so I can change the time or the device or any of
teh
other IBM provided options.

Charles


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

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


--
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 ...

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.