RE: Question on varying off things.

["Rubino, Jim" <Jim.Rubino@xxxxxxxx>]

In the example previously sent (see below), I failed to mention that you
would need to change the names (LINE01, LINE02 and CTLNAM) to be the names
of your line(s) and Control.

Yes Mike you can create one or two CL's one to do what you are asking:
Here is an example using two CL's:
VARYFIRST:  PGM       
            VRYCFG     CFGOBJ(LINE01) CFGTYPE(*LIN) STATUS(*OFF)
            VRYCFG     CFGOBJ(LINE02) CFGTYPE(*LIN) STATUS(*ON )

            VRYCFG     CFGOBJ(CTLNAM) CFGTYPE(*CTL) STATUS(*ON)
                RCLRSC
                ENDPGM

VARYBACK:  PGM       
            VRYCFG     CFGOBJ(LINE01) CFGTYPE(*LIN) STATUS(*ON )
            VRYCFG     CFGOBJ(LINE02) CFGTYPE(*LIN) STATUS(*OFF)

            VRYCFG     CFGOBJ(CTLNAM) CFGTYPE(*CTL) STATUS(*OFF)
                RCLRSC
                ENDPGM


You could also create one CL passing in a parm telling the CL which one you
are going to do:

VARYOFFON:  PGM        PARM(&WHICH)

            DCL        VAR(&WHICH) TYPE(*CHAR) LEN( 5)  /* WHICH ONE TO DO
*/

/* VARY OFF AND ON FOR THE FIRST TIME
*/
            IF         COND(&WHICH *EQ 'FIRST') THEN(DO)
            VRYCFG     CFGOBJ(LINE01) CFGTYPE(*LIN) STATUS(*OFF)
            VRYCFG     CFGOBJ(LINE02) CFGTYPE(*LIN) STATUS(*ON )

            VRYCFG     CFGOBJ(CTLNAM) CFGTYPE(*CTL) STATUS(*ON)
            GOTO       CMDLBL(EOJ)
            ENDDO

/* VARY OFF AND ON GOING BACK
*/
            IF         COND(&WHICH *EQ 'BACK ') THEN(DO)
            VRYCFG     CFGOBJ(LINE01) CFGTYPE(*LIN) STATUS(*OFF)
            VRYCFG     CFGOBJ(LINE02) CFGTYPE(*LIN) STATUS(*ON )

            VRYCFG     CFGOBJ(CTLNAM) CFGTYPE(*CTL) STATUS(*ON)
            GOTO       CMDLBL(EOJ)
            ENDDO

EOJ:        RCLRSC
            ENDPGM
        
Then just do a CALL VARYOFFON PARM('FIRST') to do it the first time.
Then just do a CALL VARYOFFON PARM('BACK ') to set it back.

Jim Rubino
Senior Business Systems Analyst
FIKE CORPORATION
704 South 10th Street
Blue Springs, Mo.? 64013
(816)?229-6216? Ext. 213
?

-----Original Message-----
From: Wills, Mike N. (TC) [mailto:MNWills@xxxxxxxxxxxxxx]
Sent: Wednesday, March 05, 2003 11:36 AM
To: Midrange - Midrange-L (E-mail)
Subject: Question on varying off things.


Once in a while we have to disable one *LIN device and enable a different
one. Currently I do:

WRKCFGSTS *LIN 
then disable and enable the items I need.
then 
WRKCFGSTS *CTL 
to enable one more thing.

Then I have to do the opposite when I am done. Is there I way I can do this
in a CL? What command would I use?

Mike Wills
iSeries Programmer
Taylor Corporation
mnwills@xxxxxxxxxxxxxx
(507) 386-3187
Fax: (507) 625-3002

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