=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: SET_ATTRIBUTE attribute; {OF fileNum {fieldNum|(indexNum {segmentNum})} "TO" VARIABLE Description: Get a global, file, field, or index attribute. Parameters attribute Attribute id (as defined by API) to be set fileNum Optional handle for either a file or a structure fieldNum Optional field to be modified indexNum Optional index to be modified segmentNum Num of segment in index to be modified =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#IFSAME !2 TO
#CHECK !3 _RLGU#
#CHECK !4 .
SET_FILE_FIELD |CI0 |CI0
SET_SEGMENT_MISC |CI0 |CI0
!A [] $504 !1 !3
#ELSE
#IFSAME !2 OF
#ELSE
#ERROR DFERR_COMP_INVALID_MESSAGE_SYNTAX Missing keyword "OF"
#ENDIF
#IFSAME !4 TO
#CHECK !3 _RLGU#
#CHECK !5 _RLGU#
#CHECK !6 .
SET_FILE_FIELD !3 |CI0
SET_SEGMENT_MISC |CI0 |CI0
!A [] $504 !1 !5
#ELSE
#IFSAME !5 TO
#CHECK !3 _RLGU#
#CHECK !4 _RLGU#
#CHECK !6 _RLGU#
#CHECK !7 .
SET_FILE_FIELD !3 !4
SET_SEGMENT_MISC |CI0 |CI0
!A [] $504 !1 !6
#ELSE
#IFSAME !6 TO
#CHECK !3 _RLGU#
#CHECK !4 _RLGU#
#CHECK !5 _RLGU#
#CHECK !7 _RLGU#
#CHECK !8 .
SET_FILE_FIELD !3 !4
SET_SEGMENT_MISC !5 |CI0
!A [] $504 !1 !7
#ELSE
#ERROR DFERR_COMP_INVALID_MESSAGE_SYNTAX Missing keyword "TO"
#ENDIF
#ENDIF
#ENDIF
#ENDIF