I am New to this group recently joined. I am also new for IMS Administration. I have good knowledge on DB2/ZOS. I know there are control jobs like MSTR, IRLM, DBM1, DIST and SPAS For DB2 sub system on z/OS. Like that i would like to know for IMS. I understood that only two jobs will be running on z/OS if IMS sub system is active on Mainframe box. The jobs are, one is IMS Control region job and another one is IRLM.
Can anyone please explain me if anything i missed out for IMS Control jobs?
Please explain, how to create the objects(DBD, DD, Segments) on IMS Subsystem?
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
This is a sample of a DBD; definition of a database and the segments in it.
Code:
DBD NAME=DBZABNL,ACCESS=(HIDAM,VSAM)
DATASET DD1=TNLDBZAB,DEVICE=3350,SIZE=18432,SCAN=3
SPACE
** NAMENSSCHLUESSEL (SEGMENT 02)
SEGM NAME=QSNAMSCH,PARENT=0,BYTES=14,POINTER=TB, X
FREQ=560000
LCHILD NAME=(IXNAME,IXNLZAB),PTR=INDX
FIELD NAME=(Q02SCHL,SEQ),BYTES=14,START=1,TYPE=X
SPACE
** NAMENS- UND ADRESS-SEGMENT (SEGMENT 03)
SEGM NAME=QSADRESS,PARENT=QSNAMSCH,BYTES=74,FREQ=1 X
FIELD NAME=(Q03SCHL,SEQ,M),BYTES=69,START=1,TYPE=X
FIELD NAME=Q03DATA,BYTES=74,START=1,TYPE=X
SPACE
** ADRESSZUSATZ (SEGMENT 04)
SEGM NAME=QSADRZUS,PARENT=QSADRESS,BYTES=136,FREQ=0
FIELD NAME=Q04DATA,BYTES=136,START=1,TYPE=X
SPACE
** NAMENSKUERZUNG (SEGMENT 48)
SEGM NAME=QSNAMKRZ,PARENT=QSADRESS,BYTES=32,FREQ=0
FIELD NAME=Q48DATA,BYTES=32,START=1,TYPE=X
SPACE
** PERSONENDATEN
SEGM NAME=QSZABPER,PARENT=QSADRESS,BYTES=374
SPACE
** NAMENSKUERZUNG (SEGMENT 48)
SEGM NAME=QSNAMKRZ,PARENT=QSADRESS,BYTES=32,FREQ=0
FIELD NAME=Q48DATA,BYTES=32,START=1,TYPE=X
SPACE
** PERSONENDATEN
SEGM NAME=QSZABPER,PARENT=QSADRESS,BYTES=374
FIELD NAME=(QZABKEY,SEQ,M),BYTES=3,START=1,TYPE=X
SPACE
** LC-SEGMENT (SEGMENTART,POLIZZENNUMMER=ID)
SEGM NAME=QSADRPOL,PARENT=QSADRESS,BYTES=7
FIELD NAME=(QIDSAPOL,SEQ),BYTES=6,START=1,TYPE=X
FIELD NAME=QIDSEGMA,BYTES=1,START=1,TYPE=X
FIELD NAME=QIDPOLNR,BYTES=5,START=2,TYPE=X
FIELD NAME=QIDFC,BYTES=1,START=7,TYPE=X
DBDGEN
FINISH
END