The “SYS” utilities Boston Conference May 2004
The “SYS” utilitiles • Natural no longer does a logon for utilities. It retains the global variables, AIV settings and session information. • This means your STEPLIB is active; you can use your own programs on FUSER. • See the new “FREEGDA” parameter setting if you desire the previous behavior.
![The “SYS” utilities • • • • • AIV BUS [was SYSBUS] COMPOPT DUMP](https://present5.com/presentation/e98049062c8ab27c323e66dbea4b43bf/image-3.jpg "The “SYS” utilities • • • • • AIV BUS [was SYSBUS] COMPOPT DUMP")
The “SYS” utilities • • • • • AIV BUS [was SYSBUS] COMPOPT DUMP LAST/LASTMSG LIST extensions/options MAIL NATPAGE NOCSTAT PROFILE and PROFILE ROUTINES SETUP/RETURN SCAN STRUCT TECH [%<] TEST [%<] UPDATE • • • • SYSEDT [ISPF editor bp maint] SYSERR [error message maint] SYSNCP [command processor] SYSPARM [profile parameters] SYSTRANS [module transfers; sysobjh] SYSFILE [print/work file defs] SYSPROD [SAG product info] SYSPROF [system file info] SYSADA [ADACALL] SYSTP [TP-monitor info] SYSEXT [user exit doc/examples] SYSEXTP [User exits for TP-mon] SYSEXXT [XML toolkit] SYSSEC [Natural Security] SYSBPM [Buffer Pool maint. ] • *CANCEL (abend current session) • CEDF (callnat to CICS trace facility)
The “SYS” utilities: LIST profile • LIST Custom Configuration Profile – LISTPR-S in library SYSLIB • Customize and save as LISTPROF in SYSLIB • Has General default settings. • Also has user specific settings available.
![The “SYS” utilities: LIST profile /* options for all users /*-----------------------------------[General-Start] REUSE-LAST-LIST N /*](https://present5.com/presentation/e98049062c8ab27c323e66dbea4b43bf/image-5.jpg "The “SYS” utilities: LIST profile /* options for all users /*-----------------------------------[General-Start] REUSE-LAST-LIST N /*")
The “SYS” utilities: LIST profile /* options for all users /*-----------------------------------[General-Start] REUSE-LAST-LIST N /* Y/N /* If set to 'Y' the last displayed list of objects is reused /* after execution of commands entered in the ' Cmd' column Cmd' /* except for the commands /* 'E', 'ED' (Edit), 'CA' (Catalog), 'UC' ( Uncat), /* 'S', 'ST' (Stow), 'D', 'DE' (Delete) or 'RE' (Rename). COUNT-SOURCE-LINES N /* Y/N /* Y = For every source object in the list of objects, the /* number of source lines is counted and displayed in the /* map with the source directory data (use PF 11). /* N = The number of source lines is not counted and displayed. SORT-TEXT-MEMBER-NAME /* LISTSORT /* Name of the Natural text member that is used for storing /* the sorted list. /* If no name is specified, a generated name is used.
The “SYS” utilities: LIST profile SORT-TEXT-MEMBER-LIBRARY WORKPLAN /* Name of the Library where the Natural text member that is /* used for storing the sorted list is saved. /* If no name is specified, the library WORKPLAN is used. DELETE-SORT-TEXT-MEMBER Y /* Y = The Natural text member that is /* sorted list is deleted when the /* N = The Natural text member that is /* sorted list is not deleted when /* ended. /* Y/N used for storing the LIST command is ended. used for storing the LIST command is PRINT-PAGE-SIZE 60 /* Default page size for print. MARK-LONG-LINES /* Y = Long lines in a /* in front of the /* N = Long lines in a N listed source listed /* Y/N source are marked with 'L' line. source are not marked.
The “SYS” utilities: LIST profile DATA-AREA-DEFINE-DATA-FORMAT N /* Y/N /* Y = A listed data area source is listed in 'DEFINE DATA' /* format by default (same as FORMATTED) /* N = A listed data area source is listed unformatted [General-End] /*-----------------------------------/* options for single users /*-----------------------------------[User-Start UID-EXAM] REUSE-LAST-LIST Y /* Y/N [User-End UID-EXAM]
The “SYS” utilities: LIST • • • Xref DDM Expand Directory Count WITH… – – – Numbers Formatted, Fields, Extfields, Settings, Rules, freerules, inlinerules, autorules.
The “SYS” utilities LIST XREF 11: 57: 07 Library: XDMD Code ---I D V C E P W ---- ***** P R E D I C T 4. 3. 2 Xref Menu - Object ---------------Invoked programs Data areas and variables Views and fields Copycode Error numbers Printers Work files ---------------Code. . : Structure. . . *: System. . . . : Command ===> ( ? Help Code ---S R F X A N O ---- ***** DBnr: 2004 -05 -12 25 Fnr: 115 Fnr: Object ---------------Retained sets Processing rules Natural resources Report programs with xref data Verify application Create new sets via selection Operate on sets ---------------- . Terminate )
The “SYS” utilities: List Count 10: 52: 11 User: DMDSAC Type -----Program Subprogram Copycode Other. . . -----Source Object -----Total ***** NATURAL LIST COMMAND ***** Number/size of objects with name = A* Saved Number Bytes -------3 1147 1 681 1 2578 -------5 4406 Cataloged Number Bytes -------- Stowed Number Bytes -------8 67417 2 5601 --------10 34518 10 38500 -------10 73018 0 0 -------0 0 05/12/2004 Library: XDMD Total Number Bytes --------11 68564 2 5601 1 681 1 2578 --------15 38924 10 38500 --------15 77424
The “SYS” utilities: List Expand Nest within the listed object the sources of other objects referenced by the listed object (eg. copycode, data area). Optionally expand COMMENTS or first n lines of expand object. Expand types: P N S H G L A M C 4 * or E for errors.
![The “SYS” utilities: List Sequential LIST Sequential [* > <] 10: 28: 50 User](https://present5.com/presentation/e98049062c8ab27c323e66dbea4b43bf/image-12.jpg "The “SYS” utilities: List Sequential LIST Sequential [* > <] 10: 28: 50 User")
The “SYS” utilities: List Sequential LIST Sequential [* > <] 10: 28: 50 User DMDSAC Cmd --__ __ __ Name A*_______ A ABEND ACAR 3006 ACTEST ADATRACE ADATROFF ***** NATURAL LIST COMMAND ***** - LIST Objects in a Library Type *_____ Program Program Subprogram S/C *__ S/C S/C S/C SM * R R R S S S Version *______ 3. 1. 06 2. 2. 08 User ID *____ DMDSAC THUMMEL DMDSAC 05/12/2004 Library XDMD Date *_____ 2003 -09 -09 2003 -07 -18 1991 -09 -04 2001 -07 -09 2001 -03 -19 Time *____ 10: 15: 37 10: 13: 25 14: 50: 42 12: 58: 45 11: 14: 05 11: 53: 39
The “SYS” utilities: LIST options Function codes for the Selection List: • • • • ? CA DE DL ED EX LD LE LF LI LN PR RE RU ST UC Shows all functions available for the marked object. Compile the object and store it in object form. Delete the object. Download object from mainframe to PC (ENTIRE CONNECTION required Edit the object's source. Execute the object. List directory information. List in expanded form. Display a data area or map formatted. List the object's source. Display the name of the external subroutine/class. Print the object's source. Rename the object. Run the object source. Stow the object in source and object form. Uncat (delete) the object module.
The “SYS” utilities: List Directory 10: 32: 02 Program ABEND Library XDMD 05/12/2004 Directory of Program ABEND Saved on. . . 2003 -07 -18 10: 13: 25 ---------------------------------------Library. . XDMD User-ID. . . DMDSAC Mode. . . . Report TP-System. . CICS Terminal-ID. . T 020 Op-System. . MVS/ESA Transaction. . NT 2 S NAT-Ver. . 3. 1. 6 NAT-Ver Source size. . . 82 Bytes Directory of Program ABEND Cataloged on 2003 -07 -18 10: 13: 25 ---------------------------------------Library. . XDMD User-ID. . . DMDSAC Mode. . . . Report TP-System. . CICS Terminal-ID. . T 020 Op-System. . MVS/ESA Transaction. . NT 2 S NAT-Ver. . 3. 1. 6 Used GDA. . . NAT-Ver Size of global data. . . . 0 Bytes Size in DATSIZE. . . . . 552 Bytes Size in buffer pool. . . . 2524 Bytes Size of MCG-Code. . . . . 0 Bytes Initial MCG string. . . . .
The “SYS” utilities: LIST options • REF value (shows all lines with variable) • SETTINGS (display settings for maps) • WITH: Directory, Numbers, expand [formatted, comments], formatted [fields, rules, extfields, inlinerules, freerules, autorules].
The “SYS” utilities: List… zoom 0390 IF SRCID GT #DATA-TO-SEND 0400 ESCAPE 0410 * 0420 FOR #I = 1 TO C*SRCTX(0360) 0430 MOVE INDEXED SRCTX(1)<#I> 0440 STACK DATA FORMATTED #SRC 0450 WRITE #SRC-NUM #SRC-CODE 0460 CLOSE LOOP (0420) 0470 * 0480 CLOSE LOOP (0360) 0490 IF *COUNTER (0360) < 1 0500 REINPUT 'NO FILE TO COPY' 0510 * 0520 STACK DATA FORMATTED '0000' 0530 FETCH 'GNDU 2111' 0540 END ***** End of list ***** +---------------More: >+ | Program GNDU 2111 | | * | | REPEAT UNTIL #SOURCE-CODE = '* END OF OUT | | INPUT #LINE-NUM #SOURCE-CODE | | IF #LINE-NUM = SCAN ': ' | | COMPRESS #LINE-NUM #SOURCE-CODE INTO | | * | | RESET #REST (A 73) | | #WORD (A 40) | | #COUNT (N 9) | | #RELEASED (N 9) | | * IF (#LINE-NUM = MASK (NNNN)) DO | | * WRITE #LINE-NUM #SOURCE-CODE | | IF (#SOURCE-CODE NE MASK (X) '*') | | AND (#SOURCE-CODE = SCAN '#' | | Command ===> | +----------------------+
The “SYS” utilities AIV 13: 27 *** NATURAL AIV Command *** 05/12/2004 TOP OF DATA C -__ __ __ Variable -----------------+TEST-ENV +INST-NAT +MARK-LONG-LINES +MAP-PARAMETER-A +C-PLATFORM +PRINT-PS +SA-SAVED +SA-EMPTY +SA-NAME +SA-TYPE F Len - -----------A 1 P 3 A 1 (9576) L P 3 L L A 8 A 1 You can display the contents by marking the “C” column with a “D”
![The “SYS” utilities BUS [was SYSBUS] 13: 18: 51 User DMDSAC ***** NATURAL BUS](https://present5.com/presentation/e98049062c8ab27c323e66dbea4b43bf/image-18.jpg "The “SYS” utilities BUS [was SYSBUS] 13: 18: 51 User DMDSAC ***** NATURAL BUS")
The “SYS” utilities BUS [was SYSBUS] 13: 18: 51 User DMDSAC ***** NATURAL BUS UTILITY ***** - Buffer Usage Statistics - 2004 -05 -12 TID T 02 D M No. Name Type Size Used Perc. Max. Size Perc. ---------------------------------------1 IOCB 2120 100. 0 2 CMPRTSZ 10416 3104 29. 8 3 GETPHTAB 1024 48 4. 7 4 ISIZE 8192 4920 60. 1 5 BPMWORK 1128 544 48. 2 6 RUNSIZE 16384 12052 73. 6 7 CFWSIZE 49152 5120 10. 4 42736 86. 9 8 BB#ESIZE 111648 15480 13. 9 15672 14. 0 9 EPLTAB 4192 2240 53. 4 2272 54. 2 10 PRNTWORK 6960 4272 61. 4 11 IOOVLY 352 100. 0 12 IOOATTR 320 100. 0 13 IOPAGE 32784 112 0. 3 1733 5. 3 14 IOPATTR 32784 92 0. 3 3420 10. 4 15 FSIZE 30752 32 0. 1 Top of List Command ===> Enter-PF 1 ---PF 2 ---PF 3 ---PF 4 ---PF 5 ---PF 6 ---PF 7 ---PF 8 ---PF 9 ---PF 10 --PF 11 --PF 12 Cont Help Exit Dump Pos -+ ++ Total Addr Canc
The “SYS” utilities BUS (continued) M No. Name Type Size Used Perc. Max. Size Perc. ---------------------------------------16 RDCSIZE 2048 992 48. 4 17 ASIZE 65536 48 0. 1 18 RPCSIZE 1824 100. 0 19 WORK 08 1960 32 1. 6 20 WORK 07 1960 32 1. 6 21 WORK 06 1960 32 1. 6 22 WORK 05 1960 32 1. 6 23 WORK 04 1960 32 1. 6 24 PRINT 08 1960 32 1. 6 25 PRINT 07 1960 32 1. 6 26 PRINT 06 1960 32 1. 6 27 PRINT 05 1960 32 1. 6 28 PRINT 04 1960 32 1. 6 29 AIVDAT V 10016 10015 100. 0 30 HELPBUF V 4096 32 0. 8 4496 109. 8 10240 250. 0
The “SYS” utilities BUS (continued) M No. Name Type Size Used Perc. Max. Size Perc. --------------------------------------31 ERRMSG V 5152 658 12. 8 32 GLBUSER V 8656 100. 0 33 DATSIZE V 115648 16372 14. 2 60240 52. 1 34 EXPAFOBU V 256 32 12. 5 73 28. 5 35 SSIZE V 56320 31760 56. 4 36 GLBSYS V 16336 100. 0 37 CPRTBUF V 1440 138 9. 6 38 NOCWBUF V 4096 3872 94. 5 39 PRODBUF V 136 100. 0 40 SORTSZE V 120 100. 0 41 ADA#USER V 1024 548 53. 5 42 IDIR V 10080 2544 25. 2 4428 43. 9 43 IOSATTR V 8064 2288 28. 4 3824 47. 4 44 IOSCRN V 1960 1951 99. 5 1952 99. 6 Thrd. Size 780 K Total 640624 (in KB) 626 K 152339 149 K 23. 8 244153 239 K 38. 1 0 0 K 0. 0
The “SYS” utilities BUS (continued) • • Type V=variable buffer inside thread. Type O=Variable buffer Outside thread. Type P (or blank) = Fixed physical buffer. Can display contents: User DMDSAC Offset 00000010 00000020 00000030 00000040 00000050 00000060 00000070 C 9 D 6 E 2 C 3 000007 A 0 0304 F 1 F 3 4040 C 1 E 3 E 4 D 9 E 3 E 8405 C 4040 0304 E 4 A 2 - BUS Dump D 9 D 54040 0000 7 AF 3 F 47 A 04404040 C 1 D 340 C 2 5 C 5 C 4004 F 2 F 0 859904 C 4 000007 A 8 F 2 F 50440 405 C 5 C 5 C E 4 E 240 E 4 4040 F 0 F 460 F 0 D 4 C 4 E 2 C 1 0000079 F 94 A 5 C 022 4040 5 C 5 C 40 D 5 E 3 C 9 D 3 C 9 40044040 F 560 F 1 F 2 C 3404004 TID T 02 D *IOSCRN ? y ? ? * * ? ? ? ymv{? * *? ? 13: 34: 25? * * ? ***** N* *ATURAL BUS UTILI* *TY ***** ? * * ? 2004 -05 -12* *? ? User? DMDSAC ? * Address 164 C 2 E 60 164 C 2 E 70 164 C 2 E 80 164 C 2 E 90 164 C 2 EA 0 164 C 2 EB 0 164 C 2 EC 0 164 C 2 ED 0
The “SYS” utilities COMPOPT: 13: 47: 51 05/12/200 User DMDSAC (KCHECK) (PCHECK) (DBSHORT) (PSIGNF) (TSENABL) (GFID) (LOWSRCE) ***** NATURAL COMPOPT COMMAND ***** - Compilation Options - Library XDMD Keyword Checking. . . Parameter Checking for CALLNAT Statements. . . . . Interpretation of Database Short Field Names. . . . Internal Representation of Positive Sign of Packed Numbers. . Applicability of TS Profile Parameter. . . Generation of Global Format IDs. . . . Allow Lower Case Source. . . . . OFF ON ON OFF Version Compatibility Options (FINDMUN) Detect Inconsistent Comparison Logic in FIND Statements. . . OFF (V 22 COMP) Allow Old Version 2. 2 Syntax. . . . OFF V 22 COMP is No longer available with Natural 4. Use V 31 COMP instead.
The “SYS” utilities COMPOPT Command • The COMPOPT command provides the following enhancements: • With the MASK option in a logical condition, a valid year value must • be in the range 0000 - 2699; with the MOVE EDITED statement, a valid year value must be in the range 1582 - 2699. Consequently, a year value found valid by a MASK option might lead to an error in a subsequent MOVE EDITED statement. To avoid this situation, the COMPOPT command provides a new option, MASKCME, which allows you to determine whether the year range to be considered valid by the MASK option is to begin with 0000 or 1582. .
The “SYS” utilities COMPOPT Command • With Natural Version 2. 3, the internal handling of assignments between two Format N variables of the same length was changed, so as to be consistent with the internal handling of assignments between Format N variables of different lengths. One side effect of that change was that when these variables were redefined, this could in some cases lead to different results. With Version 4. 1, the COMPOPT command provides a new option, NMOVE 22, which allows you to determine whether the internal handling of assignments between Format N variables of the same length is to be inconsistent as in Version 2. 2 or consistent as in all subsequent versions (the latter will be the default). The NMOVE 22 option replaces the corresponding special-purpose Zaps that were supplied for Natural Versions 2. 3 and 3. 1. To provide upward compatibility at runtime for objects cataloged with previous Natural Versions without the Natural Optimizer Compiler, a Zap will be provided with Natural Version 4. 1. This Zap will not be provided for subsequent Natural versions. Objects cataloged with previous Natural Versions with the Natural Optimizer Compiler are not affected and will continue to work as before. Affected objects should be recataloged as soon as possible with Natural Version 4. 1, with NMOVE 22=ON being set. .
The “SYS” utilities COMPOPT Command • The option V 31 COMP allows to reject syntax constructions that are supported by Version 4. 1, but not by Version 3. 1. This option will be available only with Natural Version 4. 1 to allow a smooth transition. It will be removed again with the next major release of Natural after Version 4. 1. • The option TQMARK to check for the translation of quotation marks. • With the option PCHECK set to ON, the compiler checks the number, format, length and array index bounds of the parameters that are specified in a CATALL statement. Also, the OPTIONAL feature of the DEFINE DATA PARAMETER statement is considered in the parameter check.
The “SYS” utilities: DUMP • • • • • • AFB BB CST DDR DIR EPL FUL GAA GDA GLC GLS IOB KEY PAR PCB PGF PRT QUT RAS SFB SRS SSB WFB System File Table User area Command Stack ENTIRE Buffer Directories Entry Points Table Editor Work Area Graph. Array area Graphics Data Area Global Area (Com. ) Global Area (Sys. ) I/O Control Block PF-Key Table Parameter Area Program CB GDDM/PGF Work Area Printer Table Source Table Retain CID Table System File Buffer Subroutine Stack Source Side Buffer Work File Buffer • • • • name Search for a CSECT / slot named<name> ABEND Display Abend Info BP Show buffer pool BUF Buffer by Size Name CORE Dump core CSECTS List 'CSECTs' DISA Dis-assemble ENTRY Go to Entry Point SRCE Display list of source changes START Go to Load Point SVAR System Variables (tp specific) ZAPS Display Zap List SCAN Scan for a string SCANX Unlimited scan RSCAN Repeat scan request
The “SYS” Utilities DUMP ZAPS 13: 55 User DMDSAC 1001 1014 2011 3001 3014 4009 4022 6001 6014 1002 1015 2012 3002 3015 4010 4023 6002 6015 ***** NATURAL DUMP COMMAND ***** - List of Applied Zaps for Product NCI 1003 1016 2013 3003 3016 4011 5001 6003 1004 2001 2014 3004 3017 4012 5002 6004 1005 2002 2015 3005 3018 4013 5003 6005 1006 2003 2016 3006 4001 4014 5004 6006 1007 2004 2017 3007 4002 4015 5005 6007 1008 2005 2018 3008 4003 4016 5006 6008 1009 2006 2019 3009 4004 4017 5007 6009 1010 2007 **** 3010 4005 4018 5008 6010 2004 -05 -12 Page 1 of 1 1011 2008 2021 3011 4006 4019 5009 6011 1012 2009 2022 3012 4007 4020 5010 6012 1013 2010 2023 3013 4008 4021 5011 6013
The “SYS” utilities: DUMP • • • • • • Add-on Products AZAP Driver AZAP Address DRV Driver Start Addres ECSA Address EPT Entry Points Vector NUC Get Load point of nucleus PARM Active NATPARM PGE Program Entry Point PGM Program Load Point SWAP Swap Pool Address VCA VFCT File Control Table VFWA File Work Area VGFID Decoded Format Tabl VROLL AIX Rollout Table VSFT System File Table VTAF Access File Table VTSA Seq. Access Table VUPD Update table NDCA DL/1 Common Area DTSA Table of Seq. Acces DDFB Decoded Format Buff DTHC Update table DPCM PCB Map DWRK
The “SYS” utilities: DUMP CICS • • • • • CSA Common System Area CBX Directory Extension OPF Optional Features PAM Page Allocation Map PRM NCI Generation Parms RCB Roll Fac. Cntrl Blk. SIR Session Info Record SCB System Directory SIT System Init. Table SRT System Recovery Tab. STR System Trace Table TCB Thread Control Bloc TGD Thread Group Defins TGH Thread Group Header THD Thread Load Point TRH Trace Table Header TRT Current Trace Entry TSM Temp. Storage Map TST Temp. Storage Table • • • COM DCA DCT DSA EIB FCT PLT PPT TCA TCT TWA Communication Area Dispatch Cntrl Area Destination Control Dynamic Storage Area Exec Interface Block File Control Table Program Control Tab. Program List Table Proc. Program Table Task Control Block Terminal Control Tab Transaction Workarea
The “SYS” utilities: LAST * +----------------- LAST ------------------+ | __ LOGON | | __ DUMP SRCE | | __ BUS | | __ SYSTP | | __ LASTMSG | | | PF 1 ---PF 2 ---PF 3 ---PF 4 ---PF 5 ---PF 6 ---PF 7 ---PF 8 ---PF 9 ---PF 10 --PF 11 --PF 12 --- | | Help Exit Exec Canc | +--------------------------------------+ LAST re-executes the last command LAST –nn re-executes the last minus nn commnad –nn LAST - displays the previous commands backward one at a time. Natural 4 now shows the last 20 commands. Previous versions showed 10.
The “SYS” utilities: LASTMSG lists the last error messages. +----------------- LASTMSG -------------More: ++ | NAT 7998 Initialization of access method NAF failed. | | Enter-PF 1 ---PF 2 ---PF 3 ---PF 4 ---PF 5 ---PF 6 ---PF 7 ---PF 8 ---PF 9 ---PF 10 --PF 11 --PF 1 | | Exit -++ << > Can | +---------------------------------------+ Note: Mark one of the messages with the cursor, the following information of the corresponding error will be displayed: - error number; - number of the line in which the error occurred; - name, type and level of the object that caused the error; - name, database ID and file number of library containing the object; - error class; - error type; - date and time at which the error occurred.
The “SYS” utilities: PROFILE The session profile 15: 28: 32 *** NATURAL SECURITY *** - Security Profile - 2004 -05 -12 User ID. . . . DMDSAC Name. . . Darrell Davenport Type. . . Administrator Link ID. . DMDSAC ETID. . . V 98 CJ 9 PH Library ID. . . . XDMD Name. . . Darrell Davenport Personal Lib ----- Steplibs ----Library DBID FNR SYSTEM 35 115 Transactions Startup. . Restart. . Error. . SYSTEM Additional Options. . . N ( *STEPLIB )
The “SYS” utilities: PROFILE The session profile 15: 28: 32 *** NATURAL SECURITY *** - Security Profile - User ID. . . . DMDSAC Name. . . Darrell Davenport Type. . . Administrator Library ID. . . . XDMD Name. . . Darrell Davenport Transactions Startup. . Restart. . Error. . 2004 -05 -12 +-----Additional options-----+ | | | _ + Security options | | _ + Security limits | | _ + Session parameters | | _ Command restrictions | | _ Editing restrictions | | _ Statement restrictions | | _ Time windows | | _ + System files | | _ + Natural version | | | +-------------------+ SYSTEM Additional Options. . . N ( *STEPLIB )
The “SYS” utilities: Profile (edit) 15: 33: 46 ***** NATURAL EDITORS ***** - Editor Profile - 05/12/2004 Profile Name. . SYSTEM__ PF and PA PF 1. . . PF 4. . . PF 7. . . PF 10. . PF 13. . PF 16. . PF 19. . PF 22. . PA 1. . . Keys HELP________ -_______ SC=____________ --_____________ Automatic Functions Auto Renumber. . Y _______________ +______________ ________ ++________ SCAN______ Auto Save Numbers. . 0__ Additional Options. . N Command ===> PF 2. . . PF 5. . . PF 8. . . PF 11. . PF 14. . PF 17. . PF 20. . PF 23. . PA 2. . . PF 3. . . PF 6. . . PF 9. . . PF 12. . PF 15. . PF 18. . PF 21. . PF 24. . PA 3. . . EXIT___________ CANCEL_____ MENU_____________________ Source Save into. . EDITWORK
The “SYS” utilities: Routines 15: 35: 27 05/12/2004 User DMDSAC EDITVARS EDITVAR 2 EMAILTST ENQUTEST ERRMAIN ERRORER ERRSUB ESCSUBT ***** NATURAL ROUTINES COMMAND ***** - Subroutine Usage Display - uses no external subroutines uses no external subroutines uses no external subroutines contains external subrtn: FIND-AUTO *** End of Report *** Library XDMD
The “SYS” utilities: Setup/Return Define target application for RETURN command. May be any application you are linked to. May also specify a command to execute upon return. May optionally indicate all other “setup” command information is to be deleted and this one will become the “Initial” one. SETUP [application-name] [command-name] [I]
The “SYS” utilities: Setup/Return to the target application specified by prior SETUP. May specify any of the previously SETUP applications by its position. For example RETURN -3 will return to the third previous application that was SETUP. RETURN * will present a selection menu. If no parameter, it returns to the previous application. RETURN [*, or I, or –nn]
The “SYS” utilities: SCAN Search for character string in object(s). • Count of object where string was found. • List of modules containing string. • Edit source code(s) which contain string. • May specify Library name, Replacement string value, Type of object, Component name (wildcard), and absolute value ind. • Cannot scan Data areas, maps, recordings, dialogs, and functions. • Allows scan of libraries otherwise forbidden.
The “SYS” utilities: Struct User DMDSAC - Menu Code G D P W ? . Code. . . . Source name. . Display compressed. . Shift value. . Align comments. . . Display messages. . Return to STRUCT. . Library XDMD Function Generate structured source into work area Display structure of source Print structure of source Write structure of source into work area Help Exit D ____ If blank, current source N (Y/N) 2 (1 - 9) Y (Y/N/L) Y (Y/N) N (Y/N)
The “SYS” utilities: Struct 08: 38: 43 0220 0230 0240 0250 0260 0270 0280 0290 0300 0310 0280 0320 0330 0340 0350 0330 0360 0370 0380 0390 0400 0380 0410 0420 - Structured Source CALC 1 in Library XDMD 20 T #HEX-INPUT (2) (CV=#HEX-CV) *R // #NUM-ANSWR (AD=O CV=#NUM-CV) *R 20 T #HEX-ANSWR (AD=O CV=#HEX-CV) *R // 20 T 'PRESS PF 12 TO QUIT' *R * *R RESET #MSG *R IF *PF-KEY = 'PF 12' DO *RD SET CONTROL 'WB' *RD STOP *RD DOEND *RD IF #NUM-CV MODIFIED AND *R #HEX-CV MODIFIED DO *RD MOVE 'CHANGE ONLY THE HEX OR THE DECIMAL, NOT BOT *RD DOEND *RD * *R IF #NUM-CV MODIFIED *R DO *RD MOVE #NUM-INPUT (*) TO #HEX-INPUT (*) *RD DOEND /* (0380) *RD ELSE *R IF #HEX-CV MODIFIED *R
The “SYS” utilities: Struct If parts of the source must not be shifted, frame these sections with '/*STRUCT OFF' and '/*STRUCT ON'. These instructions must be entered at the beginning of a source-code line. Natural 4: Struct now supports 2 digit field levels.
The “SYS” utilities: TECH +--------- TECH ------+ | 10: 32: 26 05/13/2004 | | User. . . . DMDSAC | | Library. . . XDMD | | Version / SM Level. . . 4. 1 / 0002 | | Startup Transaction. . | | Natural Security. . . Yes | | Operating System. . . z/OS | | Oper. Sys. Version. . . 01. 04. 00 | Oper. | Machine Class. . . . MAINFRAME | | Hardware. . . 2066 | | TP Monitor. . . CICS | | Device Type. . VIDEO | | Terminal ID. . T 007 | | Last Command. . LOGON | +------------------+ +---------------------+ | Last Error | | Error Number. . . . 7998 | | Error Line. . | | Object. . . | | Object Type. . . . | | Level. . . | | Library. . . | | DBID/FNR. . . | | Error Class. . . . System | | Error Type. . Command execution | | Error Time. . 2004 -05 -1310: 32: 23| | Error Transaction. . | +---------------------+
The “SYS” utilities: TECH (cont). +-----------------------------+ | | | Steplib DBID FNR Object Type Level Number | | ------------ ------ | | SYSTEM 35 115 | | SYSTEM 25 125 | | | +-----------------------------+
The “SYS” utilities: UPDATE Function: Prevent (or allow) database updating being carried out by a program Parameters: ON : Perform database updating. -> This will be ignored if updating has been inhibited by the Natural administrator during Natural installation. OFF: Prevent database updating which would normally be performed as a result of an UPDATE, STORE, or DELETE statement. Programs containing these statements will execute normally but no modification of the database will occur. Note: The UPDATE command has no effect on other Natural system commands.
The “SYS” utilities: SYSERR Modify and maintain error messages. • Natural, and User/Application errors. • Short and long Text Related subjects: MOVE nnnn to *ERROR-NR REINPUT WITH TEXT *nnnn USR 0320 N (read user error message, short text). USR 0020 N (read any error message text)
The “SYS” utiliites: SYSPARM Natural Session parameters • AUTO (TP monitor user-id, or “AUTO”) • TERMINAL (Terminal it, as in *INIT-ID) • PROGRAM (*INIT-PROGRAM) • Whatever name you like. • Stored in FUSER. One profile can reference another (nesting).
The “SYS” utilities: SYSPARM User DMDSAC - Menu Code L D A M C X ? . Code. . . Profile. . Copy to. . Function List Profiles Display Profile Add New Profile Modify Profile Copy Profile Delete Profile Help Exit _ ________ DBID. . 25 FNR. . 106
The “SYS” utilities: SYSPARM 08: 13: 05 ***** NATURAL SYSPARM UTILITY ***** - Display Profile NAFSIZE=1, NAFUPF=EXIT, RDCSIZE=2, OPT=(DIGTCHCK, INDX, OVFLW) • • • You can execute SYSPARM utility functions in directcommand mode or batch mode: see Direct Commands and Batch Processing in the Natural SYSPARM Utility documentation. With Natural 3. 1, you could only maintain parameter profiles stored on and applying to the current FNAT system file. With Natural 4. 1, it is also possible to maintain parameter profiles of other FNAT system files. You can enter a commentary text in each editor line, or spread a comment over as many lines as you like.
The “SYS” utilities: SYSFILE User DMDSAC - Work File Information - TID T 00 E M No. Type Name Recfm Lrecl Blksz Status --------------------------------------4 PC VB Available for Input/Output 5 PC VB Available for Input/Output 6 PC VB Available for Input/Output 7 PC VB Available for Input/Output 8 PC VB Available for Input/Output User DMDSAC - Print File Information - TID T 00 E M No. Type Name Recfm Lrecl Blksz Status ------------------------------------1 NATSPOOL VBA 1016 Available for Output 2 NATSPOOL VBA 1016 Available for Output 4 PC PCPRNT 04 FBA 1016 Available for Output 5 PC PCPRNT 05 FBA 1016 Available for Output 6 PC PCPRNT 06 FBA 1016 Available for Output 7 PC PCPRNT 07 FBA 1016 Available for Output 8 PC PCPRNT 08 FBA 1016 Available for Output
The “SYS” utilities: SYSPROD +--------- Product Information ---------+ | | | Cmd Product Name V/R SM Date | | __ NATURAL 3. 1 6 2004 -05 -06 | | __ ADABAS ONLINE SERVICES 7. 1 2 2003 -03 -24 | | __ ENTIRE System Server 3. 2 1 2003 -09 -30 | | __ NATURAL ISPF 2. 5 1 2003 -09 -30 | | Natural CICS Interface 2. 3 7 2004 -03 -10 | | __ Natural Development Server 2. 1 2 2004 -05 -07 | | NATURAL OPTIMIZER COMPILER 2. 3 7 1998 -03 -24 | | __ NATURAL SECURITY 3. 1 6 2004 -04 -27 | | __ NATURAL CONNECTION 3. 1 6 2002 -11 -22 | | __ PREDICT 4. 3 2 2004 -05 -12 | • • • EX. . Display extended product information. HI. . Display history of product information. SC. . Display subcomponents.
The “SYS” utilities: SYSPROF +---- NATURAL System File Assignments ----+ | | | File Name DBID FNR Type | | FUSER 25 115 ADABAS V 6 | | FSPOOL 25 106 ADABAS V 6 | | FDIC 35 238 ADABAS V 6 | | FSEC 25 177 ADABAS V 6 | | FNAT 25 106 ADABAS V 6 |
The “SYS” utiliites: SYSADA Enter information and press 'PF 10' to execute 08: 35: 12 ***** NATURAL ADACALL UTILITY ***** 05/14/2004 User DMDSAC - ADABAS Direct Calls Mode Char Call No. 0 *** Control Block *** First Byte 00 Cmd ID File 0 Database 25 Resp 0 ISN 0 ISQ 0 ISL 0 FBL 210 RBL 980 SBL 140 VBL 140 IBL 0 COP 1 COP 2 User Area Cmd Time Addition 1 Addition 2 Addition 3 Addition 4 Addition 5 *** Buffer Areas *** Format Record Search Value ISN Command ===>
The “SYS” utiliites: SYSADA Last call has been succesfully executed 08: 38: 48 ***** NATURAL ADACALL UTILITY ***** User DMDSAC - ADABAS Direct Calls Mode Hex 05/14/2004 Call No. 13 *** Record Buffer *** 0000 C 5 F 0 F 0 F 0 F 140404040 4040 * E 0001 0014 40404040 4040 * 0028 40404040 4040 * 003 C 40404040 4040 * 0050 40404040 4040 * 0064 40404040 4040 * 0078 40404040 4040 * 008 C 40404040 D 489 A 2 A 28995 87618995 * Missing/in 00 A 0 A 5819389 8440 A 2 A 8 95 A 381 A 7 5 E 40 A 495 84858689 * valid syntax; undefi 00 B 4 95858440 A 5819989 81829385 40958194 85619285 * ned variable name/ ke 00 C 8 A 8 A 69699 844 B 40404040 * yword. 00 DC 40404040 4040 * 00 F 0 40404040 4040 * Specify next page number 1 (1 -4) or new buffer (CB, FB, SB, VB, IB), '? ' (Help) or '. ' (Exit) RB Command ===> * * * *
The “SYS” utilities: SYSTP User DMDSAC - Main Menu - TID T 00 E Code Function E M F S B R T ? . Code. . Environment-Dependent Functions NATURAL Monitoring (SYSMON) NATURAL Print/Work Files (SYSFILE) NATURAL Swap Information Buffer Usage Statistics (BUS) NATURAL Subsystems and Roll Server Information NATURAL Thread Usage Statistics Help Exit
The “SYS” utilities: SYSTP User DMDSAC - NATURAL Swap Information Menu - Code A B I L R U S ? . Code . . _ Function Show Addresses Show Summary of Buffer Usage Show Swap Pool Information Show Logical Swap Pools Show Reorg Control Data Show Swap Pool Usage Create Statistics List Help Exit TID T 00 E
The “SYS” utilities: SYSTP User DMDSAC - Swap Pool Statistics/Control Data - TID T 00 E +---------- Control Data and Statistics --------------+ I Buff. Us. : N I No. of log. SWPs: 3 I Tot. no. of dialog steps : 1106 I Buff. Us. : SWPs: I Intreorg: N I Tot. no. SWP slots: : 179 I Tot. no. of writes : 757 I Intreorg I Startreo: N I Max. no. of users: 24 I Tot. no. of swaps : 749 I Startreo: I SWD res. : N I Curr. no. of users: 23 I Max. dialo. without swaps: 27 I dialo. I Cmprfix : N I No. abnormal ends: 0 I Curr dialo. without swaps: 1 I dialo. I Deactiv. : N I Curr. fac. reo. tab : 1 I Tot. no. of swp-syn-waits: 0 I Deactiv. : swp-syn-waits: I Asyn. wr. : N I New fac. reo. tab: . : : 1 I Tot. no. of swp-wrt-waits: : 0 I Asyn. wr fac. reo. tab swp-wrt-waits +-------------------+-------------------+ I Memory Sizes in KB I General Information I I Size of NATURAL Swap Pool : 15000 I SWP Name. . NC 316 SWP I I Size of main directory : 2 I I I Size of NAT user thread : 780 I Type. . . Local I I Max. allocated buffersize : 844 I I I Max. Rollfile thread size : 780 I 1 st allocation: 04 -05 -14 / 06: 14: 43 I I +--------------------+-------------------+ Select function. Command ===>
The “SYS” utilities: SYSTP User DMDSAC Thread Usage Statistics Code A D P S G. Code _ Select function code. Library SYSTP Function Activate Statistics Deactivate and Print Statistics Show Physical Getmain Statistics Exit
The “SYS” utilities: SYSTP User DMDSAC - Menu Code U R G T C P D O I A Z ? . Code. . Function NATURAL User Sessions NATURAL Roll Facilities NATURAL Thread Groups NATURAL Storage Threads NCI Global System Information NCI Generation Options NATURAL Thread Group Definitions Own NATURAL User Session CICS Task Information System Administration Facilities Applied NCI Zaps Help Exit TID T 00 E
The “SYS” utilities: SYSTP +-------Selection for User Sessions-------+ | D Inactivity Date and Time | | I Inactivity Time Interval | | L Natural Library ID | | N Natural Server ID | | P Natural Program ID | | S CICS system ID | | T Terminal ID | | U User ID | | X Transaction ID | |. Exit Function (PF 3) | | _ <- Enter Selection Code | +---------------------------+
The “SYS” utilities: SYSTP User DMDSAC - NATURAL User Sessions - TID T 00 E M TID User ID Tran Start Date / Time Last Act Status Program Logon ID ---------------------------------------? MN 00 MANDARIN MAN 0 2004 -05 -14 07: 00: 40 Act CWIDISP DCE T 00 B BONNER NT 2 S +-------User Sessions----+ Swp FAUT 502 M FINAID T 00 C CENTRAL NT 2 S |. Exit (PF 3) | Swp INSI 500 M SCBAIMS T 00 D MILLERN NT 2 S | / Position (PF 5) | Swp HHERRP 1 OARS T 00 E DMDSAC NT 2 S | P Position (PF 5) | Act SCPSIR 1 P SYSTP T 00 F SPBA NT 2 S | U Select User (PF 4) | Swp ISP-MEN 1 OARS T 001 SPARKSD NT 2 S | C Cancel Session | Act ISPNLSCN SOURCE T 002 BONNER NT 2 S | F Flush Session | Rld ISP-BR-M FINAID T 003 ARNDT NT 2 S | R Reactivate Session | Rld ISP-BR-M BRS T 004 ARNDT NT 2 S | <- Enter Function Code | Swp ACBR 507 M BRS T 005 HARPER NT 2 S +--------------+ Act ISPNLSCN MANDARN T 006 ZIPPER NT 2 S 2004 -05 -14 07: 31: 44 08: 05: 43 Rld ISP-MEN 1 FINAID T 007 GILBREM NT 2 S 2004 -05 -14 07: 39: 14 08: 42: 49 Rld ISP-BR-M BALANCES T 008 ARNDT NT 2 S 2004 -05 -14 07: 41: 38 08: 42: 32 Rld ISP-BR-M PAPR T 009 GILBREAT NT 2 S 2004 -05 -14 07: 43: 16 08: 20: 47 Swp ISP-MEN 1 FINAID
The “SYS” utilities: SYSTP User DMDSAC Started: Friday - NATURAL User Session Statistics 2004 -05 -14 07: 00: 40 TID T 00 E Last Actions: 2004 -05 -14 07: 00: 40 User MANDARIN at Terminal MN 00 Transid MAN 0 Session Resumes: 0 Cur Strg Used: 533 Swap-Ins: 0 Max Strg Used: 0 Thread Switches: 0 Common Thread Size: 780 Thread Group: NC 316 G 01 Roll-Ins: 0 Max Strg Used: 709 of Type = GETM Roll Facility: MAINSTOR Thread Size: 780 Thread Name: NSCPMN 00 Roll Recs (Last): 0 Max Strg Used: 709 Roll Recs (Max): 0 Roll Record Size: 32748 NATURAL Library: DCE Slot Size: 25 NATURAL Program: CWIDISP Line No. : 17300 Restart Rec. No. : n/a Slot Number: n/a Operational Status: Active Compressed Length: n/a
The “SYS” utilities: SYSTP User DMDSAC System started on - Global System Information Friday 2004 -05 -14 Cur 25 / 0 / NATURAL User Sessions: Concurrent SCP Active: SIR Block Extensions: Slots in 1 st SIR Block: Slots in SIR Block Extns: VSAM Roll File Slots: Possible Roll Facilities: Thread Groups: System Resets: System Recoveries: Size of DIR Extension (B): Operating System Host ID: CICS System ID: AIS 0 REGS Max 25 1 0 550 50 0 2 1 0 0 80 at - TID T 00 E 06: 14: 43 Available Resources: KB Swap Pool: 15000 above Local Buff. Pool: n/a Sort Buffer Pool: n/a DL/1 Buffer Pool: n/a Edit Buffer Pool: 4095 above Monitor Pool: n/a Max Thread Size: 780 VSAM Roll Files: No Main/Aux Temp. Stor: Yes / Yes NAT 3 Temp. Stor: Session Logging: No NLOG Message Logging: No NERR Message Switching: Yes NMSG Trace active: No Assembled Last: 03 -09 -25 11. 20
The “SYS” utilities: SYSTP +----------- SYSTP Task Information -----------+ | 08: 51: 43 2004 -05 -14 | | CICS Terminal ID: T 00 E VTAM Net Name: WNLB 0590 | | NATURAL Term. ID: T 00 E | | Op. System Name: AIS 0 Operating System: MVS/ESA SP 7. 0. 4 | | CICS System ID: REGS TP Monitor: CICS/ESA 6. 2 CTS 2. 2 | | Application ID: WRGSCICS | | CICS User ID: DMDSAC NATURAL User ID: DMDSAC | | Transaction ID: NT 2 S Current Program: NCI 316 RE at 135 E 5000 | | Task Number: 1764 NATURAL Nucleus: NAT 316 SH at 14 A 00000 | | Addressing Mode: 31 Execution Key: CICS | +-----------------------------------+
The “SYS” utilities: SYSTP User DMDSAC - Debugging Facilities - TID T 00 E Enter Authorization Code: Force Abend when NCI Failure: (ON/OFF) Force Thread Switching: OFF (ON/OFF) Clear Thread after Roll-Out: OFF (ON/OFF) Environment Integrity Check: OFF (ON/OFF) Force Dump in Case of Abend: OFF (ON/OFF) Force Uncompressed Rolling: OFF (ON/OFF) Force Thread-Locking: Command ===> OFF (ON/OFF)
The “SYS” utilities: SYSTP This utility is to activate/de-activate the CICS trace facility for certain events within NATURAL. User DMDSAC Trace Status: CMSTART CMDLET CMSKEY CMSUBM CMLOCA NCIKCRQ NCITMRQ SCPTERM SCPRLOT - Trace Facilities OFF CMTSKND CMGTIME CMBPGETS CMTDATA NCITERM NCIPCRQ NCIINXIT SCPFTCB SCPWRIT (ON/OFF/ALL/NAT/NCI/SCP/CLR) CMWTERM CMDBAS CMPROPBP CMPROF NCITRAP NCISCRQ NCIRSXIT SCPFRCB SCPRLIN CMGETMP CMWAIT CMBPLST CMSYNC NCIWFAM NCISPRQ SCPMAIN SCPFSIR SCPREAD CMFREMP CMABEND CMSTCKSY CMEDWFM NCIFCRQ NCITCRQ SCPINIT SCPRSIR SCPDUMP TID T 00 E Trace Type: CMOCAL CMWTL CMMSGSW CMRELOD NCIICRQ NCITDRQ SCPSUSP SCPRCVR SCPSWAP System CMLOAD CMWTO CMTASK CMSRV NCIJCRQ NCITSRQ SCPRESM SCPRSET SCPINST
The “SYS” utilities: SYSEXTP * * * * * Program Description Environments ----------------------------------ASYNBAT Start A Subtask Batch ASYNCICS Start A Task CICS ASYNCOMP Start An Asynchronous Task COM-PLETE BS 2 COM Execute A BS 2000 System Command BS 2000 TIAM/BATCH B 2 PFIEXA Dynamic file allocation (Sample) BS 2000 TIAM/BATCH B 2 PFILE Dynamic file allocation (Utility) BS 2000 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 * * * * *
Скачать презентацию The SYS utilities Boston Conference May 2004
e98049062c8ab27c323e66dbea4b43bf.ppt