SCOUG-HELP Mailing List Archives

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

Date:	Thu, 21 Nov 2002 16:32:08 PST7
From:	Harry Chris Motin <hmotin@attglobal.net >
Reply-To:	scoug-help@scoug.com
To:	scoug-help@scoug.com
Subject:	SCOUG-Help: interrupts

Content-Transfer-Encoding: 7bit

OOps. Forgot to attach the script file!
HCM
_______________________________________________________________________________________

Harry Chris Motin 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.
> =====================================================
>
> > >I'm guessing the PCI bus changed the interrupt on my NIC.
> >
> > More likely the PCI bus decide the NIC and the WinModem could share and
> > IRQ.
>
> That would be my guess, also. And as Steven stated, you might be able to
> correct the problem by swapping boards around on your motherboard, until
> the NIC gets its own, individual IRQ. I use OS/2's RMVIEW.EXE program to
> help me track and store away information on my system IRQ's, IO's,
> DMA's, etc.
>
> Attached please find a REXX script that I built a couple of years ago.
> It provides a text-based, user interface to RMVIEW.EXE. The script
> allows you to use RMVIEW.EXE without having to remember, or look up, its
> various commandline parameters. Also, the script redirects the
> RMVIEW.EXE screen output to an ASCII file. Optionally, it also sends the
> output to the printer, if you like.
>
> You are welcome to use the script. If you want to, please note the
> following:
>
> 1. Place the script anywhere on your hard drive
>
> 2. Create a program object for it. On the "Program Tab" of the "path
> and file name" and "Parameters" fields respectively as follows:
> ?\OS2\PMREXX.EXE
> /Q "??\RMVIEW.CMD"
>
> Above, "?" means your boot drive, like "C:\".
>
> "??" means the path to the folder where you placed the RMVIEW.CMD REXX
> script. The "/Q" parameter allows you to run PMREXX.EXE in "quiet" mode.
> That is, when the script finishes, you do not have to respond to that
> annoying message, "The REXX procedure has ended", and also manually
> close out the PMREXX window. Above, you need the quotes surrounding
> "??\RMVIEW.CMD", but not on the "/Q" portion.
>
> Run the script under PMREXX.EXE, and not as a commandline REXX program.
> The text-based instructions look better in PMREXX
>
> When you first run RMVIEW.CMD, it will create 2 subfolders under the
> folder into which you placed RMVIEW.CMD. One subfolder will hold any
> ASCII text file output from RMVIEW.CMD. The other subfolder holds any
> previous text file output (before it creates a new text file, it moves
> any existing one over to the other folder).
> 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 <2EE3E396.23422976@concentric.net>, on 11/17/02
> > at 11:36 AM, Dave said:
> >
> > >Does anyone know of a good tutorial or crib sheet on troubleshooting
> > >interrupt conflicts? I tried sticking a PCI winmodem in a spare slot on
> >
> > Not really.
> >
> > >a Warp4 system, rebooted and Warp won't find my NIC. My temporary
> > >solution was to pull the modem out. Having some options makes it easier.
> > >I'm guessing the PCI bus changed the interrupt on my NIC.
> >
> > More likely the PCI bus decide the NIC and the WinModem could share and
> > IRQ. With PCI, you can see the IRQ assignments when the BIOS boots.
> > You've got two options. Find a version of the NIC driver that supports
> > IRQ sharing. I'm assuming your NIC is PCI too. Otherwise, swap the PCI
> > cards amoung the available slots until the NIC gets its own IRQ.
> >
> > Steven
> >
> > --
> > ---------------------------------------------------------------------
> > "Steven Levine" MR2/ICE 2.35 #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".
> >
> > =====================================================
>
> =====================================================
>
> 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="RMVIEW.CMD"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="RMVIEW.CMD"

/*This REXX script enables you to select various options in RMVIEW and safe the results to a file*/

/*This REXX script uses the ...,\OS2\RMVIEW.EXE program to review the installed hardware and its*/
/*configuration. You select the desired option, the script calls RMVIEW.EXE and redirects the*/
/*output of that program to a particular ASCII file, stored under the following subdirectory:*/
/*...,\RMVIEW\Current_Results\. The created file has the date and time as its second line. The REXX*/
/*script informs you of the exact name of the file in which the data is stored (it also gives*/
/*you its path). Additionally, if desired, the script will output the result to the printer.*/

/*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*/
ProblemFlag = 0
/*End registering the REXXUtil Library, if not already registered*/

/*Begin finding the File Spec information on this REXX script and assigning its value to the value, ProgramLocation, here in this script*/
PARSE SOURCE OperatingSystem HowCalled FileSpec
ProgramLocation = ""
FileSpecPortion = FileSpec
DO UNTIL FileSpecPortion = ""
PARSE Var FileSpecPortion FirstPart "\" SecondPart
SELECT
WHEN ProgramLocation = "" & SecondPart \= "" THEN DO
ProgramLocation = FirstPart
ProgramLocationDrive = ProgramLocation
ProgramLocationDriveFileSystem = SYSFILESYSTEMTYPE(ProgramLocationDrive)
END /*Ends "WHEN ProgramLocation = "" & SecondPart \= "" THEN DO" Section*/

WHEN ProgramLocation \= "" & SecondPart \= "" THEN ProgramLocation = ProgramLocation"\"FirstPart
OTHERWISE NOP
END /*Ends "SELECT" Section*/
FileSpecPortion = SecondPart
END /*Ends "DO UNTIL FileSpecPortion = """ Section*/
/*End finding the File Spec information on this REXX script and assigning its value to the value, ProgramLocation, here in this script*/

/*Begin finding out whether or not subdirectories exist to place current and previous RMVIEW search results, and if not, create them*/
IF ProgramLocationDriveFileSystem = "HPFS" | ProgramLocationDriveFileSystem = "JFS" THEN DO
Current_Results_Subdirectory = "Current_Results"
Previous_Results_Subdirectory = "Previous_Results"
END /*Ends "IF ProgramLocationDriveFileSystem = "HPFS" | ProgramLocationDriveFileSystem = "JFS" THEN DO" Section*/
ELSE DO
Current_Results_Subdirectory = "Current"
Previous_Results_Subdirectory = "Previous"
END /*Ends "ELSE DO" Section*/
DirectorySearch = ProgramLocation"\*.*"
FoundSubdirectories. = ""
RC = SYSFILETREE(DirectorySearch, "FoundSubdirectories", "DO")
I = 0
Current_ResultsFlag = 0
Previous_ResultsFlag = 0
SELECT
WHEN FoundSubdirectories.0 > 0 THEN DO
DO I = 1 TO FoundSubdirectories.0 BY 1
IF FoundSubdirectories.I = ProgramLocation"\"Current_Results_Subdirectory THEN Current_ResultsFlag = 1
IF FoundSubdirectories.I = ProgramLocation"\"Previous_Results_Subdirectory THEN Previous_ResultsFlag = 1
END /*Ends "DO I = 1 TO FoundSubdirectories.0 BY 1" Section*/
END /*Ends "WHEN FoundSubdirectories.0 > 0 THEN DO" Section*/

OTHERWISE NOP
END /*Ends "SELECT" Section*/
IF Current_ResultsFlag = 0 THEN RC = SYSMKDIR(ProgramLocation"\"Current_Results_Subdirectory)
IF Previous_ResultsFlag = 0 THEN RC = SYSMKDIR(ProgramLocation"\"Previous_Results_Subdirectory)
/*End finding out whether or not subdirectories exist to place current and previous RMVIEW search results, and if not, create them*/

/*Begin finding the boot drive and the path for the OS2 directory by creating a temporary text file listing the values of the system environmental variables*/
EnvVarLine. = ""
First = ""
Second = ""
I = 0
CommandLine = "SET > "ProgramLocation"\EnvVar.TXT"
INTERPRET "CommandLine"
DO WHILE LINES(ProgramLocation"\EnvVar.TXT") > 0
I = I + 1
EnvVarLine.I = LINEIN(ProgramLocation"\EnvVar.TXT")
END /*Ends "DO WHILE LINES(ProgramLocation"\EnvVar.TXT") > 0" Section*/
RC = LINEOUT(ProgramLocation"\EnvVar.TXT")
EnvVarLine.0 = I
I = 0
First = ""
INI_Path = ""
DO UNTIL First = "USER_INI"
I = I + 1
PARSE VAR EnvVarLine.I First "=" INI_Path
First = TRANSLATE(First)
END /*Ends "DO UNTIL First = "USER_INI"" Section*/
RC = SYSFILEDELETE(ProgramLocation"\EnvVar.TXT")
INI_Location = ""
SELECT
WHEN First = "USER_INI" THEN DO
FileSpecPortion = INI_Path
DO UNTIL FileSpecPortion = ""
PARSE Var FileSpecPortion FirstPart "\" SecondPart
SELECT
WHEN INI_Location = "" & SecondPart \= "" THEN DO
INI_Location = FirstPart
INI_LocationDrive = INI_Location
INI_LocationDriveFileSystem = SYSFILESYSTEMTYPE(INI_LocationDrive)
END /*Ends "WHEN ProgramLocation = "" & SecondPart \= "" THEN DO" Section*/

WHEN INI_Location \= "" & SecondPart \= "" THEN INI_Location = INI_Location"\"FirstPart
OTHERWISE NOP
END /*Ends "SELECT" Section*/
FileSpecPortion = SecondPart
END /*Ends "DO UNTIL FileSpecPortion = """ Section*/
END /*Ends "WHEN First = "USER_INI" THEN DO" Section*/

OTHERWISE DO
ProblemLabel = "Sorry, we have a problem! The script cannot find the OS2 user INI file."
ProblemFlag = 1
SIGNAL PROBLEM
END /*Ends "OTHERWISE DO" Section*/
END /*Ends "SELECT" Section*/
/*End finding the boot drive and the path for the OS2 directory by creating a temporary text file listing the values of the system environmental variables*/

/*Begin specifying the various file and directory paths that is script will use*/
Path1 = INI_Location"\RMVIEW.EXE"
Path2 = ProgramLocation"\"Current_Results_Subdirectory"\"
Path3 = ProgramLocation"\"Previous_Results_Subdirectory"\"
/*End specifying the various file and directory paths that is script will use*/

/*Begin displaying the script introduction*/
SAY " This REXX script uses the "INI_Location"\RMVIEW.EXE program to review the installed hardware and its configuration."
SAY "You select the desired option, the script calls RMVIEW.EXE and redirects the output of that program to an ASCII file,"
SAY "stored under the following subdirectory:"
SAY ""
SAY " "ProgramLocation"\"Current_Results_Subdirectory"\"
SAY ""
SAY " The ASCII output file has the date and time as its second line. The script informs you of the exact name of"
SAY "the file in which the data is stored (it also gives you its path). Additionally, if desired, the script will"
SAY "output the result to the printer."
SAY ""
SAY " Before creating the ASCII file, the script saves the previous file, if any, under the following subdirectory:"
SAY ""
SAY " "ProgramLocation"\"Previous_Results_Subdirectory"\"
SAY ""
SAY "If necessary, the script creates "ProgramLocation"\"Current_Results_Subdirectory"\ and "ProgramLocation"\"Previous_Results_Subdirectory"\."
SAY ""
SAY ""
SAY ""
SAY ""
/*End displaying the script introduction*/

/*Begin getting the date and time and placing that information in a variable to build a header*/
DateResult = DATE()
TimeResult = TIME()
PARSE VAR TimeResult Hours ":" RemainingTime
IF Hours > 12 THEN DO
Hours = (Hours - 12)
AMPM = "PM"
END /*Ends "IF Hours > 12 THEN DO" Section*/
ELSE AMPM = "AM"
TimeResult = Hours":"RemainingTime" "AMPM
/*End getting the date and time and placing that information in a variable to build a header*/

/*Begin specifying the desired RMVIEW display, output and path*/
SAY "Please specify the desired RMVIEW output, according to the following table:"
SAY ""
SAY " OUTPUT TYPE PARAMETER TO ENTER"
SAY " The physical view P"
SAY " The physical view with planar chipset devices P1"
SAY " The device drivers registered with the Resource Manager D"
SAY " The device drivers with snoopers DA"
SAY " The device drivers with planar chipset devices D1"
SAY " The detected view of the current boot tree DC"
SAY " The logical view of the system resources L"
SAY " The raw data R"
SAY " The claimed interrupt levels, sorted by value IRQ"
SAY " The claimed IO ports above 100 HEX, sorted by value IO"
SAY " All claimed IO ports, sorted by value IOA"
SAY " The claimed DMA channels, sorted by value DMA"
SAY " The claimed memory regions, sorted by value MEM"
SAY " The claimed IO ports, interrupt levels, DMA channels and memory, sorted by owner SO"
SAY " The hardware tree showing the hardware configuration HW"
SAY " All of the displayes and views ALL"
SAY " Exit from this script Press the ENTER Key"
SAY ""
SAY ""
SameCaseAnswer1 = ""
Answer1 = ""
PARSE PULL SameCaseAnswer1 /*Puts response from user into memory and names response "Answer1"*/
Answer1 = TRANSLATE(SameCaseAnswer1)
IF Answer1 = "" THEN SIGNAL FINISH
SELECT
WHEN Answer1 = "P" | Answer1 = "P1" | Answer1 = "D" | Answer1 = "DA" | Answer1 = "D1" | Answer1 = "DC" THEN NOP
WHEN Answer1 = "L" | Answer1 = "R" | Answer1 = "IRQ" | Answer1 = "IO" | Answer1 = "IOA" | Answer1 = "DMA" THEN NOP
WHEN Answer1 = "MEM" | Answer1 = "SO" | Answer1 = "HW" | Answer1 = "ALL" THEN NOP
OTHERWISE DO
ProblemLabel = 'Sorry, we have a problem! Your input of "'SameCaseAnswer1'" is not recognized.'
ProblemFlag = 1
SIGNAL PROBLEM
END /*Ends "OTHERWISE DO" Section*/
END /*Ends "SELECT" Select section*/
/*End specifying the desired RMVIEW display, output and path*/

/*Begin selecting whether or not you want the results to be printed*/
SAY "Do you wish to have the results output to the printer (as well as saved in an ASCII file)?"
SAY "If 'Yes', press and enter 'Y' (or 'y'). If not, just press the ENTER key."
SAY ""
SAY ""
Answer2 = ""
PARSE UPPER PULL Answer2 /*Puts response from user into memory and names response "Answer2"*/

SELECT
WHEN Answer2 = "Y" THEN DO
Answer3 = ""
PrinterPort = ""
SAY "Please turn on the printer. Next, select the printer output port"
SAY ""
SAY " PRINTER PORT PARAMETER TO ENTER"
SAY ' LPT1 (the default - enter "L1", or simply press the ENTER key here) L1'
SAY " LPT2 L2"
SAY " LPT3 L3"
SAY " COM1 C1"
SAY " COM2 C2"
SAY " COM3 C3"
SAY " COM4 C4"
SAY " OTHER PORT The correct port designator"
PARSE UPPER PULL Answer3

SELECT
WHEN Answer3 = "L1" | Answer3 = "" THEN PrinterPort = "LPT1"
WHEN Answer3 = "L2" THEN PrinterPort = "LPT2"
WHEN Answer3 = "L3" THEN PrinterPort = "LPT3"
WHEN Answer3 = "C1" THEN PrinterPort = "COM1"
WHEN Answer3 = "C2" THEN PrinterPort = "COM2"
WHEN Answer3 = "C3" THEN PrinterPort = "COM3"
WHEN Answer3 = "C4" THEN PrinterPort = "COM4"
WHEN Answer3 \= "" THEN PrinterPort = Answer3
OTHERWISE NOP
END /*Ends "SELECT" Section*/
END /*Ends "WHEN Answer2 = "Y" THEN DO" Section*/

OTHERWISE NOP
END /*Ends "SELECT" Section*/
/*End selecting whether or not you want the results to be printed*/

/*Begin specifying the desired RMVIEW output*/
SELECT
WHEN Answer1 = "P" THEN SIGNAL PHYSICAL
WHEN Answer1 = "P1" THEN SIGNAL PHYSICALPLANAR
WHEN Answer1 = "D" THEN SIGNAL DRIVERS
WHEN Answer1 = "DA" THEN SIGNAL DRIVERSNOOPERS
WHEN Answer1 = "D1" THEN SIGNAL DRIVERSPLANAR
WHEN Answer1 = "DC" THEN SIGNAL CURRENTBOOTTREE
WHEN Answer1 = "L" THEN SIGNAL LOGICAL
WHEN Answer1 = "R" THEN SIGNAL RAW
WHEN Answer1 = "IRQ" THEN SIGNAL INTERRUPTS
WHEN Answer1 = "IO" THEN SIGNAL IOPORTS
WHEN Answer1 = "IOA" THEN SIGNAL AIOPORTS
WHEN Answer1 = "DMA" THEN SIGNAL DMA
WHEN Answer1 = "MEM" THEN SIGNAL MEMORY
WHEN Answer1 = "SO" THEN SIGNAL SO
WHEN Answer1 = "HW" THEN SIGNAL HARDWARE
WHEN Answer1 = "ALL" THEN SIGNAL ALL
OTHERWISE NOP
END /*Ends SELECT statements*/
/*End specifying the desired RMVIEW output*/

/*Begin performing the specified RMVIEW display, output and path*/
PHYSICAL:
TheLabel = "You selected the physical view"
SAY TheLabel
FileName = "Physical_View.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

PHYSICALPLANAR:
TheLabel = "You selected the physical view with planar chipset devices"
SAY TheLabel
FileName = "Physical_View_Planar_Chipset_Devices.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

DRIVERS:
TheLabel = "You selected the device drivers registered with the Resource Manager"
SAY TheLabel
FileName = "Drivers_Registered.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

DRIVERSNOOPERS:
TheLabel = "You selected the device drivers with snoopers"
SAY TheLabel
FileName = "Drivers_With_Snoopers.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

DRIVERSPLANAR:
TheLabel = "You selected the device drivers with planar chipset devices"
SAY TheLabel
FileName = "Drivers_With_Planar_Chipsets.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

CURRENTBOOTTREE:
TheLabel = "You selected the detected view of the current boot tree"
SAY TheLabel
FileName = "Current_Boot_Tree.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

LOGICAL:
TheLabel = "You selected the logical view of the system resources"
SAY TheLabel
FileName = "Logical_View.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

RAW:
TheLabel = "You selected the raw data"
SAY TheLabel
FileName = "Raw_View.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

INTERRUPTS:
TheLabel = "You selected the claimed interrupt levels, sorted by value"
SAY TheLabel
FileName = "Interrupts_Claimed.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

IOPORTS:
TheLabel = "You selected the claimed IO ports above 100 HEX, sorted by value"
SAY TheLabel
FileName = "IO_Ports_Above_100.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

AIOPORTS:
TheLabel = "You selected all claimed IO ports, sorted by value"
SAY TheLabel
FileName = "IO_Ports_All.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

DMA:
TheLabel = "You selected the claimed DMA channels, sorted by value"
SAY TheLabel
FileName = "DMA_Channels_Claimed.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

MEMORY:
TheLabel = "You selected the claimed memory regions, sorted by value"
SAY TheLabel
FileName = "Memory_Regions_Claimed.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

SO:
TheLabel = "You selected the claimed IO ports, interrupt levels, DMA channels and memory, sorted by owner"
SAY TheLabel
FileName = "IO_Interrupts_DMA_and_Memory_Claimed.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

HARDWARE:
TheLabel = "You selected the hardware tree showing the hardware configuration"
SAY TheLabel
FileName = "Hardware_Tree.TXT"
CALL COPYDELETEFILE
CALL RMVIEWEXE
IF Answer2 = "Y" THEN CALL PRINTREPORT
IF Answer3 = "ALL" THEN RETURN
ELSE SIGNAL FINISH

ALL:
Answer3 = "ALL"
TheLabel = "You selected all of the above displayes and views"
SAY TheLabel
Answer1 = "P"
CALL PHYSICAL
Answer1 = "P1"
CALL PHYSICALPLANAR
Answer1 = "D"
CALL DRIVERS
Answer1 = "DA"
CALL DRIVERSNOOPERS
Answer1 = "D1"
CALL DRIVERSPLANAR
Answer1 = "DC"
CALL CURRENTBOOTTREE
Answer1 = "L"
CALL LOGICAL
Answer1 = "R"
CALL RAW
Answer1 = "IRQ"
CALL INTERRUPTS
Answer1 = "IO"
CALL IOPORTS
Answer1 = "IOA"
CALL AIOPORTS
Answer1 = "DMA"
CALL DMA
Answer1 = "MEM"
CALL MEMORY
Answer1 = "SO"
CALL SO
Answer1 = "HW"
CALL HARDWARE
SIGNAL FINISH
/*End performing the specified RMVIEW display, output and path*/

/*Begin displaying the "Problem Message"*/
PROBLEM:
SAY ProblemLabel
SAY ""
SAY "Press the ENTER key to exit this script."
Answer4 = ""
PARSE UPPER PULL Answer4
SIGNAL FINISH
/*End displaying the "Problem Message"*/

/*Begin exiting the script*/
FINISH:
SAY ""
SAY ""
DelayTime1 = 10
DelayTime2 = 2
SELECT
WHEN ProblemFlag = 0 & Answer1 = "ALL" THEN DO
DelayTime = DelayTime1
SAY "These reports were prepared on "DateResult" at "TimeResult". The script will end in "DelayTime" seconds."
END /*Ends "WHEN ProblemFlag = 0 & Answer1 = "ALL" THEN DO" Section*/

WHEN ProblemFlag = 0 & Answer1 \= "" THEN DO
DelayTime = DelayTime1
SAY "This report was prepared on "DateResult" at "TimeResult". The script will end in "DelayTime" seconds."
END /*Ends "WHEN ProblemFlag = 0 & Answer1 \= "" THEN DO" Section*/

WHEN ProblemFlag = 0 & Answer1 = "" THEN DO
DelayTime = DelayTime2
SAY "This script is terminated at your resquest. It will end in "DelayTime" seconds."
END /*Ends "WHEN ProblemFlag = 0 & Answer1 = "" THEN DO" Section*/

OTHERWISE DO
DelayTime = DelayTime2
SAY DateResult" at "TimeResult". The script will end in "DelayTime" seconds."
END /*Ends "OTHERWISE DO" Section*/
END /*Ends "SELECT" Section*/
RC = SYSSLEEP(DelayTime)
/*Begin deregistering the REXX Utility functions*/
IF REXXUtilityFlag \= 0 THEN CALL SysDropFuncs
/*End deregistering the REXX Utility functions*/
EXIT
/*End exiting the script*/

/*Begin adding a label line to the output ASCII text file*/
ADJUSTFILEDATA:
FilePath = Path2||FileName
LineReadInput. = ""
LineWriteOutput. = ""
I = 0
DO WHILE LINES(FilePath) > 0
I = I + 1
LineReadInput.I = LINEIN(FilePath)
END /*Ends "DO WHILE LINES(FilePath) > 0" Section*/
RC = LINEOUT(FilePath)
RC = SYSFILEDELETE(FilePath)
LineReadInput.0 = I
LineWriteOutput.1 = LineReadInput.1
LineWriteOutput.2 = TheLabel". "TimeResult
LineWriteOutput.3 = ""
LineWriteOutput.4 = ""
DO I = 2 TO LineReadInput.0 BY 1
J = I + 3
LineWriteOutput.J = LineReadInput.I
END I /*Ends "DO I = 3 TO LineReadInput.0 BY 1" Section*/
LineWriteOutput.0 = J
DO I = 1 TO LineWriteOutput.0 BY 1
RC = LINEOUT(FilePath, LineWriteOutput.I)
END I /*Ends "DO I = I TO LineWriteOutput.0 BY 1" Section*/
RC = LINEOUT(FilePath)
RETURN
/*End adding a label line to the output ASCII text file*/

/*Begin the procedure to set up the last printed page to be automatically rejected by the printer*/
PRINTREPORT:
/*Begin code to add blank lines to the output, if necessary, to get an even multiple of 60 lines*/
/*The printer will auto eject the last page, if it contains 60 lines*/
Remainder = LineWriteOutput.0//60
IF Remainder \= 0 THEN DO
AdditionalLines = 60 - Remainder
DO I = 1 TO AdditionalLines BY 1
J = I + LineWriteOutput.0
LineWriteOutput.J = ""
END /*Ends "DO I = 1 TO AdditionalLines BY 1" Section*/
END /*Ends "IF Remainder \= 0 THEN DO" Section*/
TotalPrintLines = LineWriteOutput.0 + AdditionalLines
DO I = 1 TO TotalPrintLines BY 1
RC = LINEOUT(PrinterPort, LineWriteOutput.I)
END I /*Ends "DO I = I TO TotalPrintLines BY 1" Section*/
RC = LINEOUT(PrinterPort)
RETURN
/*End the procedure to set up the last printed page to be automatically rejected by the printer*/

/*Begin the procedure to copy an existing file, if any, to the "Previous Results" subdirectory and then deleting it from the "Current Results" subdirectory*/
COPYDELETEFILE:
DirectorySearch = Path2||FileName
FoundFiles. = ""
RC = SYSFILETREE(DirectorySearch, "FoundFiles", "FO")
SELECT
WHEN FoundFiles.0 = 1 THEN DO
Commandline = '"COPY 'DirectorySearch" "Path3||FileName'"'
INTERPRET CommandLine
RC = SYSFILEDELETE(DirectorySearch)
END /*Ends "WHEN FoundFiles.0 = 1 THEN DO" Section*/

OTHERWISE NOP
END /*Ends "SELECT" Section*/
RETURN
/*End the procedure to copy an existing file, if any, to the "Previous Results" subdirectory and then deleting it from the "Current Results" subdirectory*/

/*Begin the procedure to run RMVIEW.EXE and output the results to an ASCII file*/
RMVIEWEXE:
Commandline = '"'Path1" /"Answer1" > "Path2||FileName'"'
INTERPRET CommandLine
CALL ADJUSTFILEDATA
SAY "The ASCII output file is: "Path2||FileName
RETURN
/*End the procedure to run RMVIEW.EXE and output the results to an ASCII file*/

Return to [ 21 | November | 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.