Home The Company Publications Products Links Tips Jobs

USR* APIs (Exits), TP-specific Functions, and Others

Example Libraries For NAT413

Last update: 24 November 2006

Select from the "Main Menu" the function "Example Libraries"

_ Development Functions 
_ Development Environment Settings 
_ Maintenance and Transfer Utilities 
_ Debugging and Monitoring Utilities 
X Example Libraries 
_ Other Products 
_ Help 
_ Exit Natural Session 

Please note that some organizational units, for example DBA groups, don't allow their programmers to use USR* exits or TP-specific functions.


Index



Details


SYSEXPG: Example Programs for Programming Guide

This library contains example programs for the Natural Programming Guide. Please logon to the library SYSEXPG to view all examples. Yes, these are delivered with the NAT413 code.

Name 	     Type         S/C  SM Version  User ID    Date        Time 	    
*________  *__________  *__  *  *______  *________  *__________ *________
ACCEPX01   Program      S    S  2.2.05   TM         1993-08-19  14:00:34 
ACCEPX02   Program      S    S  2.2.05   TM         1993-08-19  14:03:14 
ACCEPX03   Program      S    S  2.2.05   TM         1993-08-19  14:03:05 
ACCEPX04   Program      S    S  2.2.05   TM         1993-08-19  10:42:31 
ACCEPX05   Program      S    S  2.2.05   TM         1993-08-19  10:43:36
ACCEPX06   Program      S    S  2.2.05   TM         1993-08-19  10:44:34
ATBREX01   Program      S    S  2.2.05   TM         1993-08-19  15:13:29
ATBREX02   Program      S    S  2.2.05   TM         1993-08-19  15:14:18
ATBREX03   Program      S    S  2.2.05   TM         1993-08-19  15:15:12
ATBREX04   Program      S    S  2.2.05   TM         1993-08-19  15:21:30
ATBREX05   Program      S    S  2.2.05   TM         1993-08-17  15:35:21
ATBREX06   Program      S    S  2.2.05   TM         1993-08-19  16:38:36
ATENDX01   Program      S    S  2.2.05   TM         1993-08-19  14:12:44
ATENPX01   Program      S    S  2.2.05   TM         1993-08-19  16:39:31
(snip)
WRITEX01   Program      S    S  2.2.05   TM         1993-08-18  17:33:25
WRITEX02   Program      S    S  2.2.05   TM         1993-08-13  13:38:14
WRITEX03   Program      S    S  2.2.05   TM         1993-08-19  14:32:21
WRITEX04   Program      S    S  2.2.05   TM         1993-08-19  14:52:11
WRITEX05   Program      S    S  2.2.05   TM         1993-08-19  14:53:24
WRITEX06   Program      S    S  2.2.05   TM         1993-08-19  14:54:22
WRITEX07   Program      S    S  2.2.05   TM         1993-08-19  14:59:48
WRITEX08   Program      S    S  2.2.05   TM         1993-08-19  16:43:38
WRITEX09   Program      S    S  3.1.00   RKE        1999-01-22  15:54:27
WRITEX10   Program      S    S  2.2.05   TM         1993-08-19  16:24:02
WRITEX11   Program      S    S  2.2.05   TM         1993-08-19  16:24:42
WTITLX01   Program      S    S  2.2.05   TM         1993-08-19  16:32:23

...to last index topic


SYSEXRM: Example Programs for Statements Documentation

This library contains example programs for the documentation Natural Statements, System Variables and System Functions. Please logon to the library SYSEXRM to view all examples. Yes, these are delivered with the NAT413 code.

Name 	     Type         S/C  SM Version  User ID    Date        Time 	    
*________  *__________  *__  *  *______  *________  *__________ *________
ACREX1R    Program      S    R  2.2.00   V23CAT     1997-08-06  17:14:09
ACREX1S    Program      S    S  2.2.00   V23CAT     1997-08-06  17:14:09
ACREX2R    Program      S    R  2.2.00   V23CAT     1997-08-06  17:14:09
ACREX2S    Program      S    S  2.2.00   V23CAT     1997-08-06  17:14:09
ADD-RT     Program      S    S  3.1.02   ALO        1999-12-30  12:49:42
ADDEX1     Program      S    S  3.1.00   RKE        1999-01-22  16:08:05
AEDEX1R    Program      S    R  2.2.00   V23CAT     1997-08-06  17:14:10
AEDEX1S    Program      S    S  2.2.00   V23CAT     1997-08-06  17:14:10
AEPEX1R    Program      S    R  2.2.00   V23CAT     1997-08-06  17:14:10
AEPEX1S    Program      S    S  2.2.00   V23CAT     1997-08-06  17:14:10
AEPEX2     Program      S    S  2.2.00   V23CAT     1997-08-06  17:14:10
ASDEX1R    Program      S    R  2.2.00   V23CAT     1997-08-06  17:14:10
ASDEX1S    Program      S    S  2.2.00   V23CAT     1997-08-06  17:14:10
ASGEX1R    Program      S    R  2.2.00   V23CAT     1997-08-06  17:14:10
(snip)
TEREX1     Program      S    S  2.2.00   V23CAT     1997-08-06  17:14:28
UPD-RT     Program      S    S  3.1.02   ALO        1999-12-30  14:06:27
UPDEX1R    Program      S    R  2.2.00   V23CAT     1997-08-06  17:14:28
UPDEX1S    Program      S    S  2.2.00   V23CAT     1997-08-06  17:14:28
WRTEX1     Program      S    R  2.2.00   V23CAT     1997-08-06  17:14:28
WRTEX2     Program      S    R  2.2.00   V23CAT     1997-08-06  17:14:28
WRTEX3     Program      S    R  2.2.00   V23CAT     1997-08-06  17:14:28 
WRTEX4     Program      S    R  3.1.00   RKE        1999-01-22  15:58:35
WRTEX5     Program      S    R  2.2.00   V23CAT     1997-08-06  17:14:28
WTIEX1     Program      S    R  2.2.00   V23CAT     1997-08-06  17:14:28
WTLEX1     Program      S    R  2.2.00   V23CAT     1997-08-06  17:14:28
WWFEX1     Program      S    S  2.2.00   V23CAT     1997-08-06  17:14:29

...to last index topic


SYSEXV: Example Programs for New Versions

This library should contain example programs which illustrate new features of the latest Natural versions. This function leads under Natural version 4.1.3, SP3, to the message: "Library not found."

...to last index topic


SYSEXT: Examples of Application Interfaces

Since NAT41, all USR* programs should only reside on the FNAT system file, they need no longer set further steplibs to execute for processing. Just do a callnat, for example

CALLNAT 'USR0010N'  USR0010L
For more information about the parameter list, please logon to library SYSEXT and display the source code, for example USR*P. If you don't have access to this library, ask your DBA or send me an e-mail info@storrconsulting.com.

SourceInterfaceCommentPROD
USR0010PUSR0010NGet 'SYSPROF' Information NAT
USR0011PUSR0011NInformation about logical file NAT
USR0020PUSR0020NRead any error text from FNAT / FUSER NAT
USR0040PUSR0040NGet type of last error NAT
USR0050PUSR0050NGet 'SYSPROD' Information NAT
USR0060PUSR0060NCopy LFILE definition from 'FNAT' to 'FUSER' NAT
USR0070PUSR0070NDefault Editor Profile 'SYSTEM' NAT
USR0080PUSR0080NHandle Type/Name of Editor Contents NAT
USR0100PUSR0100NControl LRECL NVS
USR0120PUSR0120NRead Natural Short Error Message NAT
USR0210PUSR0210NSave, cat or stow NATURAL object NAT
USR0220PUSR0220NRead Natural Long Error Message NAT
USR0320PUSR0320NRead User Short Error Message from FNAT or FUSER NAT
USR0330PUSR0330NRead Natural Object Directory NAT
USR0340PUSR0340NNatural Buffer Pool Interface 0340 NAT
USR0341PUSR0341NNatural Buffer Pool Interface 0341 NAT
USR0350PUSR0350NRead current Recording Flags NAT
USR0360PUSR0360NModify User Short Error Message NAT
USR0400PUSR0400NNumber of rows affected by searched UPDATE NDB
USR0420PUSR0420NRead User Long Error Message from FUSER NAT
USR0421PUSR0421NUpdate User Long Error Message on FUSER NAT
USR0500PUSR0500NDisplay a string in the title bar of a window NAT
USR0600PUSR0600NDisplay Program Level Information NAT
USR0610PUSR0610NDisplay DB error information NAT
USR0620PUSR0620NTranslate strings NAT
USR0622PUSR0622NReset error counter NAT
USR1002PUSR1002NSave and restore Natural environment parameters NAT
USR1005PUSR1005NInformation about some Natural session parameters NAT
USR1006PUSR1006NSupport skip-sequential processing NVS
USR1007PUSR1007NDisplay Work File and Printer File Assignments NAT
USR1009PUSR1009NConvert *TIMESTMP to numeric variable NAT
USR1011PUSR1011NWildcard / Asterisk check (short) NAT
USR1012PUSR1012NRead dynamic error part :1: NAT
USR1013PUSR1013NDisplay current character set NAT
USR1014PUSR1014NLine Calculator NAT
USR1016PUSR1016NDisplay Error Level for Copycode NAT
USR1017PUSR1017NAdd CATALL call to CATALL control list NAT
USR1018PUSR1018NDynamic OPEN NVS
USR1019PUSR1019NGet 'SYSBUS' Information NAT
USR1020PUSR1020NAdd User Short Error Message to FUSER NAT
USR1021PUSR1021NWildcard / Asterisk check (long) NAT
USR1022PUSR1022NType of Data Base NAT
USR1023PUSR1023NDate and time variables conversion NAT
USR1024PUSR1024NRead results of CATALL NAT
USR1025PUSR1025NHandle multiple steplibs NAT
USR1026PUSR1026NDisplay RETURN information NAT
USR1027PUSR1027NSearch user short error message NAT
USR1028PUSR1028NBit/byte conversion NAT
USR1029PUSR1029NGet type of NATURAL object NAT
USR1030PUSR1030NLanguage code conversion NAT
USR1031PUSR1031NCheck object name NAT
USR1032PUSR1032NList cataloged NATURAL objects with type NAT
USR1033PUSR1033NFind DBID/FNR of a cataloged DDM NAT
USR1034PUSR1034NDisplay NTTF file table NAT
USR1035PUSR1035NMaintain objects via the SAG editor engine NAT
USR1036PUSR1036NMaintain the user profile of the SAG editor NAT
USR1037PUSR1037NInformation about NATURAL ABEND data
USR1038PUSR1038NRetrieve characteristica of the current platform NAT
USR1040PUSR1040NGet or set the UDB Parameter NAT
USR1041PUSR1041NInstall Error Transaction (*ERROR-TA) NAT
USR1042PUSR1042NGet or set the value of the UPDATE command NAT
USR1043PUSR1043NPerform Adabas direct calls NAT
USR1047PUSR1047NDynamic switch of file name NVS
USR1048PUSR1048NModify PF-key labels NAT
USR1050PUSR1050NGet or set a work file name NAT
USR1051PUSR1051NInterface to various PRD data PRD
USR1054PUSR1054NList libraries: communicates with SYSSEC but doesn't list private libraries NAT
USR1055PUSR1055NList objects in a library NAT
USR1056PUSR1056NList DDMs on the FDIC file or in a library NAT
USR1057PUSR1057NRead a NATURAL source into an array NAT
USR1058PUSR1058NRead a DDM source into an array NAT
USR1066PUSR1066NDisplay the NATURAL 'Executing ...' Message NAT
USR1067PUSR1067NCheck library name NAT
USR1068PUSR1068NGet or reset the value of DBMS calls NAT
USR1070PUSR1070NIssue Operator Commands to Entire Net-Work NAT
USR1071PUSR1071NSet user ID, password and ticket criteria for RPC RPC
USR1072PUSR1072NGet Command ID of a retain set NAT
USR2001PUSR2001NRead information about last error NAT
USR2002PUSR2002NDefault text strings for Help function NAT
USR2003PUSR2003NDefault settings for MAINMENU NAT
USR2004PUSR2004NInformation about logical file NAT
USR2005PUSR2005NAccess to the internal file translation table NAT
USR2006PUSR2006NGet Detailed Message Information NAT
USR2007PUSR2007NSet/Get RPC default server information RPC
USR2008PUSR2008NDynamic OPEN for VSAM/ISAM datasets NVS
USR2009PUSR2009NRead dynamic error part :1: NAT
USR2010PUSR2010NDisplay DB error information NAT
USR2011PUSR2011NGet or set a work file name NAT
USR2012PUSR2012NGet value of system variable *NET-USER NAT
USR2013PUSR2013NGet 'SYSPROF' Information NAT
USR2014PUSR2014NMaintain objects via the SAG editor engine NAT
USR2015PUSR2015NEBCDIC or ASCII translation table for NATURAL RPC NAT
USR2016PUSR2016NCopy Map profile from FNAT to FUSER NAT
USR2017PUSR2017NActivate Map Profile handling from FUSER NAT
USR2018PUSR2018NRead Natural Object Directory NAT
USR2019PUSR2019NRead/save Natural source into/from the src area NAT
USR2020PUSR2020NPerform Adabas direct calls NAT
USR2021PUSR2021NDynamic Dataset Allocation NAT
USR2022PUSR2022NInsert GUID into saved data area NAT
USR2023PUSR2023NType of Data Base (2 byte) NAT
USR2026PUSR2026NGet 'TECH' Information NAT
USR2027PUSR2027NDefine a wait interval for the session NAT
USR2028PUSR2028NOutput the Natural Version NAT
USR2029PUSR2029NDynamic File Allocation (BS2000) NAT
USR2030PUSR2030NRead dynamic error parts :1:,... NAT
USR2031PUSR2031NGet 'SYSPROD' Information NAT
USR2032PUSR2032NSupport of commit for CLOSE CONVERSATIO RPC
USR2033PUSR2033NInformation about PRD List Xref Sets PRD
USR2034PUSR2034NRead any error text from everywhere NAT
USR2035PUSR2035NSupport of SSL RPC
USR2036PUSR2036NConvert *TIMESTMP to numeric variable NAT
USR2071PUSR2071NSupport of EntireX Security on Client side RPC
USR2072PUSR2072NSupport of EntireX Security on Server side RPC
USR2073PUSR2073NPing or terminate an RPC server RPC
USR3001PUSR3001NList Roll Server Directory Entries
USR3002PUSR3002NDelete Roll Server Directory Entries
USR3005PUSR3005NProcess documentation objects PRD
USR3013PUSR3013NGet 'SYSPROF' Information NAT
USR3025PUSR3025NHandle multiple steplibs NAT
USR3320PUSR3320NFind User Short Error Message from FNAT or FUSER NAT
USR4001PUSR4001NSet Natural profile parameter PROGRAM dynamically NAT
USR4002PUSR4002NRetrieve variables of the current system NAT
USR4003PUSR4003NRetrieve Natural Stack Information
USR4004PUSR4004NRetrieve Natural dynamic parameters
USR4005PUSR4005NRead all current key settings NAT
USR4007PUSR4007NGet/set current value of parameter SYNERR NAT
USR4008PUSR4008NSet library for RPC execution RPC
USR4340PUSR4340NNatural Buffer Pool Interface 4340 NAT
USR6002PUSR6002NGet the current values of some internal counters NAT

...to last index topic


SYSEXTP: Examples of TP-specific Functions

* Program Description                                     Environments *
* -------------------------------------------------------------------- *
* ASYNBAT Start A Subtask                                        Batch *
* ASYNCICS Start A Task                                           CICS *
* ASYNCOMP Start An Asynchronous Task                        COM-PLETE *
* BS2COM Execute A BS2000 System Command             BS2000 TIAM/BATCH *
* B2PFIEXA Dynamic file allocation (Sample)          BS2000 TIAM/BATCH *
* B2PFILE Dynamic file allocation (Utility)          BS2000 TIAM/BATCH *
* CEDF Activate CICS Execution Diag. Facility                     CICS *
* DYNA Dynamic Dataset Allocation                              All MVS *
* CMS Execute CMS Command                                          CMS *
* MSGSW Terminal Message Switching                           Non-Batch *
* PROGSET Set Backend Program/Transaction Name          All except CMS *
* SUBMIT Submit Job To Operating System                            All *
* SUSPEND Suspend Session                                          All *
* TRANSET Set Pseudo-Conversational Transaction                   CICS *
* TSO Execute TSO Command                                          TSO *
* WTL Write Message To SYSLIST                                     All *
* WTO Write Message To Operator Console                            All *
* *

...to last index topic


Top Page



Back to NATURAL Tips, Tricks, Techniques -- Overview