Function SET178Y Add Sub-types for a device type

LANSA

Function SET178Y Add Sub-types for a device type

********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_178);
********** COMMENT(Function .......: SET178Y);
********** COMMENT(Created on .....: 18/05/00 at 14:43:32);
********** COMMENT(Description ....: Add sub-types for a device type);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(add subtypes for a device type.);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as an);
********** COMMENT(example only. No warranty is expressed or implied.);
********** COMMENT();
********** COMMENT(=======================================================);
DEF_LIST NAME(#S_LSTSUB) FIELDS(#S_178SBTP);
GROUP_BY NAME(#S_GRPDEV) FIELDS(#S_178DVTP);
INZ_LIST NAMED(#S_LSTSUB) NUM_ENTRYS(0000008) WITH_MODE(*CHANGE);
BEGIN_LOOP;
REQUEST FIELDS(#S_GRPDEV) BROWSELIST(#S_LSTSUB);
BEGINCHECK;
FILECHECK FIELD(#S_178DVTP) USING_FILE(SETDEV) MSGTXT('invalid device');
ENDCHECK;
SELECTLIST NAMED(#S_LSTSUB);
IF COND('#S_178SBTP *NE *BLANKS');
CHECK_FOR IN_FILE(SETSUB) WITH_KEY(#S_178DVTP #S_178SBTP);
IF_STATUS IS(*EQUALKEY);
ELSE;
INSERT FIELDS((#S_178DVTP)(#S_178SBTP)) TO_FILE(SETSUB);
ENDIF;
ENDIF;
ENDSELECT;
********** COMMENT(Clear the list for the next device type);
CLR_LIST NAMED(#S_LSTSUB);
INZ_LIST NAMED(#S_LSTSUB) NUM_ENTRYS(0000008) WITH_MODE(*CHANGE);
CHANGE FIELD(#S_178DVTP) TO(*NULL);
END_LOOP;

previous page start next page