May 29, 2019 in Machine Learning
Q: Syntax of DBMOD command?

1 Answer

0 votes
Jun 25, 2019

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

+1 vote
May 29, 2019 in Machine Learning
+1 vote
May 29, 2019 in Machine Learning
...