+2 votes
in Machine Learning by
synatx and usage of DBREP?

1 Answer

0 votes
by

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'

 

 

 

 

Related questions

+2 votes
asked May 29, 2019 in Machine Learning by param1987
+2 votes
asked May 29, 2019 in Machine Learning by param1987
...