kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12375 Topics: 75 Location: San Jose
|
Posted: Tue Jan 18, 2011 11:27 am Post subject: |
|
|
zefrim,
IIRC, DSNDRIB maps to release information block (RIB) which is used for DSNALI.
You can see if this layout matches
Code: |
DCL PTR_RIB POINTER; /* RELEASE INFORMATION BLOCK */
DCL 1 RIB BASED(PTR_RIB), /* V2R3: LENGTH 44 BYTES */
2 CODE BIN FIXED(15,0), /* BLOCK IDENTIFIER */
2 TLEN BIN FIXED(15,0), /* BLOCK LENGTH */
2 EYEC CHAR(04), /* EYECATCHER */
2 CID, /* COMPONENT IDENTIFIER */
3 ECODE CHAR(04), /* ENVIRONMENT CODE */
3 PCODE CHAR(03), /* PRODUCT CODE */
3 FCODE CHAR(02), /* FEATURE CODE */
2 REL CHAR(03), /* RELEASE IDENTIFIER */
2 CPTR POINTER, /* CHANGE INFORMATION -> CINFO */
2 CNUMB BIN FIXED(31), /* # ELEMENTS IN CINFO (8 BITS)*/
2 RSRV2 CHAR(16), /* RESERVED */
2 CINFO CHAR(00), /* CHANGE LEVEL ARRAY (EMPTY) */
2 END CHAR(00); /* RIB END */
|
Kolusu |
|