Function SET178S Refresh example application data
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_178);
********** COMMENT(Function .......: SET178S);
********** COMMENT(Created on .....: 03/03/00 at 13:00:02);
********** COMMENT(Description ....: Refresh application data);
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(add or refresh all necessary records in files);
********** COMMENT(used in the static page computer products example);
********** 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 LANSA release: 8.0);
********** COMMENT();
********** COMMENT(=======================================================);
FUNCTION OPTIONS(*DEFERWRITE *DIRECT *CLOSE_DISPLAY);
********** COMMENT(Options, work variables, conditions and working lists);
********** COMMENT(=======================================================);
********** COMMENT(PROGRAM MAINLINE);
********** COMMENT(=======================================================);
DEF_COND NAME(*AS400) COND('*CPUTYPE = AS400');
IF COND(*AS400);
ELSE;
ENDIF;
BEGIN_LOOP;
MESSAGE MSGTXT('Press enter to refresh the data for the Computer Products static page example');
REQUEST FIELDS((#STD_FLAG *HIDDEN));
EXECUTE SUBROUTINE(LOADDATA);
MESSAGE MSGTXT('Data refreshed successfully');
END_LOOP;
********** COMMENT();
********** COMMENT(Write SETDEV to Database);
********** COMMENT();
SUBROUTINE NAME(I_SETDEV) PARMS((#S_178DVTP) (#S_178DVPG) (#S_178DIMG));
********** COMMENT();
GROUP_BY NAME(#S_GRPDEV) FIELDS((#S_178DVTP)(#S_178DVPG)(#S_178DIMG));
CHECK_FOR IN_FILE(SETDEV) WITH_KEY(#S_178DVTP);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPDEV) IN_FILE(SETDEV) WITH_KEY(#S_178DVTP);
ELSE;
INSERT FIELDS(#S_GRPDEV) TO_FILE(SETDEV) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;
********** COMMENT();
********** COMMENT(Write SETSUB to Database);
********** COMMENT();
SUBROUTINE NAME(I_SETSUB) PARMS((#S_178DVTP) (#S_178SBTP) (#S_178SBPG));
********** COMMENT();
GROUP_BY NAME(#S_GRPSUB) FIELDS((#S_178DVTP)(#S_178SBTP)(#S_178SBPG));
CHECK_FOR IN_FILE(SETSUB) WITH_KEY(#S_178DVTP #S_178SBTP);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPSUB) IN_FILE(SETSUB) WITH_KEY(#S_178DVTP #S_178SBTP);
ELSE;
INSERT FIELDS(#S_GRPSUB) TO_FILE(SETSUB) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;
********** COMMENT();
********** COMMENT(Write SETBRD to Database);
********** COMMENT();
SUBROUTINE NAME(I_SETBRD) PARMS((#S_178BRND) (#S_178BSLG) (#S_178BIMG) (#S_178BMAJ) (#S_178BPG));
********** COMMENT();
GROUP_BY NAME(#S_GRPBRD) FIELDS((#S_178BRND)(#S_178BSLG)(#S_178BIMG)(#S_178BMAJ)(#S_178BPG));
CHECK_FOR IN_FILE(SETBRD) WITH_KEY(#S_178BRND);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPBRD) IN_FILE(SETBRD) WITH_KEY(#S_178BRND);
ELSE;
INSERT FIELDS(#S_GRPBRD) TO_FILE(SETBRD) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;
********** COMMENT();
********** COMMENT(Write SETPRD to Database);
********** COMMENT();
SUBROUTINE NAME(I_SETPRD) PARMS((#S_178PRD) (#S_178DVTP) (#S_178SBTP) (#S_178PDES) (#S_178BRND) (#S_178PRCE) (#S_178PIMG) (#S_178PTE1) (#S_178PTE2) (#S_178PPG));
********** COMMENT();
********** COMMENT(field #S_178PTEC is too long to be received as a single);
********** COMMENT( parameter);
DEFINE FIELD(#S_178PTE1) REFFLD(#S_178PTEC);
DEFINE FIELD(#S_178PTE2) REFFLD(#S_178PTEC);
USE BUILTIN(BCONCAT) WITH_ARGS(#S_178PTE1 #S_178PTE2) TO_GET(#S_178PTEC);
********** COMMENT();
GROUP_BY NAME(#S_GRPPRD) FIELDS((#S_178PRD)(#S_178DVTP)(#S_178SBTP)(#S_178PDES)(#S_178BRND)(#S_178PRCE)(#S_178PIMG)(#S_178PTEC)(#S_178PPG));
CHECK_FOR IN_FILE(SETPRD) WITH_KEY(#S_178PRD #S_178DVTP #S_178SBTP);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPPRD) IN_FILE(SETPRD) WITH_KEY(#S_178PRD #S_178DVTP #S_178SBTP);
ELSE;
INSERT FIELDS(#S_GRPPRD) TO_FILE(SETPRD) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;
********** COMMENT();
********** COMMENT(Write SETLNK to Database);
********** COMMENT();
SUBROUTINE NAME(I_SETLNK) PARMS((#S_178LNKT) (#S_178DVTP) (#S_178SBTP) (#S_178BRND) (#S_178LNPG) (#S_178LIMG));
********** COMMENT();
GROUP_BY NAME(#S_GRPLNK) FIELDS((#S_178LNKT)(#S_178DVTP)(#S_178SBTP)(#S_178BRND)(#S_178LNPG)(#S_178LIMG));
CHECK_FOR IN_FILE(SETLNKL1) WITH_KEY(#S_178LNKT #S_178BRND #S_178DVTP #S_178SBTP);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPLNK) IN_FILE(SETLNKL1) WITH_KEY(#S_178LNKT #S_178BRND #S_178DVTP #S_178SBTP);
ELSE;
INSERT FIELDS(#S_GRPLNK) TO_FILE(SETLNK) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;
SUBROUTINE NAME(LOADDATA);
********** COMMENT(device types);
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('desktops' 'S_178DKTP' 'S_178desktopW.gif');
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('digital cameras' 'S_17800017' ' ');
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('hard disk drives' 'S_178HDSK' 'S_178harddriveW.gif');
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('modems' 'S_178MODM' 'S_178modemW.gif');
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('mouse' 'S_17800018' ' ');
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('notebooks' 'S_178NTBK' 'S_178notebookW.gif');
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('printers' 'S_178PRNT' 'S_178inkjetW.gif');
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('scanners' 'S_17800019' ' ');
********** COMMENT(sub-types);
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('desktops' '< 500 MHz' 'S_17800020');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('desktops' '> 600 MHz, 15in monitor' 'S_17800021');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('desktops' '> 600 MHz, 17in monitor' 'S_17800022');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('desktops' '> 750 MHz, 17in monitor' 'S_17800023');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('desktops' '500 - 600 MHz, 15in monitor' 'S_17800024');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('desktops' '500 - 600 MHz, 17in monitor' 'S_17800025');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('digital cameras' 'floppy disk storage' 'S_17800026');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('digital cameras' 'memory stick' 'S_17800027');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('digital cameras' 'other' 'S_17800028');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'EIDE/IDE < 5 GB' 'S_17800029');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'EIDE/IDE 10 - 20 GB' 'S_17800030');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'EIDE/IDE 5 - 10 GB' 'S_17800031');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'EIDE/IDE > 20GB' 'S_17800032');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'SCSI < 5 GB' 'S_17800033');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'SCSI > 20GB' 'S_17800034');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'SCSI 10 - 20 GB' 'S_17800035');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'SCSI 5 - 10 GB' 'S_17800036');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('modems' 'external' 'S_17800037');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('modems' 'internal' 'S_17800038');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('modems' 'PCMCIA' 'S_17800039');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('modems' 'USB' 'S_17800040');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('mouse' 'optical' 'S_17800041');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('mouse' 'wheel' 'S_17800042');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('notebooks' '< 400 MHz' 'S_17800043');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('notebooks' '> 500 MHz' 'S_17800044');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('notebooks' 'Active Matrix > 500 MHz' 'S_17800045');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('notebooks' 'Active Matrix 400 - 500 MHz' 'S_17800046');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('notebooks' '400 - 500 MHz' 'S_17800047');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('printers' 'ink jet / bubble jet' 'S_17800048');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('printers' 'laser jet' 'S_17800049');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('scanners' 'flat bed' 'S_17800050');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('scanners' 'hand held' 'S_17800051');
********** COMMENT(brands);
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Canon' ' ' ' ' 'Y' 'S_17800001');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Companion' ' ' ' ' ' ' 'S_17800002');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('D-Link' ' ' ' ' ' ' 'S_17800003');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Epson' ' ' ' ' 'Y' 'S_17800004');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Fujitsu' ' ' ' ' ' ' 'S_17800005');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Hewlett Packard' ' ' ' ' 'Y' 'S_17800006');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('IBM' ' ' ' ' 'Y' 'S_17800007');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Megamodem' ' ' ' ' ' ' 'S_17800008');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Netcomm' ' ' ' ' ' ' 'S_17800009');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Packard Bell' ' ' ' ' 'Y' 'S_17800010');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Realport' ' ' ' ' ' ' 'S_17800011');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Roadster' ' ' ' ' ' ' 'S_17800012');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Seagate' ' ' ' ' ' ' 'S_17800013');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Swannsmart' ' ' ' ' ' ' 'S_17800014');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Toshiba' ' ' ' ' 'Y' 'S_17800015');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Western Digital' ' ' ' ' ' ' 'S_17800016');
********** COMMENT(products);
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1 'desktops' '500 - 600 MHz, 15in monitor' 'Hp Pavilion 6611 Pc 15in Bonus 610c Printer' 'Hewlett Packard' 1799.00 'S_178desktop.gif' ' 533 MHz Celeron HDD 15.0GB Ram 64MB' ' CD-ROM 40x modem V.90 56Kbps Monitor 15 inc' 'S_17800106');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2 'desktops' '500 - 600 MHz, 15in monitor' 'Hp Pavilion 6616 Pc With 15in Monitor' 'Hewlett Packard' 1999.00 'S_178desktop.gif' ' 566 MHz Celeron HDD 15.0GB Ram 64MB' ' CD-ROM 40x modem V.90 56Kbps Monitor 15in' 'S_17800107');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3 'desktops' '> 600 MHz, 15in monitor' 'Hp Pavilion 8624 Pc With 15in Monitor' 'Hewlett Packard' 2699.00 'S_178desktop.gif' ' 667MHz Pentium III Ram 64Mb HDD 15.0GB' ' CD ReWriter Modem V.90 56Kbps Monitor 15' 'S_17800108');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4 'desktops' '500 - 600 MHz, 15in monitor' 'Ibm Aptiva 30p With 15in Monitor' 'IBM' 1999.00 'S_178desktop.gif' ' 533Mhz AMD-K6-2 Ram: 64Mb 10Gb CD' ' ReWriter 56k V.90 modem Monitor: 15in' 'S_17800109');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(5 'desktops' '500 - 600 MHz, 17in monitor' 'Ibm Aptiva 43a With 17in Monitor' 'IBM' 2499.00 'S_178desktop.gif' ' 600Mhz Intel Pentium III Ram: 64Mb 10Gb' ' CD ReWriter Modem: 56k V.90 Monitor 17in' 'S_17800110');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(6 'desktops' '500 - 600 MHz, 15in monitor' 'Ibm Aptiva 61a With 15in Monitor' 'IBM' 2999.00 'S_178desktop.gif' ' 500 MHz Pentium III Ram 64Mb' ' CD 40X Monitor 15 inch' 'S_17800111');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(7 'desktops' '500 - 600 MHz, 17in monitor' 'Ibm Aptiva 61a With 17in Monitor' 'IBM' 3299.00 'S_178desktop.gif' ' 500 MHz Pentium III Ram 64Mb' ' CD 40X Monitor 17 inch' 'S_17800112');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(8 'desktops' '> 600 MHz, 15in monitor' 'Ibm Aptiva 80a With 15in Monitor' 'IBM' 2999.00 'S_178desktop.gif' ' 667Mhz Pentium III 128Mb SDRAM' ' 15GB HDD, CD ReWriteable Drive Monitor 15in' 'S_17800113');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(9 'desktops' '> 600 MHz, 17in monitor' 'Ibm Aptiva 80a With 17in Monitor' 'IBM' 3199.00 'S_178desktop.gif' ' 667Mhz Pentium III 128Mb SDRAM' ' 15GB HDD, CD ReWriteable Drive Monitor 17in' 'S_17800114');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(10 'desktops' '> 600 MHz, 15in monitor' 'Ibm Aptiva 85a With 15 in Monitor' 'IBM' 4699.00 'S_178desktop.gif' ' 700MHz AMD Athlon Ram 128 15GB' ' HDD CD ReWriter Monitor 15 inch' 'S_17800115');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(11 'desktops' '> 600 MHz, 15in monitor' 'Ibm Aptiva 87a With 15in Monitor' 'IBM' 3999.00 'S_178desktop.gif' ' 733MHz Pentium III Ram 128 20GB HDD' ' CD ReWriter Monitor 15 inch' 'S_17800116');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(12 'desktops' '500 - 600 MHz, 15in monitor' 'Packard Bell Club 533- 533 Mhz15in Monitor' 'Packard Bell' 1999.00 'S_178desktop.gif' ' 533Mhz Celeron Ram 64 Meg HDD 10 GB' ' CD Rom Drive 40x Modem 56K V9.0 Monitor 15in' 'S_17800117');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(13 'desktops' '500 - 600 MHz, 17in monitor' 'Packard Bell Club 533- 533 Mhz17in Monitor' 'Packard Bell' 2199.00 'S_178desktop.gif' ' 533Mhz Celeron Ram 64 Meg HDD 10 GB' ' CD Rom Drive 40x Modem 56K V.90 Monitor 17in' 'S_17800118');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(14 'desktops' '500 - 600 MHz, 15in monitor' 'Packard Bell Club 600 Pc With 15in Monitor' 'Packard Bell' 2199.00 'S_178desktop.gif' ' 600Mhz Celeron Ram 64 Meg Hard Drive 10 GB' ' CD Rom Drive 40x Modem 56K Monitor15' 'S_17800119');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(15 'desktops' '500 - 600 MHz, 17in monitor' 'Packard Bell Office 550 With 17in Monitor' 'Packard Bell' 2999.00 'S_178desktop.gif' ' 550 Mhz Pentium III Ram 128 Meg HDD 10 GB' ' CD ReWriter Modem 56K Monitor 15in' 'S_17800120');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(16 'desktops' '> 600 MHz, 17in monitor' 'Packard Bell Platinum 800 - Pentium 800 Mhz 17in' 'Packard Bell' 4999.00 'S_178desktop.gif' ' 800 Mhz Pentium III Ram 128 HDD 20GB' ' CD-RW (4x4x32) & 8x DVD Modem 56K Monit 17' 'S_17800121');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(16 'desktops' '> 750 MHz, 17in monitor' 'Packard Bell Platinum 800 - Pentium 800 Mhz 17in' 'Packard Bell' 4999.00 'S_178desktop.gif' ' 800 Mhz Pentium III Ram 128 HDD 20GB' ' CD-RW (4x4x32) & 8x DVD Modem 56K Monit' 'S_17800122');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1001 'notebooks' 'Active Matrix 400 - 500 MHz' 'toshiba satellite 2710' 'Toshiba' 4999.00 'S_178notebook.gif' ' xdvd PIII500, 64MB, 6GB, DVD, ' '14.1in TFT, 56K Modem, 98' 'S_17800123');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1001 'notebooks' '400 - 500 MHz' 'toshiba satellite 2710' 'Toshiba' 4999.00 'S_178notebook.gif' ' xdvd PIII500, 64MB, 6GB, DVD, ' '14.1in TFT, 56K Modem, 98' 'S_17800124');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1002 'notebooks' '400 - 500 MHz' 'ibm thinkpad i series 42m' 'IBM' 2999.00 'S_178notebook.gif' ' CELERON 400/64MB/4.8GB' '/24XCD/13inHPA,56K,WIN98' 'S_17800125');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1003 'notebooks' 'Active Matrix 400 - 500 MHz' 'ibm thinkpad i series 46m' 'IBM' 4199.00 'S_178notebook.gif' ' CELERON433 64MB 4.8GB' ' 24XCD 14.1inTFT 56K WIN98' 'S_17800126');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1003 'notebooks' '400 - 500 MHz' 'ibm thinkpad i series 46m' 'IBM' 4199.00 'S_178notebook.gif' ' CELERON433 64MB 4.8GB 24XCD' ' 14.1inTFT 56K WIN98' 'S_17800127');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1004 'notebooks' 'Active Matrix 400 - 500 MHz' 'ibm thinkpad i series 48m' 'IBM' 4699.00 'S_178notebook.gif' ' CELERON 466/64MB/6.4GB/' 'DVD/14.1inTFT,56K,WIN98' 'S_17800128');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1004 'notebooks' '400 - 500 MHz' 'ibm thinkpad i series 48m' 'IBM' 4699.00 'S_178notebook.gif' ' CELERON 466/64MB/6.4GB/DVD' '/14.1inTFT,56K,WIN98' 'S_17800129');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1005 'notebooks' 'Active Matrix 400 - 500 MHz' 'Ibm Thinkpad I Series 49m' 'IBM' 5499.00 'S_178notebook.gif' ' 500 MHz PIII 15in ,TFT ' '1024 x 768, 64MB SDRAM, HDD 12.0GB, CD 24x, 98' 'S_17800130');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1005 'notebooks' '400 - 500 MHz' 'Ibm Thinkpad I Series 49m' 'IBM' 5499.00 'S_178notebook.gif' ' 500 MHz PIII 15in , TFT 1024 x 768, 64MB' ' SDRAM, HDD 12.0GB, CD 24x, 98' 'S_17800131');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1006 'notebooks' '400 - 500 MHz' 'Ibm Thinkpad I Series 4em' 'IBM' 2999.00 'S_178notebook.gif' ' 500 MHz Celeron, 13.0in HPA 800' ' x 600 SVGA, 64MB SDRAM, HDD 6.0GB 24xCD' 'S_17800132');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2001 'modems' 'external' 'Companion 56k Flex/v.90 Dual Mode External ' 'Companion' 169.00 'S_178modem.gif' ' ' ' ' 'S_17800133');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2002 'modems' 'external' 'D-link External 56k Svd Modem - Flex/v.90' 'D-Link' 149.00 'S_178modem.gif' ' ' ' ' 'S_17800134');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2003 'modems' 'external' 'Megamodem K56 2000 Speed Demon 56k External' 'Megamodem' 169.00 'S_178modem.gif' ' ' ' ' 'S_17800135');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2004 'modems' 'external' 'Swannsmart 56k External Modem' 'Swannsmart' 199.00 'S_178modem.gif' ' ' ' ' 'S_17800136');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2006 'modems' 'internal' 'd-link internal 56k svd modem -flex/v.90' 'D-Link' 99.95 'S_178modem.gif' ' ' ' ' 'S_17800137');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2007 'modems' 'PCMCIA' 'netcomm cardmodem 56k v.90' 'Netcomm' 279.00 'S_178PCMCIA.gif' ' ' ' ' 'S_17800138');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2008 'modems' 'PCMCIA' 'realport 56 global 56k PC Card Modem with GS' 'Realport' 379.00 'S_178PCMCIA.gif' ' ' ' ' 'S_17800139');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2009 'modems' 'USB' 'roadster ii 56k usb modem, Dual V.90/K56flex' 'Roadster' 249.00 'S_178modem.gif' ' ' ' ' 'S_17800140');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3001 'hard disk drives' 'SCSI > 20GB' 'Fujitsu 36.4GB SCSI 6ms 66MB/s' 'Fujitsu' 1802.00 'S_178harddrive.gif' ' 36.4GB SCSI 6ms ' '66MB/s' 'S_17800141');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3002 'hard disk drives' 'SCSI 10 - 20 GB' 'Fujitsu 18.2GB SCSI 6ms 66MB/s' 'Fujitsu' 750.00 'S_178harddrive.gif' ' 18.2GB SCSI 6ms ' '66MB/s' 'S_17800142');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3003 'hard disk drives' 'EIDE/IDE < 5 GB' 'Fujitsu 4.3GB IDE 10ms 14.5-26MB/s' 'Fujitsu' 360.00 'S_178harddrive.gif' ' 4.3GB IDE ' '10ms 14.5-26MB/s' 'S_17800144');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3004 'hard disk drives' 'SCSI < 5 GB' 'Seagate 4.5GB SCSI 9.5ms' 'Seagate' 426.00 'S_178harddrive.gif' ' 4.5GB SCSI ' '9.5ms' 'S_17800145');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3005 'hard disk drives' 'SCSI 5 - 10 GB' 'Seagate 9.1GB SCSI 5.2ms' 'Seagate' 750.00 'S_178harddrive.gif' ' 9.1GB SCSI ' '5.2ms' 'S_17800146');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3006 'hard disk drives' 'SCSI 10 - 20 GB' 'Seagate 18.2GB SCSI 5.2ms' 'Seagate' 800.00 'S_178harddrive.gif' ' 18.2GB SCSI' ' 5.2ms' 'S_17800147');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3007 'hard disk drives' 'EIDE/IDE > 20GB' 'Western Digital 30.6 EIDE' 'Western Digital' 645.00 'S_178harddrive.gif' ' 30.6 ' 'EIDE' 'S_17800148');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3008 'hard disk drives' 'EIDE/IDE 10 - 20 GB' 'Western Digital 10.2 EIDE' 'Western Digital' 304.00 'S_178harddrive.gif' ' 10.2 ' 'EIDE' 'S_17800149');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4001 'printers' 'ink jet / bubble jet' 'Canon Bjc-8200 Colour Printer' 'Canon' 749.00 'S_178inkjet.gif' ' 1200' 'x1200dpi' 'S_17800150');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4002 'printers' 'ink jet / bubble jet' 'Canon Bjc3000 Colour Inkjet Printer' 'Canon' 299.00 'S_178inkjet.gif' ' 9ppm mono, 4ppm' ' col, 1440x720 dpi' 'S_17800151');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4003 'printers' 'ink jet / bubble jet' 'Canon Bjc50 Inkjet Printer' 'Canon' 699.00 'S_178inkjet.gif' ' 5ppm, ' '720dpi' 'S_17800152');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4004 'printers' 'ink jet / bubble jet' 'Epson Stylus Color 1160' 'Epson' 999.00 'S_178inkjet.gif' ' 1440' 'x720' 'S_17800153');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4005 'printers' 'ink jet / bubble jet' 'Epson Stylus Color 670' 'Epson' 349.00 'S_178inkjet.gif' ' 1440' 'x720 dpi' 'S_17800154');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4006 'printers' 'ink jet / bubble jet' 'Epson Stylus Colour 460' 'Epson' 229.00 'S_178inkjet.gif' ' 720' 'x720 dpi' 'S_17800155');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4007 'printers' 'ink jet / bubble jet' 'Hp Deskjet 1120c' 'Hewlett Packard' 799.00 'S_178inkjet.gif' ' Black 7 ppm letter ' 'Colour 5.5 ppm letter 600dpi' 'S_17800156');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4008 'printers' 'ink jet / bubble jet' 'Hp Deskjet 830c' 'Hewlett Packard' 369.00 'S_178inkjet.gif' ' Black Econo/norm 8 ppm/4.6 ppm,' ' Color Econo/norm 5ppm/3.1 ppm 600dpi' 'S_17800157');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4009 'printers' 'laser jet' 'Epson laser epl-5800' 'Epson' 1099.00 'S_178laserjet.gif' ' 10ppm Laser Printer ' 'with True 1200 dpi' 'S_17800158');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4010 'printers' 'laser jet' 'Epson laser epl-5700l' 'Epson' 799.00 'S_178laserjet.gif' ' 8ppm Desktop ' 'Laser with Professional Quality' 'S_17800159');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4011 'printers' 'laser jet' 'Hp laserjet 2100 printer' 'Hewlett Packard' 1549.00 'S_178laserjet.gif' ' UP TO 10PPM BLACK ' '4MB MEMORY' 'S_17800160');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4012 'printers' 'laser jet' 'Hp laserjet 1100a 600dpi' 'Hewlett Packard' 1049.00 'S_178laserjet.gif' ' 8 pages' ' p/m' 'S_17800161');
********** COMMENT(links);
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'printers' ' ' 'Canon' 'S_17800052' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'modems' ' ' 'Companion' 'S_17800053' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'modems' ' ' 'D-Link' 'S_17800054' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'printers' ' ' 'Epson' 'S_17800055' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'hard disk drives' ' ' 'Fujitsu' 'S_17800056' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'desktops' ' ' 'Hewlett Packard' 'S_17800057' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'printers' ' ' 'Hewlett Packard' 'S_17800058' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'desktops' ' ' 'IBM' 'S_17800059' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'notebooks' ' ' 'IBM' 'S_17800060' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'modems' ' ' 'Megamodem' 'S_17800061' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'modems' ' ' 'Netcomm' 'S_17800062' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'desktops' ' ' 'Packard Bell' 'S_17800063' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'modems' ' ' 'Realport' 'S_17800064' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'modems' ' ' 'Roadster' 'S_17800065' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'hard disk drives' ' ' 'Seagate' 'S_17800066' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'modems' ' ' 'Swannsmart' 'S_17800067' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'notebooks' ' ' 'Toshiba' 'S_17800068' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'hard disk drives' ' ' 'Western Digital' 'S_17800069' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'printers' 'ink jet / bubble jet' 'Canon' 'S_17800070' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'external' 'Companion' 'S_17800071' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'external' 'D-Link' 'S_17800072' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'internal' 'D-Link' 'S_17800073' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'printers' 'ink jet / bubble jet' 'Epson' 'S_17800074' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'printers' 'laser jet' 'Epson' 'S_17800075' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'EIDE/IDE < 5 GB' 'Fujitsu' 'S_17800077' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'SCSI > 20GB' 'Fujitsu' 'S_17800078' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'SCSI 10 - 20 GB' 'Fujitsu' 'S_17800079' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '> 600 MHz, 15in monitor' 'Hewlett Packard' 'S_17800080' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '500 - 600 MHz, 15in monitor' 'Hewlett Packard' 'S_17800081' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'printers' 'ink jet / bubble jet' 'Hewlett Packard' 'S_17800082' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'printers' 'laser jet' 'Hewlett Packard' 'S_17800083' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '> 600 MHz, 15in monitor' 'IBM' 'S_17800084' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '> 600 MHz, 17in monitor' 'IBM' 'S_17800085' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '500 - 600 MHz, 15in monitor' 'IBM' 'S_17800086' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '500 - 600 MHz, 17in monitor' 'IBM' 'S_17800087' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'notebooks' 'Active Matrix 400 - 500 MHz' 'IBM' 'S_17800088' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'notebooks' '400 - 500 MHz' 'IBM' 'S_17800089' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'external' 'Megamodem' 'S_17800090' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'PCMCIA' 'Netcomm' 'S_17800091' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '> 600 MHz, 17in monitor' 'Packard Bell' 'S_17800092' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '> 750 MHz, 17in monitor' 'Packard Bell' 'S_17800093' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '500 - 600 MHz, 15in monitor' 'Packard Bell' 'S_17800094' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '500 - 600 MHz, 17in monitor' 'Packard Bell' 'S_17800095' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'PCMCIA' 'Realport' 'S_17800096' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'USB' 'Roadster' 'S_17800097' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'SCSI < 5 GB' 'Seagate' 'S_17800098' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'SCSI 10 - 20 GB' 'Seagate' 'S_17800099' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'SCSI 5 - 10 GB' 'Seagate' 'S_17800100' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'external' 'Swannsmart' 'S_17800101' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'notebooks' 'Active Matrix 400 - 500 MHz' 'Toshiba' 'S_17800102' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'notebooks' '400 - 500 MHz' 'Toshiba' 'S_17800103' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'EIDE/IDE 10 - 20 GB' 'Western Digital' 'S_17800104' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'EIDE/IDE > 20GB' 'Western Digital' 'S_17800105' ' ');
ENDROUTINE;
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_178);
********** COMMENT(Function .......: SET178S);
********** COMMENT(Created on .....: 03/03/00 at 13:00:02);
********** COMMENT(Description ....: Refresh application data);
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(add or refresh all necessary records in files);
********** COMMENT(used in the static page computer products example);
********** 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 LANSA release: 8.0);
********** COMMENT();
********** COMMENT(=======================================================);
FUNCTION OPTIONS(*DEFERWRITE *DIRECT *CLOSE_DISPLAY);
********** COMMENT(Options, work variables, conditions and working lists);
********** COMMENT(=======================================================);
********** COMMENT(PROGRAM MAINLINE);
********** COMMENT(=======================================================);
DEF_COND NAME(*AS400) COND('*CPUTYPE = AS400');
IF COND(*AS400);
ELSE;
ENDIF;
BEGIN_LOOP;
MESSAGE MSGTXT('Press enter to refresh the data for the Computer Products static page example');
REQUEST FIELDS((#STD_FLAG *HIDDEN));
EXECUTE SUBROUTINE(LOADDATA);
MESSAGE MSGTXT('Data refreshed successfully');
END_LOOP;
********** COMMENT();
********** COMMENT(Write SETDEV to Database);
********** COMMENT();
SUBROUTINE NAME(I_SETDEV) PARMS((#S_178DVTP) (#S_178DVPG) (#S_178DIMG));
********** COMMENT();
GROUP_BY NAME(#S_GRPDEV) FIELDS((#S_178DVTP)(#S_178DVPG)(#S_178DIMG));
CHECK_FOR IN_FILE(SETDEV) WITH_KEY(#S_178DVTP);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPDEV) IN_FILE(SETDEV) WITH_KEY(#S_178DVTP);
ELSE;
INSERT FIELDS(#S_GRPDEV) TO_FILE(SETDEV) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;
********** COMMENT();
********** COMMENT(Write SETSUB to Database);
********** COMMENT();
SUBROUTINE NAME(I_SETSUB) PARMS((#S_178DVTP) (#S_178SBTP) (#S_178SBPG));
********** COMMENT();
GROUP_BY NAME(#S_GRPSUB) FIELDS((#S_178DVTP)(#S_178SBTP)(#S_178SBPG));
CHECK_FOR IN_FILE(SETSUB) WITH_KEY(#S_178DVTP #S_178SBTP);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPSUB) IN_FILE(SETSUB) WITH_KEY(#S_178DVTP #S_178SBTP);
ELSE;
INSERT FIELDS(#S_GRPSUB) TO_FILE(SETSUB) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;
********** COMMENT();
********** COMMENT(Write SETBRD to Database);
********** COMMENT();
SUBROUTINE NAME(I_SETBRD) PARMS((#S_178BRND) (#S_178BSLG) (#S_178BIMG) (#S_178BMAJ) (#S_178BPG));
********** COMMENT();
GROUP_BY NAME(#S_GRPBRD) FIELDS((#S_178BRND)(#S_178BSLG)(#S_178BIMG)(#S_178BMAJ)(#S_178BPG));
CHECK_FOR IN_FILE(SETBRD) WITH_KEY(#S_178BRND);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPBRD) IN_FILE(SETBRD) WITH_KEY(#S_178BRND);
ELSE;
INSERT FIELDS(#S_GRPBRD) TO_FILE(SETBRD) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;
********** COMMENT();
********** COMMENT(Write SETPRD to Database);
********** COMMENT();
SUBROUTINE NAME(I_SETPRD) PARMS((#S_178PRD) (#S_178DVTP) (#S_178SBTP) (#S_178PDES) (#S_178BRND) (#S_178PRCE) (#S_178PIMG) (#S_178PTE1) (#S_178PTE2) (#S_178PPG));
********** COMMENT();
********** COMMENT(field #S_178PTEC is too long to be received as a single);
********** COMMENT( parameter);
DEFINE FIELD(#S_178PTE1) REFFLD(#S_178PTEC);
DEFINE FIELD(#S_178PTE2) REFFLD(#S_178PTEC);
USE BUILTIN(BCONCAT) WITH_ARGS(#S_178PTE1 #S_178PTE2) TO_GET(#S_178PTEC);
********** COMMENT();
GROUP_BY NAME(#S_GRPPRD) FIELDS((#S_178PRD)(#S_178DVTP)(#S_178SBTP)(#S_178PDES)(#S_178BRND)(#S_178PRCE)(#S_178PIMG)(#S_178PTEC)(#S_178PPG));
CHECK_FOR IN_FILE(SETPRD) WITH_KEY(#S_178PRD #S_178DVTP #S_178SBTP);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPPRD) IN_FILE(SETPRD) WITH_KEY(#S_178PRD #S_178DVTP #S_178SBTP);
ELSE;
INSERT FIELDS(#S_GRPPRD) TO_FILE(SETPRD) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;
********** COMMENT();
********** COMMENT(Write SETLNK to Database);
********** COMMENT();
SUBROUTINE NAME(I_SETLNK) PARMS((#S_178LNKT) (#S_178DVTP) (#S_178SBTP) (#S_178BRND) (#S_178LNPG) (#S_178LIMG));
********** COMMENT();
GROUP_BY NAME(#S_GRPLNK) FIELDS((#S_178LNKT)(#S_178DVTP)(#S_178SBTP)(#S_178BRND)(#S_178LNPG)(#S_178LIMG));
CHECK_FOR IN_FILE(SETLNKL1) WITH_KEY(#S_178LNKT #S_178BRND #S_178DVTP #S_178SBTP);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPLNK) IN_FILE(SETLNKL1) WITH_KEY(#S_178LNKT #S_178BRND #S_178DVTP #S_178SBTP);
ELSE;
INSERT FIELDS(#S_GRPLNK) TO_FILE(SETLNK) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;
SUBROUTINE NAME(LOADDATA);
********** COMMENT(device types);
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('desktops' 'S_178DKTP' 'S_178desktopW.gif');
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('digital cameras' 'S_17800017' ' ');
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('hard disk drives' 'S_178HDSK' 'S_178harddriveW.gif');
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('modems' 'S_178MODM' 'S_178modemW.gif');
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('mouse' 'S_17800018' ' ');
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('notebooks' 'S_178NTBK' 'S_178notebookW.gif');
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('printers' 'S_178PRNT' 'S_178inkjetW.gif');
EXECUTE SUBROUTINE(I_SETDEV) WITH_PARMS('scanners' 'S_17800019' ' ');
********** COMMENT(sub-types);
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('desktops' '< 500 MHz' 'S_17800020');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('desktops' '> 600 MHz, 15in monitor' 'S_17800021');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('desktops' '> 600 MHz, 17in monitor' 'S_17800022');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('desktops' '> 750 MHz, 17in monitor' 'S_17800023');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('desktops' '500 - 600 MHz, 15in monitor' 'S_17800024');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('desktops' '500 - 600 MHz, 17in monitor' 'S_17800025');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('digital cameras' 'floppy disk storage' 'S_17800026');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('digital cameras' 'memory stick' 'S_17800027');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('digital cameras' 'other' 'S_17800028');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'EIDE/IDE < 5 GB' 'S_17800029');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'EIDE/IDE 10 - 20 GB' 'S_17800030');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'EIDE/IDE 5 - 10 GB' 'S_17800031');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'EIDE/IDE > 20GB' 'S_17800032');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'SCSI < 5 GB' 'S_17800033');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'SCSI > 20GB' 'S_17800034');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'SCSI 10 - 20 GB' 'S_17800035');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('hard disk drives' 'SCSI 5 - 10 GB' 'S_17800036');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('modems' 'external' 'S_17800037');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('modems' 'internal' 'S_17800038');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('modems' 'PCMCIA' 'S_17800039');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('modems' 'USB' 'S_17800040');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('mouse' 'optical' 'S_17800041');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('mouse' 'wheel' 'S_17800042');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('notebooks' '< 400 MHz' 'S_17800043');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('notebooks' '> 500 MHz' 'S_17800044');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('notebooks' 'Active Matrix > 500 MHz' 'S_17800045');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('notebooks' 'Active Matrix 400 - 500 MHz' 'S_17800046');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('notebooks' '400 - 500 MHz' 'S_17800047');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('printers' 'ink jet / bubble jet' 'S_17800048');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('printers' 'laser jet' 'S_17800049');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('scanners' 'flat bed' 'S_17800050');
EXECUTE SUBROUTINE(I_SETSUB) WITH_PARMS('scanners' 'hand held' 'S_17800051');
********** COMMENT(brands);
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Canon' ' ' ' ' 'Y' 'S_17800001');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Companion' ' ' ' ' ' ' 'S_17800002');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('D-Link' ' ' ' ' ' ' 'S_17800003');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Epson' ' ' ' ' 'Y' 'S_17800004');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Fujitsu' ' ' ' ' ' ' 'S_17800005');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Hewlett Packard' ' ' ' ' 'Y' 'S_17800006');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('IBM' ' ' ' ' 'Y' 'S_17800007');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Megamodem' ' ' ' ' ' ' 'S_17800008');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Netcomm' ' ' ' ' ' ' 'S_17800009');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Packard Bell' ' ' ' ' 'Y' 'S_17800010');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Realport' ' ' ' ' ' ' 'S_17800011');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Roadster' ' ' ' ' ' ' 'S_17800012');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Seagate' ' ' ' ' ' ' 'S_17800013');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Swannsmart' ' ' ' ' ' ' 'S_17800014');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Toshiba' ' ' ' ' 'Y' 'S_17800015');
EXECUTE SUBROUTINE(I_SETBRD) WITH_PARMS('Western Digital' ' ' ' ' ' ' 'S_17800016');
********** COMMENT(products);
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1 'desktops' '500 - 600 MHz, 15in monitor' 'Hp Pavilion 6611 Pc 15in Bonus 610c Printer' 'Hewlett Packard' 1799.00 'S_178desktop.gif' ' 533 MHz Celeron HDD 15.0GB Ram 64MB' ' CD-ROM 40x modem V.90 56Kbps Monitor 15 inc' 'S_17800106');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2 'desktops' '500 - 600 MHz, 15in monitor' 'Hp Pavilion 6616 Pc With 15in Monitor' 'Hewlett Packard' 1999.00 'S_178desktop.gif' ' 566 MHz Celeron HDD 15.0GB Ram 64MB' ' CD-ROM 40x modem V.90 56Kbps Monitor 15in' 'S_17800107');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3 'desktops' '> 600 MHz, 15in monitor' 'Hp Pavilion 8624 Pc With 15in Monitor' 'Hewlett Packard' 2699.00 'S_178desktop.gif' ' 667MHz Pentium III Ram 64Mb HDD 15.0GB' ' CD ReWriter Modem V.90 56Kbps Monitor 15' 'S_17800108');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4 'desktops' '500 - 600 MHz, 15in monitor' 'Ibm Aptiva 30p With 15in Monitor' 'IBM' 1999.00 'S_178desktop.gif' ' 533Mhz AMD-K6-2 Ram: 64Mb 10Gb CD' ' ReWriter 56k V.90 modem Monitor: 15in' 'S_17800109');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(5 'desktops' '500 - 600 MHz, 17in monitor' 'Ibm Aptiva 43a With 17in Monitor' 'IBM' 2499.00 'S_178desktop.gif' ' 600Mhz Intel Pentium III Ram: 64Mb 10Gb' ' CD ReWriter Modem: 56k V.90 Monitor 17in' 'S_17800110');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(6 'desktops' '500 - 600 MHz, 15in monitor' 'Ibm Aptiva 61a With 15in Monitor' 'IBM' 2999.00 'S_178desktop.gif' ' 500 MHz Pentium III Ram 64Mb' ' CD 40X Monitor 15 inch' 'S_17800111');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(7 'desktops' '500 - 600 MHz, 17in monitor' 'Ibm Aptiva 61a With 17in Monitor' 'IBM' 3299.00 'S_178desktop.gif' ' 500 MHz Pentium III Ram 64Mb' ' CD 40X Monitor 17 inch' 'S_17800112');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(8 'desktops' '> 600 MHz, 15in monitor' 'Ibm Aptiva 80a With 15in Monitor' 'IBM' 2999.00 'S_178desktop.gif' ' 667Mhz Pentium III 128Mb SDRAM' ' 15GB HDD, CD ReWriteable Drive Monitor 15in' 'S_17800113');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(9 'desktops' '> 600 MHz, 17in monitor' 'Ibm Aptiva 80a With 17in Monitor' 'IBM' 3199.00 'S_178desktop.gif' ' 667Mhz Pentium III 128Mb SDRAM' ' 15GB HDD, CD ReWriteable Drive Monitor 17in' 'S_17800114');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(10 'desktops' '> 600 MHz, 15in monitor' 'Ibm Aptiva 85a With 15 in Monitor' 'IBM' 4699.00 'S_178desktop.gif' ' 700MHz AMD Athlon Ram 128 15GB' ' HDD CD ReWriter Monitor 15 inch' 'S_17800115');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(11 'desktops' '> 600 MHz, 15in monitor' 'Ibm Aptiva 87a With 15in Monitor' 'IBM' 3999.00 'S_178desktop.gif' ' 733MHz Pentium III Ram 128 20GB HDD' ' CD ReWriter Monitor 15 inch' 'S_17800116');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(12 'desktops' '500 - 600 MHz, 15in monitor' 'Packard Bell Club 533- 533 Mhz15in Monitor' 'Packard Bell' 1999.00 'S_178desktop.gif' ' 533Mhz Celeron Ram 64 Meg HDD 10 GB' ' CD Rom Drive 40x Modem 56K V9.0 Monitor 15in' 'S_17800117');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(13 'desktops' '500 - 600 MHz, 17in monitor' 'Packard Bell Club 533- 533 Mhz17in Monitor' 'Packard Bell' 2199.00 'S_178desktop.gif' ' 533Mhz Celeron Ram 64 Meg HDD 10 GB' ' CD Rom Drive 40x Modem 56K V.90 Monitor 17in' 'S_17800118');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(14 'desktops' '500 - 600 MHz, 15in monitor' 'Packard Bell Club 600 Pc With 15in Monitor' 'Packard Bell' 2199.00 'S_178desktop.gif' ' 600Mhz Celeron Ram 64 Meg Hard Drive 10 GB' ' CD Rom Drive 40x Modem 56K Monitor15' 'S_17800119');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(15 'desktops' '500 - 600 MHz, 17in monitor' 'Packard Bell Office 550 With 17in Monitor' 'Packard Bell' 2999.00 'S_178desktop.gif' ' 550 Mhz Pentium III Ram 128 Meg HDD 10 GB' ' CD ReWriter Modem 56K Monitor 15in' 'S_17800120');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(16 'desktops' '> 600 MHz, 17in monitor' 'Packard Bell Platinum 800 - Pentium 800 Mhz 17in' 'Packard Bell' 4999.00 'S_178desktop.gif' ' 800 Mhz Pentium III Ram 128 HDD 20GB' ' CD-RW (4x4x32) & 8x DVD Modem 56K Monit 17' 'S_17800121');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(16 'desktops' '> 750 MHz, 17in monitor' 'Packard Bell Platinum 800 - Pentium 800 Mhz 17in' 'Packard Bell' 4999.00 'S_178desktop.gif' ' 800 Mhz Pentium III Ram 128 HDD 20GB' ' CD-RW (4x4x32) & 8x DVD Modem 56K Monit' 'S_17800122');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1001 'notebooks' 'Active Matrix 400 - 500 MHz' 'toshiba satellite 2710' 'Toshiba' 4999.00 'S_178notebook.gif' ' xdvd PIII500, 64MB, 6GB, DVD, ' '14.1in TFT, 56K Modem, 98' 'S_17800123');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1001 'notebooks' '400 - 500 MHz' 'toshiba satellite 2710' 'Toshiba' 4999.00 'S_178notebook.gif' ' xdvd PIII500, 64MB, 6GB, DVD, ' '14.1in TFT, 56K Modem, 98' 'S_17800124');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1002 'notebooks' '400 - 500 MHz' 'ibm thinkpad i series 42m' 'IBM' 2999.00 'S_178notebook.gif' ' CELERON 400/64MB/4.8GB' '/24XCD/13inHPA,56K,WIN98' 'S_17800125');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1003 'notebooks' 'Active Matrix 400 - 500 MHz' 'ibm thinkpad i series 46m' 'IBM' 4199.00 'S_178notebook.gif' ' CELERON433 64MB 4.8GB' ' 24XCD 14.1inTFT 56K WIN98' 'S_17800126');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1003 'notebooks' '400 - 500 MHz' 'ibm thinkpad i series 46m' 'IBM' 4199.00 'S_178notebook.gif' ' CELERON433 64MB 4.8GB 24XCD' ' 14.1inTFT 56K WIN98' 'S_17800127');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1004 'notebooks' 'Active Matrix 400 - 500 MHz' 'ibm thinkpad i series 48m' 'IBM' 4699.00 'S_178notebook.gif' ' CELERON 466/64MB/6.4GB/' 'DVD/14.1inTFT,56K,WIN98' 'S_17800128');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1004 'notebooks' '400 - 500 MHz' 'ibm thinkpad i series 48m' 'IBM' 4699.00 'S_178notebook.gif' ' CELERON 466/64MB/6.4GB/DVD' '/14.1inTFT,56K,WIN98' 'S_17800129');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1005 'notebooks' 'Active Matrix 400 - 500 MHz' 'Ibm Thinkpad I Series 49m' 'IBM' 5499.00 'S_178notebook.gif' ' 500 MHz PIII 15in ,TFT ' '1024 x 768, 64MB SDRAM, HDD 12.0GB, CD 24x, 98' 'S_17800130');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1005 'notebooks' '400 - 500 MHz' 'Ibm Thinkpad I Series 49m' 'IBM' 5499.00 'S_178notebook.gif' ' 500 MHz PIII 15in , TFT 1024 x 768, 64MB' ' SDRAM, HDD 12.0GB, CD 24x, 98' 'S_17800131');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(1006 'notebooks' '400 - 500 MHz' 'Ibm Thinkpad I Series 4em' 'IBM' 2999.00 'S_178notebook.gif' ' 500 MHz Celeron, 13.0in HPA 800' ' x 600 SVGA, 64MB SDRAM, HDD 6.0GB 24xCD' 'S_17800132');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2001 'modems' 'external' 'Companion 56k Flex/v.90 Dual Mode External ' 'Companion' 169.00 'S_178modem.gif' ' ' ' ' 'S_17800133');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2002 'modems' 'external' 'D-link External 56k Svd Modem - Flex/v.90' 'D-Link' 149.00 'S_178modem.gif' ' ' ' ' 'S_17800134');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2003 'modems' 'external' 'Megamodem K56 2000 Speed Demon 56k External' 'Megamodem' 169.00 'S_178modem.gif' ' ' ' ' 'S_17800135');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2004 'modems' 'external' 'Swannsmart 56k External Modem' 'Swannsmart' 199.00 'S_178modem.gif' ' ' ' ' 'S_17800136');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2006 'modems' 'internal' 'd-link internal 56k svd modem -flex/v.90' 'D-Link' 99.95 'S_178modem.gif' ' ' ' ' 'S_17800137');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2007 'modems' 'PCMCIA' 'netcomm cardmodem 56k v.90' 'Netcomm' 279.00 'S_178PCMCIA.gif' ' ' ' ' 'S_17800138');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2008 'modems' 'PCMCIA' 'realport 56 global 56k PC Card Modem with GS' 'Realport' 379.00 'S_178PCMCIA.gif' ' ' ' ' 'S_17800139');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(2009 'modems' 'USB' 'roadster ii 56k usb modem, Dual V.90/K56flex' 'Roadster' 249.00 'S_178modem.gif' ' ' ' ' 'S_17800140');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3001 'hard disk drives' 'SCSI > 20GB' 'Fujitsu 36.4GB SCSI 6ms 66MB/s' 'Fujitsu' 1802.00 'S_178harddrive.gif' ' 36.4GB SCSI 6ms ' '66MB/s' 'S_17800141');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3002 'hard disk drives' 'SCSI 10 - 20 GB' 'Fujitsu 18.2GB SCSI 6ms 66MB/s' 'Fujitsu' 750.00 'S_178harddrive.gif' ' 18.2GB SCSI 6ms ' '66MB/s' 'S_17800142');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3003 'hard disk drives' 'EIDE/IDE < 5 GB' 'Fujitsu 4.3GB IDE 10ms 14.5-26MB/s' 'Fujitsu' 360.00 'S_178harddrive.gif' ' 4.3GB IDE ' '10ms 14.5-26MB/s' 'S_17800144');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3004 'hard disk drives' 'SCSI < 5 GB' 'Seagate 4.5GB SCSI 9.5ms' 'Seagate' 426.00 'S_178harddrive.gif' ' 4.5GB SCSI ' '9.5ms' 'S_17800145');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3005 'hard disk drives' 'SCSI 5 - 10 GB' 'Seagate 9.1GB SCSI 5.2ms' 'Seagate' 750.00 'S_178harddrive.gif' ' 9.1GB SCSI ' '5.2ms' 'S_17800146');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3006 'hard disk drives' 'SCSI 10 - 20 GB' 'Seagate 18.2GB SCSI 5.2ms' 'Seagate' 800.00 'S_178harddrive.gif' ' 18.2GB SCSI' ' 5.2ms' 'S_17800147');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3007 'hard disk drives' 'EIDE/IDE > 20GB' 'Western Digital 30.6 EIDE' 'Western Digital' 645.00 'S_178harddrive.gif' ' 30.6 ' 'EIDE' 'S_17800148');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(3008 'hard disk drives' 'EIDE/IDE 10 - 20 GB' 'Western Digital 10.2 EIDE' 'Western Digital' 304.00 'S_178harddrive.gif' ' 10.2 ' 'EIDE' 'S_17800149');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4001 'printers' 'ink jet / bubble jet' 'Canon Bjc-8200 Colour Printer' 'Canon' 749.00 'S_178inkjet.gif' ' 1200' 'x1200dpi' 'S_17800150');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4002 'printers' 'ink jet / bubble jet' 'Canon Bjc3000 Colour Inkjet Printer' 'Canon' 299.00 'S_178inkjet.gif' ' 9ppm mono, 4ppm' ' col, 1440x720 dpi' 'S_17800151');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4003 'printers' 'ink jet / bubble jet' 'Canon Bjc50 Inkjet Printer' 'Canon' 699.00 'S_178inkjet.gif' ' 5ppm, ' '720dpi' 'S_17800152');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4004 'printers' 'ink jet / bubble jet' 'Epson Stylus Color 1160' 'Epson' 999.00 'S_178inkjet.gif' ' 1440' 'x720' 'S_17800153');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4005 'printers' 'ink jet / bubble jet' 'Epson Stylus Color 670' 'Epson' 349.00 'S_178inkjet.gif' ' 1440' 'x720 dpi' 'S_17800154');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4006 'printers' 'ink jet / bubble jet' 'Epson Stylus Colour 460' 'Epson' 229.00 'S_178inkjet.gif' ' 720' 'x720 dpi' 'S_17800155');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4007 'printers' 'ink jet / bubble jet' 'Hp Deskjet 1120c' 'Hewlett Packard' 799.00 'S_178inkjet.gif' ' Black 7 ppm letter ' 'Colour 5.5 ppm letter 600dpi' 'S_17800156');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4008 'printers' 'ink jet / bubble jet' 'Hp Deskjet 830c' 'Hewlett Packard' 369.00 'S_178inkjet.gif' ' Black Econo/norm 8 ppm/4.6 ppm,' ' Color Econo/norm 5ppm/3.1 ppm 600dpi' 'S_17800157');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4009 'printers' 'laser jet' 'Epson laser epl-5800' 'Epson' 1099.00 'S_178laserjet.gif' ' 10ppm Laser Printer ' 'with True 1200 dpi' 'S_17800158');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4010 'printers' 'laser jet' 'Epson laser epl-5700l' 'Epson' 799.00 'S_178laserjet.gif' ' 8ppm Desktop ' 'Laser with Professional Quality' 'S_17800159');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4011 'printers' 'laser jet' 'Hp laserjet 2100 printer' 'Hewlett Packard' 1549.00 'S_178laserjet.gif' ' UP TO 10PPM BLACK ' '4MB MEMORY' 'S_17800160');
EXECUTE SUBROUTINE(I_SETPRD) WITH_PARMS(4012 'printers' 'laser jet' 'Hp laserjet 1100a 600dpi' 'Hewlett Packard' 1049.00 'S_178laserjet.gif' ' 8 pages' ' p/m' 'S_17800161');
********** COMMENT(links);
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'printers' ' ' 'Canon' 'S_17800052' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'modems' ' ' 'Companion' 'S_17800053' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'modems' ' ' 'D-Link' 'S_17800054' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'printers' ' ' 'Epson' 'S_17800055' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'hard disk drives' ' ' 'Fujitsu' 'S_17800056' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'desktops' ' ' 'Hewlett Packard' 'S_17800057' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'printers' ' ' 'Hewlett Packard' 'S_17800058' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'desktops' ' ' 'IBM' 'S_17800059' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'notebooks' ' ' 'IBM' 'S_17800060' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'modems' ' ' 'Megamodem' 'S_17800061' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'modems' ' ' 'Netcomm' 'S_17800062' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'desktops' ' ' 'Packard Bell' 'S_17800063' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'modems' ' ' 'Realport' 'S_17800064' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'modems' ' ' 'Roadster' 'S_17800065' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'hard disk drives' ' ' 'Seagate' 'S_17800066' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'modems' ' ' 'Swannsmart' 'S_17800067' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'notebooks' ' ' 'Toshiba' 'S_17800068' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BD' 'hard disk drives' ' ' 'Western Digital' 'S_17800069' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'printers' 'ink jet / bubble jet' 'Canon' 'S_17800070' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'external' 'Companion' 'S_17800071' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'external' 'D-Link' 'S_17800072' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'internal' 'D-Link' 'S_17800073' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'printers' 'ink jet / bubble jet' 'Epson' 'S_17800074' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'printers' 'laser jet' 'Epson' 'S_17800075' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'EIDE/IDE < 5 GB' 'Fujitsu' 'S_17800077' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'SCSI > 20GB' 'Fujitsu' 'S_17800078' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'SCSI 10 - 20 GB' 'Fujitsu' 'S_17800079' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '> 600 MHz, 15in monitor' 'Hewlett Packard' 'S_17800080' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '500 - 600 MHz, 15in monitor' 'Hewlett Packard' 'S_17800081' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'printers' 'ink jet / bubble jet' 'Hewlett Packard' 'S_17800082' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'printers' 'laser jet' 'Hewlett Packard' 'S_17800083' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '> 600 MHz, 15in monitor' 'IBM' 'S_17800084' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '> 600 MHz, 17in monitor' 'IBM' 'S_17800085' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '500 - 600 MHz, 15in monitor' 'IBM' 'S_17800086' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '500 - 600 MHz, 17in monitor' 'IBM' 'S_17800087' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'notebooks' 'Active Matrix 400 - 500 MHz' 'IBM' 'S_17800088' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'notebooks' '400 - 500 MHz' 'IBM' 'S_17800089' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'external' 'Megamodem' 'S_17800090' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'PCMCIA' 'Netcomm' 'S_17800091' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '> 600 MHz, 17in monitor' 'Packard Bell' 'S_17800092' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '> 750 MHz, 17in monitor' 'Packard Bell' 'S_17800093' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '500 - 600 MHz, 15in monitor' 'Packard Bell' 'S_17800094' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'desktops' '500 - 600 MHz, 17in monitor' 'Packard Bell' 'S_17800095' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'PCMCIA' 'Realport' 'S_17800096' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'USB' 'Roadster' 'S_17800097' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'SCSI < 5 GB' 'Seagate' 'S_17800098' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'SCSI 10 - 20 GB' 'Seagate' 'S_17800099' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'SCSI 5 - 10 GB' 'Seagate' 'S_17800100' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'modems' 'external' 'Swannsmart' 'S_17800101' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'notebooks' 'Active Matrix 400 - 500 MHz' 'Toshiba' 'S_17800102' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'notebooks' '400 - 500 MHz' 'Toshiba' 'S_17800103' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'EIDE/IDE 10 - 20 GB' 'Western Digital' 'S_17800104' ' ');
EXECUTE SUBROUTINE(I_SETLNK) WITH_PARMS('BS' 'hard disk drives' 'EIDE/IDE > 20GB' 'Western Digital' 'S_17800105' ' ');
ENDROUTINE;