home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Share Gallery 1
/
share_gal_1.zip
/
share_gal_1
/
UT
/
UT070.ZIP
/
MENUS.EXE
/
OPERAPC.MNU
< prev
next >
Wrap
Text File
|
1990-01-31
|
45KB
|
1,372 lines
#Var MoveCount = 1
$Var YesNo = ''
$Var RunType = 'S'
BlankTime 2
BlankMessage = 'CA-OPERA/PC Demonstration'
Procedure AskYesNo
Writeln ' '
Write ' Press SpaceBar to continue..'
YesNo = ''
repeat
YesNo = ReadKey
if YesNo = char(27) then ExitMenu
if YesNo = ' ' then YesNo = 'Yes'
until length(YesNo) > 1
EndProc
Procedure WaitForSpace
YesNo = ''
repeat
YesNo = ReadKey
if YesNo = char(27) then ExitMenu
if YesNo = ' ' then YesNo = 'Yes'
until length(YesNo) > 1
EndProc
Procedure TextWindowHigh
ExplodeDelay 50
BoxBorderColor Red Blue
BoxInsideColor Yellow Blue
BoxHeaderColor Red White
BlockBox
DrawBox 38 2 42 16
TextColor Yellow Blue
EndProc
Procedure TextWindowLow
ExplodeDelay 50
BoxBorderColor Red Blue
BoxInsideColor Yellow Blue
BoxHeaderColor Red White
BlockBox
DrawBox 38 9 42 16
TextColor Yellow Blue
EndProc
Procedure TextWindowBig
ExplodeDelay 20
BoxBorderColor Red Blue
BoxInsideColor Yellow Blue
BoxHeaderColor Red White
BlockBox
DrawBox 5 14 70 10
TextColor Yellow Blue
EndProc
Procedure TextWindowTop
ExplodeDelay 20
BoxBorderColor Red Blue
BoxInsideColor Yellow Blue
BoxHeaderColor Red White
BlockBox
DrawBox 5 3 70 10
TextColor Yellow Blue
EndProc
Procedure TextWindow
ExplodeDelay 50
BoxBorderColor Red Blue
BoxInsideColor Yellow Blue
BoxHeaderColor Red White
BlockBox
EndProc
Procedure FullWindow
ExplodeDelay 10
NoBoxBorder
BoxInsideColor Grey Blue
DrawBox 1 1 80 25
TextColor Black Grey
EndProc
Procedure MaintMenu
Shadow On
DoubleLineBox
BoxBorderColor Black Grey
BoxInsideColor Black Grey
DrawBox 25 3 31 18
Writeln ' Operator Console Selection'
Writeln ' System Console Selection'
Writeln ' '
Writeln ' Pager List Maintenance'
Writeln ' Pager Entry Definitions'
Writeln ' '
Writeln ' Dialup Access Configuration'
Writeln ' Connection Definitions'
Writeln ' '
Writeln ' CA-OPERA/PC Configuration'
Writeln ' '
Writeln ' Script Generation'
Writeln ' Edit Script File'
Writeln ' Replay Script'
Writeln ' '
Write ' View/Print Log File'
EndProc
Shadow On
ExplodeDelay 20
BoxBorderColor Red Blue
BoxInsideColor White Blue
BoxHeaderColor Red White
BlockBox
ClearScreen
; ^SkipIntro
Drawbox 36 19 44 4
Writeln ' C O M P U T E R A S S O C I A T E S (R)'
Write ' Software superior by design.'
Wait 500
MoveCount = 1
While MoveCount < 18
MoveWindow -1 -1
MoveCount = MoveCount + 1
Wait 1
EndWhile
Wait 400
DrawBox 40 20 35 3
WriteCenter 'CA-OPERA(tm)/PC DEMONSTRATION'
Wait 200
MoveCount = 1
While MoveCount < 13
MoveWindow -1 -1
MoveCount = MoveCount + 1
Wait 1
EndWhile
MoveCount = 1
While MoveCount < 5
MoveWindow -1 1
MoveCount = MoveCount + 1
Wait 1
EndWhile
Wait 200
DrawBox 36 18 44 7
Writeln ' This demonstration made possible by: '
Writeln ' '
Writeln ' Computer Tyme, Inc. '
Writeln ' makers of '
Write ' MarxMenu(tm) '
Wait 400
Writeln ' '
Wait 70
Writeln ' '
Wait 70
Writeln ' '
Wait 150
Writeln ' Computer Tyme, Inc. '
Writeln ' 216 S. Glenstone Springfield, MO 65802'
Writeln ' (800) 548-5353 '
Wait 400
; AskYesNo
EraseTopWindow
EraseTopWindow
Wait 250
EraseTopWindow
:SkipIntro
Shadow Off
TextColor White Blue
ClearScreen
TextColor Black Grey
ClearLine
Write 'CAPC0000 System Status Display CA-OPERA/PC'
TextColor White Blue
GotoXY 1 24
Write 'Command ===>'
TextColor Black Grey
GotoXY 1 25
ClearLine
Write 'Scanning ...'
GotoXY 30 8
Write (Char(179))
GotoXY 30 9
Write (Char(179))
GotoXY 50 8
Write (Char(179))
GotoXY 50 9
Write (Char(179))
GotoXY 40 17
Write (Char(179))
GotoXY 40 18
Write (Char(179))
GotoXY 21 13
Write (Char(196))
GotoXY 22 13
Write (Char(196))
GotoXY 59 13
Write (Char(196))
GotoXY 60 13
Write (Char(196))
ExplodeDelay 0
DoubleLineBox
BoxBorderColor Black Grey
BoxInsideColor Black Grey
InverseColor White Red
DrawBox 21 4 20 4
Writeln ' Operator Console'
GotoXY 6 2
TextColor White Green
Write ' Active '
DrawBox 41 4 20 4
Writeln ' System Console '
GotoXY 6 2
TextColor White Green
Write ' Active '
DrawBox 28 19 24 4
Writeln ' Control Point '
GotoXY 6 2
TextColor White Red
Write ' Not Active '
DrawBox 2 11 19 5
Writeln ' Paging '
Writeln ' Remote '
Write ' Caller '
TextColor White Green
GotoXY 10 1
Write ' Ready '
GotoXY 10 2
Write ' Ready '
DrawBox 61 12 19 4
Writeln ' Local '
Write ' Caller '
TextColor White Green
GotoXY 10 1
Write ' Ready '
DrawBox 23 10 36 7
TextColor White Blue
GotoXY 11 3
Write ' CA-OPERA/PC '
TextColor White Green
GotoXY 1 3
Write ' COM1 '
GotoXY 29 3
Write ' LPT1 '
GotoXY 15 5
Write ' IXM1 '
GotoXY 5 1
Write ' IXM3 '
GotoXY 24 1
Write ' IXM2 '
Wait 200
ExplodeDelay 20
TextWindow
DrawBox 25 20 35 4
TextColor Yellow Blue
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
; ^SkipAhead ;* * * * * * * * * * * * * * * * *
BoxHeader 'CA-OPERA/PC'
TextWindowLow
Writeln ' '
Writeln ' CA-OPERA/PC: A PC-based Workstation'
Writeln ' which extends the automation and'
Writeln ' administration of console and'
Writeln ' message activity beyond the scope'
Writeln ' and functionality of even the'
Writeln ' most powerful mainframe-based'
Writeln ' automation system.'
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
BoxHeader 'CA-OPERA/PC'
TextWindowHigh
Writeln ' '
Writeln ' Even the most powerful mainframe'
Writeln ' console automation systems cannot'
Writeln ' IML/IPL the operating systems on'
Writeln ' which they depend. They are unable '
Writeln ' to communicate beyond their system'
Writeln ' or network boundries and they do'
Writeln ' not provide a monitor or control'
Writeln ' facility from locations not a part'
Writeln ' of the operating system or its'
Writeln ' network.'
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
BoxHeader 'CA-OPERA/PC'
TextWindowLow
Writeln ' '
Writeln ' CA-OPERA/PC can:'
Writeln ' '
Writeln ' Perform unattended IML/IPL and'
Writeln ' shut-down procedures when rule-based'
Writeln ' criteria are met.'
Writeln ' '
Writeln ' Key events such as critical subsystem'
Writeln ' or network failures can be detected'
Writeln ' and a predetirmined set of corrective'
Writeln ' actions can be taken immediately.'
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
BoxHeader 'CA-OPERA/PC'
TextWindowHigh
Writeln ' '
Writeln ' CA-OPERA/PC can:'
Writeln ' '
Writeln ' Notify key personnel, via pager, of'
Writeln ' critical events and system status.'
Writeln ' '
Writeln ' Information such as event type and'
Writeln ' on-going recovery status can be'
Writeln ' broadcast to page recipient.'
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
BoxHeader 'CA-OPERA/PC'
TextWindowLow
Writeln ' '
Writeln ' CA-OPERA/PC can:'
Writeln ' '
Writeln ' Provide secure remote dial-up'
Writeln ' access to all CA-OPERA/PC monitoring'
Writeln ' and control facilities.'
Writeln ' '
Writeln ' With CA-OPERA/PC, you could monitor'
Writeln ' and control an entire data center or'
Writeln ' network from any telephone in the'
Writeln ' world!
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
RollWindow 5
MoveCount = 1
While MoveCount < 5
GotoXY 2 1
TextColor White Red
Write 'Operator Console'
Wait 40
GotoXY 2 1
TextColor Black Grey
Write 'Operator Console'
Wait 40
MoveCount = MoveCount + 1
EndWhile
GotoXY 2 1
TextColor White Red
Write 'Operator Console'
Wait 150
NoBoxBorder
ExplodeDelay 10
BoxInsideColor Grey Blue
DrawBox 1 1 80 24
Writeln ' '
Writeln ' 01 BG-000 JOB ABCPAY'
Wait 20
Writeln ' 02 BG-000 JOB ABCPAY EOJ DURATION 00:06:19'
Wait 40
Writeln ' 03 BG-000 JOB XYZPAY'
Wait 20
TextColor White Blue
Writeln ' 04 BG-000 0407DD44 UNABLE TO LOCATE PAYROLL DATABASE'
Wait 20
Writeln ' 05 BG-000 0407DD99 ENTER CANCEL OR RETRY'
Wait 20
TextColor Grey Blue
Writeln ' 06 BG-000 JOB XYZPAY EOJ DURATION 01:22:34'
Wait 40
Writeln ' 07 F1-001 0192497A *SPOOL SPACE EXAUSTED*'
Wait 20
Writeln ' 08 F1-001 0192499A *SPOOL ARCHIVE STARTED*'
Writeln ' 09'
Writeln ' 10'
Writeln ' 11'
Writeln ' 12'
Writeln ' 13'
Writeln ' 14'
Writeln ' 15'
Writeln ' 16'
Writeln ' 17'
Writeln ' 18'
Writeln ' 19'
Writeln ' 20'
Wait 250
BoxBorderColor Red Blue
BoxInsideColor Yellow Blue
BoxHeaderColor Red White
BlockBox
BoxHeader 'Console Scanning'
TextWindowLow
Writeln ' '
Writeln ' CA-OPERA/PC can:'
Writeln ' '
Writeln ' Scan the System or Operator'
Writeln ' Console for a user-defined event'
Writeln ' and take immediate action.'
Writeln ' '
Writeln ' In the case of a critical job'
Writeln ' failure, a page might be issued'
Writeln ' to the person responsible so that'
Writeln ' corrective action can be initiated'
Writeln ' quickly.'
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
EraseTopWindow
Wait 250
BoxHeader 'CA-OPERA/PC'
TextWindowLow
Writeln ' '
Writeln " CA-OPERA's easy-to-use, menu-driven"
Writeln ' design requires no programming'
Writeln ' knowledge, no complicated commands.'
Writeln ' '
Writeln ' Simply Point-and-Shoot or fill in'
Writeln " the blanks. That's it!"
Writeln ' '
Writeln ' '
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 150
:SkipAhead ;******* * * * * * * * * * * * * * * * * * *
FullWindow
Write 'CAPC1000 Primary Selection Menu CA-OPERA/PC'
GotoXY 1 24
Write 'F1-Help F3-Exit F4-Quit'
TextColor White Blue
GotoXY 1 22
Write ' Hilight the required CA-OPERA/PC function, then press ENTER'
MaintMenu ;CA-OPERA/PC Maint Menu **************
; ^SkipMore ; *************************************
MoveCount = 1
While MoveCount < 5
GotoXY 1 1
TextColor Yellow Red
Write ' Operator Console Selection'
Wait 40
GotoXY 1 1
TextColor Black Grey
Write ' Operator Console Selection'
Wait 40
MoveCount = MoveCount + 1
EndWhile
GotoXY 1 1
TextColor Yellow Red
Write ' Operator Console Selection'
Wait 200
FullWindow
Write 'CAPC1010 Operator Console Selection CA-OPERA/PC'
GotoXY 1 24
Write 'F1-Help F3-Save F4-Quit F5-Add F6-Copy F9-Delete'
GotoXY 1 2
TextColor Grey Blue
Writeln ' Message Scan Text Days Begin End Defer Susp '
Writeln ' ──────── ───────────────────────── ─────── ───── ───── ───── ───── '
Writeln ' %time SMTWTFS 00:00 00:00 '
Writeln ' %time .MTWTF. 12:30 12:30 '
Writeln ' %time .MTWTF. 17:00 17:00 '
TextColor White Blue
Writeln ' 0407DD44 UNABLE TO LOCATE PAYROLL SMTWTFS 17:00 22:00 '
TextColor Grey Blue
Writeln ' // PAUSE this will lock UP 1 '
Writeln ' // PAUSE issue map 1 '
Writeln ' // PAUSE OPERA/PC '
Writeln ' 0D05D 1 '
Writeln ' 0E 1 '
Writeln ' 1I00d ready for communications '
Writeln ' 1Q34It work on 00e S.....S '
Writeln ' 1Q34I work on 00e '
Writeln ' 1Q40A on 00e 2 '
Writeln ' 1S02D invalid statement '
Writeln ' 1Z00A '
Writeln ' 3A12A '
Writeln ' 8V96D .MTWTF. '
Writeln ' 8v96d .MTWTF. 09:00 17:00 '
Writeln ' '
Write ' '
Wait 100
BoxHeader 'Console Message Selection'
TextWindow
DrawBox 38 12 42 12
TextColor Yellow Blue
Writeln ' '
Writeln ' The Operator Console Selection Panel'
Writeln ' shows message intercepts currently'
Writeln ' defined within CA-OPERA/PC.'
Writeln ' '
Writeln ' A full-screen editor is provided for'
Writeln ' adding new entries or modifying
Writeln ' existing entries.'
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 300
ExplodeDelay 10
NoBoxBorder
BoxInsideColor Grey Blue
DrawBox 18 4 62 20
TextColor Black Grey
Writeln 'CAPC1011 Operator Console Message Entry '
TextColor White Cyan
Writeln '────────────────────────────── Selection Criteria ────────'
Writeln ' Message ID ===> 0407DD44 '
Writeln ' Scan Text ===> UNABLE TO LOCATE PAYROLL '
Writeln ' SMTWTFS Begin End '
Writeln ' Days ===> YYYYYYY Time ===> 17:00 - 22:00 (HH:MM'
Writeln ' Deferred ===> Minutes '
Writeln ' Suspended ===> Minutes '
Writeln '────────────────────────────── Action Definitions ────────'
Writeln ' Keyword ===> PAGE Text ===> Payroll &4 &5 '
Writeln ' ===> OPCMD ===> CANCEL \enter\ '
Writeln ' ===> ===> '
Writeln ' ===> ===> '
Writeln ' ===> ===> '
Writeln ' '
Writeln ' Reason ===> '
Writeln ' ===> '
TextColor Black Grey
Write 'F1-Help F3-Save F4-Quit F6-Copy F7-Move '
Wait 250
BoxHeader 'Console Message Selection'
TextWindow
DrawBox 38 12 42 12
TextColor Yellow Blue
Writeln ' '
Writeln ' The Operator Console Message Entry'
Writeln ' Panel is used to define selection'
Writeln ' criteria for messages and the action'
Writeln ' to be take by CA-OPERA/PC.
Writeln ' '
Writeln ' '
Writeln ' '
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
BoxHeader 'Console Message Selection'
TextWindowLow
Writeln ' Criteria such as:'
Writeln ' Message ID, Scan Text, Day of Week'
Writeln ' and Time of Day can be defined for'
Writeln ' Message selection.'
Writeln ' Unique actions can be defined for'
Writeln ' each selection criteria.'
Writeln ' '
Writeln ' Actions can be:
Writeln ' Operator command(s), CA-OPERA/PC'
Writeln ' command(s) or the invocation of a'
Writeln ' CA-OPERA/PC script.'
Writeln ' (More about SCRIPTs later...)'
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 250
EraseTopWindow
Wait 250
EraseTopWindow
Wait 100
GotoXY 1 1
TextColor Black Grey
Write ' Operator Console Selection'
Wait 100
:SkipMore
MoveCount = 1
While MoveCount < 5
GotoXY 3 2
TextColor Yellow Red
Write 'System Console Selection'
Wait 40
GotoXY 3 2
TextColor Black Grey
Write 'System Console Selection'
Wait 40
MoveCount = MoveCount + 1
EndWhile
GotoXY 3 2
TextColor Yellow Red
Write 'System Console Selection'
Wait 150
BoxHeader 'Console Message Selection'
TextWindowLow
Writeln ' '
Writeln ' Definitions for the System Console'
Writeln ' message selection and action are'
Writeln ' entered using the same panel-driven'
Writeln ' design used for Operator Console'
Writeln ' message selection.'
Writeln ' '
Writeln ' '
Writeln ' '
Writeln ' '
Writeln ' '
Writeln ' '
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
FullWindow
FullWindow
TextColor White Blue
Writeln ' *GENERAL SELECTION* (C) IBM CORPORATION 1985 '
Writeln ' '
Writeln ' Y TIME OF DAY-ENABLE F CONFIGURATION/REMOTE '
Writeln ' '
Writeln ' L PROGRAM LOAD '
Writeln ' '
Writeln ' S STORE STATUS A COMPARE/TRACE '
Writeln ' '
Writeln ' N NORMAL SYSTEM RESET K CHECK CONTROL '
Writeln ' C CLEAR SYSTEM RESET O OPERATION RATE '
Writeln ' '
Writeln ' R RESTART D DISPLAY/ALTER '
Writeln ' '
Writeln ' T TARGET PU-SWITCH B BLOCK/PATCH '
Writeln ' '
Writeln ' P PROBLEM ANALYSIS E ERROR DISPLAYS '
Writeln ' '
Writeln ' Z RETURN TO PROG SYS '
Writeln ' '
Writeln ' COMMAND: Q ==> '
Writeln ' >PU1 WAIT OPERATING '
Writeln ' PU0 WAIT OPERATING '
Writeln ' XA 4381 '
Writeln ' 309 9309 CONSOLE I/O WAITING '
Write ' MANUAL CONTROL '
Wait 300
BoxHeader 'System Console'
TextWindowLow
Writeln ' '
Writeln ' Shown here is the GENERAL SELECTION '
Writeln ' panel for a 43xx system which would '
Writeln ' be presented after power-on. '
Writeln ' CA-OPERA/PC provides normal access '
Writeln ' to this panel for IPL and system '
Writeln ' maintenance functions but its real '
Writeln ' power becomes evident when it is '
Writeln ' allowed to detect a power-on state '
Writeln ' and then perform the IPL procedure '
Writeln ' automatically. '
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
EraseTopWindow
FullWindow
TextColor White Blue
Writeln ' 12 Aug 89 21:45:24 '
Writeln ' System Activity Display - SystemD 3090-300E (SAD 4) '
Writeln ' Prob=* Supv=@ 0----1----2----3----4----5----6----7----8----9----10 '
Writeln ' CP0 *@@@@@ >99 '
Writeln ' CP1 *@@@@@ >99 '
Writeln ' CP2 *@@ '
Writeln ' High Usage 0----1----2----3----4----5----6----7----8----9----10 '
Writeln ' CHPID 01 @ '
Writeln ' CHPID 06 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '
Writeln ' CHPID 07 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '
Writeln ' CHPID 08 @ '
Writeln ' CHPID 13 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '
Writeln ' CHPID 16 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '
Writeln ' CHPID 18 @ '
Writeln ' CHPID 19 '
Writeln ' CHPID 1A '
Writeln ' CHPID 1B '
Writeln ' CHPID 1C '
Writeln ' CHPID 1D '
Writeln ' CHPID 1E '
Writeln ' CHPID 1F '
Writeln ' '
Write ' COMMAND ==> '
Wait 300
BoxHeader 'System Console'
TextWindowLow
Writeln ' On 3090 systems, CA-OPERA/PC can '
Writeln ' switch between the operator console '
Writeln ' and the System Activity Display '
Writeln ' (SAD) screens with a single key '
Writeln ' press; all this while operator '
Writeln ' console scanning continues without '
Writeln ' interruption. Because CA-OPERA/PC '
Writeln ' is a PC rather than a terminal, any '
Writeln ' screen displayed can be printed on '
Writeln ' an attached printer for instant '
Writeln ' hardcopy output. '
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
EraseTopWindow
FullWindow
TextColor White Blue
Writeln ' 20:36:58 (20025) '
Writeln ' ************************ PRIORITY MESSAGE ************************** '
Writeln ' * * '
Writeln ' * Power/Thermal Warning * '
Writeln ' * * '
Writeln ' * Intended Console: All * '
Writeln ' * * '
Writeln ' * Detailed Information: Low water level has been detected in * '
Writeln ' * the side 0 coolant distribution frame. * '
Writeln ' * More system water is required. * '
Writeln ' * * '
Writeln ' * System Action: The system continues. However, continued * '
Writeln ' * operation cannot be guaranteed since further * '
Writeln ' * loss of water may result in all or part of the * '
Writeln ' * system being powered off. * '
Writeln ' * * '
Writeln ' * User Action: Follow local procedures for reporting a * '
Writeln ' * processor complex problem. * '
Writeln ' * * '
Writeln ' * * '
Writeln ' * * '
Write ' ******************************************************************** '
Wait 300
BoxHeader 'System Console'
TextWindowLow
Writeln ' CA-OPERA/PC can recognize PRIORITY '
Writeln ' MESSAGES such as this and ensure '
Writeln ' that the proper personnel are '
Writeln ' notified that a serious situation '
Writeln ' has occured which requires immediate'
Writeln ' attention. '
Writeln ' Arrangements might be made with your'
Writeln ' hardware vendor to accept coded '
Writeln ' page information should an event '
Writeln ' such as this occur. '
Writeln ' '
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
EraseTopWindow
EraseTopWindow
Wait 200
EraseTopWindow
EraseTopWindow
Wait 200
RollWindow 3
MoveCount = 1
While MoveCount < 5
GotoXY 2 1
TextColor White Green
Write 'Paging'
GotoXY 10 1
TextColor White Green
Write ' Bob001 '
Wait 40
GotoXY 2 1
TextColor Black Grey
Write 'Paging Bob001 '
Wait 40
MoveCount = MoveCount + 1
EndWhile
GotoXY 2 1
TextColor White Green
Write 'Paging'
GotoXY 10 1
TextColor White Green
Write ' Bob001 '
BoxHeader = 'Paging'
TextWindowBig
Writeln " The PAGING facility provides a simple yet reliable"
Writeln " method of ensuring that the proper personnel are notified"
Writeln " in the event of a system failure or other key event defined"
Writeln " to CA-OPERA/PC. The PAGING system's many page definition"
Writeln " options address the complexities of communication in today's"
Writeln " data center."
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
:Jumphere
FullWindow
Write 'CAPC1000 Primary Selection Menu CA-OPERA/PC'
GotoXY 1 24
Write 'F1-Help F3-Exit F4-Quit'
TextColor White Blue
GotoXY 1 22
Write ' Hilight the required CA-OPERA/PC function, then press ENTER'
MaintMenu ;CA-OPERA/PC Maint Menu **************
MoveCount = 1
While MoveCount < 5
GotoXY 4 5
TextColor Yellow Red
Write 'Pager Entry Definitions'
Wait 40
GotoXY 4 5
TextColor Black Grey
Write 'Pager Entry Definitions'
Wait 40
MoveCount = MoveCount + 1
EndWhile
GotoXY 4 5
TextColor Yellow Red
Write 'Pager Entry Definitions'
Wait 150
FullWindow
Write 'CAPC1040 Pager Entry Definitions CA-OPERA/PC'
GotoXY 1 24
Write 'F1-Help F3-Save F4-Quit F5-Add F6-Copy F9-Delete'
GotoXY 1 2
TextColor Grey Blue
Writeln ' '
Writeln ' Pager Id Phone Number / Message Count Interval '
Writeln ' ──────── ──────────────────────────────────────── ────── ──────── '
Writeln ' Bob 111-2345,,,,,,%# '
TextColor White Blue
Writeln ' Bob001 111-2345,,,,,,001%# '
TextColor Grey Blue
Writeln ' Bob002 111-2345,,,,,,002%# '
Writeln ' Bob003 111-2345,,,,,,003%# '
Writeln ' Kevin 111-3384,,,,,,%# '
Writeln ' DaveS 111-3396,,,,,,%# '
Writeln ' Scott 111-3322,,,,,,%# '
Writeln ' Alan 111-3315,,,,,,%# '
Writeln ' Howie 111-3369,,,,,,%# '
Writeln ' SkyPage 8004445555,,,,,,,78789#%## '
Wait 300
BoxHeader = 'Pager Entry Definitions'
TextWindowBig
Writeln " A Page Entry is used to define each individual to be "
Writeln " paged by CA-OPERA/PC. Each individual may have several"
Writeln " different page numbers and paging options based on day-of-week"
Writeln " and time-of-day, if required. In addition to the pager number,"
Writeln " message variables, default page count and interval between"
Writeln " page attempts may be defined here."
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 150
BoxHeader = 'Pager Entry Definitions'
TextWindowBig
Writeln " For paging systems which support message display in addition"
Writeln " to audio alert, the ability of CA-OPERA/PC to send a message"
Writeln " which describes the nature of a problem or the on-going status"
Writeln " of recovery can mean that notified personnel need not rush to"
Writeln " find a phone in the event of a page but instead, stay informed"
Writeln " via periodic pager message updates."
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 150
EraseTopWindow
Wait 200
GotoXY 4 5
TextColor Black Grey
Write 'Pager Entry Definitions'
MoveCount = 1
While MoveCount < 5
GotoXY 4 4
TextColor Yellow Red
Write 'Pager List Maintenance'
Wait 40
GotoXY 4 4
TextColor Black Grey
Write 'Pager List Maintenance'
Wait 40
MoveCount = MoveCount + 1
EndWhile
GotoXY 4 4
TextColor Yellow Red
Write 'Pager List Maintenance'
Wait 250
FullWindow
Write 'CAPC1030 Pager List Maintenance CA-OPERA/PC'
GotoXY 1 24
Write 'F1-Help F3-Save F4-Quit F5-Add F6-Copy F9-Delete'
GotoXY 1 2
TextColor Grey Blue
Writeln ' List ID Remarks Days Begin End'
Writeln ' ──────── ────────────────────────────── ─────── ───── ───── '
Writeln ' Support off hour support, weekdays .MTWTF. 17:00 - 20:00 '
Writeln ' Support Daytime Support -'
TextColor White Blue
Writeln ' Payroll Payroll Data Base Administrator SMTWTFS 17:00 - 22:00 '
TextColor Grey Blue
Writeln ' Network Network Support -'
Wait 250
BoxHeader = 'Pager List Maintenance'
TextWindowBig
Writeln " The target of a page by CA-OPERA/PC may be defined as a "
Writeln " LIST when a single event would require that a number of"
Writeln " individuals be notified. The ability to build and modify"
Writeln " Page Lists allows your organization to build a complex"
Writeln " notification and warning system which can be triggered by"
Writeln " any defined system event."
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 250
ExplodeDelay 10
NoBoxBorder
BoxInsideColor Grey Blue
DrawBox 18 4 62 20
TextColor Black Grey
Writeln 'CAPC1031 Pager List Definition Entry '
TextColor White Cyan
Writeln ' '
Writeln ' List ID ===> Payroll '
Writeln ' Remarks ===> Payroll Data Base Administrator '
Writeln ' SMTWTFS Begin End '
Writeln ' Days ===> YYYYYYY Time ===> 17:00 - 22:00 '
Writeln ' '
Writeln ' Pager Id ===> Bob001 Count ===> 3 Interval ='
Writeln ' ===> Kevin ===> 3 ='
Writeln ' ===> Scott ===> 3 ='
Writeln ' ===> ===> ='
Writeln ' ===> ===> ='
Writeln ' ===> ===> ='
Writeln ' ===> ===> ='
Writeln ' ===> ===> ='
Writeln ' '
Writeln ' '
TextColor Black Grey
Write 'F1-Help F3-Save F4-Quit F6-Copy F7-Move '
Wait 300
BoxHeader = 'Pager List Definition Entry'
TextWindowBig
Writeln " Page Lists may be defined for any combination of time"
Writeln " and day criteria. Page ID may be any valid Page ID defined"
Writeln " using the Page Entry Definition Panel which you saw earlier."
Writeln " Overrides to default Pager ID Count and Interval can be"
Writeln " defined for any Page List."
Writeln " "
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 200
EraseTopWindow
Wait 250
EraseTopWindow
Wait 250
GotoXY 4 4
TextColor Black Grey
Write 'Pager List Maintenance'
MoveCount = 1
While MoveCount < 5
GotoXY 2 7
TextColor Yellow Red
Write 'Dialup Access Configuration'
Wait 40
GotoXY 2 7
TextColor Black Grey
Write 'Dialup Access Configuration'
Wait 40
MoveCount = MoveCount + 1
EndWhile
GotoXY 2 7
TextColor Yellow Red
Write 'Dialup Access Configuration'
Wait 250
BoxHeader = 'Dialup Access'
TextWindowBig
Writeln " One of the most powerful features of CA-OPERA/PC is"
Writeln " the Dialup Access Facility. This feature allows a user of"
Writeln " CA-OPERA/PC to gain access to all of the system control and"
Writeln " monitoring functions of CA-OPERA/PC using the optional "
Writeln " laptop computer and standard telephone lines."
Writeln " "
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 200
BoxHeader = 'Dialup Access'
TextWindowBig
Writeln " CA-OPERA/PC employs one of the most secure methods of permitting"
Writeln " dialup access in use today. Software controlled (with hardware"
Writeln " backup) dial-back and double password verification provides"
Writeln " a high degree of confidence that any link made to CA-OPERA/PC"
Writeln " is permitted to authorized personnel ONLY."
Writeln " "
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 200
FullWindow
Write 'CAPC1050 Dialup Access Configuration CA-OPERA/PC'
GotoXY 1 24
Write 'F1-Help F3-Save F4-Quit F5-Add F6-Copy F9-Delete'
GotoXY 1 2
TextColor Grey Blue
Writeln ' '
Writeln ' Caller Access Dialback String DBAccess '
Writeln ' ──────── ──────── ──────────────────────────────────────── ──────── '
Writeln ' Supptday 12345678 111-2222 87654321 '
Writeln ' Supptnit 12345678 444-5555 87654321 '
TextColor White Blue
Writeln ' Hotsite 87654321 333-8888 12345678 '
TextColor Grey Blue
Writeln ' '
Wait 250
BoxHeader = 'Dialup Access Configuration'
TextWindowBig
Writeln " Each authorized Caller is identified by a unique ID, Dialback "
Writeln " telephone number, Access and Dialback Passwords."
Writeln " The ability to define multiple IDs and telephone numbers allows"
Writeln " a single caller to gain access from several locations. The "
Writeln " telephone number used for dial-back is determined by the Caller"
Writeln " ID used on initial access."
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 200
EraseTopWindow
Wait 250
GotoXY 2 7
TextColor Black Grey
Write 'Dialup Access Configuration'
MoveCount = 1
While MoveCount < 5
GotoXY 7 12
TextColor Yellow Red
Write 'Script Generation'
Wait 40
GotoXY 7 12
TextColor Black Grey
Write 'Script Generation'
Wait 40
MoveCount = MoveCount + 1
EndWhile
GotoXY 7 12
TextColor Yellow Red
Write 'Script Generation'
Wait 250
BoxHeader = 'CA-OPERA/PC Scripts'
TextWindowTop
Writeln " The ability of CA-OPERA/PC to interactively 'LEARN' a complex "
Writeln " series of message requests and responses and save them in a"
Writeln " 'SCRIPT' can have a profound effect on how quickly CA-OPERA/PC"
Writeln " can become an integral part of your data center automation plan."
Writeln " "
Writeln " "
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 200
BoxHeader = 'CA-OPERA/PC Scripts'
TextWindowBig
Writeln " CA-OPERA/PC Scripts can be built interactively for any operator "
Writeln " task which has a fixed structure of messages and responses. "
Writeln " Examples of this type of task might include: IML/IPL, subsystem "
Writeln " start-up/shut-down or job recovery procedures.
Writeln " "
Writeln " "
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 200
FullWindow
Write 'CAPC4000 Script Editor CA-OPERA/PC'
GotoXY 1 24
Write 'F1-Hlp F2-Mrk F3-Sve F4-Quit F5-Add F6-Ins F7-Cpy F8-Mve F9-Del F10-Fnd'
GotoXY 1 2
TextColor Grey Blue
Writeln 'Status OPcon "Not Active" 79 '
Writeln 'OPscan off '
Writeln 'SYSscan off '
Writeln 'TimeOut 360 ;set Timeout value '
Writeln 'delay 2 ;set inter command delay '
Writeln 'Select OPcon ;4381 console '
Writeln 'key \key56\ ;mode select '
Writeln 'Lookfor "*GENERAL SELECTION*" '
Writeln 'key "l\enter\" ;select load screen '
Writeln 'Lookfor "PROGRAM LOAD" '
Writeln 'key "l\enter\" ;start the IPL '
Writeln '; now start MVS '
Writeln 'lookfor "IEA101A" '
Writeln 'key "\enter\ 2 '
Writeln 'lookfor "IEA347A" '
Writeln 'key "\enter\ 2 '
Writeln 'lookfor "IEA888A" '
Writeln 'key "r 00,u\enter\" 2 '
Writeln 'lookfor "CSV210I" '
Writeln 'key "s jes2,parm=noreq\enter\" '
Writeln 'Status OPcon Active 47 '
Writeln 'OPscan on '
wait 250
BoxHeader = 'CA-OPERA/PC Scripts'
TextWindowBig
Writeln " Although CA-OPERA/PC includes a complete Script Language and a "
Writeln " full-screen Script Editor, most scripts, including the one seen "
Writeln " here, will be built interactively. The ability to edit an "
Writeln " existing script means that minor changes to an operations
Writeln " procedure such as the change in IPL address can be affected "
Writeln " quickly without requiring that the procedure be re-LEARNED. "
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 200
EraseTopWindow
Wait 150
GotoXY 7 12
TextColor Black Grey
Write 'Script Generation'
MoveCount = 1
While MoveCount < 5
GotoXY 9 14
TextColor Yellow Red
Write 'Replay Script'
Wait 40
GotoXY 9 14
TextColor Black Grey
Write 'Replay Script'
Wait 40
MoveCount = MoveCount + 1
EndWhile
GotoXY 9 14
TextColor Yellow Red
Write 'Replay Script'
Wait 250
BoxHeader = 'CA-OPERA/PC Scripts'
TextWindowTop
Writeln " Script REPLAY can be used to test the validity of learned "
Writeln " scripts against the session recorded during LEARN mode. "
Writeln " This test facility for complex scripts ensures that when script "
Writeln " files are envoked in a production environment, they perform
Writeln " their intended function error-free. "
Writeln " "
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 200
GotoXY 9 14
TextColor Black Grey
Write 'Replay Script'
MoveCount = 1
While MoveCount < 5
GotoXY 6 16
TextColor Yellow Red
Write 'View/Print Log File'
Wait 40
GotoXY 6 16
TextColor Black Grey
Write 'View/Print Log File'
Wait 40
MoveCount = MoveCount + 1
EndWhile
GotoXY 6 16
TextColor Yellow Red
Write 'View/Print Log File'
Wait 150
BoxHeader = 'CA-OPERA/PC Log File'
TextWindowTop
Writeln " Because of the critical nature of console operations and "
Writeln " because CA-OPERA/PC provides remote access facilities, "
Writeln " a Log File of all maintenance, pager communications and remote "
Writeln " access activity is built automatically. This file can be viewed
Writeln " on-screen or printed as a permanent audit record. "
Writeln " "
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 200
EraseTopWindow
EraseTopWindow
BoxHeader 'CA-OPERA/PC Summary'
TextWindowHigh
Writeln
Writeln ' Automates operations tasks '
Writeln ' without mainframe dependencies'
Writeln
Writeln ' Monitors Operator and System Console'
Writeln
Writeln ' Automates IML/IPL and shutdown'
Writeln
Writeln ' Facilitates operation and diagnostics'
Writeln ' from remote mainframe'
Writeln
Writeln ' Automatic telephone page notification'
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
BoxHeader 'CA-OPERA/PC Summary'
TextWindowLow
Writeln
Writeln ' Secure dial-up access for remote'
Writeln ' operation and diagnostics'
Writeln
Writeln ' Complete activity log and reporting'
Writeln ' capabilities'
Writeln
Writeln ' Extended Script facilities for '
Writeln ' complex or lengthy operator tasks'
Writeln
Writeln ' On-screen HELP panels available'
Writeln ' for all functions and commands'
AskYesNo
if YesNo = 'No' then ExitMenu
EraseTopWindow
Wait 200
EraseTopWindow
EraseTopWindow
EraseTopWindow
EraseTopWindow
EraseTopWindow
EraseTopWindow
TextColor White Black
ClearScreen
TextWindow
TextColor White Blue
Drawbox 36 19 44 4
Writeln ' C O M P U T E R A S S O C I A T E S (R)'
Write ' Software superior by design.'
Wait 500
MoveCount = 1
While MoveCount < 18
MoveWindow -1 -1
MoveCount = MoveCount + 1
Wait 1
EndWhile
Wait 400
DrawBox 40 20 35 3
WriteCenter 'CA-OPERA/PC DEMONSTRATION'
Wait 200
MoveCount = 1
While MoveCount < 13
MoveWindow -1 -1
MoveCount = MoveCount + 1
Wait 1
EndWhile
MoveCount = 1
While MoveCount < 5
MoveWindow -1 1
MoveCount = MoveCount + 1
Wait 1
EndWhile
Wait 200
TextWindow
DrawBox 25 20 35 4
TextColor White Blue
Writeln ' '
Write ' Press SpaceBar to End Demo '
WaitForSpace
ExitMenu