Ron,

I don't know what you tried, but from my OpenVMS Alpha V7.2-1 system, I was 
able to FTP apl.v30 and read it just fine.  Yes, it has VFC record format.  I 
don't know why.  Maybe that is an APL thing.  But, I can EDIT/EDT/READ the file 
just fine.

You did not fully explain what you tried.  I see an od command.  That leads me 
to believe you did not do the FTP from an OpenVMS system.  Non-OpenVMS systems 
will have trouble with RMS VFC format files.

We use MultiNet.  I see that EISNET.DECUS.ORG <http://eisnet.decus.org/> does 
as well.  The MultiNet FTP client handles RMS file attributes for transfers 
to/from a MultiNet FTP server.  I do not know if the DEC FTP client has similar 
features.  You did not say which FTP client you used.  If you are using an FTP 
client that does not handle RMS file attributes, you should transfer all files 
in BINARY or IMAGE mode, then use the DCL SET FILE /ATTRIBUTES command to 
change each file's attributes to what it was supposed to have on OpenVMS.  That 
will be a chore.

Below is a transcript of the commands I used on my OpenVMS system to fetch 
apl.v30 with FTP.

Larry Baker
US Geological Survey
650-329-5608
ba...@usgs.gov


BAKER SAMOA> ftp eisner.decus.org
samoa.wr.usgs.gov MultiNet FTP user process V4.4(119)
Connection opened (Assuming 8-bit connections)
<Eisner.Encompasserve.org MultiNet FTP Server Process V5.5(17) at Thu 
4-Apr-2019 7:23PM-EDT
Username: anonymous
<anonymous user ok. Send real ident as password.
Password: 
<
<  File Transfer Protocol guest users may examine and copy only files
<  in the area /anon/public.  Report problems to f...@encompasserve.org.
<
<
<  This repository is under construction.
<  Send questions to f...@encompasserve.org.
<
<Guest User ba...@usgs.gov logged into /anon/public at Thu 4-Apr-2019 
7:23PM-EDT, job 9225.
<Directory and access restrictions apply

EISNER.DECUS.ORG>ls

EISNER.DECUS.ORG>cd decus

EISNER.DECUS.ORG>cd vms

EISNER.DECUS.ORG>ls

EISNER.DECUS.ORG>cd library

EISNER.DECUS.ORG>ls

EISNER.DECUS.ORG>cd v00031

EISNER.DECUS.ORG>ls

EISNER.DECUS.ORG>get apl.v30
  To local file: 
<VMS retrieve of /anon/public/decus/vms/library/v00031/apl.v30 (254688 bytes) 
started.
<Transfer completed.  254288 (8) bytes transferred.

EISNER.DECUS.ORG>quit
<QUIT command received. Goodbye.

BAKER SAMOA> dir /fu apl.v30

Directory PUB:[BAKER.DECUS.V00031]

APL.V30;1                     File ID:  (21669,14,0)          
Size:          497/552        Owner:    [BAKER]
Created:    4-APR-2019 15:13:22.44
Revised:    4-APR-2019 15:13:23.01 (1)
Expires:   <None specified>
Backup:    <No backup recorded>
Effective: <None specified>
Recording: <None specified>
File organization:  Sequential
Shelved state:      Online 
Caching attribute:  Writethrough
File attributes:    Allocation: 552, Extend: 0, Global buffer count: 0, No 
version limit
Record format:      VFC, 2 byte header, maximum 0 bytes, longest 72 bytes
Record attributes:  Carriage return carriage control
RMS attributes:     None
Journaling enabled: None
File protection:    System:RWED, Owner:RWED, Group:RWED, World:RE
Access Cntrl List:  None
Client attributes:  None

Total of 2 files, 994/1104 blocks.

BAKER SAMOA> type/page apl.v30

        PROGRAM    apl !!Ver 3.0, Fall 1982 DECUS
c+              Main APL driver program
c;
c;      Initalize via ZAPL, APLZER, and LINMNE.
c;
c; 200  Request the input line via APLNXT
c;        IF( special line type ) THEN Process
c;         ... Control_C, Control_Z, Null, System_command, Clear_stack
c;         ... G...function_edit, help
c;        ELSE
c;          Clear stack, or note that it is not clear as needed
c;          Initalize tokens via TOKPUT, PUSHST, and LINCON
c; 500      Process input line via APLCON
c;        ENDIF
c;      LOOP, goto 200
c------
c!v1.1! process input command line
c!v1.1! if( flg_deg(32) ) accept ), " or A as system command
c!v0.8! on a ctrl z, )save aplf.vx, and then exit
c!v0.5! " input in ascii mode diagnostic
c.
c.See ZAPL for the update history and general APL programmer
c.  documentation
c.
        include 'sci_apl:aplall.i/nolist'
        include 'sci_apl:aplnam.i/nolist' !v0.1! include name common
        include 'sci_apl:aplstk.i/nolist'
        include 'sci_apl:apltok.i/nolist'
        character*255 chcmd
c.
c-- initalize
<snip>

> On 4 Apr 2019, at 3:57:52 PM, simh-requ...@trailing-edge.com wrote:
> 
> ------------------------------
> 
> Message: 2
> Date: Tue, 26 Mar 2019 14:54:50 -0700
> From: Ron Young <r...@embarqmail.com <mailto:r...@embarqmail.com>>
> To: "simh@trailing-edge.com <mailto:simh@trailing-edge.com>" 
> <simh@trailing-edge.com <mailto:simh@trailing-edge.com>>
> Subject: [Simh] Help with loading vax82b zip file into simh/vms
> Message-ID: <9b.49.11891.baf9a...@smtp03.onyx.dfw.sync.lan 
> <mailto:9b.49.11891.baf9a...@smtp03.onyx.dfw.sync.lan>>
> Content-Type: text/plain; charset="us-ascii"
> 
> Hi All:
> 
>   I want to load some programs from the vax82b decus "tape" into my
>   simh/vax/vms 7.3 system. VMS is installed and running.
> 
>   I normally would download the tape image and mount it in simh/vms and
>   copy/restore. Unfortunately, I can't find any tape images for vax82b.
>   There are zip files located on
>   https://eisner.decus.org/repository/master/vms/library/ 
> <https://eisner.decus.org/repository/master/vms/library/>.
> 
>   However when I ftp the files over to vms, the record type is messed up
>   (displays 2 bytes of "garbage" and doesn't see the end of line). Looking
>   at a linux dump of the first couple of lines (shown below).
> 
>   Any ideas on how I can fix this, or where tapes images are located?
> 
>   thanks
>   -ron
> 
> 
> $ od -ao --endian=little apl.v30 | more
> 0000000   , nul soh nul  ht   P   R   O   G   R   A   M  sp  sp  sp  sp
>         000054  000001  050011  047522  051107  046501  020040  020040
> 0000020   a   p   l  sp   !   !   V   e   r  sp   3   .   0   ,  sp   F
>        070141  020154  020441  062526  020162  027063  026060  043040
> 0000040   a   l   l  sp   1   9   8   2  sp   D   E   C   U   S  gs nul
>         066141  020154  034461  031070  042040  041505  051525  000035
> 0000060 stx nul   c   +  ht  ht   M   a   i   n  sp   A   P   L  sp   d
>         000002  025543  004411  060515  067151  040440  046120  062040
> 0000100   r   i   v   e   r  sp   p   r   o   g   r   a   m nul eot nul
>         064562  062566  020162  071160  063557  060562  000155  000004
> 0000120 etx nul   c   ;   , nul eot nul   c   ;  ht   I   n   i   t   a
>         000003  035543  000054  000004  035543  044411  064556  060564
>                                                     
> ===============================================================================
> Ron Young                             r...@embarqmail.com 
> <mailto:r...@embarqmail.com>
> 
> 
> ------------------------------

Attachment: smime.p7s
Description: S/MIME cryptographic signature

_______________________________________________
Simh mailing list
Simh@trailing-edge.com
http://mailman.trailing-edge.com/mailman/listinfo/simh

Reply via email to