home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / filedocs / simcvt.sps < prev    next >
Internet Message Format  |  1994-03-04  |  2KB
  1. Date: Monday, 31 July 1989  09:56-MDT
  2. From: Joe St Sauver <JOE@oregon.uoregon.edu>
  3. Re:   An Alternative to SIMCVT.BAS
  4.  
  5. I found SIMCVT.BAS rather frustrating since I do most of my SIMTEL FTP work
  6. from a VAX, and found it irritating to have to download SIMIBM.IDX to a PC,
  7. run SIMCVT.BAS, re-upload SIMIBM.LST and then print the sucker from the VAX.
  8.  
  9. Therefore I hacked a little piece of code to munge the SIMIBM.IDX file on
  10. our VAX using SPSSx. It has been tested on SPSSx 3.1 under VAX/VMS 5.0-2 and
  11. seems to run fine.
  12.  
  13. Joe St Sauver (JOE@OREGON.UOREGON.EDU or JOE@OREGON)
  14. Statistical Programmer and Consultant
  15. University of Oregon Computing Center
  16.  
  17. --- cut here ------------------------------------------------------------------
  18.  
  19. COMMENT SIMCVT.SPS: TRANSFORM THE SIMIBM.IDX FILE FROM SIMTEL INTO A
  20. COMMENT             READABLE FORM, AND CALL IT SIMIBM.LST.
  21. DATA LIST FILE='SIMIBM.IDX' FREE / FS (a4) DIR (a24) FLNM (a14) REV * 
  22.  LENGTH * BITS * DT * DESCR (A50)
  23.  
  24. STRING LFS(a24),LDIR(a24)
  25. COMPUTE LFS = LAG(FS,1)
  26. COMPUTE LDIR = LAG(DIR,1)
  27.  
  28. DO IF ($CASENUM=1) 
  29. WRITE OUTFILE='SIMIBM.LST' / 
  30.   "SimTel MS-DOS Files Listing as of ", $DATE, //,
  31.   "NOTE: Type B is Binary; Type A is ASCII"
  32. END IF
  33.  
  34. DO IF ((FS NE LFS) OR (DIR NE LDIR))
  35. WRITE OUTFILE='SIMIBM.LST' /
  36.   " " /
  37.   "Directory ",FS, DIR /
  38.   "Filename      Type Length Date   Description", /,
  39.   "========================================",
  40.   "========================================"
  41. END IF
  42.  
  43. STRING BITA (A1)
  44. RECODE BITS (8='B')(ELSE='A') INTO BITA
  45. WRITE OUTFILE='SIMIBM.LST' / FLNM (A14), " ", BITA (A1), " ", LENGTH (F8.0), 
  46.   " ", DT (F6.0), " ", DESCR (A50)
  47. EXECUTE
  48.  
  49. -- cut here -------------------------------------------------------------------
  50.