SCOUG-HELP Mailing List Archives
Return to [ 02 |
September |
2002 ]
<< Previous Message <<
Content Type: text/plain
=====================================================
If you are responding to someone asking for help who
may not be a member of this list, be sure to use the
REPLY TO ALL feature of your email program.
=====================================================
I have JFS volumes, but when I run your script I get:
error 43 SysDriveMap() routine not found.
Guess I have something not set right? Other Rexx scripts run OK.
Ben A
Harry Chris Motin wrote:
>
> Hi,
>
> I need some help from anyone who has the Journalling File System (JFS)
> and/or Super FAT installed on his or her system. I'm writing a REXX
> script, which will use the REXX SYSFILESYSTEMTYPE command. I need to
> know exactly what the return is from this command, if the file system is
> JFS or Super FAT.
>
> Attached please find a simple little REXX script that I wrote. It prints
> out on the screen the results from SYSFILESYSTEMTYPE for all the
> installed files on a system. If you have JFS and/or Super FAT, would you
> please run the attached script at the command line and tell me what it
> says? Thanks in advance. I really appreciate it.
>
> HCM
>
> ------------------------------------------------------------------------------
> /*REXX script for results of SYSFILESYSTEMTYPE to a file*/
>
> /*Begin getting all the recognized or installed drive information*/
> DDrive. = ""
> Line. = ""
> Map = SYSDRIVEMAP()
> J = 0
> RC = SYSCLS()
> SAY ""
> DO UNTIL Map = ""
> J = J + 1
> PARSE VAR Map First Remainder
> DDrive.J = First
> Map = Remainder
> END /*Ends "DO UNTIL Map = """ Section*/
> DDrive.0 = J
>
> DO I = 1 TO DDrive.0 BY 1
> FileSystem = TRANSLATE(SYSFILESYSTEMTYPE(DDrive.I))
> SAY "The file system type for "DDrive.I" is: "FileSystem
> END I
> /*End getting all the recognized or installed drive information*/
> SAY ""
> SAY "Thank you for getting this information for me!"
> SAY "Now, press the ENTER key to end this REXX script."
> PARSE PULL KeyResponse
> EXIT
=====================================================
To unsubscribe from this list, send an email message
to "steward@scoug.com". In the body of the message,
put the command "unsubscribe scoug-help".
For problems, contact the list owner at
"rollin@scoug.com".
=====================================================
<< Previous Message <<
Return to [ 02 |
September |
2002 ]
The Southern California OS/2 User Group
P.O. Box 26904
Santa Ana, CA 92799-6904, USA
Copyright 2001 the Southern California OS/2 User Group. ALL RIGHTS
RESERVED.
SCOUG, Warp Expo West, and Warpfest are trademarks of the Southern California OS/2 User Group.
OS/2, Workplace Shell, and IBM are registered trademarks of International
Business Machines Corporation.
All other trademarks remain the property of their respective owners.
|