Transcript The “SYS” utilities

The “SYS” utilities
Boston Conference
May 2004
The “SYS” utilitiles
• Natural no longer does a logon for utilities.
It retains the global variables, AIV settings
and session information.
• This means your STEPLIB is active; you
can use your own programs on FUSER.
• See the new “FREEGDA” parameter
setting if you desire the previous behavior.
The “SYS” utilities
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
AIV
BUS [was SYSBUS]
COMPOPT
DUMP
LAST/LASTMSG
LIST extensions/options
MAIL
NATPAGE
NOCSTAT
PROFILE and PROFILE
ROUTINES
SETUP/RETURN
SCAN
STRUCT
TECH [%<]
TEST [%<]
UPDATE
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
SYSEDT [ISPF editor bp maint]
SYSERR [error message maint]
SYSNCP [command processor]
SYSPARM [profile parameters]
SYSTRANS [module transfers; sysobjh]
SYSFILE [print/work file defs]
SYSPROD [SAG product info]
SYSPROF [system file info]
SYSADA [ADACALL]
SYSTP [TP-monitor info]
SYSEXT [user exit doc/examples]
SYSEXTP [User exits for TP-mon]
SYSEXXT [XML toolkit]
SYSSEC [Natural Security]
SYSBPM [Buffer Pool maint.]
• *CANCEL (abend current session)
• CEDF (callnat to CICS trace facility)
The “SYS” utilities: LIST profile
• LIST Custom Configuration Profile
– LISTPR-S in library SYSLIB
• Customize and save as LISTPROF in SYSLIB
• Has General default settings.
• Also has user specific settings available.
The “SYS” utilities: LIST profile
/* options for all users
/*---------------------------------------------------------------------[General-Start]
REUSE-LAST-LIST
N
/* Y/N
/* If set to 'Y' the last displayed list of objects is reused
/* after execution of commands entered in the 'Cmd' column
/* except for the commands
/* 'E', 'ED' (Edit), 'CA' (Catalog), 'UC' (Uncat),
/* 'S', 'ST' (Stow), 'D', 'DE' (Delete) or 'RE' (Rename).
COUNT-SOURCE-LINES
N
/* Y/N
/* Y = For every source object in the list of objects, the
/*
number of source lines is counted and displayed in the
/*
map with the source directory data (use PF11).
/* N = The number of source lines is not counted and displayed.
SORT-TEXT-MEMBER-NAME
/* LISTSORT
/* Name of the Natural text member that is used for storing
/* the sorted list.
/* If no name is specified, a generated name is used.
The “SYS” utilities: LIST profile
SORT-TEXT-MEMBER-LIBRARY
WORKPLAN
/* Name of the Library where the Natural text member that is
/* used for storing the sorted list is saved.
/* If no name is specified, the library WORKPLAN is used.
DELETE-SORT-TEXT-MEMBER
Y
/* Y = The Natural text member that is
/*
sorted list is deleted when the
/* N = The Natural text member that is
/*
sorted list is not deleted when
/*
ended.
/* Y/N
used for storing the
LIST command is ended.
used for storing the
the LIST command is
PRINT-PAGE-SIZE
60
/* Default page size for print.
MARK-LONG-LINES
N
/* Y/N
/* Y = Long lines in a listed source are marked with 'L'
/*
in front of the source line.
/* N = Long lines in a listed source are not marked.
The “SYS” utilities: LIST profile
DATA-AREA-DEFINE-DATA-FORMAT
N
/* Y/N
/* Y = A listed data area source is listed in 'DEFINE DATA'
/*
format by default (same as FORMATTED)
/* N = A listed data area source is listed unformatted
[General-End]
/*---------------------------------------------------------------------/* options for single users
/*---------------------------------------------------------------------[User-Start UID-EXAM]
REUSE-LAST-LIST
Y
/* Y/N
[User-End UID-EXAM]
The “SYS” utilities: LIST
•
•
•
•
•
•
Xref
DDM
Expand
Directory
Count
WITH…
–
–
–
–
–
Numbers
Formatted,
Fields, Extfields,
Settings,
Rules, freerules, inlinerules, autorules.
The “SYS” utilities
LIST XREF
11:57:07
Library: XDMD
Code
---I
D
V
C
E
P
W
----
*****
P R E D I C T 4.3.2
Xref Menu
-
Object
-----------------------------Invoked programs
Data areas and variables
Views and fields
Copycode
Error numbers
Printers
Work files
------------------------------
Code .........:
Structure ...*:
System .......:
Command ===>
(
? Help
Code
---S
R
F
X
A
N
O
----
*****
DBnr:
2004-05-12
25 Fnr:
115
Object
------------------------------Retained sets
Processing rules
Natural resources
Report programs with xref data
Verify application
Create new sets via selection
Operate on sets
-------------------------------
. Terminate )
The “SYS” utilities: List Count
10:52:11
User: DMDSAC
Type
---------Program
Subprogram
Copycode
Other ...
---------Source
Object
---------Total
***** NATURAL LIST COMMAND *****
Number/size of objects with name = A*
Saved
Number
Bytes
--------------3
1147
1
681
1
2578
------ -------5
4406
------ -------5
4406
Cataloged
Number
Bytes
---------------
Stowed
Number
Bytes
--------------8
67417
2
5601
------ --------
------ -------10
34518
10
38500
------ -------10
73018
0
0
------ -------0
0
05/12/2004
Library: XDMD
Total
Number
Bytes
---------------11
68564
2
5601
1
681
1
2578
------ --------15
38924
10
38500
------ --------15
77424
The “SYS” utilities: List Expand
Nest within the listed object the sources of
other objects referenced by the listed
object (eg. copycode, data area).
Optionally expand COMMENTS or first n
lines of expand object.
Expand types: P N S H G L A M C 4 * or E
for errors.
The “SYS” utilities: List Sequential
LIST Sequential [* > <]
10:28:50
User DMDSAC
Cmd
--__
__
__
__
__
__
Name
A*_______
A
ABEND
ACAR3006
ACTEST
ADATRACE
ADATROFF
***** NATURAL LIST COMMAND *****
- LIST Objects in a Library Type
*__________
Program
Program
Program
Program
Program
Subprogram
S/C
*__
S/C
S/C
S/C
S/C
S/C
S/C
SM
*
R
R
R
S
S
S
Version
*______
3.1.06
3.1.06
2.1.06
2.2.08
2.2.08
2.2.08
User ID
*________
DMDSAC
DMDSAC
THUMMEL
DMDSAC
DMDSAC
DMDSAC
05/12/2004
Library XDMD
Date
*__________
2003-09-09
2003-07-18
1991-09-04
2001-07-09
2001-03-19
2001-03-19
Time
*________
10:15:37
10:13:25
14:50:42
12:58:45
11:14:05
11:53:39
The “SYS” utilities: LIST options
Function codes for the Selection List:
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
?
CA
DE
DL
ED
EX
LD
LE
LF
LI
LN
PR
RE
RU
ST
UC
Shows all functions available for the marked object.
Compile the object and store it in object form.
Delete the object.
Download object from mainframe to PC (ENTIRE CONNECTION required
Edit the object's source.
Execute the object.
List directory information.
List in expanded form.
Display a data area or map formatted.
List the object's source.
Display the name of the external subroutine/class.
Print the object's source.
Rename the object.
Run the object source.
Stow the object in source and object form.
Uncat (delete) the object module.
The “SYS” utilities: List Directory
10:32:02
Program
ABEND
Library XDMD
05/12/2004
Directory of Program ABEND
Saved on ... 2003-07-18 10:13:25
------------------------------------------------------------------------------Library .... XDMD
User-ID ...... DMDSAC
Mode ....... Report
TP-System .. CICS
Terminal-ID .. T020
Op-System .. MVS/ESA
Transaction .. NT2S
NAT-Ver .... 3.1.6
Source size ..........................
82 Bytes
Directory of Program ABEND
Cataloged on 2003-07-18 10:13:25
------------------------------------------------------------------------------Library .... XDMD
User-ID ...... DMDSAC
Mode ....... Report
TP-System .. CICS
Terminal-ID .. T020
Op-System .. MVS/ESA
Transaction .. NT2S
NAT-Ver .... 3.1.6
Used GDA .....
Size of global data ..................
0 Bytes
Size in DATSIZE ......................
552 Bytes
Size in buffer pool ..................
2524 Bytes
Size of MCG-Code .....................
0 Bytes
Initial MCG string ...................
The “SYS” utilities: LIST
options
• REF value (shows all lines with variable)
• SETTINGS (display settings for maps)
• WITH: Directory, Numbers, expand
[formatted, comments], formatted [fields,
rules, extfields, inlinerules, freerules,
autorules].
The “SYS” utilities: List… zoom
0390
IF SRCID GT #DATA-TO-SEND0400
ESCAPE
0410 *
0420 FOR #I = 1 TO C*SRCTX(0360)
0430
MOVE INDEXED SRCTX(1)<#I>
0440
STACK DATA FORMATTED #SRC0450
WRITE #SRC-NUM #SRC-CODE
0460 CLOSE LOOP (0420)
0470 *
0480 CLOSE LOOP (0360)
0490 IF *COUNTER (0360) < 1
0500
REINPUT 'NO FILE TO COPY'
0510 *
0520 STACK DATA FORMATTED '0000'
0530 FETCH 'GNDU2111'
0540 END
***** End of list *****
+------------------------------More:
>+
| Program
GNDU2111
|
| *
|
| REPEAT UNTIL #SOURCE-CODE = '* END OF OUT |
|
INPUT #LINE-NUM #SOURCE-CODE
|
|
IF #LINE-NUM = SCAN ':'
|
|
COMPRESS #LINE-NUM #SOURCE-CODE INTO |
| *
|
|
RESET
#REST
(A73)
|
|
#WORD
(A40)
|
|
#COUNT
(N9)
|
|
#RELEASED
(N9)
|
| *
|
| * IF (#LINE-NUM = MASK (NNNN)) DO
|
| *
WRITE
#LINE-NUM #SOURCE-CODE
|
|
IF (#SOURCE-CODE NE MASK (X) '*')
|
|
AND (#SOURCE-CODE = SCAN '#'
|
| Command ===>
|
+-------------------------------------------+
The “SYS” utilities
AIV
13:13:27
*** NATURAL AIV Command ***
05/12/2004
TOP OF DATA
C
-__
__
__
__
__
__
__
__
__
__
Variable
----------------------------------+TEST-ENV
+INST-NAT
+MARK-LONG-LINES
+MAP-PARAMETER-A
+C-PLATFORM
+PRINT-PS
+SA-SAVED
+SA-EMPTY
+SA-NAME
+SA-TYPE
F Len
- ---- -------------------A
1
P
3
A
1
A
1 (9576)
L
P
3
L
L
A
8
A
1
You can display the contents by marking the “C” column with a “D”
The “SYS” utilities
BUS [was SYSBUS]
13:18:51
User DMDSAC
***** NATURAL BUS UTILITY *****
- Buffer Usage Statistics -
2004-05-12
TID T02D
M No. Name
Type
Size
Used
Perc. MaxUsed
Perc. MaxSize Perc.
-----------------------------------------------------------------------------1 IOCB
2120
2120 100.0
2120 100.0
2 CMPRTSZ
10416
3104
29.8
3104
29.8
3 GETPHTAB
1024
48
4.7
48
4.7
4 ISIZE
8192
4920
60.1
4920
60.1
5 BPMWORK
1128
544
48.2
544
48.2
6 RUNSIZE
16384
12052
73.6
12052
73.6
7 CFWSIZE
49152
5120
10.4
42736
86.9
8 BB#ESIZE
111648
15480
13.9
15672
14.0
9 EPLTAB
4192
2240
53.4
2272
54.2
10 PRNTWORK
6960
4272
61.4
4272
61.4
11 IOOVLY
352
352 100.0
352 100.0
12 IOOATTR
320
320 100.0
320 100.0
13 IOPAGE
32784
112
0.3
1733
5.3
14 IOPATTR
32784
92
0.3
3420
10.4
15 FSIZE
30752
32
0.1
32
0.1
Top of List
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12
Cont Help
Exit Dump Pos
-+
++
Total Addr Canc
The “SYS” utilities
BUS (continued)
M No. Name
Type
Size
Used
Perc. MaxUsed
Perc. MaxSize Perc.
-----------------------------------------------------------------------------16 RDCSIZE
2048
992
48.4
992
48.4
17 ASIZE
65536
48
0.1
48
0.1
18 RPCSIZE
1824
1824 100.0
1824 100.0
19 WORK08
1960
32
1.6
32
1.6
20 WORK07
1960
32
1.6
32
1.6
21 WORK06
1960
32
1.6
32
1.6
22 WORK05
1960
32
1.6
32
1.6
23 WORK04
1960
32
1.6
32
1.6
24 PRINT08
1960
32
1.6
32
1.6
25 PRINT07
1960
32
1.6
32
1.6
26 PRINT06
1960
32
1.6
32
1.6
27 PRINT05
1960
32
1.6
32
1.6
28 PRINT04
1960
32
1.6
32
1.6
29 AIVDAT
V
10016
10015 100.0
10015 100.0
30 HELPBUF
V
4096
32
0.8
4496 109.8
10240 250.0
The “SYS” utilities
BUS (continued)
M No. Name
Type
Size
Used
Perc. MaxUsed
Perc. MaxSize Perc
----------------------------------------------------------------------------31 ERRMSG
V
5152
658
12.8
658
12.8
32 GLBUSER
V
8656
8656 100.0
8656 100.0
33 DATSIZE
V
115648
16372
14.2
60240
52.1
34 EXPAFOBU V
256
32
12.5
73
28.5
35 SSIZE
V
56320
31760
56.4
31760
56.4
36 GLBSYS
V
16336
16336 100.0
16336 100.0
37 CPRTBUF
V
1440
138
9.6
138
9.6
38 NOCWBUF
V
4096
3872
94.5
3872
94.5
39 PRODBUF
V
136
136 100.0
136 100.0
40 SORTSZE
V
120
120 100.0
120 100.0
41 ADA#USER V
1024
548
53.5
548
53.5
42 IDIR
V
10080
2544
25.2
4428
43.9
43 IOSATTR
V
8064
2288
28.4
3824
47.4
44 IOSCRN
V
1960
1951
99.5
1952
99.6
ThrdSize
780K
Total
640624
(in KB)
626K
152339
149K
23.8
244153
239K
38.1
0
0K
0.0
The “SYS” utilities
BUS (continued)
•
•
•
•
Type V=variable buffer inside thread.
Type O=Variable buffer Outside thread.
Type P (or blank) = Fixed physical buffer.
Can display contents:
User DMDSAC
Offset
00000000
00000010
00000020
00000030
00000040
00000050
00000060
00000070
- BUS Dump -
C9D6E2C3
000007A0
0304F1F3
40404040
C1E3E4D9
E3E8405C
40404040
0304E4A2
D9D54040
00000000
7AF3F47A
04404040
C1D340C2
5C5C5C5C
4004F2F0
859904C4
000007A8
000007A8
F2F50440
405C5C5C
E4E240E4
40404040
F0F460F0
D4C4E2C1
0000079F
94A5C022
40404040
5C5C40D5
E3C9D3C9
40044040
F560F1F2
C3404004
TID T02D
*IOSCRN
?y ??*
* ??
?ymv{?*
*??13:34:25?
*
*
?
***** N*
*ATURAL BUS UTILI*
*TY *****
? *
*
?2004-05-12*
*??User?DMDSAC ?*
Address
164C2E60
164C2E70
164C2E80
164C2E90
164C2EA0
164C2EB0
164C2EC0
164C2ED0
The “SYS” utilities
COMPOPT:
13:47:51
05/12/200
User DMDSAC
(KCHECK)
(PCHECK)
(DBSHORT)
(PSIGNF)
(TSENABL)
(GFID)
(LOWSRCE)
***** NATURAL COMPOPT COMMAND *****
- Compilation Options -
Library XDMD
Keyword Checking ............................................
Parameter Checking for CALLNAT Statements ...................
Interpretation of Database Short Field Names ................
Internal Representation of Positive Sign of Packed Numbers ..
Applicability of TS Profile Parameter .......................
Generation of Global Format IDs .............................
Allow Lower Case Source .....................................
OFF
OFF
ON
ON
OFF
ON
OFF
Version Compatibility Options
(FINDMUN) Detect Inconsistent Comparison Logic in FIND Statements ..... OFF
(V22COMP) Allow Old Version 2.2 Syntax ................................ OFF
V22COMP is No longer available with Natural 4.
Use V31COMP instead.
The “SYS” utilities
COMPOPT Command
• The COMPOPT command provides the following enhancements:
• With the MASK option in a logical condition, a valid year value must
•
be in the range 0000 - 2699; with the MOVE EDITED statement, a
valid year value must be in the range 1582 - 2699. Consequently, a
year value found valid by a MASK option might lead to an error in a
subsequent MOVE EDITED statement. To avoid this situation, the
COMPOPT command provides a new option, MASKCME, which
allows you to determine whether the year range to be considered
valid by the MASK option is to begin with 0000 or 1582.
.
The “SYS” utilities
COMPOPT Command
• With Natural Version 2.3, the internal handling of assignments between two
Format N variables of the same length was changed, so as to be consistent
with the internal handling of assignments between Format N variables of
different lengths. One side effect of that change was that when these
variables were redefined, this could in some cases lead to different results.
With Version 4.1, the COMPOPT command provides a new option,
NMOVE22, which allows you to determine whether the internal handling of
assignments between Format N variables of the same length is to be
inconsistent as in Version 2.2 or consistent as in all subsequent versions
(the latter will be the default).
The NMOVE22 option replaces the corresponding special-purpose Zaps that
were supplied for Natural Versions 2.3 and 3.1. To provide upward
compatibility at runtime for objects cataloged with previous Natural Versions
without the Natural Optimizer Compiler, a Zap will be provided with
Natural Version 4.1. This Zap will not be provided for subsequent Natural
versions. Objects cataloged with previous Natural Versions with the Natural
Optimizer Compiler are not affected and will continue to work as before.
Affected objects should be recataloged as soon as possible with Natural
Version 4.1, with NMOVE22=ON being set..
The “SYS” utilities
COMPOPT Command
• The option V31COMP allows to reject syntax constructions that are
supported by Version 4.1, but not by Version 3.1. This option will be
available only with Natural Version 4.1 to allow a smooth transition.
It will be removed again with the next major release of Natural after
Version 4.1.
• The option TQMARK to check for the translation of quotation marks.
• With the option PCHECK set to ON, the compiler checks the number,
format, length and array index bounds of the parameters that are
specified in a CATALL statement. Also, the OPTIONAL feature of the
DEFINE DATA PARAMETER statement is considered in the parameter
check.
The “SYS” utilities: DUMP
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
AFB
BB
CST
DDR
DIR
EPL
FUL
GAA
GDA
GLC
GLS
IOB
KEY
PAR
PCB
PGF
PRT
QUT
RAS
SFB
SRS
SSB
WFB
System File Table
User area
Command Stack
ENTIRE Buffer
Directories
Entry Points Table
Editor Work Area
Graph. Array area
Graphics Data Area
Global Area (Com.)
Global Area (Sys.)
I/O Control Block
PF-Key Table
Parameter Area
Program CB
GDDM/PGF Work Area
Printer Table
Source Table
Retain CID Table
System File Buffer
Subroutine Stack
Source Side Buffer
Work File Buffer
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
name Search for a CSECT
/ slot named<name>
ABEND Display Abend Info
BP
Show buffer pool
BUF Buffer by Size Name
CORE Dump core
CSECTS List 'CSECTs'
DISA Dis-assemble
ENTRY Go to Entry Point
SRCE Display list of source changes
START Go to Load Point
SVAR System Variables (tp specific)
ZAPS Display Zap List
SCAN Scan for a string
SCANX Unlimited scan
RSCAN Repeat scan request
The “SYS” Utilities
DUMP ZAPS
13:55:55
User DMDSAC
1001
1014
2011
3001
3014
4009
4022
6001
6014
1002
1015
2012
3002
3015
4010
4023
6002
6015
***** NATURAL DUMP COMMAND *****
- List of Applied Zaps for Product NCI 1003
1016
2013
3003
3016
4011
5001
6003
1004
2001
2014
3004
3017
4012
5002
6004
1005
2002
2015
3005
3018
4013
5003
6005
1006
2003
2016
3006
4001
4014
5004
6006
1007
2004
2017
3007
4002
4015
5005
6007
1008
2005
2018
3008
4003
4016
5006
6008
1009
2006
2019
3009
4004
4017
5007
6009
1010
2007
****
3010
4005
4018
5008
6010
2004-05-12
Page 1 of 1
1011
2008
2021
3011
4006
4019
5009
6011
1012
2009
2022
3012
4007
4020
5010
6012
1013
2010
2023
3013
4008
4021
5011
6013
The “SYS” utilities: DUMP
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
Add-on Products
AZAP Driver AZAP Address
DRV Driver Start Addres
ECSA ECSA Address
EPT Entry Points Vector
NUC Get Load point of nucleus
PARM Active NATPARM
PGE Program Entry Point
PGM Program Load Point
SWAP Swap Pool Address VCA
VFCT File Control Table
VFWA File Work Area
VGFID Decoded Format Tabl
VROLL AIX Rollout Table
VSFT System File Table
VTAF Access File Table
VTSA Seq. Access Table
VUPD Update table
NDCA DL/1 Common Area
DTSA Table of Seq. Acces
DDFB Decoded Format Buff
DTHC Update table
DPCM PCB Map
DWRK
The “SYS” utilities: DUMP
CICS
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
CSA Common System Area
CBX Directory Extension
OPF Optional Features
PAM Page Allocation Map
PRM NCI Generation Parms
RCB Roll Fac. Cntrl Blk.
SIR Session Info Record
SCB System Directory
SIT System Init. Table
SRT System Recovery Tab.
STR System Trace Table
TCB Thread Control Bloc
TGD Thread Group Defins
TGH Thread Group Header
THD Thread Load Point
TRH Trace Table Header
TRT Current Trace Entry
TSM Temp. Storage Map
TST Temp. Storage Table
•
•
•
•
•
•
•
•
•
•
•
•
COM
DCA
DCT
DSA
EIB
FCT
PCT
PLT
PPT
TCA
TCT
TWA
Communication Area
Dispatch Cntrl Area
Destination Control
Dynamic Storage Area
Exec Interface Block
File Control Table
Program Control Tab.
Program List Table
Proc. Program Table
Task Control Block
Terminal Control Tab
Transaction Workarea
The “SYS” utilities: LAST
LAST *
+---------------------------------- LAST -----------------------------------+
|
__ LOGON
|
|
__ DUMP SRCE
|
|
__ BUS
|
|
__ SYSTP
|
|
__ LASTMSG
|
|
|
|
|
| PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- |
| Help
Exit
Exec
Canc
|
+---------------------------------------------------------------------------+
LAST re-executes the last command
LAST –nn re-executes the last minus nn commnad
LAST - displays the previous commands backward one at a time.
Natural 4 now shows the last 20 commands.
Previous versions showed 10.
The “SYS” utilities: LASTMSG
LASTMSG lists the last error messages.
+---------------------------------- LASTMSG -------------------------More:
++
| NAT7998 Initialization of access method NAF failed.
|
|
|
| Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF1 |
|
Exit
-++
<<
>
Can |
+-----------------------------------------------------------------------------+
Note: Mark one of the messages with the cursor, the following information
of the corresponding error will be displayed:
- error number;
- number of the line in which the error occurred;
- name, type and level of the object that caused the error;
- name, database ID and file number of library containing the object;
- error class;
- error type;
- date and time at which the error occurred.
The “SYS” utilities: PROFILE
The session profile
15:28:32
*** NATURAL SECURITY ***
- Security Profile -
2004-05-12
User
ID ....... DMDSAC
Name ..... Darrell Davenport
Type ..... Administrator
Link ID .. DMDSAC
ETID ..... V98CJ9PH
Library
ID ....... XDMD
Name ..... Darrell Davenport Personal Lib
----- Steplibs ----Library DBID FNR
SYSTEM
35
115
Transactions
Startup ..
Restart ..
Error ....
SYSTEM
Additional Options ... N
( *STEPLIB )
The “SYS” utilities: PROFILE
The session profile
15:28:32
*** NATURAL SECURITY ***
- Security Profile -
User
ID ....... DMDSAC
Name ..... Darrell Davenport
Type ..... Administrator
Library
ID ....... XDMD
Name ..... Darrell Davenport
Transactions
Startup ..
Restart ..
Error ....
2004-05-12
+---------Additional options----------+
|
|
|
_ + Security options
|
|
_ + Security limits
|
|
_ + Session parameters
|
|
_
Command restrictions
|
|
_
Editing restrictions
|
|
_
Statement restrictions
|
|
_
Time windows
|
|
_ + System files
|
|
_ + Natural version
|
|
|
+-------------------------------------+
SYSTEM
Additional Options ... N
( *STEPLIB )
The “SYS” utilities: Profile (edit)
15:33:46
***** NATURAL EDITORS *****
- Editor Profile -
05/12/2004
Profile Name .. SYSTEM__
PF and PA
PF1 ...
PF4 ...
PF7 ...
PF10 ..
PF13 ..
PF16 ..
PF19 ..
PF22 ..
PA1 ...
Keys
HELP___________
_______________
-______________
SC=____________
_______________
_______________
--_____________
_______________
_______________
Automatic Functions
Auto Renumber .. Y
_______________
_______________
+______________
_______________
_______________
_______________
++_____________
_______________
SCAN___________
Auto Save Numbers .. 0__
Additional Options .. N
Command ===>
PF2 ...
PF5 ...
PF8 ...
PF11 ..
PF14 ..
PF17 ..
PF20 ..
PF23 ..
PA2 ...
PF3 ...
PF6 ...
PF9 ...
PF12 ..
PF15 ..
PF18 ..
PF21 ..
PF24 ..
PA3 ...
EXIT___________
_______________
_______________
CANCEL_________
MENU___________
_______________
_______________
_______________
_______________
Source Save into .. EDITWORK
The “SYS” utilities: Routines
15:35:27
05/12/2004
User DMDSAC
EDITVARS
EDITVAR2
EMAIL
EMAILTST
ENQUTEST
ERR
ERRMAIN
ERRORER
ERRSUB
ESCSUBT
***** NATURAL ROUTINES COMMAND *****
- Subroutine Usage Display -
uses no external subroutines
uses no external subroutines
uses no external subroutines
uses no external subroutines
uses no external subroutines
uses no external subroutines
uses no external subroutines
uses no external subroutines
uses no external subroutines
contains external subrtn: FIND-AUTO
*** End of Report ***
Library XDMD
The “SYS” utilities: Setup/Return
Define target application for RETURN command.
May be any application you are linked to. May also specify
a command to execute upon return. May optionally
indicate all other “setup” command information is to be
deleted and this one will become the “Initial” one.
SETUP [application-name] [command-name] [I]
The “SYS” utilities: Setup/Return
Return to the target application specified by prior SETUP.
May specify any of the previously SETUP applications by its
position. For example RETURN -3 will return to the third
previous application that was SETUP. RETURN * will
present a selection menu. If no parameter, it returns to
the previous application.
RETURN [*, or I, or –nn]
The “SYS” utilities: SCAN
Search for character string in object(s).
• Count of object where string was found.
• List of modules containing string.
• Edit source code(s) which contain string.
• May specify Library name, Replacement string
value, Type of object, Component name
(wildcard), and absolute value ind.
• Cannot scan Data areas, maps, recordings,
dialogs, and functions.
• Allows scan of libraries otherwise forbidden.
The “SYS” utilities: Struct
User DMDSAC
- Menu Code
G
D
P
W
?
.
Code ................
Source name .........
Display compressed ..
Shift value .........
Align comments ......
Display messages ....
Return to STRUCT ....
Library XDMD
Function
Generate structured source into work area
Display structure of source
Print structure of source
Write structure of source into work area
Help
Exit
D
________ If blank, current source
N (Y/N)
2 (1 - 9)
Y (Y/N/L)
Y (Y/N)
N (Y/N)
The “SYS” utilities: Struct
08:38:43
0220
0230
0240
0250
0260
0270
0280
0290
0300
0310 0280
0320
0330
0340
0350 0330
0360
0370
0380
0390
0400 0380
0410
0420
- Structured Source CALC1 in Library XDMD 20T #HEX-INPUT (2) (CV=#HEX-CV)
*R
// #NUM-ANSWR (AD=O CV=#NUM-CV)
*R
20T #HEX-ANSWR (AD=O CV=#HEX-CV)
*R
// 20T 'PRESS PF12 TO QUIT'
*R
*
*R
RESET #MSG
*R
IF *PF-KEY = 'PF12' DO
*RD
SET CONTROL 'WB'
*RD
STOP
*RD
DOEND
*RD
IF #NUM-CV MODIFIED AND
*R
#HEX-CV MODIFIED DO
*RD
MOVE 'CHANGE ONLY THE HEX OR THE DECIMAL, NOT BOT *RD
DOEND
*RD
*
*R
IF #NUM-CV MODIFIED
*R
DO
*RD
MOVE #NUM-INPUT (*) TO #HEX-INPUT (*)
*RD
DOEND /* (0380)
*RD
ELSE
*R
IF #HEX-CV MODIFIED
*R
The “SYS” utilities: Struct
If parts of the source must not be shifted,
frame these sections with
'/*STRUCT OFF' and '/*STRUCT ON'. These
instructions must be entered at the
beginning of a source-code line.
Natural 4: Struct now supports 2 digit field
levels.
The “SYS” utilities: TECH
+------------------ TECH -----------+
| 10:32:26
05/13/2004 |
|
|
| User ................. DMDSAC
|
| Library .............. XDMD
|
|
|
| Version / SM Level ... 4.1 / 0002 |
| Startup Transaction ..
|
| Natural Security ..... Yes
|
| Operating System ..... z/OS
|
| Oper. Sys. Version ... 01.04.00
|
| Machine Class ........ MAINFRAME |
| Hardware ............. 2066
|
| TP Monitor ........... CICS
|
| Device Type .......... VIDEO
|
| Terminal ID .......... T007
|
|
|
| Last Command ......... LOGON
|
+-----------------------------------+
+------------------------------------------+
| Last Error
|
|
Error Number ....... 7998
|
|
|
|
Error Line .........
|
|
Object .............
|
|
Object Type ........
|
|
Level ..............
|
|
Library ............
|
|
DBID/FNR ...........
|
|
|
|
Error Class ........ System
|
|
Error Type ......... Command execution |
|
Error Time ......... 2004-05-1310:32:23|
|
|
|
Error Transaction ..
|
+------------------------------------------+
The “SYS” utilities: TECH (cont).
+---------------------------------------------------------+
|
|
|
Steplib
DBID FNR
Object
Type Level Number |
|
-------- ----- ------------ ---- ----- ------ |
|
SYSTEM
35
115
|
|
SYSTEM
25
115
|
|
SYSTEM
25
125
|
|
|
+---------------------------------------------------------+
The “SYS” utilities: UPDATE
Function: Prevent (or allow) database updating being carried out by a program
Parameters:
ON : Perform database updating.
-> This will be ignored if updating has been inhibited by the
Natural administrator during Natural installation.
OFF: Prevent database updating which would normally be performed as a
result of an UPDATE, STORE, or DELETE statement.
Programs containing these statements will execute normally but no
modification of the database will occur.
Note: The UPDATE command has no effect on other Natural system
commands.
The “SYS” utilities: SYSERR
Modify and maintain error messages.
• Natural, and User/Application errors.
• Short and long Text
Related subjects:
MOVE nnnn to *ERROR-NR
REINPUT WITH TEXT *nnnn
USR0320N (read user error message, short text).
USR0020N (read any error message text)
The “SYS” utiliites: SYSPARM
Natural Session parameters
• AUTO (TP monitor user-id, or “AUTO”)
• TERMINAL (Terminal it, as in *INIT-ID)
• PROGRAM (*INIT-PROGRAM)
• Whatever name you like.
• Stored in FUSER. One profile can
reference another (nesting).
The “SYS” utilities: SYSPARM
User DMDSAC
- Menu Code
L
D
A
M
C
X
?
.
Function
List Profiles
Display Profile
Add New Profile
Modify Profile
Copy Profile
Delete Profile
Help
Exit
Code ..... _
Profile .. ________
Copy to .. ________
DBID ..
25
FNR ..
106
The “SYS” utilities: SYSPARM
08:13:05
***** NATURAL SYSPARM UTILITY *****
- Display Profile NAFSIZE=1,NAFUPF=EXIT,RDCSIZE=2,OPT=(DIGTCHCK,INDX,OVFLW)
•
•
•
You can execute SYSPARM utility functions in directcommand mode or batch mode: see Direct Commands and
Batch Processing in the Natural SYSPARM Utility
documentation.
With Natural 3.1, you could only maintain parameter
profiles stored on and applying to the current FNAT
system file. With Natural 4.1, it is also possible to
maintain parameter profiles of other FNAT system files.
You can enter a commentary text in each editor line, or
spread a comment over as many lines as you like.
The “SYS” utilities: SYSFILE
User DMDSAC
- Work File Information -
TID T00E
M No. Type
Name Recfm Lrecl Blksz Status
----------------------------------------------------------------------------4 PC
VB
Available for Input/Output
5 PC
VB
Available for Input/Output
6 PC
VB
Available for Input/Output
7 PC
VB
Available for Input/Output
8 PC
VB
Available for Input/Output
User DMDSAC
- Print File Information -
TID T00E
M No. Type
Name Recfm Lrecl Blksz Status
------------------------------------------------------------------------1 NATSPOOL
VBA
1016 Available for Output
2 NATSPOOL
VBA
1016 Available for Output
4 PC
PCPRNT04 FBA
1016 Available for Output
5 PC
PCPRNT05 FBA
1016 Available for Output
6 PC
PCPRNT06 FBA
1016 Available for Output
7 PC
PCPRNT07 FBA
1016 Available for Output
8 PC
PCPRNT08 FBA
1016 Available for Output
The “SYS” utilities: SYSPROD
+----------------- Product Information -----------------+
|
|
| Cmd Product Name
V/R SM Date
|
| __ NATURAL
3.1
6 2004-05-06 |
| __ ADABAS ONLINE SERVICES
7.1
2 2003-03-24 |
| __ ENTIRE System Server
3.2
1 2003-09-30 |
| __ NATURAL ISPF
2.5
1 2003-09-30 |
|
Natural CICS Interface
2.3
7 2004-03-10 |
| __ Natural Development Server
2.1
2 2004-05-07 |
|
NATURAL OPTIMIZER COMPILER
2.3
7 1998-03-24 |
| __ NATURAL SECURITY
3.1
6 2004-04-27 |
| __ NATURAL CONNECTION
3.1
6 2002-11-22 |
| __ PREDICT
4.3
2 2004-05-12 |
• EX .. Display extended product information.
• HI .. Display history of product information.
• SC .. Display subcomponents.
The “SYS” utilities: SYSPROF
+---- NATURAL System File Assignments ----+
|
|
| File Name
DBID
FNR Type
|
| FUSER
25
115 ADABAS V6 |
| FSPOOL
25
106 ADABAS V6 |
| FDIC
35
238 ADABAS V6 |
| FSEC
25
177 ADABAS V6 |
| FNAT
25
106 ADABAS V6 |
The “SYS” utiliites: SYSADA
Enter information and press 'PF10' to execute
08:35:12
***** NATURAL ADACALL UTILITY *****
05/14/2004
User DMDSAC
- ADABAS Direct Calls Mode Char
Call No. 0
*** Control Block ***
First Byte 00
Cmd
Cmd ID
File 0
Database 25
Resp 0
ISN 0
ISQ 0
ISL 0
FBL 210
RBL 980
SBL 140
VBL 140
IBL 0
COP1
COP2
User Area
Cmd Time
Addition1
Addition2 Addition3
Addition4
Addition5
*** Buffer Areas ***
Format
Record
Search
Value
ISN
Command ===>
The “SYS” utiliites: SYSADA
Last call has been succesfully executed
08:38:48
***** NATURAL ADACALL UTILITY *****
User DMDSAC
- ADABAS Direct Calls Mode Hex
05/14/2004
Call No. 13
*** Record Buffer ***
0000 C5F0F0F0 F1404040 40404040 40404040 40404040 * E0001
0014 40404040 40404040 40404040 40404040 40404040 *
0028 40404040 40404040 40404040 40404040 40404040 *
003C 40404040 40404040 40404040 40404040 40404040 *
0050 40404040 40404040 40404040 40404040 40404040 *
0064 40404040 40404040 40404040 40404040 40404040 *
0078 40404040 40404040 40404040 40404040 40404040 *
008C 40404040 40404040 4040D489 A2A28995 87618995 *
Missing/in
00A0 A5819389 8440A2A8 95A381A7 5E40A495 84858689 * valid syntax; undefi
00B4 95858440 A5819989 81829385 40958194 85619285 * ned variable name/ke
00C8 A8A69699 844B4040 40404040 40404040 40404040 * yword.
00DC 40404040 40404040 40404040 40404040 40404040 *
00F0 40404040 40404040 40404040 40404040 40404040 *
Specify next page number 1 (1-4)
or new buffer (CB, FB, SB, VB, IB), '?' (Help) or '.' (Exit) RB
Command ===>
*
*
*
*
*
*
*
*
*
*
*
*
*
The “SYS” utilities: SYSTP
User DMDSAC
- Main Menu -
TID T00E
Code Function
E Environment-Dependent Functions
M NATURAL Monitoring (SYSMON)
F NATURAL Print/Work Files (SYSFILE)
S NATURAL Swap Information
B Buffer Usage Statistics (BUS)
R NATURAL Subsystems and Roll Server Information
T NATURAL Thread Usage Statistics
? Help
. Exit
Code ..
The “SYS” utilities: SYSTP
User DMDSAC
- NATURAL Swap Information Menu -
Code
A
B
I
L
R
U
S
?
.
Code
.. _
Function
Show Addresses
Show Summary of Buffer Usage
Show Swap Pool Information
Show Logical Swap Pools
Show Reorg Control Data
Show Swap Pool Usage
Create Statistics List
Help
Exit
TID T00E
The “SYS” utilities: SYSTP
User DMDSAC
- Swap Pool Statistics/Control Data -
TID T00E
+-------------------- Control Data and Statistics ----------------------------+
I Buff.Us.: N I No. of log. SWPs:
3 I Tot. no. of dialog steps :
1106 I
I Intreorg: N I Tot.no.SWP slots:
179 I Tot. no. of writes
:
757 I
I Startreo: N I Max. no.of users:
24 I Tot. no. of swaps
:
749 I
I SWD res.: N I Curr.no.of users:
23 I Max. dialo. without swaps:
27 I
I Cmprfix : N I No.abnormal ends:
0 I Curr dialo. without swaps:
1 I
I Deactiv.: N I Curr.fac.reo.tab:
1 I Tot. no. of swp-syn-waits:
0 I
I Asyn.wr.: N I New fac.reo.tab:
1 I Tot. no. of swp-wrt-waits:
0 I
+-------------+-------------------------+-------------------------------------+
I
Memory Sizes in KB
I
General Information
I
I Size of NATURAL Swap Pool :
15000 I SWP Name ......... NC316SWP
I
I Size of main directory
:
2 I
I
I Size of NAT user thread
:
780 I Type ............. Local
I
I Max.allocated buffersize :
844 I
I
I Max. Rollfile thread size :
780 I 1st allocation: 04-05-14 / 06:14:43 I
I
I
I
+---------------------------------------+-------------------------------------+
Select function.
Command ===>
The “SYS” utilities: SYSTP
User DMDSAC
Thread Usage Statistics
Code
A
D
P
S
G
.
Code
Select function code.
_
Library SYSTP
Function
Activate Statistics
Deactivate and Print Statistics
Print Statistics
Show Statistics
Show Physical Getmain Statistics
Exit
The “SYS” utilities: SYSTP
User DMDSAC
- Menu Code
U
R
G
T
C
P
D
O
I
A
Z
?
.
Code ..
Function
NATURAL User Sessions
NATURAL Roll Facilities
NATURAL Thread Groups
NATURAL Storage Threads
NCI Global System Information
NCI Generation Options
NATURAL Thread Group Definitions
Own NATURAL User Session
CICS Task Information
System Administration Facilities
Applied NCI Zaps
Help
Exit
TID T00E
The “SYS” utilities: SYSTP
+-------------Selection for User Sessions--------------+
| D
Inactivity Date and Time
|
| I
Inactivity Time Interval
|
| L
Natural Library ID
|
| N
Natural Server ID
|
| P
Natural Program ID
|
| S
CICS system ID
|
| T
Terminal ID
|
| U
User ID
|
| X
Transaction ID
|
| .
Exit Function
(PF3)
|
| _
<- Enter Selection Code
|
+------------------------------------------------------+
The “SYS” utilities: SYSTP
User DMDSAC
- NATURAL User Sessions -
TID T00E
M TID
User ID
Tran Start Date / Time
Last Act Status Program
Logon ID
-----------------------------------------------------------------------------? MN00 MANDARIN MAN0 2004-05-14 07:00:40 07:00:40 Act
CWIDISP
DCE
T00B BONNER
NT2S +-------User Sessions--------+ Swp
FAUT502M FINAID
T00C CENTRAL
NT2S | .
Exit
(PF3) | Swp
INSI500M SCBAIMS
T00D MILLERN
NT2S | /
Position
(PF5) | Swp
HHERRP1
OARS
T00E DMDSAC
NT2S | P
Position
(PF5) | Act
SCPSIR1P SYSTP
T00F SPBA
NT2S | U
Select User
(PF4) | Swp
ISP-MEN1 OARS
T001 SPARKSD
NT2S | C
Cancel Session
| Act
ISPNLSCN SOURCE
T002 BONNER
NT2S | F
Flush Session
| Rld
ISP-BR-M FINAID
T003 ARNDT
NT2S | R
Reactivate Session
| Rld
ISP-BR-M BRS
T004 ARNDT
NT2S |
<- Enter Function Code | Swp
ACBR507M BRS
T005 HARPER
NT2S +----------------------------+ Act
ISPNLSCN MANDARN
T006 ZIPPER
NT2S 2004-05-14 07:31:44 08:05:43 Rld
ISP-MEN1 FINAID
T007 GILBREM
NT2S 2004-05-14 07:39:14 08:42:49 Rld
ISP-BR-M BALANCES
T008 ARNDT
NT2S 2004-05-14 07:41:38 08:42:32 Rld
ISP-BR-M PAPR
T009 GILBREAT NT2S 2004-05-14 07:43:16 08:20:47 Swp
ISP-MEN1 FINAID
The “SYS” utilities: SYSTP
User DMDSAC
Started: Friday
- NATURAL User Session Statistics 2004-05-14
07:00:40
Last Actions: 2004-05-14
User MANDARIN at Terminal MN00
Transid MAN0
Cur Strg Used:
533
Max Strg Used:
0
Common Thread Size:
780 Thread Group: NC316G01
Max Strg Used:
709
of Type = GETM
Thread Size:
Max Strg Used:
780
709
Thread Name:
NATURAL Library:
NATURAL Program:
DCE
CWIDISP
Operational Status:
Active
Line No.:
TID T00E
NSCPMN00
17300
Session Resumes:
Swap-Ins:
Thread Switches:
Roll-Ins:
07:00:40
0
0
0
0
Roll Facility: MAINSTOR
Roll Recs (Last):
0
Roll Recs (Max):
0
Roll Record Size: 32748
Slot Size:
25
Restart Rec. No.:
n/a
Slot Number:
n/a
Compressed Length:
n/a
The “SYS” utilities: SYSTP
User DMDSAC
System started on
- Global System Information
Friday
2004-05-14
Cur
25 /
0 /
0 /
NATURAL User Sessions:
Concurrent SCP Active:
SIR Block Extensions:
Slots in 1st SIR Block:
Slots in SIR Block Extns:
VSAM Roll File Slots:
Possible Roll Facilities:
Thread Groups:
System Resets:
System Recoveries:
Size of DIR Extension (B):
Operating System Host ID:
CICS System ID:
AIS0
REGS
Max
25
1
0
550
50
0
2
1
0
0
80
at
-
TID T00E
06:14:43
Available Resources: KB
Swap Pool:
15000
above
Local Buff. Pool:
n/a
Sort Buffer Pool:
n/a
DL/1 Buffer Pool:
n/a
Edit Buffer Pool:
4095
above
Monitor Pool:
n/a
Max Thread Size:
780
VSAM Roll Files:
No
Main/Aux TempStor:
Yes / Yes NAT3
Session Logging:
No
NLOG
Message Logging:
No
NERR
Message Switching:
Yes
NMSG
Trace active:
No
Assembled Last:
03-09-25
11.20
The “SYS” utilities: SYSTP
+--------------------- SYSTP Task Information ----------------------+
| 08:51:43
2004-05-14 |
|
|
| CICS Terminal ID: T00E
VTAM Net Name:
WNLB0590
|
| NATURAL Term. ID: T00E
|
| Op.System Name:
AIS0
Operating System: MVS/ESA SP7.0.4
|
| CICS System ID:
REGS
TP Monitor:
CICS/ESA 6.2
CTS 2.2 |
| Application ID:
WRGSCICS
|
| CICS User ID:
DMDSAC
NATURAL User ID: DMDSAC
|
|
|
| Transaction ID:
NT2S
Current Program: NCI316RE at 135E5000 |
| Task Number:
1764
NATURAL Nucleus: NAT316SH at 14A00000 |
| Addressing Mode: 31
Execution Key:
CICS
|
+---------------------------------------------------------------------+
The “SYS” utilities: SYSTP
User DMDSAC
- Debugging Facilities -
TID T00E
Enter Authorization Code:
Command ===>
Force Abend when NCI Failure:
OFF
(ON/OFF)
Force Thread Switching:
OFF
(ON/OFF)
Clear Thread after Roll-Out:
OFF
(ON/OFF)
Environment Integrity Check:
OFF
(ON/OFF)
Force Dump in Case of Abend:
OFF
(ON/OFF)
Force Uncompressed Rolling:
OFF
(ON/OFF)
Force Thread-Locking:
OFF
(ON/OFF)
The “SYS” utilities: SYSTP
This utility is to activate/de-activate the CICS trace facility for certain
events within NATURAL.
User DMDSAC
- Trace Facilities -
Trace Status:
CMSTART
CMDLET
CMSKEY
CMSUBM
CMLOCA
NCIKCRQ
NCITMRQ
SCPTERM
SCPRLOT
OFF
CMTSKND
CMGTIME
CMBPGETS
CMTDATA
NCITERM
NCIPCRQ
NCIINXIT
SCPFTCB
SCPWRIT
(ON/OFF/ALL/NAT/NCI/SCP/CLR)
CMWTERM
CMDBAS
CMPROPBP
CMPROF
NCITRAP
NCISCRQ
NCIRSXIT
SCPFRCB
SCPRLIN
CMGETMP
CMWAIT
CMBPLST
CMSYNC
NCIWFAM
NCISPRQ
SCPMAIN
SCPFSIR
SCPREAD
CMFREMP
CMABEND
CMSTCKSY
CMEDWFM
NCIFCRQ
NCITCRQ
SCPINIT
SCPRSIR
SCPDUMP
TID T00E
Trace Type:
CMOCAL
CMWTL
CMMSGSW
CMRELOD
NCIICRQ
NCITDRQ
SCPSUSP
SCPRCVR
SCPSWAP
System
CMLOAD
CMWTO
CMTASK
CMSRV
NCIJCRQ
NCITSRQ
SCPRESM
SCPRSET
SCPINST
The “SYS” utilities: SYSEXTP
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
Program
Description
Environments
-------------------------------------------------------------------ASYNBAT
Start A Subtask
Batch
ASYNCICS Start A Task
CICS
ASYNCOMP Start An Asynchronous Task
COM-PLETE
BS2COM
Execute A BS2000 System Command
BS2000 TIAM/BATCH
B2PFIEXA Dynamic file allocation (Sample)
BS2000 TIAM/BATCH
B2PFILE
Dynamic file allocation (Utility)
BS2000 TIAM/BATCH
CEDF
Activate CICS Execution Diag. Facility
CICS
DYNA
Dynamic Dataset Allocation
All MVS
CMS
Execute CMS Command
CMS
MSGSW
Terminal Message Switching
Non-Batch
PROGSET
Set Backend Program/Transaction Name
All except CMS
SUBMIT
Submit Job To Operating System
All
SUSPEND
Suspend Session
All
TRANSET
Set Pseudo-Conversational Transaction
CICS
TSO
Execute TSO Command
TSO
WTL
Write Message To SYSLIST
All
WTO
Write Message To Operator Console
All
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*