DEFINED Example


Example:

 

  

%IF

DEFINED(DATA_LABEL)

  

DISPLAY

"Currently defined as a ":

  

  

"DATA or EXECUTABLE!"

  

%ENDIF

 

.

 

 

  

CIF

DEFINED(NO_LABEL) = 0

  

DISPLAY

"NO_LABEL is neither MACRO ":

  

  

" nor DEFINE!"

  

CENDIF

 

.

 

 

  

%IF

DEFINED(X_LABEL) = 1

  

DISPLAY

"X_LABEL is a DATA variable!"

  

%ELSEIF

DEFINED(A_LABEL) = 2

  

DISPLAY

"X_LABEL is an EXECUTION label!"

  

%ELSEIF

DEFINED(A_LABEL) = 3

  

DISPLAY

"X_LABEL is both a DATA and ":

  

  

"EXECUTION type!"

  

%ELSE

 

  

DISPLAY

"X_LABEL is undefined!"

  

%ENDIF

 

 

This example illustrates the uses of the DEFINED directive.

 



PL/B Language Reference DEFINE Examples DELETE (AFILE) Example