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=1

TRANSACT CODE=FILEAID,MSGTYPE=(SNGLSEG,RESPONSE),MODE=SNGL,
PROCLIM=(10,2),EDIT=ULC,SCHD=1,FPATH=YES

Warning

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=EX

Code 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=PPARTDD

If 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)