Siemens SINUMERIK 840D sl Programming Manual page 521

Example
Program code
EXAMPLE.MPF
N6000 M30
Program code
PROC END_CYC(...)
N17060 RETB
NC programming
Programming Manual, 12/2019, 6FC5398-2EP40-0BA0
...
N3000 START_CYC(parm1, param2, ...)
N3010 TECH_CYC1(param1, param2, ...)
N3020 TECH_CYC2(param1, param2, ...)
N3030 TECH_CYC3(param1, param2, ...)
N3040 END_CYC(param1, param2, ...)
N3040 END_CYC(param1, param2, ...)
N3050 ...
N4500 START_CYC(param11, param12, ...)
N4510 ...
N4590 END_CYC(param11, param12, ..)
N5000 ...
...
N10000 ...
N15000 if status == 1
N15010 RETB("START_CYC")
N15020 endif
N15030 if status == 0
N15040 RET
N15050 endif
N16000 RET("START_CYC")
Comment
Comment
; Call in the main program, line N3040
; Return jump to the calling program EXAMPLE.MPF
; Search for character string "START_CYC"
; Search direction: backward in the program start
direction
; Program processing is continued with line N3000
; Return jump to the calling program EXAMPLE.MPF
; Program processing is continued with line N3050
; Return jump to the calling program EXAMPLE.MPF
; Search for character string "START_CYC"
; Search direction: forward in the program end di-
rection
; Program processing is continued with line N4500
; Return jump to the calling program EXAMPLE.MPF
; Program processing is continued with line N3050
; RETB without parameter is identical to RET
Work preparation
3.2 Subprogram technique
521