HP3000-L Archives

September 1999, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Schleicher, Randy (Windsor HQ)" <[log in to unmask]>
Reply To:
Schleicher, Randy (Windsor HQ)
Date:
Tue, 21 Sep 1999 10:34:08 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (102 lines)
> Here's a little CI command file we wrote in order to do Reflections file
> transfers using PCLINK2.  Maybe your command files can call this.  If not
> it will at least help you in initiating a file transfer without creating
> another level of CI.  The ^[ should be replace by the escape character in
> order to work.  I just changed it for display purposes.
>
> ECHO ^[U^[J
> ECHO HP3000 File Transfer Facilitator  Ver RJS_960823
> ECHO ================================================
> ECHO
> SETVAR ACTION " "
> WHILE ACTION <> "X"
>    SETVAR A " "
>    INPUT ACTION;PROMPT="(S)end or (R)eceive ? ===> "
>    IF ACTION = "R" OR ACTION = "r"
>       SETVAR TO_FROM "FROM"
>       SETVAR ACTION "RECEIVE"
>    ELSE
>       IF ACTION = "S" OR ACTION = "s"
>          SETVAR TO_FROM "TO"
>          SETVAR ACTION "SEND"
>       ELSE
>          SETVAR ACTION "X"
>       ENDIF
>    ENDIF
>    IF ACTION <> "X"
>       ECHO
>       INPUT ASCII_BIN ;PROMPT="(A)scii or (B)inary   ===> "
>       IF ASCII_BIN = "A" OR ASCII_BIN = "a"
>          SETVAR ASCII_BIN "ASCII"
>       ELSE
>          SETVAR ASCII_BIN "BINARY"
>       ENDIF
>       ECHO
>       INPUT LOCAL ;PROMPT="Enter local file name ===> "
>       ECHO
>       INPUT HOST  ;PROMPT="Enter host file name  ===> "
>       ECHO
>       ECHO ^[&oC!ACTION !LOCAL !TO_FROM !HOST PURGE !ASCII_BIN
>       PCLINK2.PUB.SYS
>       INPUT A
>       ECHO ^[A^[A
>       IF A = "S"
>          ECHO Successful File Transfer
>       ELSE
>          ECHO File Transfer Failed
>       ENDIF
>       ECHO
>    ENDIF
> ENDWHILE
> DELETEVAR ACTION       > $NULL
> DELETEVAR ASCII_BIN    > $NULL
> DELETEVAR LOCAL        > $NULL
> DELETEVAR HOST         > $NULL
> DELETEVAR TO_FROM      > $NULL
> DELETEVAR A            > $NULL
>
> ----------
> From:         Michael Anderson[SMTP:[log in to unmask]]
> Sent:         Tuesday, September 21, 1999 10:11 AM
> To:   [log in to unmask]
> Subject:      CI.PUB.SYS;PARM=?
>
> I have put together a set of menus using M.P.E.'s CI scripting, and they
> execute
> other command files. I do not want the users to have access to the CI
> prompt
> so these menus are executed from a NOBREAK LOGON UDC.
>
> My question or problem is that some of the command files will
> programmatically execute a Reflection/Minisoft file transfer, and
> that requires direct access to the M.P.E. CI prompt. So I decided to
> start a CI.PUB.SYS son process to execute the file transfer.
> I use ;PARM=-2 when starting the CI.PUB.SYS process to suppress
> the welcome msg, execute the transfer, and then terminate, returning
> control back to the original command file.
>
> This all works great, if you happen to have SM capability, because
> to start CI.PUB.SYS;parm=-2 requires SM capability, so how
> I'm I going to make this work for the ordinary user?
>
> I have considered:
>
> RUN GOD/mylockword
> RUN CI.PUB.SYS;PARM=-2;INFO="MYCOMMAND"
> RUN MORTAL
>
> But maybe someone on the list knows of a better way.
>
> All suggestions will be appreciated.
>
> Thanks,
>
>
> _________________________________
> Michael Anderson
> Student Services Programmer/Analyst
> Spring Independent School District, Houston, Texas, 77090
> 281.586.1105
>
>

ATOM RSS1 RSS2