IMS system definition - Documentation for BMC Compuware File-AID common files
Andrew Patterson File-AID for IMS/DC runs like any other IMS application and, therefore, must be initially defined to the IMS system. Because system definition can be performed only at specific times at your installation, it will speed the installation process if you do the following before starting the detailed installation steps:
The PSB= operand must be the same as the main program name or an alias’ program name and correspond to the PSBNAME= operand of the PSB used as the transaction.
APPLCTN PSB=IXDMAIN,PGMTYPE=(TP,,,)TRANSACT CODE=FILEAID,MSGTYPE=(SNGLSEG,RESPONSE),MODE=SNGL,
PROCLIM=(10,2),EDIT=ULC,SCHD=1TRANSACT CODE=FILEAID,MSGTYPE=(SNGLSEG,RESPONSE),MODE=SNGL,
PROCLIM=(10,2),EDIT=ULC,SCHD=1,FPATH=YESWarning
The TRANSACT macro must be coded with the RESPONSE keyword, and the TERMINAL macro CANNOT be coded with NORESP. Failure to do this will yield unpredictable results.
To browse/edit Fast Path databases with File-AID for IMS/DC you need to define the transaction as an IMS Fast Path potential transaction. File-AID for IMS/DC does not run as a Fast Path exclusive transaction. An IMS Fast Path potential transaction is identified by a TRANSACT macro statement that specifies FPATH=YES following an APPLCTN statement that does not specify FPATH=YES.
Code a DATABASE macro to define the required CLT and LTM control database DBDs, the three sample database DBDs, and, optionally, the AUD DBD. These macros are input to the IMS Stage 1 system definition job.
DATABASE DBD=IXDCLT,ACCESS=EX
DATABASE DBD=IXDLTM,ACCESS=EX
DATABASE DBD=IXDAUD,ACCESS=EX
DATABASE DBD=PCUST,ACCESS=EX
DATABASE DBD=PORDR,ACCESS=EX
DATABASE DBD=PPART,ACCESS=EXCode a DFSMDA macro for each of the control databases and the sample databases, if desired. Use the procedures in place at your installation to make them available to IMS.
DFSMDA TYPE=DATABASE,DBDNAME=IXDCLT
DFSMDA TYPE=DATASET,DSNAME=XXXXXXX.IXDCLT, DDNAME=IXDCLTDD
DFSMDA TYPE=DATABASE,DBDNAME=IXDLTM
DFSMDA TYPE=DATASET,DSNAME=XXXXXXX.IXDLTM, DDNAME=IXDLTMDD
DFSMDA TYPE=DATABASE,DBDNAME=IXDAUD
DFSMDA TYPE=DATASET,DSNAME=XXXXXXX.IXDAUD, DDNAME=IXDAUDDD
DFSMDA TYPE=DATABASE,DBDNAME=PCUST
DFSMDA TYPE=DATASET,DSNAME=XXXXXXX.FIDSAMP.CUSTOMER, DDNAME=PCUSTDD
DFSMDA TYPE=DATABASE,DBDNAME=PORDR
DFSMDA TYPE=DATASET,DSNAME=XXXXXXX.FIDSAMP.ORDER, DDNAME=PORDRDD
DFSMDA TYPE=DATABASE,DBDNAME=PPART
DFSMDA TYPE=DATASET,DSNAME=XXXXXXX.FIDSAMP.PART, DDNAME=PPARTDDIf you want the control databases and sample databases to be under the control of DBRC, code an INIT.DB and INIT.DBDS command for each. These commands are input to the Recovery Control Utility of DBRC.
INIT.DB DBD(IXDCLT) SHARELVL(0) TYPEIMS
INIT.DBDS DBD(IXDCLT) DDN(IXDCLTDD) DSN(XXXXXXX.IXDCLT) GENMAX(2)
INIT.DB DBD(IXDLTM) SHARELVL(0) TYPEIMS
INIT.DBDS DBD(IXDLTM) DDN(IXDLTMDD) DSN(XXXXXXX.IXDLTM) GENMAX(2)
INIT.DB DBD(IXDAUD) SHARELVL(0) TYPEIMS
INIT.DBDS DBD(IXDAUD) DDN(IXDAUDDD) DSN(XXXXXXX.IXDAUD) GENMAX(2)
INIT.DB DBD(PCUST) SHARELVL(0) TYPEIMS
INIT.DBDS DBD(PCUST) DDN(PCUSTDD) DSN(XXXXXXX.FIDSAMP.CUSTOMER) GENMAX(2)
INIT.DB DBD(PORDR) SHARELVL(0) TYPEIMS
INIT.DBDS DBD(PORDR) DDN(PORDRDD) DSN(XXXXXXX.FIDSAMP.ORDER) GENMAX(2)
INIT.DB DBD(PPART) SHARELVL(0) TYPEIMS
INIT.DBDS DBD(PPART) DDN(PPARTDD) DSN(XXXXXXX.FIDSAMP.PART) GENMAX(2)