home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / crtpass.lzh / CRTPASS.CLP next >
Text File  |  1988-12-28  |  5KB  |  103 lines
  1.  CRTPASTHR:  PGM        PARM(&RMTID &RMTLOC &LCLLOC &DEV &CTL &LIND +
  2.                           &RESOURCE &LINESPEED &AUTODIAL &PHONE +
  3.                           &EXCHID &STNADR &NBRDEV &VDEV &VCTL)
  4.              DCL        &RMTID     *CHAR 08
  5.              DCL        &RMTLOC    *CHAR 08
  6.              DCL        &LCLLOC    *CHAR 08
  7.              DCL        &NBRDEV    *DEC  02
  8.              DCL        &VDEV      *CHAR 10
  9.              DCL        &VCTL      *CHAR 10
  10.              DCL        &DEV       *CHAR 10
  11.              DCL        &CTL       *CHAR 10
  12.              DCL        &LIND      *CHAR 10
  13.              DCL        &RESOURCE  *CHAR 10
  14.              DCL        &LINESPEED *CHAR 05
  15.              DCL        &AUTODIAL  *CHAR 04
  16.              DCL        &PHONE     *CHAR 22
  17.              DCL        &EXCHID    *CHAR 08
  18.              DCL        &STNADR    *CHAR 02
  19.  
  20.              DCL        &COUNT     *DEC  02
  21.              DCL        &CNT       *CHAR 02
  22.  
  23.              MONMSG     MSGID(CPF0000)
  24.  
  25.              IF (&VCTL *EQ '*RMTID') CHGVAR VAR(&VCTL) VALUE(&RMTID)
  26.              ELSE  IF (&VCTL *EQ '*SYSNAM') RTVNETA SYSNAME(&VCTL)
  27.              ELSE  IF (&VCTL *EQ '*LCLLOCNAM')  +
  28.                            RTVNETA LCLLOCNAME(&VCTL)
  29.  
  30.              IF (&DEV  *EQ '*RMTID') CHGVAR VAR(&DEV) VALUE(&RMTID)
  31.  
  32.              IF (&CTL  *EQ '*RMTID') CHGVAR VAR(&CTL) VALUE(&RMTID)
  33.              ELSE  IF  (&CTL *EQ '*SYSNAM') RTVNETA SYSNAME(&CTL)
  34.              ELSE  IF  (&CTL *EQ '*LCLLOCNAM')  +
  35.                           RTVNETA  LCLLOCNAME(&CTL)
  36.  
  37.              IF    (&LIND *EQ '*RMTID') CHGVAR VAR(&LIND) VALUE(&RMTID)
  38.  
  39.              IF         (&RMTLOC *EQ '*SYSNAM') +
  40.                            RTVNETA SYSNAME(&RMTLOC)
  41.              ELSE       IF  (&RMTLOC *EQ '*LCLLOCNAM') +
  42.                            RTVNETA LCLLOCNAME(&RMTLOC)
  43.              ELSE       IF  (&RMTLOC *EQ '*RMTID') +
  44.                            CHGVAR VAR(&RMTLOC) VALUE(&RMTID)
  45.  
  46.              IF         (&LCLLOC *EQ '*SYSNAM') +
  47.                            RTVNETA SYSNAME(&LCLLOC)
  48.              ELSE       IF  (&LCLLOC *EQ '*LCLLOCNAM') +
  49.                            RTVNETA LCLLOCNAME(&LCLLOC)
  50.              ELSE       IF  (&LCLLOC *EQ '*RMTID') +
  51.                            CHGVAR VAR(&LCLLOC) VALUE(&RMTID)
  52.  
  53.              IF         (&NBRDEV *GT 0) DO
  54.              CRTCTLVWS  CTLD(&VCTL) TEXT('Virtual controller for +
  55.                           display station passthru')
  56.  
  57.              IF         (&NBRDEV *GT &COUNT) DO
  58.              CHGVAR     VAR(&COUNT) VALUE(&COUNT + 1)
  59.              CHGVAR     VAR(&CNT)   VALUE(&COUNT)
  60.              CRTDEVDSP  DEVD(&VDEV *TCAT &CNT) DEVCLS(*VRT) +
  61.                           TYPE(5251) MODEL(11) CTL(&VCTL) +
  62.                           KBDTYPE(USB) TEXT('Virtual 5251 11 passthru +
  63.                           display station')
  64.              ENDDO
  65.  
  66.              IF         (&NBRDEV *GT &COUNT) DO
  67.              CHGVAR     VAR(&COUNT) VALUE(&COUNT + 1)
  68.              CHGVAR     VAR(&CNT)   VALUE(&COUNT)
  69.              CRTDEVDSP  DEVD(&VDEV *TCAT &CNT) DEVCLS(*VRT) +
  70.                           TYPE(3197) MODEL(D1) CTL(&VCTL) +
  71.                           KBDTYPE(USB) TEXT('Virtual 3197 D1 passthru +
  72.                           display station')
  73.              ENDDO
  74.  
  75.              IF         (&NBRDEV *GT &COUNT) DO
  76.              CHGVAR     VAR(&COUNT) VALUE(&COUNT + 1)
  77.              CHGVAR     VAR(&CNT)   VALUE(&COUNT)
  78.              CRTDEVDSP  DEVD(&VDEV *TCAT &CNT) DEVCLS(*VRT) +
  79.                           TYPE(3180) MODEL(2) CTL(&VCTL) KBDTYPE(USB) +
  80.                           TEXT('Virtual 3180 02 passthru display +
  81.                           station')
  82.              ENDDO
  83.              ENDDO
  84.  
  85.              CRTLINSDLC LIND(&LIND) RSRCNAME(&RESOURCE) +
  86.                           CNN(*SWTPP) EXCHID(&EXCHID) NRZI(*NO) +
  87.                           LINESPEED(&LINESPEED) AUTODIAL(&AUTODIAL) +
  88.                           DIALCMD(*V25BIS) STNADR(01) TEXT('SDLC Line +
  89.                           Description used for passthru')
  90.  
  91.              CRTCTLAPPC CTLD(&CTL) LINKTYPE(*SDLC) SWITCHED(*YES) +
  92.                           APPN(*NO) SWTLINLST(&LIND) EXCHID(&EXCHID) +
  93.                           CNNNBR(&PHONE) STNADR(&STNADR)
  94.  
  95.              CRTDEVAPPC DEVD(&DEV) RMTLOCNAME(&RMTID) +
  96.                           LCLLOCNAME(&LCLLOC) CTL(&CTL) MODE(BLANK +
  97.                           #BATCH) APPN(*NO) TEXT('Passthru device for +
  98.                           ' *CAT &RMTID)
  99.  
  100.  MSGFWD:     CALL       PGM(MSGFWD)   /* If MSGFWD not found, EXIT */
  101.              MONMSG     MSGID(CPF0000)
  102.  ENDPGM:     ENDPGM
  103.