SCOUG-HELP Mailing List Archives

<< Previous Message << >> Next Message >>

Date:	Tue, 3 Sep 2002 17:31:06 PST7
From:	Harry Chris Motin <hmotin@attglobal.net >
Reply-To:	scoug-help@scoug.com
To:	scoug-help@scoug.com, bgarcher@gte.net
Subject:	SCOUG-Help: REXX SYSFILESYSTEMTYPE command

Content-Transfer-Encoding: 7bit

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

________________________________________________________________________

Steven Levine wrote:
>
> =====================================================
> 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.
> =====================================================
>
> 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
>
> --
> ---------------------------------------------------------------------
> "Steven Levine" MR2/ICE 2.31a #10183 Warp4/FP15/14.085_W4
> www.scoug.com irc.webbnet.org #scoug (Wed 7pm PST)
> ---------------------------------------------------------------------
>
> =====================================================
>
> 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".
>
>

name="FS.CMD"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="FS.CMD"

/*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*/

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.