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