On April 4, 2019 4:44:39 PM PDT, Larry Baker <[email protected]> wrote: >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 >[email protected] > > >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 [email protected]. >< >< >< This repository is under construction. >< Send questions to [email protected]. >< ><Guest User [email protected] 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, [email protected] wrote: >> >> ------------------------------ >> >> Message: 2 >> Date: Tue, 26 Mar 2019 14:54:50 -0700 >> From: Ron Young <[email protected] <mailto:[email protected]>> >> To: "[email protected] <mailto:[email protected]>" ><[email protected] <mailto:[email protected]>> >> Subject: [Simh] Help with loading vax82b zip file into simh/vms >> Message-ID: <[email protected] ><mailto:[email protected]>> >> 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 [email protected] >> <mailto:[email protected]> >> >> >> ------------------------------
App.v30 is a Fortran program that implements a app interpreter. The of command was done on my Linux box to minimize issues with me forgetting vms things. -ron -- Sent from my Android device with K-9 Mail. Please excuse my brevity. _______________________________________________ Simh mailing list [email protected] http://mailman.trailing-edge.com/mailman/listinfo/simh
