How to find Datacom table layouts
Article ID: 388994
Updated On:
Products
Issue/Introduction
The application team requested a change to one of the columns in a table from a length of 8 to 10. The CXX report of the DBID doesn't show the column we need to change.
Why is it not in the CXX, and where is it found?
Cause
The CXX only contains metadata about tables and areas, not the detailed record layouts.
Resolution
The CXX report does not contain the data definitions for your application tables. It contains metadata details about each table and the area that contains it as well as key and element details for the table.
If you want to see the individual fields in your table, you will need to run a Datadictionary report. To change the length of a field, there are two reports that will help you: a hierarchical report of the table, fields, elements, keys, and dataviews (for Ideal), and a field layout report, showing the specific details of the fields in the table such as length, type, format, etc.
The control statements are similar here, so I will give you the JCL to run the two reports.
//<your Jobcard goes here>
//*
// EXPORT SYMLIST=(*)
//*
//* Loadlibs for Datacom and IPC products
// SET $CUS=<<YOUR MUF CUSLIB
// SET $BAS=<<YOUR MUF CABDLOAD
// SET $IPC=<<YOUR IPC CAVQLOAD
//*
//* Administator user/password for Datadictionary and Dataquery
//* SET $DDUSR='<<DD-Admin-User>>',$DDPWD='<<DDUSR-PASSWORD>>'
// SET $DDUSR='DATACOM-INSTALL',$DDPWD='NEWUSER'
//*
//* - - - - - -C- - - - - - - - - - - - - - - - - - - - - - - - - - -7-
//$DDRPT EXEC PGM=DDUTILTY,REGION=0M
//STEPLIB DD DISP=SHR,DSN=&$CUS
// DD DISP=SHR,DSN=&$BAS
// DD DISP=SHR,DSN=&$IPC
//*
//CAOESTOP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//DDSNAP DD SYSOUT=*
//SYSSNAP DD SYSOUT=*
//SNAPER DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *,SYMBOLS=(JCLONLY)
-USR &$DDUSR,&$DDPWD
-DEF PATH,P1
-DEF TRACE,TABLE.FIELD,$INTERNAL
-DEF TRACE,TABLE.ELEMENT,$INTERNAL
-DEF TRACE,TABLE.KEY,$INTERNAL
-DEF TRACE,ELEMENT.FIELD,$INTERNAL
-DEF TRACE,KEY.FIELD,$INTERNAL
-DEF TRACE,ELEMENT.DATAVIEW,$INTERNAL
-END
-RPT START,TABLE,<<Tablename>> (PROD),P1
-RPT INDENTED
-END
-RPT FIELD,TABLE,<<Tablename>> (PROD)
-END
/*
The SYSIN that is in Green will be used to create the hierarchical report, and the SYSIN in Blue will create the layout.
Of course, when making a change to a field length, you need to consider a lot of things:
- Program changes,
- Ideal dataview changes,
- Data expansion for existing records,
- Change to back up files (so you cannot use any backups from before the change),
- Changes to any online screens,
- Changes to other programs that do not use the database but which use data extracts,
- and probably other things.
Additional Information
As always, please contact Broadcom support for Datacom if you have further questions.
Feedback
