The DBREP is used to replace the current LREC with a new LREC that is supplied , Similar to DBMOD the difference being that the size of the new LREC can be different from the old LREC , The Key fields used for organisation however should be the same
If the key fields are to be changed , One should DELETE the old LREC and ADD the new LREC , so that the new LREC finds its place according to the file organisation
Mandatory Parameters for DBREP
EXAMPLE:
DBRED REF=TRABSQ,UP,REG=R4,ERROR=READERROR,
KEY1=(PKY=#TRABK80),
KEY2=(R=TRABAWB,S=MI0AWB)
#IF (DBFOUND,YES) THEN
#IF TRABSTA,EQ,X'20' THEN
MVC EBW000(#TRABL80),TRABSIZ
MVC EBW000+#TRABL80(L'EXPLOSIVE),EXPLOSIVE
LH R6,EBW000
LA R6,L'EXPLOSIVE(,R6)
STH R6,EBW000
DBREP REF=TRABSQ
#ELSE
#GOTO ITEM_NOT_EXPLOSIVE
#EIF
#ELSE
#GOTO AWB_NOT_BOOKED
#EIF
EXPLOSIVE DC C'ITEM EXPLOSIVE'