React.js
Angular
Ethical Hacking
Agile
AWS
BlockChain
Cassandra
Cloud
Salesforce
Scaled Agile
TOGAF
DevOps
GIT
Jenkins
Jira
Kibana
Linux
NGINX
Ansible
Artificial Intelligence
in Machine Learning by
Syntax of DBMOD command?
Click here to read more about DevOps

1 Answer

0 votes
by

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'

 

 

 

 

...