This document explains all the functions you can perform on , that is, objects available in all or any operating environment. Operating system-specific objects are described in subsequent sections.
Common objects are:
This subsection explains all the functions you can perform on Natural objects. It also describes how to write program output to the user workpool, where it can be handled further.
If the object consists of job control, you can use the Natural ISPF
macro facility. You can use all types of macro statements. Macro expansion is
performed at submission time (see the SUBMIT command
below).
When creating a new object, you can also use the Edit macro feature to automatically create text lines which can then be modified. For details, see the section Macro Facility in the Natural ISPF Programmer's Guide).
To enter the Natural objects maintenance facility, select the Natural option from the Natural ISPF Main Menu. The Natural Objects Entry Panel appears:
----------------------- NATURAL OBJECTS - ENTRY PANEL -------------------------
COMMAND ===>
Library ===>
Member ===>
Type ===> ( Blank,P,S,N,C,M,G,L,A,H,T,O,4,8,Z,3,5,7,9 )
Status ===> ( Blank,S,C,OS,OC )
Scan for ===>
Edit macro ===>
Set number ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso |
Specify the Natural object you wish to maintain in the input fields and enter a function command in the command line. The meaning of the input fields is explained in the following table:
| Field | Meaning |
|---|---|
Library |
Natural library name. The library used last is displayed in this field. Select any other library by overtyping this name. You can use the wildcards (* _ < >) to list accessible libraries. (See the subsection Selection Windows and Wildcards in section Command Logic.). See also Example: LIST (4). |
Member |
Name of required member. You can use the wildcards (* _ < >) to list members. (See the subsection Selection Windows and Wildcards in section Command Logic.) |
Type |
Type of member; possible options:
For example, you can enter an asterisk (*) in the
|
Status |
Status of object. Use this field for selection criteria when listing members. Possible options:
|
Scan for |
Selection criterion for listing Natural members: all members as specified in the above fields are listed which contain the string entered here. |
Edit macro |
Name of macro object to be used as a model for
the member. The specified macro is executed and loaded into the Editor. See
section Macro
Facility in the Natural ISPF Programmer's
Guide for more details. Used with LIST,
the list will contain all objects that use the specified macro as
model.
|
Set number |
Enter a set number to list members in the set created for the library. Alternatively, enter an asterisk (*) to list sets created for the library. Sets are created using Predict cross referencing for Natural objects (see the Predict Reference documentation). |
Notes:
END.
NAT L
X.
The available function commands are:
| Command | Parameter Syntax |
|---|---|
BROWSE |
library(member) |
CATALOG |
library(member) |
COMPARE |
library(member) |
COPY |
library(member),
object-type object-parms
NODE=id, REP |
DELETE |
library(member) |
DESCRIPTION |
library(member) |
DOWNLOAD |
library(member) |
EDIT |
library(member)
TYPE=t
MACRO=name |
EXECUTE |
library(member) |
EXPORT |
library(member),
target-environment |
FORMAT |
library(member) |
HOLD |
library(member) |
INFORMATION |
library(member) |
LIST |
library(..*)
TYPE=t
ST=s
SC=string
MACRO=name
SET=n |
PLAY |
library(member) |
PRINT |
library(member),
printer-name CC NO |
RENAME |
library(member) |
RUN |
library(member) |
SUBMIT |
library(member),
TARGET=node-id |
UNCATALOG |
library(member) |
UPLOAD |
library(member) |
UNLOCK |
library(member) |
Notes:
CATALOG,
RUN or SUBMIT command for
a Natural program that includes inline macros, a macro expansion is performed
before the program is compiled if the macro expansion function is enabled with
the MACRO ON command or in your User Defaults
profile (see also the section Macro
Facility in the Natural ISPF Programmer's
Guide).
COPY command only works for Natural
sources. If you wish to copy compiled objects, you must use the Natural
SYSMAIN utility.
CATALOG command, it is
recommended that you enable or disable the macro facility using the
MACRO ON/OFF command as appropriate. If you issue a
CATALOG command with MACRO
ON for an object that does not use the macro facility, resources
are wasted as the object is checked for the macro character.
NAT is not the default object type specified
in your profile, you must specify the object type N before the
object parameters.
A full description of these commands is contained in section Command Reference. The object parameters correspond to the input fields on the Natural Objects Entry Panel.
Below are some examples of the INFORMATION,
LIST, FORMAT and
COMPARE functions using command syntax.
An information screen similar to the following is displayed as a result of the command:
INFORMATION N MYLIB(MYPROG)
The screen shows information on Natural member MYPROG in
library MYLIB. The data provided are self-explanatory.
---------- NATURAL PROGRAM INFORMATION----MYLIB(MYPROG)-Subprogram ------------
COMMAND ===>
SOURCE OBJECT GDA USED: ISP----G
ORIGIN LIBRARY: MYLIB SYSNSPF SUBROUTINES ( From 1 )
USERID: BLI '' INTERPRET-L-COMMAND-2 ISP-SUBR
TERMINAL ID: DAEFTC46 DAEFTC11 MAKE-WINDOW ISP-WINS
DATE SAVED: 2011-01-31 2011-02-07 CHECK-MACRO-TYPE ISPNIN-N
TIME SAVED: 18:27:42 13:18:57
OP SYSTEM: MVS/ESA ''
TP SYSTEM: COMPLETE ''
NAT VERSION: 8.2 0001 ''
CODEPAGE: IBM01140
SOURCE SIZE IN SOURCE AREA: 29766 MAXIMUM NO. OF VERSIONS : 50_
OBJECT SIZE IN DATSIZE: 10224 ACTUAL NO. OF VERSIONS : 22
OBJECT SIZE IN BUFFER POOL: 35608 CURRENT VERS.MODIF LEVEL : 01.25
OBJECT SIZE OF GLOBAL DATA: 16304
OBJECT SIZE OF OPT-CODE:
OPT STRING:
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso |
You can modify the MAXIMUM NO. OF VERSIONS for the object
to override the default set by the system administrator (see also the
subsection Versioning in section
Useful Features).
The following display is the result of the command:
LIST N MYLIB(IS*) P
The list shows all Natural programs starting with A in
the library MYLIB.
LIST-NAT:MYLIB(IS*)P ----------------------------- Row 0 of 3 - Columns 010 076
COMMAND===> SCROLL===> CSR
MEMBER PGMTYPE SM S/C VERSION USERID DATE TIME VV.MM
** ******************************** top of list *******************************
ISP-TECH Program S S/C 8.2 0001 BLI 20110124 17:57 01.26
ISP-TEC1 Program S S/C 8.2 0001 BLI 20110117 15:00
ISP-TEC2 Program S S/C 8.2 0001 BLI 20110117 15:15
** ****************************** bottom of list ****************************** |
Meaning of the column headings:
| Column | Meaning |
|---|---|
MEMBER |
Name of member |
PGM TYPE |
Type of member |
SM |
Natural mode. Possible values:
|
S/C |
Status of member. Possible values:
|
VERSION |
Release version of Natural for member |
USERID |
ID of user who last modified member. |
DATE |
Date of last modification. |
TIME |
Time of last modification. If
DATE/TIME of source and object is different, the save date of the
source is shown in the list. It is highlighted to indicate that a time stamp
difference exists between source and object.
|
VV.MM |
Version number and modification level of the current version of
the member. When a member is modified for the first time with versioning
active, this field contains (blank) - No previous versions exist. The |
Note:
You can change the layout of this list according to your needs. For
detailed information, see the subsection LAYOUT Command for
Lists in section Useful
Features.
The following figure is the result of the command:
LIST N SYSISPE(EX*) TYPE=PGO SC=FILE-NAME
This list contains all program-type, global area-type and macro-type
objects in the Natural library SYSISPE whose names start with
EX and which contain the string FILE-NAME.
LIST-NAT:SYSISPE(EX*)PGO/SCAN=FILE-NAME----------- Row 0 of 9 - columns 010 071
COMMAND===> SCROLL===> CSR
MEMBER PGMTYPE SM S/C NUM FIRST FOUND
** ***************************** top of list *****************************
EXF1 Macro S S/C 5 1 #FILE-NAME(A32)
EXF2 Macro S S/C 7 1 #FILE-NAME(A32)
EXF3 Program S S/C 2 1 #FILE-NAME(A32) INIT <'AU
EXF4 Program S S/C 2 1 #FILE-NAME(A32) INIT <'PE
EXF6 Macro S S/C 1 MOVE 'NOFILE' TO #OPT
EXF9 Program S S/C 2 1 #FILE-NAME (A32) INIT <'AUT
EXTG Global S S/C 1 **DF A 32 1#FILE-
EXT1 Macro S S/C 7 * #FILE-NAME(A32)
EXT2 Program S S/C 1 MOVE 'PERSONNEL' to #FILE-N
** *************************** bottom of list ****************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
The meaning of the information in the right hand columns is:
| Column | Meaning |
|---|---|
NUM |
Number of occurrences of specified string in this member |
FIRST FOUND |
Line with the first occurrence of specified string |
The lists appear in Natural ISPF Editor format in browse mode. This
means you can use all available Editor browse commands
(UP, DOWN,
BOTTOM, TOP,
FIND, LOCATE).
When selecting a member from a list generated using the Scan
for option with EDIT or
BROWSE, the cursor is positioned to the first
occurrence of this string in the member. The RFIND
command places the cursor on the next occurrence of the string.
The following figure is the result of the command:
LIST N NSPFWORK(*) SET=*
The list contains all sets created for the Natural library
NSPFWORK:
LIST-SET:NSPFWORK -------------------------------- Row 0 of 4 - Columns 001 072
COMMAND===> SCROLL===> PAGE
Nr Count Description
** ****************************** top of list *****************************
4 1015 SELECT IS*
7 4 DA-AREA ISP-PR-L (*) REF PROG * (*) BLOCK *
8 2 PROG ISP-HL1N (*) REF PROG * (*) WITH * VIA *
9 6 PROG ISP-FILN (*) REF PROG * (*) WITH * VIA *
11 20 VIEW SYSTEM2 REF PROG * (*) USAGE *
** **************************** bottom of list ****************************
Enter-PF13--PF14--PF15--PF16--PF17--PF18--PF19--PF20--PF21--PF22--PF23--PF24---
Help e :c Save; Suspe Rfind Rchan Up Down Swap Left Right Curso
|
Meaning of the column headings:
| Column | Meaning |
|---|---|
Nr |
Set number assigned by Predict. |
Count |
Number of objects in the set. |
Description |
Information on object name and type according
to which the set was created. The above list shows, for example, that set
number 4 contains 1015 objects whose names start with ISP.
|
The available line command from the list of sets is
L for LIST. This lists
the objects in the selected set. The following figure illustrates the list of
objects for set 1:
LIST-NAT:NSPF821(*)/SET=18 ---------------------- Row 0 of 19 - Columns 010 076
COMMAND===> SCROLL===> CSR
MEMBER PGMTYPE SM S/C VERSION USERID DATE TIME VV.MM
** ******************************** top of list *******************************
ISP-COP1 Program S S/C 8.2 0001 BLI 20101114 14:43
ISP-COP2 Program S S/C 8.2 0001 BLI 20110223 19:20
ISP-COP3 Program S S/C 8.2 0001 BLI 20110120 18:53
ISP-COP4 Program S S/C 8.2 0001 FHI 20110117 15:20
ISP-ENVP Program S S/C 8.2 0001 FHI 20101031 14:56
ISP-LCPR Program S S/C 8.2 0001 BLI 20110318 11:47
ISP-PLYP Program S S/C 8.2 0001 BLI 20101030 14:03
ISP-PUTG Program S S/C 8.2 0001 BLI 20101115 18:26
ISP-RERN Subprogram S S/C 8.2 0001 FHI 20101121 13:52
ISP-RSTP Program S S/C 8.2 0001 BLI 20110223 17:53
ISP-SOUT Program S S/C 8.2 0001 BLI 20110321 19:40
ISP-STAS Program S S/C 8.2 0001 BLI 20101115 19:21
ISP-SUSU Subprogram S S/C 8.2 0001 BLI 20110120 18:59
ISP-WINS Subroutine S S/C 8.2 0001 FHI 20110116 09:52
ISP-WLOG deleted
ISPFERR Program S S/C 8.2 0001 BLI 20101203 15:08
ISP0600N Subprogram S S/C 8.2 0001 FHI 20101018 17:10
NAT00012 deleted
Enter-PF13--PF14--PF15--PF16--PF17--PF18--PF19--PF20--PF21--PF22--PF23--PF24---
Help Relis §End !Br : t;fin !inf Up Down Susp; Left Right Exc :
|
Note that you can access this list of objects directly from the
Natural Objects Entry Panel using the Set number field, or using
the command:
LIST N NSPFWORK(*) SET=18
You can maintain the objects on this list as any other Natural object.
The following figure is the result of the command:
LIST N SYSISP*(A*)
The list contains all Natural libraries beginning with the string
SYSISP for which you are authorized. For example:
Z*LIST-NLI:SYSISP* ------------------------------ Row 0 of 13 - Columns 010 050
COMMAND===> SCROLL===> PAGE
Library Description
** ******************* top of list ******************
SYSISPDB INCORE DATABASE FOR CUSTOMER
SYSISPE NSPF example library
SYSISPF N-ISPF NATURAL EXAMPLES
SYSISPFU N-ISPF USER DATA
SYSISPFX
SYSISPH1 ISPF help texts
SYSISPI NSPF INTERFACE MODULES
SYSISPIU User information for ISPF
SYSISPR ISPF recordings
SYSISPSC ISPF INTERNAL TABLES COM-PLETE
SYSISPST ISPF tables for testmode
SYSISPS1 ISPF system tables/menus
SYSISPX
** ***************** bottom of list *****************
Enter-PF13--PF14--PF15--PF16--PF17--PF18--PF19--PF20--PF21--PF22--PF23--PF24---
Help e :c Save; Suspe Rfind Rchan Up Down Swap Left Right Curso
|
You can now select a library with the line command
L (for LIST). This
displays all members in the library beginning with the letter A.
Notes:
SYSISP*), it is
interpreted as member prefix in the current Natural library.
This function command applies only to Natural objects of type map. The
map layout is displayed in a Natural ISPF Editor session. Modifiable fields
(AD=A and AD=M) are replaced by a special filler
character (_). Variable output fields (AD=O) are replaced by a
period (full stop) (.).
FORMAT-NAT:NSPF211(ISPTIN-1)-Map ------------------------------ Columns 001 072
COMMAND===> SCROLL===> CSR
****** ****************************** top of data *****************************
000001 DSName : ............................................
000002 Member : ..........
000003 Language: _________
000004 Status : _ (Test/Production)
000005 _ (Active/Inactive)
000006 _ (Enabled/Disabled)
000007 User : ____
000008 Level : ___
000009 Comment : __________________________________________________
****** **************************** bottom of data ****************************
|
The COMPARE function compares Natural
sources stored in the Natural system file.
For example, to compare the source of the member ISPJ---U
in the library NSPFEXAM with its source in the library
NSPF141, enter the library and member name in the input fields and
CR in the command line of the Natural Objects Entry
Panel:
----------------------- NATURAL OBJECTS - ENTRY PANEL -------------------------
COMMAND ===>
Library ===>
Member ===>
Type ===> ( Blank,P,S,N,C,M,G,L,A,H,T,O,4,8,Z,3,5,7,9 )
Status ===> ( Blank,S,C,OS,OC )
Scan for ===>
Edit macro ===>
Set number ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso |
The member entered in the Entry Panel is assumed to be the old source.
Press ENTER.
The following window opens in which you can enter the location of the new source and several compare options:
----------------------- NATURAL OBJECTS - ENTRY PANEL -------------------------
COMMAND ===> CR
Library ===> NSPFEXAM
Member = +------COMPARE-NATURAL:NSPFEXAM(ISPJ---U)-------+
Type = ! ! ,H,T,O )
Status = ! Location of new source ! )
Scan for = ! Library NSPF141 !
Edit macro = ! Member ISPJ---U !
Set number = ! !
! Compare options !
! Ignore comments Y !
! Ignore indentation Y !
! Display differences Y !
! Show all differences Y !
! Number of sync lines 2 !
! Enter to perform , PF3 to exit !
+-----------------------------------------------+
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
The meaning of the input fields is explained in the following table:
| Field | Meaning |
|---|---|
| Location of new source: | |
Library |
Enter the name of the Natural library containing the source to be compared. The name of the library last used is displayed. You can select another library by overtyping it. Enter the asterisk wildcard (*) and press ENTER to list Natural libraries. |
Member |
Enter the name of the newer member to be compared. If Natural ISPF detects that this member was saved before the old member, member names are swapped and a message is displayed. |
| Compare options: | |
Ignore comments |
Enter Y to ignore comments while
comparing sources.
|
Ignore indentation |
Enter Y to ignore differences
coming from indentation caused by the STRUCT Editor
command.
|
Display differences |
Enter Y to list all differences
found in the source lines of a compared object. Otherwise, a message simply
indicates whether the compared sources are identical or not.
|
Show all differences |
Enter Y to display differences
completely. Otherwise a short form of listing is used to print different ranges
of more than 6 lines in the following way:
FIRST LINE SECOND LINE ... LAST LINE -1 LAST LINE |
Number of sync lines |
Enter the number of synchronization lines. The
default is 2. This parameter influences the compare mechanism. At
least this number of consecutively equal lines must be found before the program
assumes to have found an equal portion of code.
|
When you have made all entries, press ENTER. The successful
compare displays an edit session containing the source differences. In our
example, all options have been set to Y:
COMPARE-NAT:NSPFEXAM(ISPJ---U)-Subprogram->Struc >>> Old and new member swapped
COMMAND===> SCROLL===> CSR
OLD NEW OLD=NSPF141(ISPJ---U) NEW=NSPFEXAM(ISPJ---U)
** ******************************** top of list *******************************
0110 == 0110 1 #FUNCTION(A2)
0120 > 1 #SES-DATA(A128)
< 0120 PARAMETER USING ISPJ---L
< 0130 PARAMETER
0130 == 0140 1 #ERROR-CODE(N3)
...
0190 == 0200 2 #JOB-PREFIX (A8)
0200 > LOCAL USING ISPJ---L
0210 == 0210 LOCAL
...
0260 == 0260 VALUE 'LS'
0270 > MOVE #SES-DATA TO #SES-DATA-J /* GET SESSION DATA
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
Last save date of old and new source are compared and old and new
member are always set to reflect the sequence of their last save dates. In the
example above, the message "Old and new member swapped" appears in
the upper right corner of the screen. This means that Natural ISPF has detected
that the "new" member (in library NSPF141) was saved
before the "old" member (in library NSPFEXAM) and
that the member names have been exchanged.
The format of the above screen is explained on the following page.
| Column Heading | Explanation | |||
|---|---|---|---|---|
OLD |
NEW |
|||
NNNN |
... == |
MMMM |
SOURCE
LINE |
All lines are equal in old and new source up to
this line. NNNN and
MMMM are equal
|
NNNN
NNNN |
> > < < < < |
MMMM
MMMM MMMM
MMMM |
SOURCE LINE SOURCE LINE
SOURCE LINE SOURCE LINE SOURCE LINE SOURCE LINE |
Old lines
NNNN have been modified to the new
lines MMMM. The number of lines in
OLD and NEW may be different. To perform this
modification, delete the lines marked with > and add the ones
marked with <.
|
|
|
== ... == |
|
|
Such a block of three lines indicates that the
NNNN-lines are equal to the
MMMM-lines. NNNN and
MMMM may be different.
|
NNNN NNNN
NNNN |
> > > |
SOURCE LINE SOURCE LINE
SOURCE LINE |
Only lines specifying line numbers in the
OLD column marked with > have been
deleted.
|
|
|
|
== ... == |
|
|
Another block of equal lines. The number of lines is equal as well (of course). |
|
< < < |
MMMM MMMM
MMMM |
SOURCE LINE SOURCE LINE
SOURCE LINE |
Only lines specifying line numbers in the
NEW column, all marked with < , have been
inserted.
|
|
NNNN |
== ... |
MMMM |
SOURCE LINE |
These last lines indicate that the rest of the
source is equal from line number NNNN
in the OLD version and line
MMMM in the new version.
|
Differences between Old and New coming from
different indentation as a result of executing
STRUCT are ignored. Single equal lines within a
block of modified lines are also ignored, i.e. the whole block including the
single equal lines are marked as modified. It takes at least two non empty
lines (lines containing only an asterisk (*) are considered to be empty) to
cause an output of a block of equal lines.
Select a set from a list of Natural sets with the line command
L (for LIST). This lists
the members in the set (see also the third
example of the LIST command).
Select a library from a list of Natural libraries with the line
command L (for LIST).
This lists the members in the library (see
also the fourth example of the LIST
command).
To select a member for further maintenance from a list of Natural
objects type a line command in the input field preceding the member name and
press ENTER. Each line command is an abbreviation of a function
command (but note the LIST command for a member):
| Line Command | Corresponding Function Command |
|---|---|
B |
BROWSE |
CP |
COPY |
CR |
COMPARE |
CT |
CATALOG |
D |
DELETE |
DS |
DESCRIPTION |
DW |
DOWNLOAD |
E |
EDIT |
EX |
EXPORT |
FR |
FORMAT |
HL |
HOLD |
I |
INFORMATION |
L |
LIST previous versions of the
member
|
PL |
PLAY |
PR |
PRINT |
R |
RENAME |
RU |
RUN |
SB |
SUBMIT |
U |
UNCATALOG |
UP |
UPLOAD |
XE |
EXECUTE |
UL |
UNLOCK |
Line commands can be used as valid abbreviation for function commands entered in the command line of any screen.
When displaying Natural objects in Editor format, you can use the following local commands:
From a list of Natural objects, you can catalog multiple objects using
the CATALL local command. The following are examples
of the CATALL command:
| Command | Meaning |
|---|---|
CATALL |
Catalogs all objects in the list |
CATALL ISP* |
Catalogs all objects in the list whose names
start with ISP.
|
When a CATALL command is issued, a window
opens on your screen showing the name of the program being cataloged. After the
cataloging process, those objects for which an error was detected are indicated
by the message *ERROR in the message field, and the nature of the
error is displayed in the statistical data fields.
You can use the commands ALL,
LAYOUT, RELIST and
SORT. For detailed information, see the subsections
in section Useful
Features.
The following figure shows the result of the CATALL
EX* command issued from a list of Natural objects:
LIST-NAT:SYSISPE----------------------------------------- >>> 2 errors detected
COMMAND===> catall ex* SCROLL===> CSR
MEMBER PGMTYPE SM S/C NUM FIRST FOUND
** ***************************** top of list *****************************
EXF1 Macro S S/C 5 1 #FILE-NAME(A32)
EXF2 Macro S S/C 7 1 #FILE-NAME(A32)
EXF3 Program S S/C 2 1 #FILE-NAME(A32) INIT <'AU
EXF4 *ERROR Program ERROR 2 AT LINE 20
EXF6 Macro S S/C 1 MOVE 'NOFILE' TO #OPT
EXF9 Program S S/C 2 1 #FILE-NAME (A32) INIT <'AUT
EXTG Global S S/C 1 **DF A 32 1#FILE-
EXT1 Macro S S/C 7 * #FILE-NAME(A32)
EXT2 *ERROR Program ERROR 2 AT LINE 20
** *************************** bottom of list ****************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
Note:
Before using the CATALL command, it is
recommended that you enable or disable the macro facility using the
MACRO ON/OFF command as appropriate. If you issue a
CATALL command with MACRO
ON for an object that does not use the macro facility, resources
are wasted as the object is checked for the macro character.
You can use the following Natural commands as local commands from the Editor command line when editing a Natural object:
| Command | Meaning |
|---|---|
CHECK |
Checks syntax of the Natural program being edited. * |
IMPORT |
Edit mode only: imports a PC file or Con-nect document into the Natural member (see the section Useful Features). |
SM OFF |
Sets structured mode off. |
SM ON |
Sets structured mode on. |
STOW
'text' |
Stores the Natural program in source and object
form. **
When stowing a program after modification with versioning active, you can specify a reason for the change with text parameter. |
STRUCT |
Performs structural indentation of Natural source statements and identifies any structural inconsistencies (not applicable for macro-type programs). |
TYPE
<t> |
Specifies Natural program type, where t can stand for any of the following:
|
* If the Natural object is a macro object, the CHECK
command also checks the processing statements and variables to be substituted.
The command does not check that the lines generated by the macro object are
valid Natural source (see the section Macro Facility in the
Natural ISPF Programmer's Guide).
** If you issue a STOW command for a
Natural program that includes inline macros, a macro expansion is performed
before the program is compiled, if the macro expansion function is enabled with
the MACRO ON command or in your User Defaults
profile (see also the section Macro
Facility in the Natural ISPF Programmer's
Guide).
For more information on Natural commands, see the Natural documentation.
You can also use a special COPY command
which may be useful when editing Natural programs (use Editor target line
commands A, B or
O to mark the place where the data are to be
copied). You can copy other Natural objects or other object types into the edit
area. The following object types can be copied:
| Object type | Meaning |
|---|---|
BF |
BS2000/OSD file |
D |
Dataset (sequential) |
DJ |
Job (z/VSE) |
FIL |
z/VSE file |
J |
Job (z/OS) |
LIB |
CA Librarian member |
LMS |
LMS element |
LMV |
LMS element version |
MAC |
Macro object |
MEM |
z/VSE member |
N |
Natural object |
O |
Output file in workpool |
P |
PDS member |
PAN |
CA Panvalet member |
S |
Job SYSOUT (z/OS) |
V |
Database view |
| Command | Meaning |
|---|---|
COPY
mapname |
Generates a Natural INPUT
statement for the Natural map mapname
and copies the map's variable definition into the current program at the marked
place.
|
COPY VIEW
viewname |
Copies the definition of view
viewname into the current
program.
|
COPY
data-area-name |
Generates a data definition source from the Natural data area and copies it into the current program at the marked place. |
COPY MACRO
name |
Performs a macro expansion of the macro object name and copies the result into the current member at the marked place. |
If you issue the COPY command without
parameters, you are prompted for object type and object name.
Starts an edit session with the output of the current program in the
user workpool (only valid after a RUN command issued
from the edit session).
Available for Natural programs written using the Edit macro option. Reexecutes the specified macro object and writes the result in protected lines in the current edit session. Any defined user code remains in place. For details, see the section Macro Facility in the Natural ISPF Programmer's Guide.
Previous versions of Natural objects can be retrieved and maintained
(see also the line command L for
LIST). They are separate objects in Natural ISPF,
accessible via the Natural Objects Entry Panel, or using function commands with
object type NV. To activate the versioning feature, you must issue
the command VERSIONS ON before starting your edit
session. For details, see the subsection Versioning in the section
Useful Features.
The Write-To-Workpool option is a simple yet powerful feature useful for checking the output of Natural programs. Using the Editor, you can write a Natural program and include a statement defining a printer for the program output. The Write-To-Workpool feature allows you to define the workpool as destination printer, for example:
DEFINE PRINTER(1) OUTPUT 'WORKPOOL'
When a write to printer 1 is performed (using a WRITE,
PRINT or DISPLAY statement), the program output is
written to the user workpool. Several reports can be written to the workpool by
defining the workpool as destination for multiple printers (DEFINE
PRINTER(2), etc).
You can use the WORKPOOL option from the
Natural ISPF Main Menu to display and maintain the output (see the subsection
User Workpool).
Note that each time you run the program (RUN
command), the existing output of the program in the user workpool is
overwritten with the new output.
Using the split-screen feature, the Natural programmer can edit a
program in one screen subsection and immediately see the resulting output in
the other screen subsection by issuing the RUN
command from the edit session. Checking and debugging programs is thus made
very convenient.
The following is an example Natural program illustrating the use of the Write-To-Workpool feature.
*
*
DEFINE PRINTER(1) OUTPUT 'WORKPOOL'
*
READ (100) AUTOMOBILES BY MAKE STARTING FROM 'C'
WRITE(1) MAKE COLOR MODEL HORSEPOWER WEIGHT
NUMBER-OF-CYLINDERS SERIAL-NUMBER
END
If you issue the RUN command for this
program, it reads the file AUTOMOBILES and writes the contents of
the specified fields to the user workpool, where the program output can be
accessed (see the subsection User
Workpool).
The figure below illustrates two Natural ISPF sessions in split-screen mode, with the Natural program in the upper session and the program output in the lower session:
EDIT-NAT:NSPF211(EXW1)-Program->Report-Free-46K ----------- >>> Source EXW1 run
COMMAND===> SCROLL===> CSR
****** ****************************** top of data *****************************
000010 * DEMO: WORKPOOL
000020 *
000030 DEFINE PRINTER(1) OUTPUT 'WORKPOOL'
000040 *
000050 READ (20) AUTOMOBILES BY MAKE STARTING FROM 'C'
000060 WRITE(1) MAKE COLOR MODEL HORSEPOWER WEIGHT
000070 NUMBER-OF-CYLINDERS SERIAL-NUMBER
EDIT-OUT:EXW1 ------------------------------------------------- Columns 001 072
COMMAND===> SCROLL===> CSR
****** ****************************** top of data *****************************
000001 Page 1 94-12-27 1
000002
000003 CHRYSLER green DODGE CORONET CUSTOM 255 4150 6 O35549448
000004 CHRYSLER GREEN DODGE CHALLENGER SIX 150 3160 6 J92314635
000005 CHRYSLER BROWN PLYMOUTH ROAD RUNNER 330 3695 6 L32433047
000006 CHRYSLER YELLOW DODGE CHALLENGER SIX 150 3160 6 N58644909
000007 CHRYSLER WHITE NEWPORT ROYAL 175 4210 6 J90372307
000008 CHRYSLER WHITE DODGE MONACO 190 4310 6 O89730037
000009 CHRYSLER WHITE PLYMOUTH FURY II 175 4040 6 L15260038
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
When you save/stow a Natural program, Natural ISPF runs a check to see if the same program has been modified by another user or another session whilst you were editing. If this is the case, you are notified by a message and the save/stow operation is not executed.
You can use the BROWSE command to inspect
the Natural object and you can decide whether you wish to override it with your
latest modifications or not. If you wish to override it with your latest
modifications, you can either:
use the REPLACE command for the existing
object, or
delete the existing Natural object and then save/stow the version with your latest changes.
The VIEWS option on the Natural ISPF Main Menu allows you
to select a data view, list its field names (view definition) and access the
database to display the field contents. Natural programmers can use this
facility to check their files in one session while editing programs in other
sessions.
How to reference views and record fields in Natural programs is described in the Natural documentation.
To enter the views facility, select the VIEWS
option from the Natural ISPF Main Menu. This displays the Natural View Entry
Panel on your screen:
S*>>----------------------NATURAL-VIEW--ENTRY-PANEL----------------------------
COMMAND ===>
View Name ===>
Dbid ===> (For selection list)
Fnr ===> (For selection list)
Record Fields ===> (Field list)
Start value ===>
End value ===>
Max Records ===> 100
Password ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
You can specify the object you wish to display in the input fields and enter a function command in the command line.
Meaning of the input fields:
| Field | Meaning |
|---|---|
View name |
Enter a view name. You can use the wildcards (* _ < >) to list available views. (See the subsection Selection Windows and Wildcards in section Command Logic.) |
Dbid |
Enter database ID of view. The value 0 (zero) is a valid database ID. |
Fnr |
Enter file number of view. |
Record fields |
Enter field names for content display. Adabas short names are also accepted. The first field must be a descriptor or superdescriptor. |
Start value |
Enter value with which to start the list of records. |
End value |
Enter value with which to end the list of records. |
Max records |
Enter maximum number of records to be listed (default is 100). |
Password |
Enter the Adabas security password for the
BROWSE function (required if the file is protected
by Adabas security).
|
The following function commands are available for view handling:
| Command | Parameter Syntax |
|---|---|
BROWSE |
view-name,
PASSWORD=pswd |
COPY |
view-name,
object-type
object-parameters |
DEFINITION |
view-name |
DESCRIPTION |
view-name |
DOWNLOAD |
view-name |
LIST |
view-name (or ..*)
DBID=id
FNR=n |
UPLOAD |
view-name |
For an explanation of these commands, see the section Command Reference. The object parameters correspond to the input fields on the Natural View Entry Panel.
Notes:
COPY command copies the generated
data definition statements. (For information on generated data definition
statements, see the subsection Local Commands).
View
Name field, the default function command is
LIST.
DEFINITION.
BROWSE.
DESCRIPTION function is also
available as a line command for view elements. See
the example for the
DEFINITION command.
If you issue any of the above commands from outside the views facility,
the object type parameter V must precede any object
parameters in the command syntax.
Examples of function commands using full command syntax are described in the following subsections.
The following figure illustrates a list of views displayed using the command:
LIST V *
The views are listed according to name, database ID, file number and type:
LIST-VIW:* -------------------------------------- Row 0 of 92 - Columns 034 055
COMMAND===> SCROLL===> CSR
VIEW NAME DBID FNR TYPE
** ********************* top of list *********************
ACCOUNTING 148 34 P
ACTIVE-JOBS 148 29 P
ADDRESS-SPACE 148 21 P
ALLOCATIONS 148 22 P
ARCHIVE 148 211 P
AUTOMOBILES 0 2 A
CATALOG 148 8 P
CATALOG-UPDATE 148 10 P
COMMAND 1 1 C
COMMON-DATA 148 33 P
CONSOLE 148 35 P
CONSOLE-LOG 148 25 P
CONTAINER 147 199 A
COPY-FILE 148 37 P
DEVICE-NAMES 148 30 P
DICTIONARY 255 253 A
EMPLOYEES 0 53 A
EMPLOYEES-VS 254 1 V
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
Use the DBID= option and/or the FNR= option
in the command syntax to display views on a specific database and/or with a
specific file number. To select any view for further handling, use any line
command described in the subsection Line Commands.
The following prompt window opens as a result of the command:
BROWSE V AUTOMOBILES
-------------------------- NATURAL ISPF MAIN MENU -----------------------------
OPTION ===> BROWSE V AUTOMOBILES
Userid BRY
Time 15:11:53
0 PROFILE - Profile maintenance Terminal DAEFTC30
1 NATURAL - Work with NATURAL objects Library BRY
+-----------------------------BROWSE-VIEW:------------------------------+
! !
! View Name ===> AUTOMOBILES !
! Record Fields ===> MAKE MODEL WEIGHT !
! Start value ===> F !
! End value ===> H !
! Max Records ===> 20 !
! Password ===> !
+-----------------------------------------------------------------------+
|
The fields in the window correspond to the parameter fields on the Natural View Entry Panel. The screen on the following page shows database records listed as a result of entering the parameters as shown in the window on this page:
BROWSE-VIW:AUTOMOBILES------------------------------------------Columns 001 043
COMMAND===> SCROLL===> CSR
MAKE MODEL WEIGHT
** *************** top of list **************
FERRARI 365 GTB/4 2640
FERRARI 365 GTB/4 2640
FERRARI DINO 246 GT 2380
FERRARI DINO 246 GT 2380
FERRARI 365 GTB/4 2640
FERRARI DINO 246 GT 2380
FERRARI DINO 246 GT 2380
FERRARI DINO 246 GT 2380
FERRARI 365 GTB/4 2640
FERRARI DINO 246 GT 2380
FERRARI DINO 246 GT 2380
FERRARI DINO 246 GT 2380
FERRARI 365 GTB/4 2640
FERRARI DINO 246 GT 2380
FERRARI DINO 246 GT 2380
FERRARI 365 GTB/4 2640
FERRARI DINO 246 GT 2380
FERRARI 365 GTB/4 2640
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Cursor
|
The display shows the first 20 automobiles in a list starting with the
letter F and ending with H, with information on make,
model and weight.
Alternatively, you can enter an asterisk (*) in the Record
Fields field in the prompt window and press ENTER. The
following window opens:
-------------------------- NATURAL ISPF MAIN MENU -----------------------------
OPTION ===> BROWSE V AUTOMOBILES
Userid BRY
+-----------------BROWSE-VIEW:------------------+ 15:11:53
0 PROFILE ! Select fields: ! l DAEFTC30
1 NATURAL ! ! BRY
+--------------- ! _ 1 CAR-DESCRIPTION ! -----+
! ! _ 2 D MAKE A 14 ! !
! View Name ! _ 2 D MODEL A 20 ! !
! Record Fields ! _ 2 D BODY-TYPE A 15 ! !
! Start value ! _ 2 D NUMBER-OF-CYLINDERS N 2.0 ! !
! End value ! _ 2 D HORSEPOWER N 3.0 ! !
! Max Records ! _ 2 PISTON-DISPLACEMENT N 5.0 ! !
! Password ! _ 1 CAR-DETAIL ! !
+--------------- ! _ 2 WEIGHT N 5.0 ! -----+
! _ 2 D COLOR A 10 !
10 SYSTEM ! Entr-PF3--PF7--PF8-- !
11 ADMIN ! Down End Top Down !
NEWS CHANGES +-----------------------------------------------+
END EXIT - Exit NATURAL ISPF
HELP HELP - Display help information
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right TOP
|
Select one or more fields with any character and press PF3 to display field contents.
If you select only 1 field here, a HISTOGRAM statement
is generated for Adabas files. In addition to the field contents, the variable
*NUMBER is also displayed:
BROWSE-VIW:AUTOMOBILES -------------------------- Row 0 of 58 - Columns 016 026
COMMAND===> SCROLL===> CSR
MAKE NMBR
** ******* top of list ******
ALPINE 6
AMERICAN MOTOR 3
AMERICAN MOTOR 85
AUDI 7
AUDI-80 1
BMW 20
CHRYSLER 167
CITROEN 8
DAIMLER-BENZ 1
DATSUN 11
DE TOMASO 11
DKW 1
FERRARI 30
FIAT 28
FORD 133
GENERAL MOTORS 281
GOLF 3
ISO 6
JAGUAR 22
LAMBORGHINI 7
|
The following view definition display is the result of the command:
DEFINITION V EMPLOYEES
DEFINITION-VIW:EMPLOYEES-(254,1) ------------------------------ Columns 001 074
COMMAND===> SCROLL===> CSR
T L DB Name F Leng S D Remarks
** ******************************* top of list ******************************
1 AA PERSONNEL-ID A 8 D
HD=PERSONNEL/ID
* CNNNNNNN
* C=COUNTRY
G 1 AB FULL-NAME
2 AC FIRST-NAME A 20 N
2 AD MIDDLE-NAME A 20 N
2 AE NAME A 20 D
1 AF MAR-STAT A 1 F
HD=MARITAL/STATUS
* M=MARRIED
* S=SINGLE
* D=DIVORCED
* W=WIDOWED
1 AG SEX A 1 F
HD=S/E/X
1 AH BIRTH N 6.0
HD=DATE/OF/BIRTH
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
Meaning of the column headings:
| Column | Meaning |
|---|---|
T |
Field type |
L |
Level |
DB |
Database field name |
Name |
Field name |
F |
Field format. For example: A - Alpha field B - Binary field N - Numeric field |
Leng |
Field length |
S |
Special option. Possible values: blank - No option defined
|
D |
Descriptor. Possible values: |
| Remarks | Comments |
From the definition screen, you can use the DS line
command to edit the description of a view element. An example is illustrated on
the next page.
The following screen appears as the result of the line command
DS entered for view element FIRST-NAME.
EDIT-PRD:EL:PERSONNEL(FIRST-NAME) ----------------------------- Columns 001 072
COMMAND===> SCROLL===> CSR
****** ****************************** top of data *****************************
000001 ====================================
000002 Elem. field additional description
000003 ====================================
000004 A person's first name is required only if the surname (NAME) is not
000005 unique.
****** **************************** bottom of data ****************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right :s
|
You can edit and save the description as required.
The following view description display is the result of the command:
DESCRIPTION V AUTOMOBILES
EDIT-PRD:FI:AUTOMOBILES --------------------------------------- Columns 001 072
COMMAND===> SCROLL===> CSR
****** ****************************** top of data *****************************
000001 ====================================
000002 File additional description
000003 ====================================
000004 This is the famous automobiles file.
****** **************************** bottom of data ****************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right :s
|
You can edit the description as required and save it.
The following line commands are available from a list of views
generated using the LIST command:
| Line Command | Corresponding Function Command |
|---|---|
B |
BROWSE |
CP |
COPY
|
DF |
DEFINITION |
DS |
DESCRIPTION |
DW |
DOWNLOAD |
UP |
UPLOAD |
Line commands can also be used as valid abbreviations of function commands entered in the command line.
The DS line command is also available for
view elements displayed in the view definition, see
the example for the
DEFINITION command.
Besides Editor browse commands, you can use one local command from the Editor command line when displaying a view definition. The command:
GENERATE
generates data definition statements for a Natural source.
The following view definition is displayed as a result of the command:
DEFINITION V EMPLOYEES-VS
DEFINITION-VIW:EMPLOYEES-VS-(254,1) --------------------------- Columns 001 074
COMMAND===> SCROLL===> CSR
T L DB Name F Leng S D Remarks
** ******************************* top of list ******************************
1 AA PERSONNEL-ID A 8 D
HD=PERSONNEL/ID
* CNNNNNNN
* C=COUNTRY
G 1 AB FULL-NAME
2 AC FIRST-NAME A 20 N
2 AD MIDDLE-NAME A 20 N
2 AE NAME A 20 D
1 AF MAR-STAT A 1 F
HD=MARITAL/STATUS
* M=MARRIED
* S=SINGLE
* D=DIVORCED
* W=WIDOWED
1 AG SEX A 1 F
HD=S/E/X
1 AH BIRTH N 6.0
HD=DATE/OF/BIRTH
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
If you now issue the GENERATE command from
the command line, the following data definition statements are generated:
DEFINITION-VIW:EMPLOYEES-VS-(254,1) --------------------------- Columns 001 074
COMMAND===> SCROLL===> CSR
T L DB Name F Leng S D Remarks
** ******************************* top of list ******************************
1 EMPLOYEES-VS-VIEW VIEW OF EMPLOYEES-VS
2 PERSONNEL-ID
2 FULL-NAME
3 FIRST-NAME
3 MIDDLE-NAME
3 NAME
2 MAR-STAT
2 SEX
2 BIRTH
2 FULL-ADDRESS
3 ADDRESS-LINE
3 CITY
3 ZIP
3 FILLER
3 COUNTRY
2 TELEPHONE
3 AREA-CODE
3 PHONE
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
Note:
If you use the COPY command for a view,
the generated data definition statements are copied.
The ERROR option on the Natural ISPF Main
Menu allows you to edit the long and short texts of Natural error messages and
user-defined messages.
To enter the error facility, select the ERROR
option from the Natural ISPF Main Menu. The Natural Error Messages Entry Panel
appears:
------------------- NATURAL ERROR MESSAGES - ENTRY PANEL ----------------------
COMMAND ===>
Library ===>
Type ===> (N,U)
Number from ===>
Number to ===>
Language code ===>
Scan for ===>
|
You can specify the Natural error message you wish to maintain in the input fields of the Natural Error Messages Entry Panel and enter a function command in the command line.
The meaning of the input fields is explained in the following table:
| Field | Keyword | Meaning |
|---|---|---|
Library |
- |
Natural library name. The library used last is displayed in this field. Select any other library by overtyping this name. |
Type |
TYPE |
Possible values are:
If the Library field is filled, message type |
Number from |
FROM |
Starting value for the range of error messages to be listed, or the number of the error message to be browsed or edited. |
Number to |
TO |
Ending value for the range of error messages to
be listed. Required only when invoking the LIST
function.
|
Language code |
LANGUAGE |
If this field is not filled, the value of
*LANGUAGE is used.
|
Scan for |
SCAN |
Selection criterion for listing Natural error texts: all error messages as specified in the above fields are listed whose short text contains the string entered here. |
The available function commands are:
| Command | Parameter Syntax |
|---|---|
BROWSE |
library(error-number)
TYPE=x LANG=l |
DELETE |
library(error-number)
TYPE=x LANG=l |
EDIT |
library(error-number)
TYPE=x LANG=l |
LIST |
library(error-from)
TO=error-to TYPE=x
SCAN=string LANG=l |
Note:
If you issue any of the above function commands from outside the
Natural Error Messages facility, you must specify the object-type parameter
E before the object parameters.
The following line commands are available from a list of messages
generated using the LIST command:
| Line Command | Corresponding Function Command |
|---|---|
BR |
BROWSE |
D |
DELETE |
E |
EDIT |
The BROWSE and
EDIT functions display short and long error texts in
one edit session. This enables you to maintain both text types on one screen.
The short text is always displayed in Line 1. Lines 2 to 21 contain the long
text. You cannot save the message when more than 21 lines are in the Editor
session.
EDIT-ERR:(3022)/TYPE=N ---------------------------------------- Columns 001 072
COMMAND===> SCROLL===> CSR
****** ****************************** top of data *****************************
000001 Invalid command.
==msg> Start of long error message
.TX Invalid command.
000004 .
000005 .
.EX The command entered was invalid:
000007 .
000008 - invalid command code;
000009 .
000010 - access-only user attempted to issue update command;
000011 .
000012 - non-ET-logic user issued BT command;
000013 .
000014 - CLU user issued ET command.
000015 .
000016 .
000017 .
000018 .
000019 .
.AC Check program and correct error.
000021 .
|
The NEXT command is available with the
EDIT/BROWSE functions. In
BROWSE mode, the next error text found is displayed.
In EDIT mode, the current text is saved, if it has been modified, and the next
error text is read from the system file for editing.
Natural ISPF allows you to edit the long description of any Predict object type. To access the Predict description facility, select the Predict option from the Natural ISPF Main Menu. The Predict Description Entry Panel appears:
-------------------- PREDICT DESCRIPTION - ENTRY PANEL ------------------------
COMMAND ===>
Library ===>
Member ===>
Type ===> ( DA,EL,FI,KY,MO,PR,RL,RP,SY,US,VE)
Object Name ===>
File name ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right :s
|
Select a description by specifying the corresponding object in the parameter fields and pressing ENTER.
Note:
The selected object must already be defined in Predict.
Meaning of the input fields:
| Field | Meaning |
|---|---|
Library |
Name of Natural library: for objects of type
PR (program), you can specify the implementation pointer.
|
Member |
Name of Natural program: for objects of type
PR (program), you can specify the implementation pointer.
|
Type |
Predict object type (for example, PR
for program, DA for database, FI for file,
EL for file element, VE for verification).
|
Object Name |
Name of the Predict object. For object type
EL (file element), the element name.
|
File Name |
For object type EL only (file
element). Enter the file name here and an element name in Object
Name field.
|
Predict descriptions are separate objects in Natural ISPF with object
type PRD. This means you can start an edit session with a Predict
description from any system screen using the following function commands:
| Command | Object Parameter Syntax |
|---|---|
BROWSE |
library(member) |
BROWSE |
object-name
TYPE=t
FILE=file-name |
EDIT |
library(member) |
EDIT |
object-name
TYPE=t
FILE=file-name |
LIST |
object-name
TYPE=t
FILE=file-name |
Note:
If you issue any of the above function commands from outside the
Predict description facility, you must specify the object-type parameter
PRD before the object
parameters.
E PRD AUTOMOBILES TYPE=FI L PRD A* TYPE=PR
See also the function command DESCRIPTION
in section Command Reference.
The Natural ISPF interface to Con-nect enables you to access Con-nect documents for which you are authorized. Con-nect documents can be listed from Con-nect cabinets and folders in Editor format. Information can be displayed for a document, and documents can be added, deleted and maintained using the Editor in the same way as any other Natural ISPF object.
Additionally, using the Natural ISPF multi-session and split-screen features, you can easily transfer data to and from Con-nect documents.
To enter the Con-nect document maintenance facility, select the Con-nect option from the Natural ISPF Main Menu. The Con-nect Documents Entry Panel appears:
--------------------- CON-NECT DOCUMENTS - ENTRY PANEL ------------------------
COMMAND ===>
Cabinet ===>
Folder ===>
File ===>
Document ===>
Password ===> ( If password protected )
Keyword ===>
Sort sequence ===> ( A/D )
Max documents ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right :s
|
You can specify the Con-nect document you wish to maintain in the input fields and enter a function command in the command line. Meaning of the input fields:
| Field | Meaning |
|---|---|
Cabinet |
Name of cabinet in which the document is or is to be filed. |
Folder |
Name of folder in which the document is or is to be filed. Note that Natural ISPF does not support listing of folders. |
File |
Name of file in which the document is or is to be filed. Note that Natural ISPF does not support listing of files. |
Document |
Name of document to be added or maintained. Leave blank or use a combination of strings and wildcards (* _ < >) to list documents in the specified folder/file. (See the subsection Selection Windows and Wildcards in section Command Logic.) |
Password |
Password, if the cabinet is password-protected. |
Keyword |
One of the keywords assigned to the document when
using the LIST function. If you enter a keyword, all
documents with this keyword are listed. The Folder,
File and Document fields are ignored. Keywords can be
assigned to existing documents using the INFORMATION
function.
|
Sort sequence |
Relevant with LIST.
Specifies whether to list documents in ascending (A)
(default) or descending (D) alphabetical
order.
|
Max documents |
Relevant with LIST.
Specifies the maximum number of documents to be listed.
|
The available function commands for Con-nect documents are as follows:
| Command | Object Parameter Syntax |
|---|---|
BROWSE |
cabinet(document)
PASSWORD=p |
DELETE |
cabinet(document)
PASSWORD=p |
EDIT |
cabinet(document)
FOLDER=fo FILE=fi
PASSWORD=p |
INFORMATION |
cabinet(document)
PASSWORD=p |
LIST |
cabinet(*_*) FOLDER=fo FILE=fi PASSWORD=p
KEYWORD=k |
PRINT |
cabinet(document)
PASSWORD=p |
The object parameters correspond to the input fields on the Con-nect Documents Entry Panel. For a full description of these commands, see section Command Reference.
Notes:
DOC before the
object parameters.
PRINT command for a
Con-nect document, a window prompts you for the printer name and you can
specify whether the document is to be printed formatted or not.
The following figure shows an example of a list of all documents in a Con-nect file using the command:
LIST DOC MBE(*) FOLDER=WORK FILE=ISPF
The command lists all documents from the ISPF file in the
WORK folder in cabinet MBE:
LIST-DOC:MBE(*)/FOLDER=WORK ---------------------- Row 0 of 2 - Columns 045 076
COMMAND===> SCROLL===> CSR
Document Int.Number Created File
** ******************************** top of list *******************************
Editor 134 0001485546 1989-11-24 ISPF
Textfile 0006907082 1993-05-06 ISPF
** ****************************** bottom of list ******************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right :s
|
Meaning of the column headings:
| Field | Meaning |
|---|---|
Document |
Document name. |
Int.Number |
Internal number used by Natural ISPF to find the document. |
Created |
Document creation date in format
YY-MM-DD.
|
| File | Name of the Con-nect file in which the document is stored. |
The following screen illustrates the information screen for a Con-nect document invoked using the command:
INFO DOC MBE(TEXTFILE)
The screen shows information on document TEXTFILE from
cabinet MBE:
----------------------- Information DOC:MBE(TEXTFILE) -------------------------
Command ===>
Document ===> TEXTFILE
Folder ===> Work___________ File ISPF___________
Subject ===> To test ISPF14______________________________________________
____________________________________________________________
____________________________________________________________
____________________________________________________________
Keywords ===> TEST___________ ISPF___________ _______________
_______________ _______________ _______________
Private ===> _
Exp-date ===> 1994/05/06 Archive _
Attached ===> Enclos
Created ===> 1993/05/06 11:12 By MBE
Modified ===> 1993/05/06 14:48 MBE
Mailed ===>
Forward ===>
Reply ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right :s
|
The information presented in this screen is the same as documented in the Con-nect User's Guide. You can modify the highlighted fields in this screen, for example, rename the document, edit the description in the Subject field or assign new keywords.
Select a document from a list by entering a line command in the input field preceding the document name and pressing ENTER.
| Line Command | Corresponding Function Command |
|---|---|
B |
BROWSE |
D |
DELETE
|
E |
EDIT |
I |
INFORMATION |
PR |
PRINT |
When selecting a document with the PR line
command, a window prompts you for the printer name and you can specify whether
the document is to be printed formatted or not.
Line commands can also be used as valid abbreviations of function commands entered in the command line of any system screen.
If you display a Con-nect document in Editor format in
EDIT mode, you can issue the following local command
from the Editor command line in addition to Editor commands:
| Command | Meaning |
|---|---|
IMPORT |
Imports a PC file or another Con-nect document into the document (see section Useful Features). |
If you display lists of Con-nect documents in Editor format, you can
issue the local commands ALL,
LAYOUT, RELIST and
SORT in addition to Editor scroll commands. For
detailed information, see the subsections in section
Useful Features.
The user workpool is an internal pool from which you can select output files of Natural programs, Natural utilities or job output for further maintenance.
The following objects are written to the user workpool;
The output of macro objects as a result of the
RUN command;
The generated code of any object that includes inline macros or the
INCLUDE-MACRO statement, as a result of the
STOW, CATALOG or
RUN command (Natural objects), or the
SUBMIT command (other sources);
The output of any Natural program that defines the workpool as a
printer and which includes the WRITE, PRINT and/or
DISPLAY statements referring to that printer;
The output from Natural ISPF and Natural utilities by specifying the workpool as print destination;
A command script executed by the PLAY
command. Also, if a command script is interrupted by the
PAUSE command or error, the command lines not yet
executed are kept in the workpool and can be modified;
Command sequences including (error) messages recorded by the
RECORD session command;
A Zap generated with the GENERATE or
SAVE command after a CSECT has been
edited in Natural ISPF.
An example of objects that use the macro facility is contained in the
section Macro
Facility in the Natural ISPF Programmer's
Guide. An example of a Natural program that uses the workpool as
output destination is contained in the subsection
Write-To-Workpool
Feature. An example of specifying the workpool as printer
in a Natural utility is contained in the example. For details on the other
instances, see the description of the
PLAY and
RECORD
commands in the section Useful Features, and the description
of CSECT handling in the subsection
Load Modules and
CSECTs in the section z/OS Objects.
The workpool holds only one entry for each generated Natural program and report. If a program with output in the workpool is run, stowed or cataloged again, the existing output is replaced according to object type. You can browse, edit, save and delete output in the workpool.
Note:
Workpool files are intermediate files only. If you wish to keep
source that was generated in the workpool, it is strongly recommended that you
store it as another object elsewhere in Natural ISPF (see the subsection
Saving
Output).
To enter the user workpool, select the
WORKPOOL option from the Natural ISPF Main Menu.
This displays the Workpool Entry Panel:
-------------------------- WORKPOOL - ENTRY PANEL -----------------------------
COMMAND ===>
Program ===>
Type ===> ( MACRO, REPORT, ZAP etc. )
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
Meaning of the input fields:
| Field | Meaning |
|---|---|
Program |
Name of program or member whose output is to be
maintained. Enter the asterisk wildcard (*) to list all output files or enter a
prefix followed by an asterisk (*) to list all file names with that prefix (see
also the example of the
LIST command).
|
Type |
Type of output. Leave blank to list all types according to the name selection criteria. Specify:
|
To select an output file for maintenance specify its program name in the
Program input field and enter a function command in the command line.
Alternatively, you can issue a function command with object type O
and member name from any system screen.
The following function commands are available for the workpool facility:
| Command | Parameter Syntax |
|---|---|
BROWSE |
output-name |
COPY |
output-name,
object-type
object-parameters, REP |
DELETE |
output-name |
EDIT |
output-name |
EXPORT |
output-name,
destination |
LIST |
..*
TYPE=t |
PLAY |
output-name |
PRINT |
output-name,
printer-id |
SUBMIT |
output-name,
TARGET=node-id |
These commands are described in detail in section Command Reference.
If you issue any of these commands from outside the workpool facility,
you must specify object type O (output) in the command syntax
before the object parameters.
You can display your edit and the workpool sessions in split-screen
mode and immediately see the effect of any modifications on the output using
the RUN, CATALOG,
STOW or SUBMIT command
from the edit session as appropriate.
Below are some examples of function commands using full command syntax.
The following figure illustrates the result of the command:
LIST O * TYPE=MACRO
The list includes all output files that use the macro facility (macro objects and output of members that have inline macros):
LIST-OUT:/TYPE=MACRO ----------------------------- Row 0 of 1 - Columns 028 049
COMMAND===> SCROLL===> CSR
PROGRAM TYPE DATE TIME LINES
** ****************** top of list ******************
MYPROG MACRO 19980116 14:03 22
##SUBMIT MACRO 19980116 14:05 14
** ***************** bottom of list ****************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
Meaning of the column headings:
| Field | Meaning |
|---|---|
PROGRAM |
Name of the member that generated this output:
|
TYPE |
Type of output (e.g., MACRO,
REPORT, PLAY, ...)
|
DATE |
Date output was generated in the workpool. |
TIME |
Time output was generated in the workpool. |
LINES |
Number of lines in the output. |
The following line commands are available from a list of output objects. Each line command is an abbreviation of the corresponding function command:
| Line Command | Corresponding Function Command |
|---|---|
B |
BROWSE |
CP |
COPY |
D |
DELETE |
E |
EDIT |
EX |
EXPORT |
PL |
PLAY |
PR |
PRINT |
SB |
SUBMIT |
Line commands can also be used as valid abbreviations of function commands entered in the command line of any system screen.
This example shows you how to write selected messages from the Natural
utility SYSERR to the workpool.
In the Natural SYSERR Utility Menu, specify function code
PR, an appropriate message type and the required application (in
our example, SYSISPS1). Then specify the required message range to
be printed:
17:28:33 ***** NATURAL SYSERR Utility ***** 94-12-27
- Menu -
Code Function
---- ----------------------------------------
AD Add new messages
DE Delete messages
DI Display messages
MO Modify messages
PR Print messages
SC Scan in messages
SE Select messages from a list
TR Translate messages into another language
? Help
. Exit
---- ----------------------------------------
Code .. PR Message type .... UL
Library ......... SYSISPS1
Message number .. 6800 - 6810
Language codes .. 1________
Please enter code.
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Canc
|
Press ENTER to display the printer specifications.
You must specify WORKPOOL as printer:
17:28:33 ***** NATURAL SYSERR Utility ***** 94-12-27
- Menu -
+------Print User Defined Error Texts------+
! !
! Library .......... SYSISPS1 !
! Language code .... 1 !
! !
! Long texts, too .. Y !
! Error number ..... 6800 - 6810 !
! Lines per page ... 60_ !
! Left margin ...... 10 !
! Top margin ....... 0_ !
! Bottom margin .... 0_ !
! Printer .......... WORKPOOL !
! !
+------------------------------------------+
Code .. PR Message type .... UL
Library ......... SYSISPS1
Message number .. 6800 - 6810
Language codes .. 1________
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Canc
|
Press ENTER to perform the function. If you entered
UL as Message type, the specified messages are written to the
workpool, including long texts.
You can view the messages by selecting the
WORKPOOL option from the Natural ISPF Main Menu:
BROWSE-OUT:PPRTUSR/TYPE=REPORT-1 ------------------------------ Columns 001 076
COMMAND===> SCROLL===> CSR
** ******************************** top of list *******************************
-------------------------------------------------------------------
SYSISPS16800 Invalid command
-------------------------------------------------------------------
Text: The command that was entered was not a valid N-ISPF command.
Expl: .
Actn: .
-------------------------------------------------------------------
SYSISPS16801 Invalid parameter
-------------------------------------------------------------------
Text: Invalid parameter
Expl: The parameter that was entered was not a valid N-ISPF parame
Actn: .
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
Note:
You can proceed as in the above example with all Natural utilities
which prompt for a printer name. Output of other Natural utilities and Natural
system commands can also be routed to the workpool by means of the Natural
terminal command %H#WORKPOOL (see Natural
Terminal Commands documentation).
From any Natural ISPF screen, enter the command:
NAT LIST P MYPROG EXPAND C *
In the command line of the resulting screen, enter the command:
%H#WORKPOOL
Then press PF2 to print the expanded program list and return to Natural ISPF by pressing PF3. You can also handle the expanded list in the workpool as appropriate.
Within Software AG's Interactive Data Dictionary Predict, lists of
objects can usually be shown in one of the display modes
SELECT, LIST and
DISPLAY. If you choose either the
LIST or the DISPLAY mode
and enter the terminal command %H#WORKPOOL, as reply
to the MORE prompt, the complete list of Predict objects is
written to the workpool where it can be further processed.
When browsing or editing output in the workpool, you can save the
output currently displayed as another Natural ISPF object using the Editor
command CREATE from the Editor command line.
You must mark the block of lines you wish to copy to the target source
with two Editor line commands CC, and then issue the
CREATE command in the format:
CREATE object-type object-parameters
If you omit the object-type
and/or the object-parameters, prompt
windows help you make a valid selection (note that the command format and
prompt windows are the same as used for the COPY
function command).
The command displayed in the Editor command line of the following
screen creates PDS member MYJOB in the library
MY.ONLY.SOURCE using all four lines of the displayed output
(marked with two CC Editor line commands):
EDIT-OUT:EXJCL/TYPE=MACRO------------------------------------- columns 001 072
COMMAND===> CREATE P MY.ONLY.SOURCE(MYJOB SCROLL===> CSR
***** ****************************** top of data *****************************
CC001 //* FR=//* ,
00002 //* SV #VOL = COM811
00003 //JWOTP12 JOB JWO,CLASS=1,MSGCLASS=X,REGION=2500K
CC004 //SCAN EXEC TAPESCAN,TAPE=COM811
***** **************************** bottom of data ***************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
Alternatively, you can copy output from the workpool with the:
CP line command from a list of workpool
entries or
COPY function command from any system
screen in the format:
COPY O name,object-type object parameters,REP
If you set RECOVERY ON in your Editor
profile, recovery files are written while you are editing. Recovery files can
be retrieved after an abnormal termination. The frequency at which recovery
files are written can also be specified in your Editor profile. For example, a
value of 10 means that a recovery file is written every 10th line you modify
(see the subsection Editor
Profile in section Profile
Maintenance).
Recovery files are separate objects in Natural ISPF with object type
REC, though they have no Entry Panel. If there is an abnormal
termination while you are editing, the next time you log on to Natural ISPF,
you are notified with the message: You have lost files. Enter
RECOVER command to recover. If you issue the
RECOVER command (an implicit LIST
REC), you are presented with a list of recoverable files (see
the example of the
LIST command). Alternatively, you can
issue another function command with the object-type parameter
REC.
Authorized users such as the system administrator can maintain recovery
files of all users. Recovery files of all users have object type
BPR, and available functions are LIST
and DELETE (see also the
Natural ISPF Administration
Guide).
The following function commands are available for recovery files:
| Command | Object Parameter Syntax |
|---|---|
DELETE |
REC
member-name |
EDIT |
REC
member-name |
LIST |
REC |
where member-name is the name
of the edited object.
The following display is a result of the LIST
REC command after an abnormal termination during an editing
session with a Natural program and a PDS member:
LIST-REC: ---------------------------------------- Row 0 of 2 - Columns 030 076
COMMAND===> SCROLL===> CSR
TYPE BLOCK DATE TIME OBJECT-IDENTIFICATION
** ******************************** top of list *******************************
NAT 00512 19981228 10:12:54 BRY(ISPJ---U)
PDS 00723 19981228 10:14:29 BRY.COMN.SOURCE(ISPRULES)
** ****************************** bottom of list ******************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
Meaning of the column headings:
| Column | Meaning |
|---|---|
TYPE |
Object type. |
BLOCK |
Internal block number. |
DATE |
Date recovery file was written. |
TIME |
Time recovery file was written. |
OBJECT-IDENTIFICATION |
Library and (object name). |
Use a line command to select any recovery file from the list for further handling (see the subsection Line Commands).
The following line commands are available for a list of recovery files. Each line command is an abbreviation of a function command.
| Line Command | Corresponding Function Command |
|---|---|
D |
DELETE
|
E |
EDIT
|
Line commands can also be used as valid abbreviations of function commands entered in the command line of any system screen.
A recovery file can be edited and saved as any normal edited member.
After you have edited and saved a recovery file, the
END command (usually assigned to PF3)
returns you to the list of recovery files.
Once a recovery file has been edited or deleted, it is erased from the
list of recovery files, regardless of whether the recovered edit session is
terminated by the END or
CANCEL command.
Natural ISPF allows you to access the Incore database (IDB) container
file. Container files are usually created by your application programs using
IDB. Select the CONTAINER option from the Natural
ISPF Main Menu. The IDB Container Entry Panel appears:
------------------------- IDB CONTAINER ENTRY PANEL ---------------------------
COMMAND ===>
Type ===>
Group ===>
Name ===>
|
The meaning of the input fields is explained in the following table:
| Field | Meaning |
|---|---|
|
|
These 3 fields identify a container file. If any of the fields contain an asterisk (*), the
|
The available function commands are:
| Command | Parameter Syntax |
|---|---|
BROWSE |
TYPE=type
GROUP=group
NAME=name |
DELETE |
TYPE=type
GROUP=group
NAME=name |
LIST |
TYPE=type
GROUP=group
NAME=name |
Note:
If you issue any of the above function commands from outside the
container files facility, you must specify the
object-type parameter
CTN before the object parameters.
The following line commands are available:
| Line Command | Corresponding Function Command |
|---|---|
B |
BROWSE |
D |
DELETE |
For example, if you enter an asterisk (*) in the Type
field and press ENTER, a list of container files appears in the
following format:
LIST-CTN:/TYPE=*/GROUP=/NAME=* ------------------ Row 0 of 50 - Columns 040 076
COMMAND===> SCROLL===> CSR
Type Group Name Action User Date Time
** ******************************** top of list *******************************
PERSONNE CV 11100114 MZC 19981201 11:02:21.6
PERSONNE CV 11500327 JWO 19970705 19:21:11.6
PERSONNE CV 40008001 MZC 19970714 12:26:48.7
REPORT PERSON ADDRESSES JWO 19961120 15:21:01.6
REPORT PERSOX ADDRESSES JWO 19981108 18:12:21.1
SAETZE TEST WOHL MZC 19981201 11:13:10.0
TEXT CARS JWO JWO 19970715 15:54:52.2
TEXT COMMENT AL JARREAU MZC 19970624 12:30:06.7
TEXT COMMENT BEACH BOYS JWO 19961124 08:23:10.0
TEXT COMMENT BEATLES JWO 19970720 17:21:43.8
TEXT COMMENT COMEDIAN HARMONISTS MZC 19981212 22:11:31.4
TEXT COMMENT DIE FANTASTISCHEN 4 MZC 19971209 11:44:11.1
B TEXT COMMENT ERIC BURDON *Browsed MZC 19981212 22:21:43.9
TEXT COMMENT F.SINATRA & C.BASIE MZC 19980124 15:27:58.9
TEXT COMMENT JETHRO TULL MZC 19971209 12:32:04.2
TEXT COMMENT JIMI HENDRIX JWO 19970406 19:05:28.0
TEXT COMMENT MARBLES JWO 19970706 14:43:15.8
TEXT COMMENT MONKEYS JWO 19970624 14:23:25.0
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|
If, for example, you select the file ERIC-BURDON for
browsing with the B line command, the contents of
the file are displayed as follows:
BROWSE-CTN:/TYPE=TEXT/GROUP=COMMENT/NAME=ERIC-BURDON ---------- Columns 001 050
COMMAND===> SCROLL===> PAGE
=cols> ----+----1----+----2----+----3----+----4----+----5
LINE
****** ******************* top of data ******************
000001 An English singer who has been in the music biz
000002 for more than thirty years, in several formations,
000003 the most successful of which was certainly
000004 "Eric Burdon and War".
000005 Some people say he is the blackest among all
000006 these white blues singers !
****** ***************** bottom of data *****************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso
|