The SYS utilities

About This Presentation

Title:

The SYS utilities

Description:

N = The number of source lines is not counted and displayed. SORT-TEXT-MEMBER-NAME /* LISTSORT ... To provide upward compatibility at runtime for objects ... – PowerPoint PPT presentation

Number of Views:243

Avg rating:3.0/5.0

Slides: 67

Provided by: wsu69

Category:

more less

Transcript and Presenter's Notes

Title: The SYS utilities

1
The SYS utilities

Boston Conference
May 2004

2
The SYS utilitiles

Natural no longer does a logon for utilites. 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.

3
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 lt
TEST lt
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)

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

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

6
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/N
/ Y The Natural text member that is used
for storing the
/ sorted list is deleted when the LIST
command is ended.
/ N The Natural text member that is used
for storing the
/ sorted list is not deleted when the
LIST command is
/ ended.
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.

7
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

8
The SYS utilities LIST

Xref
DDM
Expand
Directory
Count
WITH
Numbers
Formatted,
Fields, Extfields,
Settings,
Rules, freerules, inlinerules, autorules.

9
The SYS utilities

LIST XREF
115707 P R E D I C T 4.3.2
2004-05-12
Library XDMD - Xref Menu -
DBnr 25 Fnr 115
Code Object Code
Object
---- ------------------------------ ----
-------------------------------
I Invoked programs S
Retained sets
D Data areas and variables R
Processing rules
V Views and fields F
Natural resources
C Copycode X
Report programs with xref data
E Error numbers A
Verify application
P Printers N
Create new sets via selection
W Work files O
Operate on sets
---- ------------------------------ ----
-------------------------------
Code ......... ( ? Help . Terminate )
Structure ...

10
The SYS utilities List Count

105211 NATURAL LIST COMMAND
05/12/2004
User DMDSAC Number/size of objects with name
A Library XDMD
Saved Cataloged
Stowed Total
Type Number Bytes Number Bytes
Number Bytes Number Bytes
---------- --------------- ---------------
--------------- ----------------
Program 3 1147
8 67417 11 68564
Subprogram
2 5601 2 5601
Copycode 1 681
1 681
Other ... 1 2578
1 2578
---------- ------ -------- ------ --------
------ -------- ------ ---------
Source 5 4406
10 34518 15 38924
Object 0 0
10 38500 10 38500
---------- ------ -------- ------ --------
------ -------- ------ ---------
Total 5 4406 0 0
10 73018 15 77424

11
The SYS utilities List Expand

Nest within the listed object the sources of
other objects referenced by the listed object
(eg. copycodes, data areas). 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.

12
The SYS utilities List Sequential

LIST Sequential gt lt
102850 NATURAL LIST COMMAND
05/12/2004
User DMDSAC - LIST Objects in a
Library - Library XDMD
Cmd Name Type S/C SM Version
User ID Date Time
--- A_______ __________ __ ______
________ __________ ________
__ A Program S/C R 3.1.06
DMDSAC 2003-09-09 101537
__ ABEND Program S/C R 3.1.06
DMDSAC 2003-07-18 101325
__ ACAR3006 Program S/C R 2.1.06
THUMMEL 1991-09-04 145042
__ ACTEST Program S/C S 2.2.08
DMDSAC 2001-07-09 125845
__ ADATRACE Program S/C S 2.2.08
DMDSAC 2001-03-19 111405
__ ADATROFF Subprogram S/C S 2.2.08
DMDSAC 2001-03-19 115339

13
The SYS utilities LIST options

Function codes for the Selection List
? Shows all functions available for the
marked object.
CA Compile the object and store it in
object form.
DE Delete the object.
DL Download object from mainframe to PC
(ENTIRE CONNECTION required
ED Edit the object's source.
EX Execute the object.
LD List directory information.
LE List in expanded form.
LF Display a data area or map formatted.
LI List the object's source.
LN Display the name of the external
subroutine/class.
PR Print the object's source.
RE Rename the object.
RU Run the object source.
ST Stow the object in source and object
form.
UC Uncat (delete) the object module.

14
The SYS utilities List Directory

103202 Program ABEND Library
XDMD 05/12/2004
Directory of Program ABEND
Saved on ... 2003-07-18 101325
--------------------------------------------------
-----------------------------
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 101325
--------------------------------------------------
-----------------------------
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

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

16
The SYS utilities List zoom

0390 IF SRCID GT DATA-TO-SEND-
------------------------------More gt
0400 ESCAPE Program
GNDU2111
0410
0420 FOR I 1 TO CSRCTX(0360) REPEAT UNTIL
SOURCE-CODE ' END OF OUT
0430 MOVE INDEXED SRCTX(1)ltIgt INPUT
LINE-NUM SOURCE-CODE
0440 STACK DATA FORMATTED SRC- IF
LINE-NUM SCAN ''
0450 WRITE SRC-NUM SRC-CODE COMPRESS
LINE-NUM SOURCE-CODE INTO
0460 CLOSE LOOP (0420)
0470 RESET
REST (A73)
0480 CLOSE LOOP (0360)
WORD (A40)
0490 IF COUNTER (0360) lt 1
COUNT (N9)
0500 REINPUT 'NO FILE TO COPY'
RELEASED (N9)
0510
0520 STACK DATA FORMATTED '0000' IF
(LINE-NUM MASK (NNNN)) DO
0530 FETCH 'GNDU2111' WRITE
LINE-NUM SOURCE-CODE
0540 END IF
(SOURCE-CODE NE MASK (X) '')
End of list AND
(SOURCE-CODE SCAN ''
Command gt
-------------------------------------------

17
The SYS utilities

AIV
131327 NATURAL AIV Command
05/12/2004
TOP OF DATA
C Variable F Len
-- ----------------------------------- - ----
--------------------
__ TEST-ENV A 1
__ INST-NAT P 3
__ MARK-LONG-LINES A 1
__ MAP-PARAMETER-A A 1
(9576)
__ C-PLATFORM L
__ PRINT-PS P 3
__ SA-SAVED L
__ SA-EMPTY L
__ SA-NAME A 8
__ SA-TYPE A 1
You can display the contents by marking the C
column with a D

18
The SYS utilities

BUS was SYSBUS
131851 NATURAL BUS UTILITY
2004-05-12
User DMDSAC - Buffer Usage
Statistics - 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 BBESIZE 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

19
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

20
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 ADAUSER 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

21
The SYS utilities

BUS (continued)
Type Vvariable buffer inside thread.
Type OVariable buffer Outside thread.
Type P (or blank) Fixed physical buffer.
Can display contents
User DMDSAC - BUS Dump -
TID T02D
Offset
Address
00000000 C9D6E2C3 D9D54040 000007A8 0000079F
IOSCRN ?y ?? 164C2E60
00000010 000007A0 00000000 000007A8 94A5C022
?? ?ymv? 164C2E70
00000020 0304F1F3 7AF3F47A F2F50440 40404040
??133425? 164C2E80
00000030 40404040 04404040 405C5C5C 5C5C40D5
? N 164C2E90
00000040 C1E3E4D9 C1D340C2 E4E240E4 E3C9D3C9
ATURAL BUS UTILI 164C2EA0
00000050 E3E8405C 5C5C5C5C 40404040 40044040
TY ? 164C2EB0
00000060 40404040 4004F2F0 F0F460F0 F560F1F2
?2004-05-12 164C2EC0
00000070 0304E4A2 859904C4 D4C4E2C1 C3404004
??User?DMDSAC ? 164C2ED0

22
The SYS utilities

COMPOPT
134751 NATURAL COMPOPT
COMMAND 05/12/200
User DMDSAC - Compilation Options
- Library XDMD
(KCHECK) Keyword Checking .......................
..................... OFF
(PCHECK) Parameter Checking for CALLNAT
Statements ................... OFF
(DBSHORT) Interpretation of Database Short Field
Names ................ ON
(PSIGNF) Internal Representation of Positive
Sign of Packed Numbers .. ON
(TSENABL) Applicability of TS Profile Parameter
....................... OFF
(GFID) Generation of Global Format IDs
............................. ON
(LOWSRCE) Allow Lower Case Source
..................................... 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.

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

24
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 NMOVE22ON being set..

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

26
The SYS utilities DUMP

AFB System File Table
BB User area
CST Command Stack
DDR ENTIRE Buffer
DIR Directories
EPL Entry Points Table
FUL Editor Work Area
GAA Graph. Array area
GDA Graphics Data Area
GLC Global Area (Com.)
GLS Global Area (Sys.)
IOB I/O Control Block
KEY PF-Key Table
PAR Parameter Area
PCB Program CB
PGF GDDM/PGF Work Area
PRT Printer Table
QUT Source Table
RAS Retain CID Table

name Search for a CSECT
/ slot namedltnamegt
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

27
The SYS Utilities

DUMP ZAPS
135555 NATURAL DUMP COMMAND
2004-05-12
User DMDSAC - List of Applied Zaps for
Product NCI - Page 1 of 1
1001 1002 1003 1004 1005 1006 1007 1008
1009 1010 1011 1012 1013
1014 1015 1016 2001 2002 2003 2004 2005
2006 2007 2008 2009 2010
2011 2012 2013 2014 2015 2016 2017 2018
2019 2021 2022 2023
3001 3002 3003 3004 3005 3006 3007 3008
3009 3010 3011 3012 3013
3014 3015 3016 3017 3018 4001 4002 4003
4004 4005 4006 4007 4008
4009 4010 4011 4012 4013 4014 4015 4016
4017 4018 4019 4020 4021
4022 4023 5001 5002 5003 5004 5005 5006
5007 5008 5009 5010 5011
6001 6002 6003 6004 6005 6006 6007 6008
6009 6010 6011 6012 6013
6014 6015

28
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

29
The SYS utilities DUMP
CICS

COM Communication Area
DCA Dispatch Cntrl Area
DCT Destination Control
DSA Dynamic Storage Area
EIB Exec Interface Block
FCT File Control Table
PCT Program Control Tab.
PLT Program List Table
PPT Proc. Program Table
TCA Task Control Block
TCT Terminal Control Tab
TWA Transaction Workarea

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

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

31
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 --
ltlt gt 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.

32
The SYS utilities PROFILE

The session profile
152832 NATURAL SECURITY
2004-05-12
- Security Profile
-
User
ID ....... DMDSAC
Link ID .. DMDSAC
Name ..... Darrell Davenport
ETID ..... V98CJ9PH
Type ..... Administrator
Library
----- Steplibs -----
ID ....... XDMD
Library DBID FNR
Name ..... Darrell Davenport Personal Lib
SYSTEM 35 115
Transactions
Startup ..
Restart ..
Error ....

33
The SYS utilities PROFILE

The session profile
152832 NATURAL SECURITY
2004-05-12
- Security Profile
-
User
ID ....... DMDSAC
Name ..... Darrell Davenport
Type ..... Administrator
Library
ID ....... XDMD
Name ..... Darrell Davenport
Transactions
Startup ..
Restart ..
Error ....

---------Additional options----------
_ Security
options _ Security limits
_ Session parameters
_ Command restrictions
_ Editing restrictions _
Statement restrictions _ Time
windows _ System files
_ Natural version

-------------------------------------
34
The SYS utilities Profile (edit)

153346 NATURAL EDITORS
05/12/2004
- Editor Profile -
Profile Name .. SYSTEM__
PF and PA Keys
PF1 ... HELP___________ PF2 ...
_______________ PF3 ... EXIT___________
PF4 ... _______________ PF5 ...
_______________ PF6 ... _______________
PF7 ... -______________ PF8 ...
______________ PF9 ... _______________
PF10 .. SC____________ PF11 ..
_______________ PF12 .. CANCEL_________
PF13 .. _______________ PF14 ..
_______________ PF15 .. MENU___________
PF16 .. _______________ PF17 ..
_______________ PF18 .. _______________
PF19 .. --_____________ PF20 ..
_____________ PF21 .. _______________
PF22 .. _______________ PF23 ..
_______________ PF24 .. _______________
PA1 ... _______________ PA2 ...
SCAN___________ PA3 ... _______________
Automatic Functions
Auto Renumber .. Y Auto Save Numbers .. 0__
Source Save into .. EDITWORK

35
The SYS utilities Routines

153527 NATURAL ROUTINES
COMMAND 05/12/2004
User DMDSAC - Subroutine Usage
Display - Library XDMD
EDITVARS uses no external subroutines
EDITVAR2 uses no external subroutines
EMAIL uses no external subroutines
EMAILTST uses no external subroutines
ENQUTEST uses no external subroutines
ERR uses no external subroutines
ERRMAIN uses no external subroutines
ERRORER uses no external subroutines
ERRSUB uses no external subroutines
ESCSUBT contains external subrtn FIND-AUTO
End of Report

36
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

37
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

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

39
The SYS utilities Struct

User DMDSAC - Menu -
Library XDMD
Code Function
G Generate structured
source into work area
D Display structure
of source
P Print structure of
source
W Write structure of
source into work area
? Help
. Exit
Code ................ D
Source name ......... ________ If blank,
current source
Display compressed .. N (Y/N)
Shift value ......... 2 (1 - 9)
Align comments ...... Y (Y/N/L)
Display messages .... Y (Y/N)
Return to STRUCT .... N (Y/N)

40
The SYS utilities Struct

083843 - Structured Source CALC1 in Library
XDMD -
0220 20T HEX-INPUT (2) (CVHEX-CV)
R
0230 // NUM-ANSWR (ADO CVNUM-CV)
R
0240 20T HEX-ANSWR (ADO
CVHEX-CV) R
0250 // 20T 'PRESS PF12 TO QUIT'
R
0260
R
0270 RESET MSG
R
0280 IF PF-KEY 'PF12' DO
RD
0290 SET CONTROL 'WB'
RD
0300 STOP
RD
0310 0280 DOEND
RD
0320 IF NUM-CV MODIFIED AND
R
0330 HEX-CV MODIFIED DO
RD
0340 MOVE 'CHANGE ONLY THE HEX OR THE
DECIMAL, NOT BOT RD
0350 0330 DOEND
RD
0360
R
0370 IF NUM-CV MODIFIED
R
0380 DO
RD
0390 MOVE NUM-INPUT () TO HEX-INPUT
() RD

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

42
The SYS utilities TECH

------------------ TECH -----------
103226 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-13103223
Error Transaction ..
------------------------------------------

43
The SYS utilities TECH (cont).

-------------------------------------------------
--------
Steplib DBID FNR Object Type Level
Number
-------- ----- ----- -------- ---- -----
------
SYSTEM 35 115
SYSTEM 25 115
SYSTEM 25 125
-------------------------------------------------
--------

44
The SYS utilities UPDATE

Function Prevent (or allow) database updating
being carried out by a program
Parameters
ON Perform database updating.
-gt 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.

45
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)

46
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).

47
The SYS utilities SYSPARM

User DMDSAC - Menu -
Code Function
L List Profiles
D Display Profile
A Add New Profile
M Modify Profile
C Copy Profile
X Delete Profile
? Help
. Exit
Code ..... _
Profile .. ________ DBID .. 25
FNR .. 106
Copy to .. ________

48
The SYS utilities SYSPARM

081305 NATURAL SYSPARM
UTILITY
- Display Profile -
NAFSIZE1,NAFUPFEXIT,RDCSIZE2,OPT(DIGTCHCK,INDX
,OVFLW)
You can execute SYSPARM utility functions in
direct-command 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.