| View previous topic :: View next topic |
| Author |
Message |
Ram
Beginner
Joined: 12 Jan 2004
Posts: 53
Topics: 12
|
 Posted: Tue Jul 11, 2006 4:39 pm Post subject: Utility to reformat and print IDMS IDD |
 |
|
Hi,
Just curious to know if there is an utility JCL that can query an IDMS IDD for a record format and prints it definition.
Thanks,
Ram |
|
| Back to top |
|
 |
shekar123
Advanced
Joined: 22 Jul 2005
Posts: 528
Topics: 90
Location: Bangalore India
|
| Posted: Tue Jul 11, 2006 10:04 pm Post subject: |
|
|
Ram,
Can you not get some information from the Bachman's diagram ?
_________________
Shekar
Grow Technically |
|
| Back to top |
|
|
Ram
Beginner
Joined: 12 Jan 2004
Posts: 53
Topics: 12
|
| Posted: Tue Jul 11, 2006 10:52 pm Post subject: |
|
|
| I am not talking about the record properties. I want a Cobol like definition to be printed in the sysout. Very similar to what we do in IDDM. PF7 and then PF11. I hope I am a little bit clear this time. |
|
| Back to top |
|
|
Jaya
Beginner
Joined: 02 Sep 2005
Posts: 77
Topics: 10
Location: Cincinnati
|
| Posted: Wed Jul 12, 2006 12:38 am Post subject: |
|
|
Ram,
Use IDMSRPTS utility program to get the IDD schema information...
Sample jcl in CV mode:
| Code: | //RPTS EXEC PGM=IDMSRPTS,REGION=256K
//STEPLIB DD DSN=idms.dba.loadlib,DISP=SHR
// DD DSN=idms.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSOUT DD SYSOUT=A
//SYSLST DD SYSOUT=A
//SYSIDMS DD *
DICTNAME=dictionary-name
DICTNODE=node-name This is optional
Insert other SYSIDMS parameters as appropriate
//SYSIPT DD *
Insert utility statements
/*
|
Utility statement:
| Code: | //SYSIPT DD *
SCHEMA=schemaname VERSION=(HIGH)
SCHRPT
/* |
will give you reports on AREALST,PGMLST,RECDES and SETDES .
If you are interested in only cobol record layouts for IDD records, use RECDES instead of SCHRPT in the above utility statement.
If you are interested in generating a report for a specific subschema inside the schema
| Code: | //SYSIPT DD *
SCHEMA=schemaname VERSION=(HIGH)
SUBSCHEMA=subschemaname VERSION=(HIGH)
SCHRPT
/* |
Hope this helps...
Thanks,
Jaya
_________________
"Great spirits have always encountered violent opposition from mediocre minds."
-Albert Einstein |
|
| Back to top |
|
|
shiv_swami
Beginner
Joined: 29 Nov 2003
Posts: 68
Topics: 14
|
| Posted: Fri Aug 11, 2006 9:53 am Post subject: |
|
|
Ram.
can you mention whether you need IDD record definitions or COBOL record definitions?
If you want IDD definitions, use IDMSDDL.
| Code: | //DDDL010 EXEC PGM=IDMSDDDL
//SYSIDMS DD *
DICTNAME=DICTIONARY-GOES HERE
//*
//SYSCTL DD DSN=CV SYSCTL DATASET ,DISP=SHR
//SYSJRNL DD DUMMY
//SYSLST DD SYSOUT=*
//SYSPCH DD SYSOUT=*
//SYSIPT DD *
PUN REC RECORD-TOBE-PUNCHED VERSION 1.
SIGNOFF.
/*
|
You can redirect SYSPCH to a 80 column file or PDS.
Getting a COBOL copybook from IDD gets a little trickier. Let me know if you need that..
_________________
Regards,
Shivprakash |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
