OS/2 Shareware BBS: 10 Tools

home *** CD-ROM | disk | FTP | other *** search

/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / datatl25.zip / DCTDSGN.Z / ewsqis3g.qry < prev next >

Wrap

Text File | 1997-09-12 | 3KB | 147 lines

#NAME# DA_ComplexSegmentData #DESCRIPTION# This query collects information about segments in HDAM or HIDAM DBDs. DBD and DATASET information is found through the HDAM (ewsqid5g.qry) or HIDAM (ewsqid7g.qry) DBD sample query. FIELD information is in the IMS FIELD sample query, ewsqifg.qry. Modifications: Change the search criteria of the dbd name in the SQL WHERE clause. View type: DAQhdamDBD #MODIFIED# #VERSION# #SQL STATEMENT# --DA_ComplexSegmentData SELECT DISTINCT d.segmentName, ms.dataStructure, d.maximumLength, d.minimumLength, d.rules, d.deleteFlag, d.insertFlag, d.replaceFlag, d.segmPointer, d.parentSegmName, d.pcPointer, d.dataOnly, d.initialization, d.routine, d.ddName, d.exitFlag, d.segmCaptureRoutine, d.segmExitData, d.segmExitKey, d.segmExitPath, d.segmCascade, d.segmCascadeData, d.segmCascadeKey, d.segmCascadePath, d.xdfldName, d.indexSegmName, d.indexDBDname, d.ddataFieldName, d.searchFieldName, d.subseqFieldName, d.sourceSegmName, d.exitRoutine, d.constant, d.nullValue, d.symbolic, d.lchildSegmName, d.lchildDBDname, d.lchildPairSegmName, d.lchildPairDBDname, d.lcPointer, d.rules1 as lcrules, d.lparentSegmName, d.lparentDBDname, d.virtualParent, d.counter, d.lparent, d.ltwin, d.pairSegmName, d.pairDBDname, d.logSegmName, d.logDBDname, d.segmLabel, d.segmDescription FROM OUTER DAQhdamDBD d, (d.mappingStruct) ms WHERE (d.accessMethod = 'HDAM') AND -- also change the DBD name in the next WHERE clause d.dbdName LIKE '<>%' UNION SELECT DISTINCT d.segmentName, ms.dataStructure, d.maximumLength, d.minimumLength, d.rules, d.deleteFlag, d.insertFlag, d.replaceFlag, d.segmPointer, d.parentSegmName, d.pcPointer, d.dataOnly, d.initialization, d.routine, d.ddName, d.exitFlag, d.segmCaptureRoutine, d.segmExitData, d.segmExitKey, d.segmExitPath, d.segmCascade, d.segmCascadeData, d.segmCascadeKey, d.segmCascadePath, d.xdfldName, d.indexSegmName, d.indexDBDname, d.ddataFieldName, d.searchFieldName, d.subseqFieldName, d.sourceSegmName, d.exitRoutine, d.constant, d.nullValue, d.symbolic, d.lchildSegmName, d.lchildDBDname, d.lchildPairSegmName, d.lchildPairDBDname, d.lcPointer, d.rules1 as lcrules, d.lparentSegmName, d.lparentDBDname, d.virtualParent, d.counter, d.lparent, d.ltwin, d.pairSegmName, d.pairDBDname, d.logSegmName, d.logDBDname, d.segmLabel, d.segmDescription FROM OUTER DAQhidamDBD d, (d.mappingStruct) ms WHERE (d.accessMethod = 'HIDAM') AND -- also change the DBD name in the previous WHERE clause d.dbdName LIKE '<>%' ORDER BY 1 ASC