ca.portal.admin

Re:Looking for SUBSCHEMA-RECNAMES

Discussion created by ca.portal.admin on Oct 2, 2009
Hi all,

We have a number of DC-COBOL programs that include in their Working Storage section lines such as COPY IDMS SUBSCHEMA-RECNAMES or COPY IDMS SUBSCHEMA-SSNAME

The DMLC pre-compiler expands these quite happily, so obviously they exist in some dictionary. However, I cannot find them using IDD or IDMSDDDL DIS REC SUBSCHEMA-RECNAMES V HIGH. I have searched all of the usual places: our default secondary dictionary, SYSDIRL, APPLDICT, SYSTEM.

Does anybody have any idea where these puppies are hiding?

Thanks,

Jim Ritterbusch
Database Administrator
GE Capital
83 Wooster Heights Rd
5th Floor South
Danbury, CT 06810
T (203) 546 4370
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Looking for SUBSCHEMA-RECNAMES
"SXQgd291bGQgYmUgZWFzaWVyIHRvIHdyaXRlIGEgY3VscHJpdCByb3V0aW5lIGFuZCB3YWxrIHRo
ZSBTUyBTUiBjaGFpbiBpbiB0aGUgZGljdGlvbmFyeS4NCg0KV3JpdGUgbWUgb2ZmbGluZSBpZiB0
b2Ugd2lzaCBtZSB0byBkbyB0aGF0IE1vbmRheS4NCg0KICAgICAgRGljaw0KICAgICAgKDc4MSkg
OTgzLTAzNjMNCiAgICAgIFNlbnQgZnJvbSBteSBCbGFja0JlcnJ5IHNvIGZvcmdpdmUgcG9vciBz
cGVsbGluZyBhbmQgcHVuY3R1YXRpb24uDQoNCi0tLS0tIE9yaWdpbmFsIE1lc3NhZ2UgLS0tLS0N
CkZyb206IElETVMgUHVibGljIERpc2N1c3Npb24gRm9ydW0gPElETVMtTEBMSVNUU0VSVi5JVUFT
U04uQ09NPg0KVG86IElETVMtTEBMSVNUU0VSVi5JVUFTU04uQ09NIDxJRE1TLUxATElTVFNFUlYu
SVVBU1NOLkNPTT4NClNlbnQ6IEZyaSBPY3QgMDIgMTc6NTE6MjIgMjAwOQ0KU3ViamVjdDogUmU6
IExvb2tpbmcgZm9yIFNVQlNDSEVNQS1SRUNOQU1FUw0KDQpZZXMsIG5vdCBzdXJlIHdoeSB0aGlz
IHBlcnNvbiB3YW50cyB0aGUgc3Vic2NoZW1hIHJlY25hbWVzLiBCdXQgaWYgdGhleSB3YW50IGl0
IGR5bmFtaWNhbGx5IGl0IGNhbiBiZSBkb25lIGluIGFzc2VtYmxlciBieSBsb2FkaW5nIHRoZSBz
dWJzY2hlbWEgbG9hZCBtb2R1bGUgaW50byBtZW1vcnkuICBUaGVuIHNpbXBseSBnZXQgYWRkcmVz
c2FiaWxpdHkgdG8gdGhlIElCNTAgY29udHJvbCBibG9jayBhbmQgdGhlbiB3YWxrIGFsbCBvZiB0
aGUgYXR0YWNoZWQgU1I1MSBjb250cm9sIGJsb2NrcyAodGhlIGZpZWxkIEZJU1JCTiB3aWxsIGJl
IGVxdWFsIHRvIHRoZSBhZGRyZXNzIG9mIHRoZSBJQjUwIHdoZW4geW91IGFyZSBkb25lKS4gIElm
IHRoZXkgbmVlZCBoZWxwIHlvdSBjYW4gZW1haWwgcHJpdmF0ZWx5IGF0IGRhbi5sLm1pbGV5QGxt
Y28uY29tLg0KDQpEYW4gTWlsZXkNCkxvY2toZWVkIE1hcnRpbg0KDQoNCg0KDQotLS0tLU9yaWdp
bmFsIE1lc3NhZ2UtLS0tLQ0KRnJvbTogSURNUyBQdWJsaWMgRGlzY3Vzc2lvbiBGb3J1bSBbbWFp
bHRvOklETVMtTEBMSVNUU0VSVi5JVUFTU04uQ09NXSBPbiBCZWhhbGYgT2YgSmVuc2VuLCBWaW5j
ZQ0KU2VudDogRnJpZGF5LCBPY3RvYmVyIDAyLCAyMDA5IDE6NDcgUE0NClRvOiBJRE1TLUxATElT
VFNFUlYuSVVBU1NOLkNPTQ0KU3ViamVjdDogUmU6IExvb2tpbmcgZm9yIFNVQlNDSEVNQS1SRUNO
QU1FUw0KDQogVGhlcmUgYXJlIG5vIGNvcHkgbWVtYmVycyBzdG9yZWQgaW4gSURELiBUaGUgc3Bl
YyBpcyByZXNvbHZlZCBhdCBwcmUtY29tcGlsZSB0aW1lLiAgVGhlIHByZS1jb21waWxlciBzY2Fu
cyB0aGUgc3Vic2NoZW1hIGFuZCBnZW5lcmF0ZXMgdGhlIGNvcHkgbWVtYmVyIGZvciBlYWNoIHJl
Y29yZCB0aGF0IGlzIGZvdW5kIGluIHRoZSBzdWJzY2hlbWEuDQoNCi0tLS0tT3JpZ2luYWwgTWVz
c2FnZS0tLS0tDQpGcm9tOiBJRE1TIFB1YmxpYyBEaXNjdXNzaW9uIEZvcnVtIFttYWlsdG86SURN
Uy1MQExJU1RTRVJWLklVQVNTTi5DT01dDQpPbiBCZWhhbGYgT2YgUml0dGVyYnVzY2gsIEphbWVz
IChHRSBDYXBpdGFsKQ0KU2VudDogRnJpZGF5LCBPY3RvYmVyIDAyLCAyMDA5IDExOjM3IEFNDQpU
bzogSURNUy1MQExJU1RTRVJWLklVQVNTTi5DT00NClN1YmplY3Q6IExvb2tpbmcgZm9yIFNVQlND
SEVNQS1SRUNOQU1FUw0KDQpIaSBhbGwsDQoNCldlIGhhdmUgYSBudW1iZXIgb2YgREMtQ09CT0wg
cHJvZ3JhbXMgdGhhdCBpbmNsdWRlIGluIHRoZWlyIFdvcmtpbmcgU3RvcmFnZSBzZWN0aW9uIGxp
bmVzIHN1Y2ggYXMgQ09QWSBJRE1TIFNVQlNDSEVNQS1SRUNOQU1FUyBvciBDT1BZIElETVMgU1VC
U0NIRU1BLVNTTkFNRQ0KDQpUaGUgRE1MQyBwcmUtY29tcGlsZXIgZXhwYW5kcyB0aGVzZSBxdWl0
ZSBoYXBwaWx5LCBzbyBvYnZpb3VzbHkgdGhleSBleGlzdCBpbiBzb21lIGRpY3Rpb25hcnkuICBI
b3dldmVyLCBJIGNhbm5vdCBmaW5kIHRoZW0gdXNpbmcgSUREIG9yIElETVNERERMIERJUyBSRUMg
U1VCU0NIRU1BLVJFQ05BTUVTIFYgSElHSC4gIEkgaGF2ZSBzZWFyY2hlZCBhbGwgb2YgdGhlIHVz
dWFsIHBsYWNlczogb3VyIGRlZmF1bHQgc2Vjb25kYXJ5IGRpY3Rpb25hcnksIFNZU0RJUkwsIEFQ
UExESUNULCBTWVNURU0uDQoNCkRvZXMgYW55Ym9keSBoYXZlIGFueSBpZGVhIHdoZXJlIHRoZXNl
IHB1cHBpZXMgYXJlIGhpZGluZz8NCg0KVGhhbmtzLA0KDQpKaW0gUml0dGVyYnVzY2gNCkRhdGFi
YXNlIEFkbWluaXN0cmF0b3INCkdFIENhcGl0YWwNCjgzIFdvb3N0ZXIgSGVpZ2h0cyBSZA0KNXRo
IEZsb29yIFNvdXRoDQpEYW5idXJ5LCBDVCAwNjgxMA0KVCAoMjAzKSA1NDYgNDM3MA0K
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Looking for SUBSCHEMA-RECNAMES
"It would be easier to write a culprit routine and walk the SS SR chain in the dictionary.

Write me offline if toe wish me to do that Monday.

Dick
(781) 983-0363
Sent from my BlackBerry so forgive poor spelling and punctuation.

----- Original Message -----
From: IDMS Public Discussion Forum <IDMS-L@LISTSERV.IUASSN.COM>
To: IDMS-L@LISTSERV.IUASSN.COM <IDMS-L@LISTSERV.IUASSN.COM>
Sent: Fri Oct 02 17:51:22 2009
Subject: Re: Looking for SUBSCHEMA-RECNAMES

Yes, not sure why this person wants the subschema recnames. But if they want it dynamically it can be done in assembler by loading the subschema load module into memory. Then simply get addressability to the IB50 control block and then walk all of the attached SR51 control blocks (the field FISRBN will be equal to the address of the IB50 when you are done). If they need help you can email privately at dan.l.miley@lmco.com.

Dan Miley
Lockheed Martin

Outcomes