390 likes | 511 Views
XINFO . The IT Information System. Cobol. H O RIZONT Software for Datacenters. Garmischer Str. 8 D- 80339 München Tel ++49(0)89 / 540 162 - 0 www.horizont-it.com. XINFO and Cobol. XINFO‘s Cobol interface gives you access to following information:. General program information
E N D
XINFO The IT Information System Cobol HORIZONT Software for Datacenters Garmischer Str. 8 D- 80339 München Tel ++49(0)89 / 540 162 - 0www.horizont-it.com
XINFO and Cobol XINFO‘s Cobol interface gives you access to following information: • General program information • Copy (which program uses which copy member) • Call (which program calls which program) • Graphics (“inter language” call graph) • Select/assign, file access, file section (file usage) • DB2 access (EXEC SQL Statements) • CICS access (EXEC CICS) • DLI access (IMS, EXEC DLI and CBLTDLI) • Variable declarations, variable usage • Unused code • Comments
Cobol - General Info • Search for programs by specifying attributes, eg • - uses SQL • more than 1000 lines of code • was changed after a certain date
Cobol - General Info • load module name: • source member or • program id or • external translation program names code line qty SQL, CICS, DLI etc. Y/N comments qty
Cobol - Copy which programs are using this copy member?
Cobol - Copy SQL include Y/N programs Nesting Level (Copy in Copy) Replacing Y/N Copy statement found
Cobol - Copy right mouseclick eg shows copy member Next example: declaration of a program name
Cobol - Call which programs are calling this program?
Cobol - Call calling programs parameters called program variable name section within the program (not used in this example)
Cobol - Call right mouseclick eg shows source member Source with dynamic call. A previous „MOVE pgmname to varname" was translated by XINFO‘s scanner.
Cobol Call Question: which programs are called by “DSN8CC0”?
Cobol Call Answer:DSN8CC0 calls two programs (which may contain more program calls)
Programs Call Program call shows all calls over multiple levels, independently of the used program language! which programs are called by DSN8CC0?
Programs Call all calls over all levels
Programs Call Graph This chart shows all program calls clearly
Cobol - Files • Here you can get information about • file definitions • file access (read/write) • etc
Cobol – SELECT/ASSIGN FILE-CONTROL. SELECT REPOUT ASSIGN TO UT-S-REPORT. File/DD name ”assignments” and the parameters (taken from File-Control).
Cobol – File Section FILE-CONTROL. SELECT REPOUT ASSIGN TO UT-S-REPORT. FILE SECTION. FD REPOUT RECORD CONTAINS 120 CHARACTERS LABEL RECORDS ARE OMITTED DATA RECORD IS REPREC. 01 REPREC PIC X(120). File attributes from file description, eg record length, record mode etc.
Cobol – File Access „File access" shows all file operations
Cobol – File Access right mouseclick eg to show JCL DD statements (XINFO’s JCL scanner is needed)
JCL – DSN DSN and other JCL-parameters
Cobol – DB2 Access Question:Which programs are using DB2 table "VDEPT"?
Cobol – DB2 Access SQL action In case of "Type=Table" column "Object" shows the name of the table Programs
Cobol – DB2 Access All used columns are shown
Cobol – DB2 Access Search programs by "used columns"
Cobol – DB2 Access The column "DEPTNO" is used in several tables by several programs
Cobol – Variable Question:In which programs is the variable "DEPTNO" defined?
Cobol – Variable In this example "DEPTNO" is defined in two programs left double mouseclick shows the complete record
Cobol – Variable usage "Variable usage" shows exactly "where and how" variables are used in your programs.
Cobol – CICS Access Example:Search for all "EXEC CICS" in programs "DSN8C*"
Cobol – CICS Access "CICS Access" shows all CICS actions and the parameters. LINK and XCTL is shown in the call table as well as in the call graph
Cobol – DLI Access search for DLI calls
Cobol – DLI Access IMS actions and parameters. Search for strings in DLI statements
Cobol – Unused Code Shows program lines that are never called Program From line, to line
Cobol – Comments Program Comment Division Line
Cobol – Comments search for strings, eg *CICS* in all comments
Any questions about XINFO and Cobol? Info@Horizont-it.com
XINFO The IT Information System Many thanks for your attention! HORIZONT Software for Datacenters Garmischer Str. 8 D- 80339 München Tel ++49(0)89 / 540 162 - 0www.horizont-it.com