MDEFINED Example


Example:

 

  

%IF

MDEFINED(SOMELABEL)

  

DISPLAY

"Currently defined as a MACRO or DEFINE!"

  

%ENDIF

 

.

 

 

  

CIF

MDEFINED(A_LABEL) = 0

  

DISPLAY

"A_LABEL is neither MACRO nor DEFINE!"

  

CENDIF

 

.

 

 

  

%IF

MDEFINED(A_LABEL) = 1

  

DISPLAY

"A_LABEL is a MACRO!"

  

%ELSEIF

MDEFINED(A_LABEL) = 2

  

DISPLAY

"A_LABEL is a DEFINE!"

  

%ELSEIF

MDEFINED(A_LABEL) = 3

  

DISPLAY

"A_LABEL is both a MACRO and DEFINE!"

  

%ELSE

 

  

DISPLAY

"A_LABEL is unknown!"

  

%ENDIF

 

 

 



PL/B Language Reference MDEFAULT Example MDELM Examples