home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / crtpass.lzh / CRTPASS.CMD < prev    next >
OS/2 REXX Batch file  |  1988-12-28  |  3KB  |  50 lines
  1.  CRTPASTHR:  CMD        PROMPT('Create Passthru Session')
  2.  
  3.              /*         Command processing program is CRTPASTHR */
  4.  
  5.              PARM       KWD(RMTID) TYPE(*NAME) LEN(08) MIN(1) +
  6.                           EXPR(*YES) PROMPT('Remote system ID (name)')
  7.              PARM       KWD(RMTLOC) TYPE(*NAME) LEN(08) DFT(*RMTID) +
  8.                           SPCVAL((*RMTID)) EXPR(*YES) +
  9.                           PROMPT('Remote location name')
  10.              PARM       KWD(LCLLOC) TYPE(*NAME) LEN(08) DFT(*NETATR) +
  11.                           SPCVAL((*NETATR) (*RMTID) (*SYSNAM)) +
  12.                           EXPR(*YES) PROMPT('Local location name')
  13.              PARM       KWD(DEVD) TYPE(*NAME) LEN(10) DFT(*RMTID) +
  14.                           SPCVAL((*RMTID)) EXPR(*YES) PROMPT('Device +
  15.                           name')
  16.              PARM       KWD(CTLD) TYPE(*NAME) DFT(*RMTID) +
  17.                           SPCVAL((*LCLLOCNAM) (*SYSNAM) (*RMTID)) +
  18.                           EXPR(*YES) PROMPT('Local control unit name')
  19.              PARM       KWD(LIND) TYPE(*NAME) DFT(*RMTID) +
  20.                           SPCVAL((*RMTID)) EXPR(*YES) PROMPT('Line +
  21.                           description to create')
  22.              PARM       KWD(RESOURCE) TYPE(*NAME) DFT(LIN011) +
  23.                           SPCVAL((LIN011) (LIN021)) EXPR(*YES) +
  24.                           PROMPT('Line resource name')
  25.              PARM       KWD(LINESPEED) TYPE(*CHAR) LEN(05) RSTD(*YES) +
  26.                           DFT(2400) VALUES(600 1200 2400 4800 7200 +
  27.                           9600 14400 19200 48000 56000 57600 64000) +
  28.                           PROMPT('Line speed')
  29.              PARM       KWD(AUTODIAL) TYPE(*CHAR) LEN(04) RSTD(*YES) +
  30.                           DFT(*YES) VALUES(*YES *NO) EXPR(*YES) +
  31.                           PROMPT('Automatically dial the phone')
  32.              PARM       KWD(PHONE) TYPE(*CHAR) LEN(22) PROMPT('Phone +
  33.                           number to dial')
  34.              PARM       KWD(EXCHID) TYPE(*CHAR) LEN(08) DFT(05600000) +
  35.                           SPCVAL((*SYSGEN)) FULL(*YES) +
  36.                           PROMPT('Exchange ID')
  37.              PARM       KWD(STNADR) TYPE(*CHAR) LEN(02) DFT(01) +
  38.                           FULL(*YES) PROMPT('Station Address')
  39.              PARM       KWD(NBRDEV) TYPE(*DEC) LEN(2) RSTD(*YES) +
  40.                           DFT(*NONE) SPCVAL((*NONE 0) (1) (2) +
  41.                           (3)) PROMPT('Number of virtual devices')
  42.              PARM       KWD(VDEVD) TYPE(*NAME) LEN(10) DFT(VDSP) +
  43.                           SPCVAL((VDSP)) EXPR(*YES) PMTCTL(VRTDEV) +
  44.                           PROMPT('Virtual device prefix')
  45.              PARM       KWD(VCTLD) TYPE(*NAME) DFT(*LCLLOCNAM) +
  46.                           SPCVAL((*LCLLOCNAM) (*SYSNAM)) EXPR(*YES) +
  47.                           PMTCTL(VRTDEV) PROMPT('Virtual control unit')
  48.              DEP        CTL(*ALWAYS) PARM((&VCTLD *NE &CTLD))
  49.  VRTDEV:     PMTCTL     CTL(NBRDEV) COND((*GT 0))
  50.