Transcript Sierra Pacific SAGGroup 10/20/2003

ZZUtils
Tools for Natural Developers
LEN CONSULTING LLC
Ralph Zbrog
[email protected]
LEN CONSULTING LLC
• California-based consultancy
• Software AG Technology Partner
• Over 20 years of experience with SAG products
• Consulting and application development services
• Training
• ZZUtils
2
ZZUtils
Introduction
• Natural is a full-featured product
• ZZUtils fills in some of the holes
• ZZUtils is a set of over two dozen utilities for the
Natural developer, administrator, and DBA
• Available for MVS; planned for VM/CMS, VSE, and
BS2000; WinXP in development
3
Source Code Reviews
Organizational Policy
• Does your organization have a policy of source
code review?
• Does your organization adhere to the policy?
• Why is such a policy instituted? (benefits)
• Why is it not followed? (excuses)
4
Source Code Reviews
Benefits
• Improved code quality
• Enforce shop standards
• Improved application performance
• Review by DBA and performance teams
• Improved developer performance
• Mentoring
5
Source Code Reviews
Excuses
• Manual effort to create an effective document
• Volume of data to be reviewed
• Deleted code
• Lack of consistency
• Distribution logistics
• Developer reluctance to be involved
6
Source Code Reviews
Solutions
• Automate document creation
• List Adabas commands
• Accurate source comparison
• Review checklist
• Soft-copy document
• Training, mentoring, management support
7
Source Code Reviews
Effective Document
• Natural, COBOL, JCL, PROC, control
• Sample reports
• Pagination
• Highlighting
• Softcopy
8
Source Code Reviews
ZZTDOC Example
• Sample “set”
• Set verification
• Sample output
• ZZTDOC Word macro
• Generated document
9
ZZTDOC
LEN Consulting LLC
Natural Utilities
Generate Code Walkthrough Document
Old: Env:
PDS:
New: Env:
PDS:
Set:
D
Library: ZZUTIL__
Member: ________
ZBROG.PROD.JCL______________________________
D
Library: ZZUTIL__
Member: ________
ZBROG.TEST.JCL______________________________
Library: ________
Listing: Compare: F
Delta: N
Type: L
Print:
06/09/2004 12:55
ZZUtils v2.1
Profile: ZZUTIL/ZBROG
Context: 10
Summary: N
ID: LASERJET
Hold: Y
Type: N
Member: ________
Ada Cmd: Y
Class: 2
Copies: 1
ILRC: N
Sysout: N
File: Disp: O Name: ZBROG.TDOCLIST________________________________________
Job:
Suffix: T
Account: ABCDEF__
Info: 1234
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Vrfy Help Auth Exit SetV MPswd
Membr JCL
Sub
Set Verification will clear the editor work area
ZZTDOC – Generate walkthrough document
10
ZZTDOC
LEN Consulting LLC
Natural Utilities
Generate Code Walkthrough Document
Old: Env:
PDS:
New: Env:
PDS:
Set:
D
Library: ZZUTIL__
Member: ________
ZBROG.PROD.JCL______________________________
D
Library: ZZUTIL__
Member: ________
ZBROG.TEST.JCL______________________________
Library: zzutil__
Listing: Compare: F
Delta: N
Type: L
Print:
06/09/2004 13:13
ZZUtils v2.1
Profile: ZZUTIL/ZBROG
Context: 10
Summary: N
ID: LASERJET
Hold: Y
Type: N
Member: zzmatchd
Ada Cmd: Y
Class: 2
Copies: 1
ILRC: N
Sysout: N
File: Disp: O Name: ZBROG.TDOCLIST(zzmatchd)______________________________
Job:
Suffix: T
Account: ABCDEF__
Info: 1234
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Vrfy Help Auth Exit SetV MPswd
Membr JCL
Sub
ZZTDOC – Set selection
11
>
All
0010
0020
0030
0040
0050
0060
0070
0080
0090
0100
0110
0120
0130
0140
0150
0160
0170
0180
0190
0200
> + Text
ZZMATCHD Lib ZZUTIL
....+....1....+....2....+....3....+....4....+....5....+.Mode Structured.
* ZZMATCHD
*
env-old=d,lib-old=zzutil,env-new=d,lib-new=zzutil,mem-type=n
*
mem-old=zzmatch,mem-new=rgzmatch,compare=c,context=10,delta=n,summary=n,adacmd=n,ilrc=y,list=l
mem-old=zzmatch,mem-new=rgzmatch,compare=f,delta=y,summary=y,adacmd=y,ilrc=n
pds-new=zbrog.jcl,mem-new=zzmatch,mem-type=j
pds-new=zbrog.punch,mem-new=mstr,mem-type=u
pds-new=zbrog.punch,mem-new=tran
pds-new=zbrog.list,mem-new=rgzmatch,mem-type=r
mem-new=zzmatchd,mem-type=n,list=c,delta=n,summary=n,adacmd=n
....+..Current Source Size: 549 Char. Free: 222964 ...+... S 19
ZZTDOC – Set example
L 1
12
ZZTDOC
LEN Consulting LLC
Natural Utilities
Natural Set Verification
ZZUTIL
/ ZZMATCHD
06/10/2004 07:48
Page: 1
ZZUtils v2.1
Selection screen defaults:
Env
Library
Old
========
D
ZZUTIL
Listing
Compile
Compare
Context
Delta
Summary
Ada Cmd
ILRC
Xref
L
DAC
F
10
N
N
Y
N
N
ENTR to continue
New
========
D
ZZUTIL
PF3
to Return
ZZTDOC – Set verification 1
13
ZZTDOC
Old PDS
New PDS
LEN Consulting LLC
Natural Utilities
Natural Set Verification
ZZUTIL
/ ZZMATCHD
06/10/2004 07:49
Page: 2
ZZUtils v2.1
ZBROG.DEVL.JCL
ZBROG.DEVL.JCL
ENTR to continue
PF3
to Return
ZZTDOC – Set verification 2
14
ZZTDOC
LEN Consulting LLC
Natural Utilities
Natural Set Verification
ZZUTIL
/ ZZMATCHD
06/10/2004 07:49
Page: 3
ZZUtils v2.1
0010 * ZZMATCHD
Blank/comment line ignored
0020 *
Blank/comment line ignored
0030 env-old=d,lib-old=zzutil,Line continued
0040 env-new=d,lib-new=zzutil,Line continued
0050 mem-type=n
No members - default values set
0060 *
Blank/comment line ignored
0070 mem-old=zzmatch,mem-new=rgzmatch,Line continued
0080 compare=c,context=10,delta=n,summary=n,adacmd=n,ilrc=y,list=l
ENTR to continue
PF3 to Return
ZZTDOC – Set verification 3
15
ZZTDOC
LEN Consulting LLC
Natural Utilities
Natural Set Verification
ZZUTIL
/ ZZMATCHD
06/10/2004 07:50
Page: 4
ZZUtils v2.1
0090
Blank/comment line ignored
0100 mem-old=zzmatch,mem-new=rgzmatch,Line continued
0110 compare=f,delta=y,summary=y,adacmd=y,ilrc=n
0120
Blank/comment line ignored
0130 pds-new=zbrog.jcl,mem-new=zzmatch,mem-type=j
0140 pds-new=zbrog.punch,mem-new=mstr,mem-type=u
0150 pds-new=zbrog.punch,mem-new=tran
0160 pds-new=zbrog.list,mem-new=rgzmatch,mem-type=r
0170
Blank/comment line ignored
0180 mem-new=zzmatchd,mem-type=n,list=c,Line continued
ENTR to continue
PF3 to Return
ZZTDOC – Set verification 4
16
ZZTDOC
LEN Consulting LLC
Natural Utilities
Natural Set Verification
ZZUTIL
/ ZZMATCHD
06/10/2004 07:50
Page: 5
ZZUtils v2.1
0190 delta=n,summary=n,adacmd=n
<<<
7
entries verified
>>>
ENTR to continue
ZZTDOC – Set verification 5
17
ZZTDOC
LEN Consulting LLC
Natural Utilities
Generate Code Walkthrough Document
Old: Env:
PDS:
New: Env:
PDS:
Set:
D
Library: ZZUTIL__
Member: ________
ZBROG.DEVL.JCL______________________________
D
Library: ZZUTIL__
Member: ________
ZBROG.DEVL.JCL______________________________
Library: ZZUTIL__
Listing: Compare: F
Delta: N
Type: L
Print:
06/10/2004 07:51
ZZUtils v2.1
Profile: ZZUTIL/STRGZ
Context: 10
Summary: N
ID: LASERJET
Hold: Y
Type: N
Member: ZZMATCHD
Ada Cmd: Y
Class: 2
Copies: 1
ILRC: N
Sysout: N
File: Disp: O Name: STRGZ.TDOCLIST(ZZMATCHD)______________________________
Job:
Suffix: T
Account: ST398T__
Info: ST01
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Vrfy Help Auth Exit SetV MPswd
Membr JCL
Sub
Set verified
ZZTDOC – Set verified
18
//ZBROGT JOB (ABCDEF,1234,RGZ),'TDOC: ZZMATCHD',
//
MSGLEVEL=(1,1),
//
USER=RGZ,PASSWORD=$JPSWD$,
REMOVE IF NOT #JPSWD
//
MSGCLASS=N,NOTIFY=RGZ
//*
//*
//******** NATURAL OLD SOURCE ********
//NATOLDP0 EXEC NATBT,
// DEPT=xx,DB=DEVL,TIME=50,SYSOUT=N,
// PRM='IM=D,AUTO=ON,MADIO=0,MAXCL=0,MT=0'
//CMPRINT
DD SYSOUT=N,OUTPUT=*.FORM
//CMWKF01
DD DSN=&&OLDLST0,DISP=(NEW,PASS,DELETE),
//
UNIT=SYSDA,RECFM=FB,LRECL=133,SPACE=(CYL,(5,5))
//SYSIN
DD *
%*
LOGON ZZUTIL
%U
%D
ENTR to continue
PF3 to Return
ZZTDOC – JCL sample
19
>
2490
2500
2510
2520
2530
2540
2550
2560
2570
2580
2590
2600
2610
2620
2630
2640
2650
2660
2670
2680
> + Subprogram ZZCUSTOM Lib ZZUTIL
....+....1....+....2....+....3....+....4....+....5....+.Mode Structured.
2 #EPARM (A50/40)
INIT
/* Parameters for Natural PROC
<'MADIO=0,MAXCL=0,MT=0'
/* D
,'MADIO=0,MAXCL=0,MT=0'
/* T
,'MADIO=0,MAXCL=0,MT=0'
/* U
,'MADIO=0,MAXCL=0,MT=0'
/* P
,'MADIO=0,MAXCL=0,MT=0'
/* A
,'MADIO=0,MAXCL=0,MT=0'
/* B
,'MADIO=0,MAXCL=0,MT=0'
/* C
>
/*
2 #3GL (L)
INIT <TRUE>
/* Include other module types
2 #COBOL (L)
INIT <FALSE>
/* Include COBOL (#3GL subset)
2 #COBCMP (A8)
INIT <'IGYCRCTL'>
/* COBOL compiler
/*
/*
/* JCL/Script parameters:
/*
2 #JCLMEM (A8)
INIT <'ZZTDJMVS'>
/* JCL source member
2 #COMPARE (A8) INIT <'ISRSUPC'>
/* SuperC
2 #SORT (A8)
INIT <'SORT'>
/* DFSort/SyncSort
....+..Current Source Size: 14284 Char. Free: 209525 .+... S 285 L 249
ZZTDOC – Customization
20
ZZTDOC
LEN Consulting LLC
Natural Utilities
Generate Code Walkthrough Document
06/09/2004 13:31
ZZUtils v2.1
Profile: ZZUTIL/ZBROG
Old: Env: D
Library: ZZUTIL__
Member: ________
New: Env: D
Library: ZZUTIL__
Member: ________
Set:
Library: ________
Member: ________
Listing: Compare: F
Delta: N
Type: L
Print:
Context: 10
Summary: N
ID: LASERJET
Hold: Y
Ada Cmd: Y
Class: 2
Copies: 1
ILRC: N
Sysout: N
File: Disp: O Name: ZBROG.TDOCLIST________________________________________
Job:
Suffix: T
Account: ABCDEF__
Info: 1234
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Vrfy Help Auth Exit SetV MPswd
Membr JCL
Sub
Set Verification will clear the editor work area
ZZTDOC – Natural
21
ZZTDOC
LEN Consulting LLC
Natural Utilities
Generate Code Walkthrough Document
Old: Env:
PDS:
New: Env:
PDS:
Set:
D
Library: ZZUTIL__
Member: ________
ZBROG.PROD.JCL______________________________
D
Library: ZZUTIL__
Member: ________
ZBROG.TEST.JCL______________________________
Library: ________
Listing: Compare: F
Delta: N
Type: L
Print:
06/09/2004 13:32
ZZUtils v2.1
Profile: ZZUTIL/ZBROG
Context: 10
Summary: N
ID: LASERJET
Hold: Y
Type: N
Member: ________
Ada Cmd: Y
Class: 2
Copies: 1
ILRC: N
Sysout: N
File: Disp: O Name: ZBROG.TDOCLIST________________________________________
Job:
Suffix: T
Account: ABCDEF__
Info: 1234
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Vrfy Help Auth Exit SetV MPswd
Membr JCL
Sub
Set Verification will clear the editor work area
ZZTDOC – Natural + 3GL
22
ZZTDOC
LEN Consulting LLC
Natural Utilities
Generate Code Walkthrough Document
Old: Env:
PDS:
New: Env:
PDS:
Set:
D
Library: ZZUTIL__
Member: ________
ZBROG.PROD.JCL______________________________
D
Library: ZZUTIL__
Member: ________
ZBROG.TEST.JCL______________________________
Library: ________
Listing: Compare: F
Delta: N
Type: L
Print:
06/09/2004 13:34
ZZUtils v2.1
Profile: ZZUTIL/ZBROG
Context: 10
Summary: N
Compile: DAC
ID: LASERJET
Hold: Y
Type: N
Member: ________
Ada Cmd: Y
Xref: N
Class: 2
Copies: 1
ILRC: N
Sysout: N
File: Disp: O Name: ZBROG.TDOCLIST________________________________________
Job:
Suffix: T
Account: ABCDEF__
Info: 1234
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Vrfy Help Auth Exit SetV MPswd
CpyBk Membr JCL
Sub
Set Verification will clear the editor work area
ZZTDOC – Natural + 3GL + COBOL
23
ZZTDPMNT LEN Consulting LLC
06/09/2004 13:36
Natural Utilities
ZZUtils v2.1
Technical Walkthrough Documentation - Profile Maintenance
*** Profile maintenance will overwrite the Natural source work area ***
Action: U (A,I,R,U,.)
Library: ZZUTIL__
Profile: ZBROG
Module Type: N
Default: ZZUTIL
ZZTDPROF
Old:
New:
List:
Nat
3GL
Nat
3GL
Lib:
PDS:
Lib:
PDS:
Compare:
Delta:
Src/Cmpl:
Print:
ID:
Class:
ZZUTIL__
Environment: D (DTUP)
ZBROG.PROD.JCL______________________________
ZZUTIL__
Environment: D (DTUP)
ZBROG.TEST.JCL______________________________
F (F|C)
Context: 10
N
Summary: N
L (C|L|S) Compile: DAC
LASERJET
2
Hold: Y
Adacmd: Y
(D|A|C)
Copies: 1
Sysout: N
ILRC: N
Xref: N
File:
Disp: O
DSN: ZBROG.TDOCLIST________________________________________
(N|O|X)
Job:
Class: 2
Suffix: T
Account: ABCDEF__
Info: 1234____
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Actn Help Auth Exit
CpyBk
ZZTDPMNT – User profile
24
ZZUtils
ZZTDOC Components
• ZZTDOC
code walkthrough documentation
• ZZLIST
source listing
• ZZPUNCH
source punch
• ZZADACMD display cataloged Adabas commands
• IBM SuperC source comparison utility
25
ZZLIST
LEN Consulting LLC
Natural Utilities
Natural Source Module Listing
06/09/2004 13:38
ZZUtils v2.1
Library: ZZUTIL__
Module: ________
Expand included code?: N
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Dsply Help Auth Exit
ZZLIST – Source module listing
26
ZZLIST
0010
0020
0030
0040
0050
0060
0070
0080
0090
0100
0110
0120
0130
0140
0150
LEN Consulting LLC
Natural Utilities
Natural Source Module Listing
Library: ZZUTIL
Program: ZZMATCH
Saved by ZZUTILS
on 11/11/2003 02:01:01
06/09/2004 13:42
ZZUtils v2.1
Page: 1
Natural: 3.1 0006
Termid: 2101
* Module:
ZZMATCH
(c) 2002 LEN Consulting LLC
* System:
ZZUtils
* Function: Sequential Match
* Author:
R. Zbrog
* Date:
02/18/89
************************************************************************
*
Date
*
Name
* Summary of Changes
************************************************************************
* 11/04/03 * R. Zbrog * Orphans and Widows to WORK files
* 09/11/01 * R. Zbrog * Demo files
* 09/23/94 * R. Zbrog * Nat 2.2.5
* 09/29/93 * R. Zbrog * Comments requesting custom code.
* 12/16/92 * R. Zbrog * Trace
************************************************************************
*
Press ENTER to continue
PF3 to exit
Enter X for new selection
ZZLIST – Program report
27
ZZLIST
1210
1220
1230
1240
1250
1260
1270
1280
1290
1300
1310
1320
1330
LEN Consulting LLC
Natural Utilities
Natural Source Module Listing
Library: ZZUTIL
Program: ZZMATCH
Saved by ZZUTILS
on 11/11/2003 02:01:01
2 #TRACE-MSTR (L)
2 #TRACE-TRAN (L)
2 #TRACE-MISC (L)
*
1 #MISC
2 #DATE (A8)
2 #TIME (A5)
*
2 #NAME (A20)
END-DEFINE
*
FORMAT (01) PS=60 LS=132
*/
Press ENTER to continue
06/09/2004 13:43
ZZUtils v2.1
Page: 9
Natural: 3.1 0006
Termid: 2101
INIT <FALSE>
INIT <FALSE>
INIT <FALSE>
/* >>>
/* >>>
/* >>>
INIT <*DATU>
INIT <*TIMX>
/* Constant for report
/* Constant for report
PF3 to exit
Enter X for new selection
ZZLIST – Program report 2
28
ZZLIST
0010
0020
0030
0040
0050
0060
0070
0080
0090
0100
0110
0120
0130
LEN Consulting LLC
Natural Utilities
Natural Source Module Listing
Library: ZZUTIL
Program: SMPLPGM
Saved by ZBROG
on 12/16/2003 16:45:11
06/09/2004 13:43
ZZUtils v2.1
Page: 1
Natural: 3.1 0004
Termid: 0211
DEFINE DATA LOCAL
1 EMP
VIEW EMPLOYEES
2 PERSONNEL-ID
2 FIRST-NAME
2 NAME
2 BIRTH
END-DEFINE
INCLUDE SMPLINC 'EMP'
'PERSONNEL-ID'
'FIRST-NAME'
'NAME'
'BIRTH'
END
*** End of list ***
Press ENTER for a new selection
PF3 to exit
ZZLIST – Include
29
ZZLIST
LEN Consulting LLC
Natural Utilities
Natural Source Module Listing
Library: ZZUTIL
Program: SMPLPGM
Saved by ZBROG
on 12/16/2003 16:45:11
06/09/2004 13:44
ZZUtils v2.1
Page: 1
Natural: 3.1 0004
Termid: 0211
0010 DEFINE DATA LOCAL
0020 1 EMP
VIEW EMPLOYEES
0030
2 PERSONNEL-ID
0040
2 FIRST-NAME
0050
2 NAME
0060
2 BIRTH
0070 END-DEFINE
0080 INCLUDE SMPLINC 'EMP'
0000-*** Saved in ZZUTIL by ZBROG on 12/16/2003 at 16:43:30 ***
0010-READ &1& BY &2&
0020- DISPLAY &3&
0030&4&
0040&5&
0050-END-READ
0090
'PERSONNEL-ID'
Press ENTER to continue
PF3 to exit
Enter X for new selection
ZZLIST – Expanded Included
30
ZZLIST
LEN Consulting LLC
Natural Utilities
Natural Source Module Listing
Library: ZZUTIL
Data Area: SMPLLDA
Saved by ZBROG
on 03/12/16 16:46:19
L R Field Name
1 V EMPLOYEES-VIEW
2
PERSONNEL-ID
2
FIRST-NAME
2
NAME
2
BIRTH
F
06/09/2004 13:44
ZZUtils v2.1
Page: 1
Natural: 3.1 0004
Termid: ZBROG
Len Occ/Comment
A
8 /*CNNNNNNN
A
20 /*FIRST/CHRISTIAN NAM
A
20 /*SURNAME/FAMILY NAME
N 6.0 /*BIRTH-DATE (YYMMDD)
*** End of list ***
Press ENTER for a new selection
Begin
End
1
9
29
49
8
28
48
54
PF3 to exit
ZZLIST – LDA
31
ZZPUNCH
LEN Consulting LLC
Natural Utilities
Natural Source Module Punch
06/09/2004 13:47
ZZUtils v2.1
Library: ZZUTIL__
From Module: ________
Thru Module: ________
Header:
Separator:
View:
Remove L/R:
N (Y/N/F/X)
N
Y
N
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Actn Help Auth Exit
ZZPUNCH – Source module punch
32
ZZPUNCH
LEN Consulting LLC
Natural Utilities
Natural Source Module Punch
06/09/2004 13:47
ZZUtils v2.1
+-------Header----(PF3=Exit; PF7=Up; PF8=Down)-------+
| Specify whether a header record should be inlcuded |
| for each module. The header contains the location |
| of the module, and date and timestamp information. |
|
|
| Valid values are
|
|
F force a different header (for comparisons)
|
|
N no module header
|
|
X exclusive - header only
|
|
Y include module header
|
|
|
|
|
+----------------------------------------------------+
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Actn Help Auth Exit
ZZPUNCH – Help
33
ZZPUNCH
LEN Consulting LLC
Natural Utilities
Natural Source Module Punch
06/09/2004 13:50
ZZUtils v2.1
Library: ZZUTIL__
From Module: rgz_____
Thru Module: rgz9____
Header:
Separator:
View:
Remove L/R:
N (Y/N/F/X)
y
Y
N
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Actn Help Auth Exit
ZZPUNCH – Selection
34
<<<<RGZ
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
0010 IF *DEVICE <> 'BATCH'
0020
THEN
0030
STACK TOP COMMAND 'ZZUTILS'
0040 END-IF
0050 STACK TOP COMMAND 'GLOBALS SM=T SA=F'
0060 END
<<<<RGZADA >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
0010 DEFINE DATA LOCAL
0020 1 EMP
VIEW EMPLOYEES
0030
2 PERSONNEL-ID
0040 1 VEH
VIEW VEHICLES
0050
2 PERSONNEL-ID
0060 1 #A (A100)
0070 1 #I (P10)
0080 END-DEFINE
0090 STOP
0100 *
0110 GE.
0120 GET
EMP 1
0130 UPDATE (GE.)
/* A1
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Actn Help Auth Exit
ZZPUNCH – Report
35
ZZADACMD LEN Consulting LLC
Natural Utilities
Natural Module ADABAS Command Analysis
Required:
Optional:
06/09/2004 16:44
ZZUtils v2.1
Library name: ZZUTIL__
Starting module name: ________
Ending module name:
ADABAS Command:
ADABAS File:
DBID display:
Search Buffer display:
WORK file:
99999999
__
___
N
N
N
Commands reported:
A1
L1/L2/L3/L4/L5/L6/L9
BT
N1/N2/N4
E1
RE
ET
S1/S2/S4/S8/S9
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Dsply Help Auth Exit
ZZADACMD – ADABAS command analysis
36
ZZADACMD LEN Consulting LLC
Natural Utilities
Natural Module ADABAS Command Analysis
Required:
Optional:
06/09/2004 16:44
ZZUtils v2.1
Library name: ZZUTIL__
Starting module name: rgz_____
Ending module name:
ADABAS Command:
ADABAS File:
DBID display:
Search Buffer display:
WORK file:
rgz99999
__
___
y
y
N
Commands reported:
A1
L1/L2/L3/L4/L5/L6/L9
BT
N1/N2/N4
E1
RE
ET
S1/S2/S4/S8/S9
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Dsply Help Auth Exit
ZZADACMD – Selection
37
ZZADACMD LEN Consulting LLC
Natural Utilities
Natural Module ADABAS Command Analysis
Library: ZZUTIL
Modules: RGZ - RGZ99999
Module
Line ADABAS Command
RGZADA
0160
0190
0210
0250
0280
L4
A1
BT
ET
E1
L1
L2
L3
L4
A1
L5
A1
L6
A1
Get with hold
Update
Backout Transaction
End Transaction
Delete
Get
Read Physical
Read Logical
Get with hold
Update
Read Physical w/hold
Update
Read Logical w/hold
Update
Press ENTER to continue
PF3 to Stop
06/09/2004 16:45
ZZUtils v2.1
Page:
1
Parms: ,0,Y,Y,N
File
Search Buffer
0/
0/
4 EMPLOYEES-FILE
4 EMPLOYEES-FILE
0/
0/
0/
0/
0/
0/
0/
0/
0/
0/
4
4
4
4
4
4
4
4
4
4
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
AA,8,A.
AA,8,A.
Enter X for a new selection
ZZADACMD – Report – page 1
38
ZZADACMD LEN Consulting LLC
Natural Utilities
Natural Module ADABAS Command Analysis
Library: ZZUTIL
Modules: RGZ - RGZ99999
Module
Line ADABAS Command
RGZADA
0310 L9
N1
N1
RE
0380 S1
S1
0410 S2
0430 S4
A1
0460 S1
0500 S1
0500 S1
0500 S8
S1
Histogram
Store
Store
Get ET Data
Find
Find Number
Find Sorted by
Find with hold
Update
Find
Find
Find
Process ISN Lists
Find
Press ENTER to continue
PF3 to Stop
06/09/2004 16:46
ZZUtils v2.1
Page:
2
Parms: ,0,Y,Y,N
File
Search Buffer
0/
0/
0/
4 EMPLOYEES-FILE
4 EMPLOYEES-FILE
4 EMPLOYEES-FILE
AA,8,A.
0/
0/
0/
0/
0/
0/
0/
0/
0/
0/
4
4
4
4
4
4
4
4
4
4
AA,8,A.
AA,8,A.
AA,8,A.
AA,8,A.
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
EMPLOYEES-FILE
AA,8,A.
AO,6,A.
Enter X for a new selection
ZZADACMD – Report – page 2
39
ZZADACMD LEN Consulting LLC
Natural Utilities
Natural Module ADABAS Command Analysis
Library: ZZUTIL
Modules: RGZ - RGZ99999
Module
RGZADA
Line ADABAS Command
0520
0520
0520
0520
RGZMATCH 1520
RGZSRC
0320
RGZ250
0340
RGZ250D 0300
0420
S1
S1
S8
S9
S1
L3
L9
L6
E1
ET
06/09/2004 16:47
ZZUtils v2.1
Page:
3
Parms: ,0,Y,Y,N
File
Find
0/ 4 EMPLOYEES-FILE
Find
0/ 4 EMPLOYEES-FILE
Process ISN Lists
0/ 4 EMPLOYEES-FILE
Sort ISN List
0/ 4 EMPLOYEES-FILE
Find
0/ 4 EMPLOYEES-FILE
Read Logical
255/255 System/FNAT
Histogram
0/250 UTILITY-NAT-DOC
Read Logical w/hold
0/250 UTILITY-NAT-DOC
Delete
0/250 UTILITY-NAT-DOC
End Transaction
----- End of Command List -----
Press ENTER for a new selection
Search Buffer
AA,8,A.
AO,6,A.
AA,8,A.
LJ,18,A.
XX,248,LE.
XX,248.
PF3 to Stop
ZZADACMD – Report – page 3
40
ZZUtils
Sample Utilities
• ZZLOCATE find a module in the current FUSER
• ZZSEARCH find a module in all FUSERs
• ZZSCAN
library scan
• ZZVPARM
create a PDA from a view
41
ZZLOCATE LEN Consulting LLC
Natural Utilities
Locate a Natural Module
Enter module name: ________
06/09/2004 16:47
ZZUtils v2.1
(or wildcard: ?._*)
Timestamp since: __________ (yyyy-mm-dd)
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Actn Help Auth Exit
ZZLOCATE – Find a module in FUSER
42
ZZLOCATE LEN Consulting LLC
Natural Utilities
Locate a Natural Module
ZZMATCH exists in the following libraries
Library
............ Source
T Userid
Date
DLSTSYS
SYSTEM
WKSTRS99
ZZUTIL
P
P
P
P
LEWIS
ZBROG
LEWIS
ZZUTILS
-----
............
Time
Nat
06/09/2004 16:48
ZZUtils v2.1
Page:
1
............ Object
T Userid
Date
............
Time
Nat
03-06-13 10:46:43 3.1.4
04-06-07 18:11:26 3.1.6 P ZBROG
04-06-07 18:11:26 3.1.6
03-06-13 10:46:43 3.1.4
03-11-11 02:01:01 3.1.6 P ZZUTILS 03-11-11 02:01:01 3.1.6
178 source libraries scanned; 4 hits -----
Press ENTER for a new selection
PF3 to exit
ZZLOCATE – Report
43
ZZLOCATE LEN Consulting LLC
Natural Utilities
Locate a Natural Module
ZZUTL0* exists in the following libraries
Library
Module
SYSTEM
ZZUTL000
ZZUTL001
ZZUTL002
ZZUTL003
ZZUTL004
ZZUTL005
ZZUTL006
ZZUTL007
ZZUTL008
ZZUTL000
ZZUTL001
ZZUTL002
ZZUTL003
ZZUTIL
.........
T Userid
Press ENTER to continue
Source
Date
PF3 to exit
.........
Time
06/09/2004 16:49
ZZUtils v2.1
Page:
1
.........
T Userid
Object
Date
N
N
N
N
N
N
N
N
N
N
N
N
N
03-11-11
03-11-11
03-11-11
03-11-11
03-11-11
03-11-11
03-11-11
03-11-11
03-11-11
03-11-11
03-11-11
03-11-11
03-11-11
ZZUTILS
ZZUTILS
ZZUTILS
ZZUTILS
ZZUTILS
ZZUTILS
ZZUTILS
ZZUTILS
ZZUTILS
ZZUTILS
ZZUTILS
ZZUTILS
ZZUTILS
.........
Time
02:01:00
02:01:00
02:01:00
02:01:00
02:01:00
02:01:00
02:01:00
02:01:00
02:01:00
02:01:00
02:01:00
02:01:00
02:01:00
Enter X for new selection
ZZLOCATE – Wildcard report
44
ZZSEARCH LEN Consulting LLC
Natural Utilities
Search Environments for a Natural Module
06/09/2004 16:50
ZZUtils v2.1
Enter module name: ________ (or wildcard: ?._*)
Timestamp since: __________ (yyyy-mm-dd)
_ D Development
_ A CB Development
_ T Sys Integration _ U User Acceptance _ P Production
_ B CB Test
_ C CB Production
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Actn Help Auth Exit
ZZSEARCH – Find a module in FUSERs
45
ZZSEARCH LEN Consulting LLC
Natural Utilities
Search Environments for a Natural Module
06/09/2004 16:54
ZZUtils v2.1
Enter module name: zzmatch_ (or wildcard: ?._*)
Timestamp since: __________ (yyyy-mm-dd)
x D Development
_ A CB Development
x T Sys Integration x U User Acceptance x P Production
_ B CB Test
_ C CB Production
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Actn Help Auth Exit
ZZSEARCH – Selection
46
ZZSEARCH LEN Consulting LLC
Natural Utilities
Search Environments for a Natural Module
ZZMATCH exists in the following environments
E Library
.........
T Userid
Source
Date
.........
Time
.........
T Userid
06/09/2004 16:55
ZZUtils v2.1
Page:
1
Object
Date
.........
Time
D DLSTSYS P LEWIS
03-06-13 10:46:43
SYSTEM
P ZBROG
04-06-07 18:11:26
P ZBROG
04-06-09 16:54:17
WKSTRS99 P LEWIS
03-06-13 10:46:43
ZZUTIL
P ZZUTILS 03-11-11 02:01:01
P ZZUTILS 03-11-11 02:01:01
-- 4 environments, 301 source libraries scanned; 4 hits --
Press ENTER for a new selection
PF3 to exit
ZZSEARCH – Report
47
ZZSCAN
LEN Consulting LLC
Natural Utilities
Natural Library Scan
06/09/2004 16:56
ZZUtils v2.1
Enter library: ZZUTIL__
Enter starting program: ________
Optional ending program: ________
WORK file output: N
Enter scan value(s): _________________________
(case sensitive)
_________________________
(OR'd)
_________________________
_________________________
_________________________
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Dsply Help Auth Exit
ZZSCAN – Source string scan
48
ZZSCAN
LEN Consulting LLC
Natural Utilities
Natural Library Scan
06/09/2004 16:56
ZZUtils v2.1
Enter library: ZZUTIL__
Enter starting program: zz______
Optional ending program: zz9_____
WORK file output: N
Enter scan value(s): ZZUtil___________________
(case sensitive)
_________________________
(OR'd)
_________________________
_________________________
_________________________
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Dsply Help Auth Exit
ZZSCAN – Selection
49
ZZSCAN
Program
ZZADAR01
ZZADAR02
ZZCUSTOM
ZZMATCH
LEN Consulting LLC
Natural Utilities
Scan Natural Library ZZUTIL
Line Source
0570
0620
0280
0020
3010
ZZMONTH 0030
0410
ZZNAME
0030
ZZNATRJE 0030
ZZWHOR01 0640
*
*
*
*
06/09/2004 16:57
ZZUtils v2.1
Range: ZZ
- ZZ9
Page: 1
Scan value: ZZUtil
122T 'ZZUtils v2'
122T 'ZZUtils v2'
2 #ZZUTILIB (A8) INIT <'ZZUTIL'>
/* ZZUtils Natural library
System:
ZZUtils
122T 'ZZUtils v2' (YEI)
System:
ZZUtils
68T 'ZZUtils v2.1' (YEI)
System:
ZZUtils
System:
ZZUtils
122T 'ZZUtils v2'
----- End of Scan -----
Press ENTER for a new selection
PF3 to STOP
ZZSCAN – Report
50
ZZVPARM
LEN Consulting LLC
Natural Utilities
Generate a Parameter List for a View
06/09/2004 16:57
ZZUtils v2.1
File Name: ________________________________
Prefix?: N
(Y/N)
Specify a file name and press ENTER to generate a field
list in the Natural Work Area.
***
ZZVPARM will replace any source code currently in the Work Area.
***
Press PF3 to cancel this utility and leave the Work Area
intact.
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Dsply Help Auth Exit
ZZVPARM – Parameter list for a view
51
>
Top
0010
0020
0030
0040
0050
0060
0070
0080
0090
0100
0110
0120
0130
0140
0150
0160
0170
0180
0190
0200
> + Program
Lib ZZUTIL
....+....1....+....2....+....3....+....4....+....5....+.Mode Structured.
*/
DEFINE DATA LOCAL
1 #SYSDIC
2 VMS-FILCHUNK (A128/8)
2 FILENAME (A75)
2 FILENR (B2)
2 FILCHUNK (A250/8)
2 ERRNR (N4)
2 ERROR (10)
/* <<
3 ERRTXT (A79)
2 SRCID (A18)
2 SRCTX (A94/60)
2 OBJID (A18)
2 OBJCHUNK (A250/8)
2 INTERNA01 (A75)
2 INTERNA02 (A75)
2 INTERNA03 (A8)
2 INTERNA04 (A8)
2 INTERNA05 (A8)
2 INTERNA06 (A8)
....+..Current Source Size: 9507 Char. Free: 214302 ..+... S 346 L 1
ZZVPARM – Output 1
52
>
> + Program
Lib ZZUTIL
Bot
....+....1....+....2....+....3....+....4....+....5....+.Mode Structured.
3270
2 OBJECT-STATUS (A1)
3280
2 FILE-FIELD (A64)
3290
2 SYSTEM-REC-ALF (A42)
3300
2 PROPERTY (A32/30)
3310
2 INTERFACE-METHOD (A64)
3320
2 INTERFACE-GUID-METHOD (A64)
3330
2 N-LIB-PGM (A32)
3340
2 INT-REC-TYPE (A7)
3350
2 ATTRIBUTES-DE (80)
/* <<
3360
3 NUMERIC-FIELDS-DE (P27)
3370
3 ALPHA-FIELDS-DE (A253)
3380
2 SP-PARENT-CHILD (A135)
3390
2 OLD-FILE-REC (A33)
3400
2 UREL-CODE (A2)
3410
2 SMS-NO-ATTR (A8)
3420
2 N-RESOURCE (A235)
3430
2 N-RESOURCE-USAGE (A2)
3440
2 S-DA-NAME-PGM (A52)
3450 END-DEFINE
3460 END
....+..Current Source Size: 9507 Char. Free: 214302 ..+... S 346 L 327
ZZVPARM – Output 2
53
ZZUtils
Customization
• ZZUTILS
menu
• ZZLOCATE library scan of FUSER
• ZZSEARCH library scan of multiple FUSERs
54
ZZUTILs
v2.1
Organization Name
LIB: ZZUTIL
ID: ZBROG
Natural Utilities Menu
06/09/2004 17:02
After 4. Downhill, Ralph.
1 ZZADACMD ADABAS command analysis
16 ZZWHOIS Identify a Userid by name
2 ZZBLKSIZ Block size computation
17 ZZWHOLST Userid list
3 ZZCALC
Calculator
18
4 ZZDATES Date conversions
19 ZZNATPUN ZZPUNCH via RJE
5 ZZDUMP
Module formatted dump
20 RGZ250
TDOC log
6 ZZLIST
List a Natural module
7 ZZLOCATE Locate a Natural module
8 ZZMONTH Monthly date calculations
9 ZZPUNCH Punch Natural module
10 ZZSCAN
Source library scan
11 ZZSEARCH Multi-environment Locate
12 ZZTDOC
Technical walkthrough doc
13 ZZTDPMNT Maintain TDOC profile
14 ZZTIME
Timestamp to/from time
15 ZZVPARM Parm list from a view
------------------------------------------------------------------------------Selection: __
Command: ______________________________________________________________________
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Cmd
Help Auth Exit Rfrsh
Up
Down
Crsr
Main menu
55
ZZUTILs
v2.1
LEN Consulting LLC
LIB: ZZUTIL
ID: ZBROG
Natural Utilities Menu
06/09/2004 17:03
After 4. Downhill, Ralph.
1 ZZADACMD ADABAS command analysis
16 ZZWHOIS Identify a Userid by name
2 ZZBLKSIZ Block size computation
17 ZZWHOLST Userid list
3 ZZCALC
Calculator
18
4 ZZDATES Date conversions
19 ZZNATPUN ZZPUNCH via RJE
5 ZZDUMP
Module formatted dump
20 RGZ250
TDOC log
6 ZZLIST
List a Natural module
7 ZZLOCATE Locate a Natural module
8 ZZMONTH Monthly date calculations
9 ZZPUNCH Punch Natural module
10 ZZSCAN
Source library scan
11 ZZSEARCH Multi-environment Locate
12 ZZTDOC
Technical walkthrough doc
13 ZZTDPMNT Maintain TDOC profile
14 ZZTIME
Timestamp to/from time
15 ZZVPARM Parm list from a view
------------------------------------------------------------------------------Selection: __
Command: ______________________________________________________________________
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Cmd
Help Auth Exit Rfrsh
Up
Down
Crsr
Main menu - Customized
56
>
0600
0610
0620
0630
0640
0650
0660
0670
0680
0690
0700
0710
0720
0730
0740
0750
0760
0770
0780
0790
> + Program
ZZUTILS Lib ZZUTIL
....+....1....+....2....+....3....+....4....+....5....+.Mode Structured.
1 #MAX (I4)
CONST <53>
1 #TABLE (A33/#MAX) INIT <'ZZADACMD' - 'ADABAS command analysis '
,'ZZBLKSIZ' - 'Block size computation
'
,'ZZCALC ' - 'Calculator
'
,'ZZDATES ' - 'Date conversions
'
,'ZZDUMP ' - 'Module formatted dump
'
,'ZZLIST ' - 'List a Natural module
'
,'ZZLOCATE' - 'Locate a Natural module '
,'ZZMONTH ' - 'Monthly date calculations'
,'ZZNATPUN' - 'ZZPUNCH via NatRJE
'
,'ZZPUNCH ' - 'Punch Natural module
'
,'ZZSCAN ' - 'Source library scan
'
,'ZZSEARCH' - 'Multi-environment Locate '
,'ZZTDOC ' - 'Technical walkthrough doc'
,'ZZTDPMNT' - 'Maintain TDOC profile
'
,'ZZTIME ' - 'Timestamp to/from time
'
,'ZZVPARM ' - 'Parm list from a view
'
,'ZZWHOIS ' - 'Identify a Userid by name'
,'ZZWHOLST' - 'Userid list
'
,'--------' - 'Client tools:
'
....+..Current Source Size: 7066 Char. Free: 216743 ..+... S 124 L 60
ZZUTILS – Menu customization
57
ZZUTILs
v2.1
LEN Consulting LLC
LIB: ZZUTIL
ID: ZBROG
Natural Utilities Menu
06/09/2004 17:08
After 4. Downhill, Ralph.
Page: 1
1 ZZADACMD ADABAS command analysis
16 ZZVPARM Parm list from a view
2 ZZBLKSIZ Block size computation
17 ZZWHOIS Identify a Userid by name
3 ZZCALC
Calculator
18 ZZWHOLST Userid list
4 ZZDATES Date conversions
19
Client tools:
5 ZZDUMP
Module formatted dump
20 COMPARE N2O on-line comparison
6 ZZLIST
List a Natural module
21 NS
Scan Natural source
7 ZZLOCATE Locate a Natural module
22 N2O
Natural 2 Organizer
8 ZZMONTH Monthly date calculations
23 OCU
On-line Case Unload
9 ZZNATPUN ZZPUNCH via NatRJE
24 OCUI
Case Unload Inquiry
10 ZZPUNCH Punch Natural module
25 PAC
Predict Applic Control
11 ZZSCAN
Source library scan
26 PK
PEEK Adabas File Editor
12 ZZSEARCH Multi-environment Locate
27 PRTUTIL Print utility
13 ZZTDOC
Technical walkthrough doc
28 TESTMENU Select a test database
14 ZZTDPMNT Maintain TDOC profile
29 XREF
Subprogram calls
15 ZZTIME
Timestamp to/from time
------------------------------------------------------------------------------Selection: __
Command: ______________________________________________________________________
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Cmd
Help Auth Exit Rfrsh
Up
Down
Crsr
Multi-page menu 1
58
ZZUTILs
v2.1
LEN Consulting LLC
Natural Utilities Menu
After 4. Downhill, Ralph.
1
Screen Prints:
2 ZZCOPYBK COBOL copybook from xDA
3 ZZCOPINC LDA from COBOL copybook
LIB: ZZUTIL
ID: ZBROG
06/09/2004 17:08
Page: 2
16
Not Yet Ported to XP:
17 ZZERRMSG SYSERR message list
18 ZZLOC
ZZLOCATE via RJE
19 ZZPCHLIB Punch Natural library
20 ZZSRCNT Source line count
21 ZZSWITCH Switch a module's type
------------------------------------------------------------------------------Selection: __
Command: ______________________________________________________________________
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Cmd
Help Auth Exit Rfrsh
Up
Down
Crsr
Multi-page menu 2
59
ZZUTILs
v2.1
1
2
3
4
5
6
LEN Consulting LLC
Natural Utilities Menu
After 4. Downhill, Ralph.
Verrule functions:
ZZVECOPY Copy verrule to work area
ZZVEDATE List verrule time stamps
ZZVELIST List verification rules
ZZVEPNCH Punch verification rules
ZZVESCAN Scan verrules (beta)
LIB: ZZUTIL
ID: ZBROG
06/09/2004 17:09
Page: 3
------------------------------------------------------------------------------Selection: __
Command: ______________________________________________________________________
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Cmd
Help Auth Exit Rfrsh
Up
Down
Crsr
Multi-page menu 3
60
ZZUtils
Miscellaneous
• PF key help
• Screen-level help
• Field-level help
61
ZZUTILs
v2.1
LEN Consulting LLC
LIB: ZZUTIL
ID: ZBROG
Natural Utilities Menu
06/09/2004 17:10
After 4. Downhill, Ralph.
1 ZZADACMD ADABAS command analysis
16 ZZVPARM Parm list from a view
2 ZZBLK +---ZZUtils--v2.1----(PF3=Exit; PF7=Up; PF8=Down)----+ serid by name
3 ZZCAL | Main menu
|
4 ZZDAT |
|
5 ZZDUM | PF1/Help - This screen
|
6 ZZLIS | PF3/Exit - Return to Natural
|
7 ZZLOC | PF7/Up
- Scroll menu up
|
8 ZZMON | PF8/Down - Scroll menu down
|
9 ZZNAT | PF2/Auth - How to contact the author
|
10 ZZPUN | PF12/Crsr - Execute the utility
|
11 ZZSCA |
indicated by the cursor
|
12 ZZSEA | PF4/Rfrsh - Refresh the screen
|
13 ZZTDO |
|
14 ZZTDP +----------------------------------------------------+
15 ZZTIME
Timestamp to/from time
------------------------------------------------------------------------------Selection: __
Command: ______________________________________________________________________
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Cmd
Help Auth Exit Rfrsh
Up
Down
Crsr
PF-key help
62
ZZSEARCH LEN Consulting LLC
Natural Utilities
Search Environments for a Natural Module
06/09/2004 17:12
ZZUtils v2.1
+---ZZSEARCH Help----(PF3=Exit; PF7=Up; PF8=Down)----+
| Locate a Natural Member
|
|
|
| This utility is an enhanced version of ZZLOCATE . |
_ D Deve |
| Production
_ A CB D | Where ZZLOCATE will search all libraries within a |
| single environment, as many as 40 environments
|
| may be defined to ZZSEARCH. The environments are |
| specified by the ZZUtils administrator.
|
|
|
| An environment is synonymous with an FUSER file,
|
|
|
+----------------------------------------------------+
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Actn Help Auth Exit
Screen-level help
63
ZZSEARCH LEN Consulting LLC
Natural Utilities
Search Environments for a Natural Module
06/09/2004 17:13
ZZUtils v2.1
+-------Module----(PF3=Exit; PF7=Up; PF8=Down)--------+
| Specify the name of the module to be found. A
|
| member name or wild card value may be specified.
|
|
|
_ D Deve | Use standard Natural wildcard characters:
| Production
_ A CB D |
|
|
? . _ *
|
|
|
| If the Natural Source Area is not empty, the name |
| of the source module is used as the default value. |
|
|
|
|
+-----------------------------------------------------+
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Actn Help Auth Exit
Field-level help
64
ZZUtils
Installation
• Upload to mainframe
• NATLOAD
• ZZUtils customization (ZZCUSTOM)
• Menu customization (ZZUTILS)
• JCL customization (ZZTDJMVS)
• TDOC customization (ZZTDPMNT)
65
ZZUtils
Purchase
• Purchase includes:
• 1 or 2 days of on-site support (North America only) for
installation, customization, training
• 20% discount on 1 training class (contiguous with
on-site support)
• 1 year of updates
• Technical support via e-mail/telephone
• ZZTDOC User’s Guide
• Natural Source Code Quality Review checklist
66
ZZUtils
Trial Disk
• Subset of functions
• Limited technical support
• 30-day expiration
67
ZZUtils
Additional Information
• www.ZZUtils.com
• Documentation
• Samples in PDF format
• Screen shots
• [email protected]
• 562 208 5470
68
Q&A
69
ZZUtils
Tools for Natural Developers
LEN CONSULTING LLC
Ralph Zbrog
[email protected]