SCOUG-HELP Mailing List Archives

<< Previous Message <<

Date:	Tue, 3 Sep 2002 21:41:15 PST7
From:	"Benedict G. Archer" <bgarcher@gte.net >
Reply-To:	scoug-help@scoug.com
To:	scoug-help@scoug.com
Subject:	SCOUG-Help: REXX SYSFILESYSTEMTYPE command

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.
=====================================================

Harry Chris Motin wrote:
>
> Ben,
>
> Following through with Steven's observation about registering the REXX
> Utility functions, attached please find a revised REXX script. This one
> first registers the utility functions, if they are not registered and
> then performs the query on the file system types. At the end it also
> deregisters the utility functions, if it registered them at the
> beginning.
>
> Would you please run this revised script on your system at a commandline
> and tell me what the SysFileSystemType() return is for the Journalling
> File System.? I would really appreciate it.
>
> Anyone else out there with the Super FAT file system. Would you please
> run my script and tell me what the return is for that file system?
>
> Thanks very much in advance
>
> HCM
>
> >
> > In <3D744302.D5F165CB@gte.net>, on 09/02/02
> > at 09:05 PM, "Benedict G. Archer" said:
> >
> > >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,
> >
> > Add this:
> >
> > CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
> > CALL SysLoadFuncs
> >
> > to the beginning of Harry's script. He is assuming you already have
> > RexxUtil loaded.
> >
> > Steven
> >
> > --
> >
>
> ------------------------------------------------------------------------------
> /*REXX script for results of SYSFILESYSTEMTYPE to a file*/
>
> /*Begin registering the REXXUtil Library, if not already registered*/
> REXXUtilityFlag = RXFUNCQUERY("SYSLOADFUNCS")
> IF REXXUtilityFlag \= 0 THEN DO
> CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
> CALL SysLoadFuncs
> END /*Ends "IF REXXUtilityFlag \= 0 THEN DO" Section*/
> /*End registering the REXXUtil Library, if not already registered*/
>
> /*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
>
> /*Begin deregistering the REXX Utility functions and closing out this script*/
> IF REXXUtilityFlag \= 0 THEN CALL SysDropFuncs
> /*End deregistering the REXX Utility and closing out this script*/
> EXIT
> /*End closing out the script and exiting*/

Harry, I reformated drive E: to FAT, which is what I intended it should be
anyway (dump drive). Now I get this:

The file system type for C: is: HPFS
The file system type for D: is: JFS
The file system type for E: is: FAT
The file system type for F: is: JFS
The file system type for G: is: HPFS
The file system type for H: is: JFS
The file system type for J: is: HPFS
The file system type for K: is: JFS
The file system type for S: is:

Thank you for getting this information for me!
Now, press the ENTER key to end this REXX script.

HTH,
BenA

=====================================================

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".

=====================================================

Return to [ 03 | September | 2002 ]

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.