|
midrange.com
Wayne,
For a fairly generic setup try my Q&D command/CL.
Regards,
Jerry Jewel
Better living through fine code and hot coffee!
Command prompt and source follows...
----------------------------------------------------
Make SNADS (MAKSNADS)
Type choices, press Enter.
To site . . . . . . . . . . . . SITE Name
Remote location name . . . . . . RMTLOCNAM *SITE Name, *SITE
Text . . . . . . . . . . . . . . TEXT *SITE
----------------------------------------------------
/********************************************************************/
/* Command: MAKSNADS Programmer: JEWEL Written: Jun 1998 */
/* */
/* Description: Make SNADS. The CPP is MAKSNADS. */
/* */
/* Modifications: */
/* When Who What */
/* *NONE */
/********************************************************************/
CMD PROMPT('Make SNADS')
PARM KWD(SITE) TYPE(*NAME) LEN(8) MIN(1) +
PROMPT('To site')
PARM KWD(RMTLOCNAM) TYPE(*NAME) LEN(10) +
DFT(*SITE) SPCVAL((*SITE)) PROMPT('Remote +
location name')
PARM KWD(TEXT) TYPE(*CHAR) LEN(50) DFT(*SITE) +
SPCVAL((*SITE)) PROMPT('Text')
----------------------------------------------------
/********************************************************************/
/* Program: MAKSNADS Programmer: JEWEL Written: Jun 1998 */
/* */
/* Description: Make SNADS. CPP for MAKSNADS. */
/* */
/* Modifications: */
/* When Who What */
/* *NONE */
/********************************************************************/
/* SETUP SNADS ENTRIES */
PGM PARM(&SITE &RLN &TEXT)
DCL VAR(&SITE) TYPE(*CHAR) LEN(8)
DCL VAR(&RLN) TYPE(*CHAR) LEN(10)
DCL VAR(&TEXT) TYPE(*CHAR) LEN(50)
MONMSG MSGID(CPF0000)
/* Parm manipulation */
IF COND(&RLN *EQ '*SITE') THEN(CHGVAR VAR(&RLN) +
VALUE(&SITE))
IF COND(&TEXT *EQ '*SITE') THEN(CHGVAR +
VAR(&TEXT) VALUE(&SITE))
/* Create new definitions */
ADDDSTQ DSTQ(&SITE) RMTLOCNAME(&RLN)
ADDDSTRTE SYSNAME(&SITE) FAST(&SITE) STATUS(&SITE) +
DATAHIGH(&SITE) DATALOW(&SITE) TEXT(&TEXT)
ADDDIRE USRID(*ANY &SITE) USRD(&TEXT) SYSNAME(&SITE)
ENDPGM
----------------------------------------------------
> -----Original Message-----
> From: Wayne Capwell [SMTP:wayne@redoaktech.com]
> Sent: Thursday, April 06, 2000 8:50 AM
> To: midrange
> Subject: SNADS setup
>
...... SNADS is not set up on either machine and its been way too
long for me
> to remember how. ...
>
+---
| 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
+---
As an Amazon Associate we earn from qualifying purchases.
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.
