H2: Auxiliary function outputs to PLC
8.13 Block-search response
Basic Functions
456
Function Manual, 09/2011, 6FC5397-0BP40-2BA0
N0790 AUXFUDELG(6)
;
;
Delete the collected auxiliary function of the
6. group.
N0800
N0810 IF ISFILE(FILENAME)
N0830 DELETE(ERROR,FILENAME)
;
;
File already exists and must be
deleted.
N0840 IF (ERROR<>0)
N0850 SETAL(61000+ERROR)
N0860 ENDIF
N0870 ENDIF
N0880
; CAUTION!
; If, for a multi-channel block search, auxiliary functions with AUXFUDEL/AUXFUDELG
; are deleted from the global list of auxiliary functions, before the loop to
; generate the subprogram FILENAME with AUXFUSYNC, the channels must be synchronized.
The synchronization ensures that all delete requests were processed
; in all channels and a consistent list is available.
; Example: WAITM(99,1,2,3)
N0890 LOOP
N0920 AUXFUSYNC(NUM,GROUPINDEX,ASSEMBLED)
;
;
;
Procedure to generate
auxiliary function blocks from the global
auxiliary function list.
N0930
N0940 IF (NUM==-1)
;
;
All auxiliary functions of the channel
are processed.
N0960 GOTOF LABEL1
N0970 ENDIF
N0980
N1000 IF (NUM>0)
;
;
If auxiliary functions are output,
the block is generated.
N1010
N1020 ASSEMBLED=""
N1030
N1050 FOR LAUF=0 TO NUM-1
;
;
Collected auxiliary functions for a
block.
N1060
N1080 IF GROUPINDEX[LAUF]<>0
;
;
Auxiliary functions deleted from the
global list have the group index 0.
N1090
N1100 ISQUICK=$AC_AUXFU_SPEC[GROUPINDEX[LAUF]] BAND'H2'
N1110
N1120 ISSYNACT=$AC_AUXFU_SPEC[GROUPINDEX[LAUF]] BAND'H1000'
Program code
Comment
