Function SET184Y

LANSA

previous page next page
Function SET184Y

********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_184);
********** COMMENT(Function .......: SET184Y);
********** COMMENT(Created on .....: 27/07/00 at 09:48:48);
********** COMMENT(Description ....: Populate the FVC working list);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(populate list #S_WRKFVC);
********** COMMENT();
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as);
********** COMMENT(sample material only. No warranty concerning the);
********** COMMENT(material or its use in any way whatsoever is);
********** COMMENT(expressed or implied.);
********** COMMENT();
********** COMMENT(Minimum Release of LANSA: 8.0);
********** COMMENT();
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT) RCV_LIST(#S_WRKFVC );
********** COMMENT();
********** COMMENT(Group and field definitions);
********** COMMENT();
DEF_LIST NAME(#S_WRKFVC) FIELDS((#S_184CDE)(#S_184DES)(#S_184QTY)(#S_184UNIT)(#S_184UPRC)(#S_184TPRC)(#S_184IMG)) TYPE(*WORKING) ENTRYS(0000500);
********** COMMENT(Mainline);
********** COMMENT();
********** COMMENT();
CLR_LIST NAMED(#S_WRKFVC);
EXECUTE SUBROUTINE(LOADLIST);
RETURN;
********** COMMENT(=======================================================);
********** COMMENT(Subroutine ....: LOADLIST);
********** COMMENT(Description ...: Load data into list S_WRKFVC);
********** COMMENT(=======================================================);
SUBROUTINE NAME(LOADLIST);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(F01 'Bananas' 397 'Pounds' 1);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(F02 'Apples ' 123 'Pounds' 2.5);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(F03 'Oranges' 403 'Pounds' 1.5);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(F04 'Pineapples' 302 'Number' .99);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(F05 'Pears ' 354 'Pounds' 1.4);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(F06 'Grapes ' 308 'Pounds' 2);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(F07 'Kiwi Fruit' 220 'Pounds' 3);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(F08 'Mangoes' 014 'Pounds' 2.5);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(V01 'Potatoes' 397 'Pounds' 1);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(V02 'Carrots' 088 'Pounds' 1);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(V03 'Beans ' 256 'Pounds' 2.4);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(V04 'Broccoli' 397 'Pounds' 3.0);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(C01 'Rice ' 003 'Tons ' 2000);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(C02 'Wheat ' 002 'Tons ' 3000);
EXECUTE SUBROUTINE(ADDENTRY) WITH_PARMS(C03 'Barley ' 010 'Tons ' 2500);
ENDROUTINE;
********** COMMENT(=======================================================);
********** COMMENT(Subroutine ....: ADDENTRY);
********** COMMENT(Description ...: Add one entry to list S_WRKFVC);
********** COMMENT(=======================================================);
SUBROUTINE NAME(ADDENTRY) PARMS((#S_184CDE) (#S_184DES) (#S_184QTY) (#S_184UNIT) (#S_184UPRC));
CHANGE FIELD(#S_184TPRC) TO('#S_184UPRC * #S_184QTY');
USE BUILTIN(TCONCAT) WITH_ARGS('S_184' #S_184DES '.GIF') TO_GET(#S_184IMG);
ADD_ENTRY TO_LIST(#S_WRKFVC);
ENDROUTINE;
previous page start next page