Natural for Mainframes

https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/
Admin
Natural for Mainframes is a high-performance, enterprise-grade development platform and...
Tokens:1,215,532
Snippets:16,725
Trust Score:10
Update:2 months ago
Show doc for...
Tokens:
Raw
### URLX01 Example Program

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/func/func_function_objects.htm

A partial example program demonstrating the setup and usage of encoding/decoding functions in Natural.

```Natural
** Example 'URLX01': ENCODED-STR := SAGENC(<DECODED-STR>)                
************************************************************************ 
DEFINE DATA                                                              
LOCAL                                                                    
1 SAMPLE-STRING (A72)                                                    
/*                                                                       
1 #URL-DEC      (A) DYNAMIC                                              
1 #URL-ENC      (A) DYNAMIC                                              
/*                                                                       
1 #URL-DEC-U    (U) DYNAMIC                                              
/*                                                                       
1 L-RET         (I4)   /* Return code                                    
1 L-ERR-CHAR    (U1)   /* Error character                                
1 L-ERR-CHAR-DEC(A12)  /* Decoded error character                        
1 L-SPACE       (A1)   /* '%'  => %20, ' '  => ' ',                      
                       /* else => '+' (default)                          
1 L-UNRES       (A1)   /* 'E' => encode, else => don't encode (default)  
1 L-RES         (A1)   /* 'E' => encode (default), else => don't encode  
1 L-OTHER       (A1)   /* 'E' => encode (default), else => don't encode  
1 L-CP          (A64)  /* default *CODEPAGE                              
1 L-CP-TAB-CHAR (U1/1:1)                                                 
1 L-CP-TAB-ENC  (A12/1:1)                                                
1 L-MSG         (U72)                                                    
END-DEFINE                                                               
/*                                                                       
/*                                                                       
/*                                                                       
WRITE 'Sample string to be processed:'                                   
/* The string below shall be encoded and decoded again.                  
/* After decoding it should be unchanged.                                
SAMPLE-STRING := '"Decoded data!"'                                       
WRITE SAMPLE-STRING (AL=72) /                                            
/*                                                                       
/* Assign the sample string to the input variable #URL-DEC of the        
/* simple encoding function.                                             
#URL-DEC      := SAMPLE-STRING                                           
/*                                                                       
/* Copycode SAGENCP containing the prototype definition is used at       
```

--------------------------------

### Define Return Point and Logon

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/syscom/setup.htm

Example of stacking a SETUP command to define a return point followed by a LOGON command to switch applications.

```Natural
SETUP *,MENU
LOGON APPL3
```

```Natural
LOGON APPL2
MENU
```

```Natural
SETUP *,MENU
LOGON APPL5
```

```Natural
SETUP *,MENU
LOGON APPL6
```

```Natural
SETUP *,MENU
LOGON APPL7
```

```Natural
SETUP *,MENU
LOGON APPL8
```

```Natural
SETUP *,MENU
LOGON APPL9
```

--------------------------------

### Create Object Examples

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/sm/create.htm

Demonstrates creating an object using a class name or a class GUID.

```Natural
CREATE OBJECT #O1 OF CLASS "Employee" or
CREATE OBJECT #O1 OF CLASS "653BCFE0-84DA-11D0-BEB3-10005A66D231"
```

--------------------------------

### AT START OF DATA Reporting Mode Example

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/sm/sm_exas.htm

Demonstrates the use of AT START OF DATA to prompt for user input before displaying records found in a search.

```Natural
** Example 'ASDEX1R': AT START OF DATA (reporting mode)
***********************************************************************
RESET #CITY (A20) #CNTL (A1)
*
REPEAT
  INPUT 'ENTER VALUE FOR CITY' #CITY
  /*
  IF #CITY = ' ' OR= 'END' DO
    STOP
  DOEND
  FIND EMPLOYEES WITH CITY = #CITY
    IF NO RECORDS FOUND DO
      WRITE NOTITLE NOHDR 'NO RECORDS FOUND'
      ESCAPE
    DOEND
    /*
    **AT START OF DATA DO**
      INPUT (AD=O) 'RECORDS FOUND' *NUMBER //
                   'ENTER ''D'' TO DISPLAY RECORDS' #CNTL (AD=A)
      IF #CNTL NE 'D' DO
        ESCAPE BOTTOM
      **DOEND**
    DOEND
    /*
    DISPLAY NAME FIRST-NAME
  LOOP
LOOP
END
```

--------------------------------

### AT START OF DATA Structured Mode Example

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/sm/atstart.htm

Demonstrates the use of AT START OF DATA within a FIND loop to prompt for user input before displaying records.

```Natural
** Example 'ASDEX1S': AT START OF DATA (structured mode)               
***********************************************************************
DEFINE DATA LOCAL                                                      
1 EMPLOY-VIEW VIEW OF EMPLOYEES                                        
  2 NAME                                                               
  2 FIRST-NAME                                                         
  2 CITY                                                               
*                                                                      
1 #CNTL (A1)  INIT <' '>                                               
1 #CITY (A20) INIT <' '>                                               
END-DEFINE                                                             
*                                                                      
REPEAT                                                                 
  INPUT 'ENTER VALUE FOR CITY'  #CITY                                  
  IF #CITY = ' ' OR = 'END'                                            
    STOP                                                               
  END-IF                                                               
  FIND EMPLOY-VIEW WITH CITY = #CITY                                   
    IF NO RECORDS FOUND                                                
      WRITE NOTITLE NOHDR 'NO RECORDS FOUND'                    
      ESCAPE BOTTOM                                             
    END-NOREC                                                   
    /*                                                          
**   AT START OF DATA                                            
      INPUT (AD=O) 'RECORDS FOUND' *NUMBER //                   
                   'ENTER ''D'' TO DISPLAY RECORDS' #CNTL (AD=A)
      IF #CNTL NE 'D'                                           
        ESCAPE BOTTOM                                           
      END-IF                                                    
    END-START**
    /*                                                          
    DISPLAY NAME FIRST-NAME                                     
  END-FIND                                                      
END-REPEAT                                                      
END
```

--------------------------------

### Global Function HELP Input and Output

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/sm/processc.htm

Example of retrieving global functions starting with the keyword ADD.

```text
Command Line 1:    G
Command Line 2:    ADD
```

```text
Result-Field 1:    ADD CUSTOMER
Result-Field 2:    ADD FILE
Result-Field 3:    ADD USER
```

--------------------------------

### Example Directory Work File

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/rpc/rds.htm

A complete example of a directory configuration file.

```Natural
(UDID)
ACB8AAB4777CA000
  (UDID_EXPIRATION)
  3600
  * this is a comment
  (NODE)
  NODE1
         (SERVER)
         SERVER1
             (LIBRARY)
             SYSTEM
                  (PROGRAM)
                  TESTS1
                  TESTS2
                  TESTS3
         (SERVER)
         SERVER2   (logon-option)
               (LIBRARY)
               SYSTEM
                    (PROGRAM)
                    TESTS4
  (NODE)
  NODE2   (logon-option)
        (SERVER)
        SERVER1
              (LIBRARY)
              SYSTEM
                   (PROGRAM)
                   TESTS1
                   TESTS2
                   TESTS3
                   TESTS4
```

--------------------------------

### Start Natural Web I/O Interface as a Started Task

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/webio/nwo-operating.htm

Use this JCL procedure to start the server as a started task on z/OS. Ensure POSIX(ON) is set for LE370 initialization and the server name is defined in RACF.

```JCL
//NWOSRV  PROC                                      
//KSPSRV   EXEC PGM=NATRNWO,REGION=4000K,TIME=1440, 
// PARM=('POSIX(ON)/NWOSRV1')                        
//STEPLIB  DD DISP=SHR,DSN=NWOvrs.LOAD   
//         DD DISP=SHR,DSN=NATvrs.LOAD              
//CMPRINT  DD SYSOUT=X                             
//STGCONFG DD DISP=SHR,DSN=NWOvrs.CONFIG(SRV1)    
//STGTRACE DD SYSOUT=X                             
//STGSTDO  DD SYSOUT=X                             
//STGSTDE  DD SYSOUT=X
```

--------------------------------

### Include Profiler Input Examples

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/utis/profiler_batch_mode.htm

Examples demonstrating how to pull configuration data from user and system libraries.

```text
INCLUDE-LIB=MYLIB
INCLUDE=MYPROF
```

```text
INCLUDE=XINIT
```

--------------------------------

### AT START OF DATA termination

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/mc_mf/mcERRN_0600.htm

Example of properly terminating an AT START OF DATA block.

```Natural
  READ ...
    AT START OF DATA
       MOVE ...
       DISPLAY ...
    END-START
  DISPLAY ...
  END-READ
  END
```

--------------------------------

### Combining Start Value and Type/Status

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/nsc/nsc_way.htm

Example of applying both Start Value and Type/Status filters simultaneously.

```text
Start Value .. **T***
Type/Status .. **M**
```

--------------------------------

### Launch a Natural application via URL

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/webio/clientcfg-url.htm

Example URL demonstrating how to specify server, port, program, and user credentials for a Natural application session.

```text
http://myhost:8080/natuniweb/natural.jsp?natserver=myserver1&natport=4811&natprog=dump&natuser=myusername
```

--------------------------------

### READ Statement Comprehensive Example

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/pg/pg_dbms_ada.htm

A complete program example demonstrating the use of STARTING FROM, ENDING AT, and WHERE clauses.

```Natural
** Example 'READX02': READ  (with STARTING, ENDING and WHERE clause)
************************************************************************
DEFINE DATA LOCAL
1 MYVIEW VIEW OF EMPLOYEES
  2 NAME
  2 JOB-TITLE
  2 INCOME     (1:2)
    3 CURR-CODE
    3 SALARY
    3 BONUS    (1:1)
END-DEFINE
*
**READ** (3) MYVIEW WITH  JOB-TITLE
**STARTING FROM** 'TRAINEE' **ENDING AT** 'TRAINEE'
                **WHERE** CURR-CODE (*) = 'USD'
  DISPLAY NOTITLE NAME / JOB-TITLE 5X INCOME (1:2)
  SKIP 1
END-READ
END
```

--------------------------------

### Directory and Monitor Command Examples

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/webio/nwo-natmopi.htm

Various examples demonstrating directory listing, cleanup, and multi-server command execution.

```text
natmopi -dls
```

```text
natmopi -dcl TST -ls TST
```

```text
natmopi -sSRV1 -cping -sSRV2 -sSRV3 -cterminate
```

```text
natmopi -cterminate -sSRV1 -cping -sSRV2 -sSRV3
```

```text
natmopi -sSRV1 -cterminate -a
```

--------------------------------

### Dynamic Parameter Assignment Example

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/ops_mf/parmov_as.htm

Example of specifying multiple profile parameters dynamically at the start of a Natural session.

```Natural
NUCNAME='NATNUC#5',IM=D,INTENS=1,DU=OFF,FUSER=(10,32),PROGRAM=' ',
WORK=((1),AM=STD,DEST=WORK1,OPEN=INIT),PS=60,LS=120
```

--------------------------------

### DYNPARM and NTDYNP Configuration Examples

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/parms/dynparm.htm

Examples demonstrating how to restrict specific dynamic parameters like FNAT and FSEC.

```Natural
         NTPRM DBID=0,FNR=0
         NTDYNP ON,PROFILE
```

```Natural
...,FNAT=(22,7,PASSW),FSEC=(22,9,PASSW),DYNPARM=(OFF,FNAT,FSEC)
```

```Natural
USER=(ADM1,ADM2),...,FNAT=(22,8),FUSER=(22,12),DYNPARM=(OFF,DUMMY)
```

--------------------------------

### Configure Explain PLAN_TABLE Setup

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/dbms/ndb-explain.htm

The setup window accessed via PF2 to configure column length and fixed character scrolling.

```text
16:45:35              ***** NATURAL TOOLS FOR DB2 *****             2009-10-30
                              - Explain PLAN_TABLE -


                      Code Function    +----------Explain PLAN_TABLE----------+
                                       !                                      !
                       L   List PLAN_T ! Maximum length of columns ... ___12  !
                       A   List PLAN_T ! Number of fixed characters .. ____0  !
                       D   Delete from !                                      !
                       ?   Help        !                                      !
                       .   Exit        +--------------------------------------+

               Code .. _   Mode ........ DYNAMIC_ ( Dynamic, Plan, Package )
                           Plan ........ ________
                           Collection .. ________
                           DBRM/Package  ________
                           Queryno ..... _____ - _____



  Command ===>
  Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
        Help  Setup Exit                                                  Canc
```

--------------------------------

### AT START OF DATA statement example

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/pg/pg_exas.htm

Demonstrates using AT START OF DATA to print a header at the beginning of a FIND loop.

```Natural
** Example 'ATSTAX02': AT START OF DATA
************************************************************************
DEFINE DATA LOCAL
1 EMPLOY-VIEW VIEW OF EMPLOYEES
  2 PERSONNEL-ID
  2 FIRST-NAME
  2 NAME
  2 SALARY    (1)
  2 CURR-CODE (1)
  2 BONUS     (1,1)
END-DEFINE
*
LIMIT 3
FIND EMPLOY-VIEW WITH CITY = 'MADRID'
  DISPLAY NAME FIRST-NAME SALARY(1) BONUS(1,1) CURR-CODE (1)
  /*
  **AT START OF DATA
    WRITE NOTITLE *DAT4E /
  END-START**
END-FIND
END
```

--------------------------------

### Sample Server Configuration File

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/webio/nwo-ims-conf.htm

A complete example of a server configuration file using the Natural Web I/O Interface Server IMS Adapter.

```text
   # The Web I/O Interface Server parameter.
SESSION_PARAMETER=PROFILE=(NWO,10,930)
FRONTEND_NAME=NATISRFE         # Use the IMS Adapter front-end.
PORT_NUMBER=4711               # The port number used by the Web I/O Interface Client.

   # The IMS Adapter parameter.
RFE_IMS_TA_NAME=NATvrsAD       # The IMS transaction for the remote front-end.
RFE_IMS_TA_PORT=3020           # The port of the IMS listener. 
                               # No RFE_IMS_TA_HOST is defined. This requires
                               # that IMS runs on the same node as the server.
```

--------------------------------

### Filtering with Start Value

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/nsc/nsc_way.htm

Examples of using the Start Value field to filter object lists by ID prefix.

```text
Start Value .. **TOM**
```

```text
Start Value .. **TOM***
```

--------------------------------

### Configure Natural RPC Server Startup in Com-plete

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/rpc/start.htm

Use the STARTUPPGM system parameter to initiate a Natural session with specific RPC profile parameters during Com-plete startup.

```text
STARTUPPGM='<natural> PROFILE=<serverprofile>'
```

--------------------------------

### Example of DO/DOEND construction for AT START OF DATA

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/mc_mf/mcERRN_0300.htm

Use a DO/DOEND block to group multiple statements under a single AT START OF DATA condition.

```Natural
  READ ...
  AT START OF DATA
     DO  IF ...  DO ... DOEND
         IF ...  DO ... DOEND  DOEND
  DISPLAY
  LOOP
  END
```

--------------------------------

### Log on to or create a library

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/firststeps/fs-start.htm

Use the LOGON command to access an existing library or initialize a new one if it does not exist.

```Natural
LOGON TUTORIAL
```

--------------------------------

### GET SAME Statement Example

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/sm/getsame.htm

Demonstrates using GET SAME to iterate through multiple occurrences of an address line field within a READ loop.

```Natural
** Example 'GSAEX1': GET SAME                                           
************************************************************************
DEFINE DATA LOCAL                                                       
1 I                (P3)                                                 
1 POST-ADDRESS VIEW OF EMPLOYEES                                        
  2 FIRST-NAME                                                          
  2 NAME                                                                
  2 ADDRESS-LINE   (I:I)                                                
  2 C*ADDRESS-LINE                                                      
  2 POST-CODE                                                           
  2 CITY                                                                
*                                                                       
1 #NAME            (A30)                                                
END-DEFINE                                                              
*                                                                       
FORMAT PS=20                                                            
MOVE 1 TO I                                                             
*                                                                       
READ (10) POST-ADDRESS BY NAME                                          
  COMPRESS NAME FIRST-NAME INTO #NAME WITH DELIMITER ','   
  WRITE // 12T #NAME                                       
  WRITE /  12T ADDRESS-LINE (I.1)                          
  /*                                                       
  IF C*ADDRESS-LINE > 1                                    
    FOR I = 2 TO C*ADDRESS-LINE                            
      **GET SAME                      /* READ NEXT OCCURRENCE**
      WRITE 12T ADDRESS-LINE (I.1)                         
    END-FOR                                                
  END-IF                                                   
  WRITE / POST-CODE CITY                                   
  SKIP 3                                                   
END-READ                                                   
END
```

--------------------------------

### Defining and Using the Infoline

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/pg/pg_desgn_screen.htm

Example demonstrating how to activate the infoline with %XI+ and direct output to it using DEFINE PRINTER.

```Natural
SET CONTROL 'XT'
SET CONTROL 'XI+'
DEFINE PRINTER (2) OUTPUT 'INFOLINE'
WRITE (2) 'EXECUTING' *PROGRAM 'BY' *INIT-USER
WRITE 'TEST OUTPUT'
END
```

```Text
EXECUTING POS      BY SAG                                                      
Page      1                                                2001-01-22  10:56:06
                                                                                 
TEST OUTPUT
```

--------------------------------

### Web I/O Interface Server Configuration File

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/webio/nwo-conf.htm

Example configuration file showing session parameters, thread settings, and port definitions.

```text
 
# This is a comment
SESSION_PARAMETER=profile=(stgqa,10,930) fuser=(10,32) CFICU=ON
THREAD_NUMBER=2
THREAD_SIZE=700
FRONTEND_NAME=NATOSvrL       # and another comment
PORT_NUMBER=4811

```

--------------------------------

### Set Profile Parameters at Session Start

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/using/use_mf_config.htm

Example of specifying a profile and individual parameters at session start, where the last specified value for a parameter takes precedence.

```text
PROFILE=TESTPROF FUSER=(10,123) DSIZE=40 LS=250,PS=50 FUSER=(10,245)
```

--------------------------------

### Configure NDZ Started Task Parameters

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/dbms/ndb-ziip-parm.htm

Example JCL configuration for the NDZ server started task defining the home directory path and socket port.

```JCL
//NDZ11 EXEC PGM=NDZNUC11,REGION=0M,
//PARM=('PATH=/u/nat/ndz/dev/ndz11','PORT=4932')
```

--------------------------------

### License Information Examples

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/utis/systp_env_ind.htm

Examples of direct commands to display license files for the base product or specific add-ons.

```Natural
SYSTP L.F
```

```Natural
SYSTP L F.NOC
```

--------------------------------

### Example of an Object List Workplan

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/utis/sysobjh_object.htm

A sample configuration for a LIST type Workplan, demonstrating how to specify libraries, object types, and selection ranges.

```text
TYPE LIST
  LIBRARY LIB-1 OBJTYPE N    /* process Natural objects from library 'LIB-1'
   ( A* SCKIND S             /* all sources objects whose names start with 'A'
  B1                         /* source and/or cataloged object of  'B1'
  CDE> SCKIND C )            /* all cataloged objects with names greater than/equal to 'CDE'
  /*                         /* comment line
  LIBRARY LIB-2              /* process Natural objects from library 'LIB-2'
                             /* including error messages and shared resources
  ( *                        /* all source and/or cataloged objects
                             /* including shared resources
  FMNUM 1 TONUM 100          /* error messages from 1 to 100
  )
```

--------------------------------

### Example of AT START OF DATA and AT END OF DATA

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/pg/pg_dbms_ada.htm

Demonstrates the use of AT START OF DATA to display the system time and AT END OF DATA to display the last processed record name.

```Natural
** Example 'ATSTAX01': AT START OF DATA
************************************************************************
DEFINE DATA LOCAL
1 MYVIEW VIEW OF EMPLOYEES
  2 CITY
  2 NAME
  2 JOB-TITLE
  2 INCOME  (1:1)
    3 CURR-CODE
    3 SALARY
    3 BONUS (1:1)
END-DEFINE
*
WRITE TITLE 'XYZ EMPLOYEE ANNUAL SALARY AND BONUS REPORT' / 
READ (3) MYVIEW BY CITY STARTING FROM 'E'
  DISPLAY GIVE SYSTEM FUNCTIONS
          NAME (AL=15) JOB-TITLE (AL=15) INCOME (1)
  /*
** AT START OF DATA
    WRITE 'RUN TIME:' *TIME /
  END-START
  AT END OF DATA
    WRITE / 'LAST PERSON SELECTED:' OLD (NAME) /
  END-ENDDATA**
END-READ
*
AT END OF PAGE
  WRITE / 'AVERAGE SALARY:' AVER (SALARY(1))
END-ENDPAGE
END
```

```text
                  XYZ EMPLOYEE ANNUAL SALARY AND BONUS REPORT 
                                                              
     NAME           CURRENT                 INCOME            
                   POSITION                                   
                                CURRENCY   ANNUAL     BONUS   
                                  CODE     SALARY             
--------------- --------------- -------- ---------- ----------
                                                              
RUN TIME: 12:43:19.1                                          
                                                              
DUYVERMAN       PROGRAMMER      USD           34000          0
PRATT           SALES PERSON    USD           38000       9000
MARKUSH         TRAINEE         USD           22000          0
                                                              
LAST PERSON SELECTED: MARKUSH                                 
                                                              
                                                              
AVERAGE SALARY:      31333                                   
```

--------------------------------

### Start Natural RPC Server at a Terminal

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/rpc/start.htm

Example command to start the Natural RPC server front-end at a terminal, including the transaction ID, nucleus name, and optional parameters.

```text
<natural> <ncistart>[,UCTRAN]
RPC=(SERVER=ON,SRVNAME=servername,SRVNODE=nodename,RPCSIZE=n, MAXBUFF=n)
RCA=BROKER,RCALIAS=(BROKER,CICSETB)
```

--------------------------------

### Execute Program with Various Input Modes

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/sm/input2.htm

Command-line examples demonstrating keyword, indexed, and positional input techniques.

```Command Line
PGM1 FLD1=AA,FLD3=CC
```

```Command Line
PGM1 %1=AA,%3=CC
```

```Command Line
PGM1 AA,,CC
```

```Command Line
PGM1 AA,FLD3=CC
```

```Command Line
PGM1 AA,FLD2=,CC
```

```Command Line
PGM1 AA,%3=CC
```

--------------------------------

### Example Program WTLEX1 using WRITE TRAILER

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/sm/writetra.htm

A complete Natural program demonstrating the use of WRITE TITLE and WRITE TRAILER options alongside a database query.

```Natural
** Example 'WTLEX1': WRITE (with TRAILER option)                        
************************************************************************
DEFINE DATA LOCAL                                                       
1 EMPL-VIEW VIEW OF EMPLOYEES                                           
  2 NAME                                                                
  2 FIRST-NAME                                                          
  2 CITY                                                                
  2 JOB-TITLE                                                           
END-DEFINE                                                              
*                                                                       
FORMAT PS=15                                                            
WRITE TITLE LEFT JUSTIFIED UNDERLINED                                   
      *TIME 3X 'PEOPLE LIVING IN BARCELONA'                             
      14X 'PAGE:' *PAGE-NUMBER                                          
SKIP 1                                                                  
*                                                                       
**WRITE TRAILER LEFT JUSTIFIED UNDERLINED                                 
      / 'CITY OF BARCELONA REGISTER' **                                 
*                                                                       
LIMIT 10                              
FIND EMPL-VIEW WITH CITY = 'BARCELONA'
  DISPLAY NAME FIRST-NAME 3X JOB-TITLE
END-FIND                              
END
```

--------------------------------

### Create NDZ Started Task Procedure

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/inst_zos/install_ndz.htm

Template for defining an NDZ started task procedure in JCL. Replace placeholders for installation path, port, license dataset, and load dataset before execution.

```JCL
//NAME   PROC                                                         
//*                                                                     
//NDZ11    EXEC  PGM=NDZNUC11,REGION=0M,TIME=NOLIMIT,
//  PARM=('PATH=NDZ INSTALLATION PATH','PORT=PORT NUMBER TO CONNECT')                                  
//*--------------------------------------------------------------------*
//LICNDZ   DD DISP=SHR,DSN=LICENSE DATASET(ndzlic)           
//STEPLIB  DD DISP=SHR,DSN=LOAD DATASET
//SYSPRINT DD SYSOUT=X                                                  
//SYSOUT   DD SYSOUT=X                                                  
//SYSUDUMP DD SYSOUT=X                                                  
//STDOUT   DD SYSOUT=X                                                  
//STDERR   DD SYSOUT=X
```

--------------------------------

### Configure NWW_PATH_INFO

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/webtech/nwx_initfile.htm

Example setting for testing the Natural Web Server Extension in stand-alone mode.

```text
NWW_PATH_INFO=/syshtml/nat-env
```

--------------------------------

### Configure ZIIP Parameter

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/parms/ziip.htm

Example showing the syntax for defining the ZIIP parameter with STAT, PWCSIZE, and IOCSIZE subparameters.

```text
ZIIP=(ON,STAT=ON,PWCSIZE=(200,,300),IOCSIZE=(100,100,500))
```

--------------------------------

### AT END OF PAGE with INPUT Statement Example

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/sm/atendpag.htm

This example uses a REPEAT loop to read employee records and triggers an INPUT prompt at the end of each page to allow the user to reposition the starting name for the next read.

```Natural
** Example 'AEPEX2': AT END OF PAGE (with INPUT)                        
************************************************************************
DEFINE DATA LOCAL                                                       
1 EMPLOY-VIEW VIEW OF EMPLOYEES                                         
  2 NAME                                                                
  2 FIRST-NAME                                                          
  2 POST-CODE                                                           
  2 CITY                                                                
*                                                                       
1 #START-NAME (A20)                                                     
END-DEFINE                                                              
*                                                                       
FORMAT PS=21                                                            
*                                                                       
REPEAT                                                                  
  READ (15) EMPLOY-VIEW BY NAME = #START-NAME                           
    DISPLAY NOTITLE NAME FIRST-NAME POST-CODE CITY                      
  END-READ                                                              
  NEWPAGE                                                               
  /*                                                 
 **AT END OF PAGE                                     
    MOVE NAME TO #START-NAME                         
    INPUT / '-' (79)                                 
          / 10T 'Reposition to name ==>'             
                #START-NAME (AD=MI) '(''.'' to exit)'
    IF #START-NAME = '.'                             
      STOP                                           
    END-IF                                           
  END-ENDPAGE**
  /*                                                 
END-REPEAT                                           
END
```

--------------------------------

### HISTOGRAM Statement Example

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/sm/sm_exas.htm

Demonstrates the use of the HISTOGRAM statement in reporting mode to list cities starting with 'M'.

```Natural
** Example 'HSTEX1R': HISTOGRAM (reporting mode)                        
************************************************************************
*                                                                       
LIMIT 8                                                                 
**HISTOGRAM EMPLOYEES CITY STARTING FROM 'M'**                              
 DISPLAY NOTITLE CITY                                                   
         'NUMBER OF/PERSONS' *NUMBER *COUNTER                           
**LOOP**                                                                    
*                                                                       
END
```

--------------------------------

### GET Request for IPv6 Address

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/sm/reqdocu.htm

Example of specifying an IPv6 address within the URL for a REQUEST DOCUMENT call.

```Natural
REQUEST DOCUMENT FROM "http://[2BFC:5022:4081:0000::C:41]:8080" 
  RETURN
    PAGE #Resultxml
RESPONSE #rc
```

--------------------------------

### Configure Automatic Startup via SMARTS

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/webio/nwo-operating.htm

Use the SMARTS SYSPARM parameter STARTUPPGM to automatically initialize the server. The server ID is restricted to a maximum of 6 characters.

```text
STARTUPPGM='NATRNWO <server-id>'
```

```text
STARTUPPGM='NATRNWO NWOS1'
```

--------------------------------

### Execute List Objects Function

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/using/use_mf_execute.htm

Example of the Development Functions screen configured to list programs starting with the letter F.

```text
15:05:18                    *****  NATURAL  *****                    2018-07-31
User SAG                  - Development Functions -          Library SYSEXPG   
                                                                Mode Structured
                                                           Work area empty     
                                                                               
            Code  Function            Code  Function                           
                                                                               
             C    Create Object        L    List Objects or Single Source      
             E    Edit Object          O    List Source with Expanded Sources  
             X    Execute Program      N    List Extended Object Names         
             R    Rename Object        I    List Directory Information         
             D    Delete Objects       U    List Used Subroutines, etc.        
             S    Scan Objects         ?    Help                               
                                       .    Exit                               
                                                                               
                                                                               
     Code .. **L**    Type .. **P**   Name .. **F***______________________________         
                                                                               
                                                                               
                                                                               
Command ===>                                                                   
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
      Help  Menu  Exit                                                  Canc
```

--------------------------------

### Example Program PWDEX1

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/sm/passw.htm

Demonstrates the use of the PASSW statement with password display protection by placing the keyword at the start of the line.

```Natural
** Example 'PWDEX1': PASSW                                              
************************************************************************
DEFINE DATA LOCAL                                                       
1 EMPLOY-VIEW VIEW OF EMPLOYEES                                         
  2 PERSONNEL-ID                                                        
  2 NAME                                                                
END-DEFINE                                                              
*                                                                       
**PASSW=**                         **Password not visible**
*                                                                       
LIMIT 5                                                                 
READ EMPLOY-VIEW                                                        
 DISPLAY NOTITLE PERSONNEL-ID NAME                                      
END-READ                                                                
*                                                                       
END
```

--------------------------------

### Configure RPC Parameters for Client and Server

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/parms/rpc_settings.htm

Examples of setting RPC parameters for client and server configurations.

```text
RPC=(RPCSIZE=80,MAXBUFF=30,AUTORPC=ON,DFS=(MYSERV,MYNODE,,ACI))
```

```text
RPC=(RPCSIZE=80,MAXBUFF=30,SRVNAME=MYSERV,SRVNODE=MYNODE,SERVER=ON)
```

--------------------------------

### Configure Natural for XML and Proxy Access

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/pg/pg_xml.htm

Example of starting a Natural session with specific XML and proxy configuration parameters.

```Natural
NATvr CFICU=ON 
XML=(ON,RDOC=ON,PARSE=ON,RDP='HTTPPROX.HQ.SAG',RDPPORT=8080,RDNOP='*.EUR.AD.SAG;
*.HQ.SAG;*.SOFTWAREAG.COM')
```

--------------------------------

### ASM Execution Examples

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/ops_mf/zos_asm.htm

Various JCL configurations for starting the Authorized Services Manager with different SIP and XCF settings.

```JCL
//ASM EXEC PGM=NATASMvr,PARM='NATv,NATXCF,CFSIP,1500,512'
```

```JCL
//ASM EXEC PGM=NATASMvr,PARM='NATv,NATXCF,CFSIP'
```

```JCL
//ASM EXEC PGM=NATASMvr,PARM='NATv,NATXCF,,500,512'
```

```JCL
//ASM EXEC PGM=NATASMvr,PARM='NATv,NATXCF'
```

--------------------------------

### KEY Parameter Specification Examples

Source: https://documentation.softwareag.com/natmf/9.2.2/en/webhelp/natmf-webhelp/mc_mf/mcERRN_7000.htm

Examples of valid configurations for the dynamic KEY parameter in Natural.

```text
KEY=(OFF)       - releases all keys defined in parameter module.
  KEY=(ON)        - takes all keys defined in parameter module.
  KEY=(PF1=OFF)   - ignores the PF1 value defined in parameter module.
  KEY=(PF1=LOGON) - replaces the PF1 value defined in parameter module.
  KEY=(PF1="LOGON SYSTEM",PF2="L PROGRAM")
                  - replaces PF1 and PF2 values defined in parameter
                    module.
```
Tokens:
Raw