Siemens SINUMERIK 840D sl Programming Manual page 401

Program code
PROC SUB2
DEF INT VAR2
...
IF (VAR1==1)
VAR1=VAR1+1
VAR2=1
ENDIF
SUB3
...
M17
Program code
PROC SUB3
...
IF (VAR1==1)
VAR1=VAR1+1
VAR2=1
ENDIF
...
M17
Example 3: Definition and use of user variables of data type AXIS
Program code
DEF AXIS ABSCISSA
DEF AXIS SPINDLE
...
IF ISAXIS(1) == FALSE GOTOF CONTINUE
ABSCISSA = $P_AXN1
CONTINUE:
...
SPINDLE=(S1)
OVRA[SPINDLE]=80
SPINDLE=(S3)
NC programming
Programming Manual, 12/2019, 6FC5398-2EP40-0BA0
Comment
;Subprogram SUB2
;LUD DEFINITION
;Read PUD
;Read & write PUD
;Write LUD
;Subprogram call
Comment
;Subprogram SUB3
;Read PUD
;Read & write PUD
;Error: LUD from SUB2 not known
Comment
; 1st Geometry axis
;Spindle
; 1st spindle
;Spindle override = 80%
; 3rd spindle
Work preparation
3.1 Flexible NC programming
401