Function SET164A - Load Personnel System Data

LANSA

Function SET164A - Load Personnel System Data

********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_164);
********** COMMENT(Function .......: SET164A);
********** COMMENT(Created on .....: 21/01/00 at 14:43:32);
********** COMMENT(Description ....: Load Personnel System Data);
********** COMMENT(Version.........: 1);
**********;
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(load personnel system data);
**********;
********** 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(Minimum LANSA release: 8.0);
**********;
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT);
**********;
********** COMMENT(Group and field definitions);
**********;
**********;
DEFINE FIELD(#S_REPLY) TYPE(*CHAR) LENGTH(1) DESC('Refresh Personnel System Data Y/N?') DEFAULT(Y);
**********;
********** COMMENT(Mainline);
**********;
**********;
REQUEST FIELDS(#S_REPLY) IDENTIFY(*DESC);
IF COND('#S_REPLY *EQ Y');
********** COMMENT(Deptab);
EXECUTE SUBROUTINE(I_DEPTAB) WITH_PARMS('ADM' 'ADMINISTRATOR DEPT');
EXECUTE SUBROUTINE(I_DEPTAB) WITH_PARMS('AUD' 'INTERNAL AUDITING');
EXECUTE SUBROUTINE(I_DEPTAB) WITH_PARMS('FLT' 'FLEET ADMINISTRATION');
EXECUTE SUBROUTINE(I_DEPTAB) WITH_PARMS('GAC' 'GROUP ACCOUNTS');
EXECUTE SUBROUTINE(I_DEPTAB) WITH_PARMS('INF' 'INFORMATION SERVICES');
EXECUTE SUBROUTINE(I_DEPTAB) WITH_PARMS('LEG' 'LEGAL DEPARTMENT');
EXECUTE SUBROUTINE(I_DEPTAB) WITH_PARMS('MIS' 'MANAGEMNT INFORMATIO');
EXECUTE SUBROUTINE(I_DEPTAB) WITH_PARMS('MKT' 'MARKETING DEPARTMENT');
EXECUTE SUBROUTINE(I_DEPTAB) WITH_PARMS('SD' 'SALES & DISTRIBUTION');
EXECUTE SUBROUTINE(I_DEPTAB) WITH_PARMS('TRVL' 'TRAVEL DEPARTMENT');
********** COMMENT(Sectab);
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('ADM' '01' 'INTERNAL ADMIN SRV' '125 Main St,' 'Blacktown' 'NSW' 2167 '679 2536');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('ADM' '02' 'PURCHASING SECTION' '123 Pacific Highway,' 'North Sydney. 2000' 'NSW' 2000 '952 6475');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('ADM' '03' 'ACCOUNTING SECTION' '252 Canterbury Road,' 'CANTERBURY.' 'NSW.' 2044 '560 3633');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('ADM' '04' 'SALES & MARKETING' '121 Pitt Town Road' 'Pitt Town' 'Northern Region' 2345 '364-8905');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('ADM' '05' 'MAINTENANCE' '121 Railway Parade' 'Woodsville' ' ' 2034 '(02) 456-7896');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('ADM' '06' 'PERSONNEL SECTION' '121 Smith St' 'Newtown' ' ' 2067 '367-4894');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('ADM' '09' 'VEHICLE MAINTENANCE' '121 Smith Street' 'Newtown' 'Sydney NSW Australia' 2015 '(02) 562-2783');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('AUD' '01' 'ADMINISTRATION' '15 Robinson Rd,' 'CHATSWOOD.' 'NSW.' 2066 '411 8616');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('AUD' '02' 'PURCHASING' '33 Danderbong Avenue,' 'CARLINGFORD.' 'NSW.' 0 '858 5002');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('AUD' '03' 'ACCOUNTING' '21 Chesterfield Road,' 'EPPING.' 'NSW.' 2606 '728 6949');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('FLT' '01' 'ADMINISTRATION' '81 Parklands Road,' 'NORTH RYDE.' 'NSW.' 2060 '887 2970');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('FLT' '02' 'PURCHASING' '25 Lovell Road,' 'EASTWOOD.' 'NSW.' 2100 '85 6964');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('FLT' '03' 'ACCOUNTING' '21 Redmyre Road,' 'STRATHFIELD.' 'NSW.' 2030 '763 1521');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('GAC' '01' 'ADMINISTRATION' '11 Warners Avenue,' 'CASTLE HILL.' 'NSW.' 2048 '958 4593');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('GAC' '02' 'PURCHASING' '280 Pacific Highway,' 'ARTARMON.' 'NSW.' 2063 '439 3469');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('GAC' '03' 'ACCOUNTING' '72 Lawrence Street,' 'PEAKHURST.' 'NSW.' 2050 '449 3365');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('GAC' 'FC' 'FINANCIAL CONTROL' '10th Flr, 122 Main Street' 'Sydney' 'New South Wales' 2000 '9977 1212');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('INF' '01' 'ADMINISTRATION' '26 Stella Place,' 'BLACKTOWN.' 'NSW.' 2044 '622 6576');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('INF' '02' 'PURCHASING' '7 Windsor Road,' 'DULWICH HILL.' 'NSW.' 2222 '560 3632');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('INF' '03' 'ACCOUNTING' '41 William Street,' 'DOUBLE BAY.' 'NSW.' 2002 '32 3739');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('INF' 'DV' 'DEVELOPMENT' '10 Factory Road' 'Green Valley' 'New South Wales' 2010 '9977 2121');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('LEG' '01' 'CONTRACTS, LOCAL' '28 Grove Road,' 'PENSHURST.' 'NSW.' 2100 '579 6908');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('LEG' '02' 'INTERNATIONAL TRADEe' '24 Whitworth Road,' 'WESTMEAD.' 'NSW.' 2110 '520 1212');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('LEG' '03' 'ACCOUNTING' '12 Johnston Road,' 'BASS HILL.' 'NSW.' 2220 '92 5785');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('MIS' 'EI' 'EXECUTIVE INFORMATIO' '10th Flr, 122 Main Street' 'Sydney' 'New South Wales' 2000 '9977 1212');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('MKT' '01' 'ADMINISTRATION' '41 Kingsroad Road,' 'BEXLEY.' 'NSW.' 2300 '918 1770');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('MKT' '02' 'PURCHASING' '21 Barker Road,' 'KINGSFORD.' 'NSW.' 2230 '399 8621');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('MKT' '03' 'ACCOUNTING' '14 Roscrea Avenue,' 'FAIRFIELD.' 'NSW.' 2500 '728 6492');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('SD' 'ES' 'EXPORT SALES' '10 Factory Road' 'Green Valley' 'New South Wales' 2010 '9977 2121');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('TRVL' '01' 'ADMINISTRATION' '3 Horsley Road,' 'ENFIELD.' 'NSW.' 2216 '642 8516');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('TRVL' '02' 'PURCHASING' '29 Grace Avenue,' 'FRENCHS FOREST.' 'NSW.' 2115 '451 6354');
EXECUTE SUBROUTINE(I_SECTAB) WITH_PARMS('TRVL' '03' 'ACCOUNTING' '16 Dellwood Road,' 'BANKSTOWN.' 'NSW.' 2135 '708 3219');
********** COMMENT(Skltab);
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('4GL' '4GL Programming');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('AC' 'Accountancy Degree');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('ADMIN1' 'Administratn Part 1');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('ADMIN2' 'Administratn Part 2');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('ADVPGM' 'Advanced Programming');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('CL' 'CL PROGRAMMING');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('COM' 'COMMUNICATIONS DEG');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('CS' 'Computer Science Deg');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('DDS' 'DDS CODING & SDA USE');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('ECD' 'ECONOMICS DEGREE');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('ENG' 'English Degree');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('GAELIC' 'Gaelic Studies');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('HIS' 'HISTORY DEG');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('INDUCT' 'Company Induction');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('INTRO' 'COMPANY INTRODUCTION');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('KEY' 'KEYBOARD SKILLS');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('MANAGE1' 'Management Course 1');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('MANAGE2' 'Management Course 2');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('MANAGE3' 'Management Course 3');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('MANAGE4' 'Management Course 4');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('MARKET1' 'Marketing Course 1');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('MARKET2' 'Marketing Course 2');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('MARKET3' 'Marketing Course 3');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('MBA' 'Master of Business');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('OTH' 'Other Degree Course');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('PROD' 'PGMR PRODUCTIVITY');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('RECEPT' 'RECEPTIONIST SKILLS');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('REL' 'Relation Theory');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('RPG' 'RPG Programming');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('RPGIII' 'RPGIII PROGRAMMING');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('SHORT' 'TAKE SHORTHAND');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('TELE' 'TELEPHONIST SKILLS');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('TLX' 'TELEX SKILLS');
EXECUTE SUBROUTINE(I_SKLTAB) WITH_PARMS('TYPE' 'TYPE > 60 W.P.M');
********** COMMENT(Pslmst);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A0070' 'BROWN' 'VERONICA' '12 Railway Street' 'Baulkham Hills' 'NSW Australia' 2153 '(02) 9609 4627' '(02) 9647 2788' 900128 0 'INF' 'DV' 50125.00 280190 0 4177.08);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A0090' 'BLOGGS' 'FRED JOHN ALAN' '70 MAIN STREET' 'NEWTOWN NSW' 'AUSTRALIA' 2220 '344-2234454545' '654 6475 X432' 920803 0 'FLT' '03' 20045.91 30892 0 1670.49);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A0193' 'SMITHSON' 'FRED' '121 Cutler Ave' 'Windsor' 'NSW' 2034 '(02) 546-4657' '(02) 354-5647' 890703 0 'ADM' '05' 35000.04 30789 0 2916.67);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A0907' 'MISS SIMPSON' 'ANNE' '33 anne street' 'anneville' 'annes' 2145 '090909' '090909' 940303 0 'AUD' '03' 34213.04 30394 0 2851.09);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1001' 'Jones' 'Ben' '144 Frog' 'PYMBLE.' 'NSW.' 2001 '799 5268' '798 0543' 880201 0 'ADM' '01' 2345.82 10288 0 195.48);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1002' 'SMYTHE' 'JOHN' '20 Cobbitty Avenue,' 'WERRINGTON.' 'NSW.' 2100 '047 629 0442' '798 4381' 770101 0 'ADM' '02' 25000.04 10177 0 2083.34);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1003' 'SMITHE' 'Robert' '29 Arthur Road,' 'DEE WHY.' 'NSW.' 2000 '977 6268' '406 6395' 851221 0 'FLT' '02' 31000.04 211285 0 2583.34);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1004' 'SMITHSON' 'PAUL' '41 William Road,' 'GRANVILLE.' 'NSW.' 2144 '419 5656' '239 9174' 800501 0 'ADM' '03' 21000.04 10580 0 1750.00);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1005' 'SMITHS' 'PETER' '72 Mullane Avenue,' 'BAULKHAM HILLS.' 'NSW.' 2147 '674 4316' '777 7265' 710201 0 'ADM' '02' 46700.04 10271 0 3891.67);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1006' 'SMITHERS' 'JACK' '8 Croydon Road,' 'CROYDON.' 'NSW.' 2050 '799 3638' '32 1667' 810601 0 'TRVL' '03' 25000.04 10681 0 2083.34);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1007' 'SNELL' 'GEORGE' '6 Anthony Avenue,' 'PADSTOW.' 'NSW.' 2164 '764 3562' '44 2965' 850301 0 'AUD' '01' 26780.04 10385 0 2231.67);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1008' 'SNEDDON' 'ALLAN' '22 Railway Parade,' 'KOGARAH.' 'NSW.' 2160 '476 2198' '630 8888' 861201 0 'AUD' '01' 450000.04 11286 0 37500.00);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1009' 'SNASHALL' 'DAMIAN' '101 Sackville Road,' 'INGLEBURN.' 'NSW.' 2150 '605 8686' '331 5265' 831201 0 'AUD' '02' 31000.04 11283 0 2583.34);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1010' 'PERRY' 'WILLIAM' '65 Marshall Road,' 'DUNDAS.' 'NSW.' 2160 '684 1919' '745 2605' 750501 870501 'AUD' '03' 60000.04 10575 10587 5000.00);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1011' 'PERRIN' 'CHRISTOPHER' '532 New South Road,' 'DOUBLE BAY.' 'NSW.' 2003 '607 7587' '239 9100' 820601 0 'AUD' '01' 25000.04 10682 0 2083.34);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1012' 'PAUL' 'PATRICK' '6 Camillo Avenue' 'SEVEN HILLS.' 'NSW.' 2147 '687 1717' '222 2222' 860501 0 'ADM' '01' 26456.04 10586 0 2204.67);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1013' 'PATTISON' 'GEORGE' '12 Augusta Avenue,' 'PUNCHBOWL.' 'NSW.' 2016 '750 2562' '212 3569' 851201 0 'ADM' '01' 78977.04 11285 0 6581.42);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1014' 'MOORE' 'JOHN' '2 Burton Road,' 'LANE COVE.' 'NSW.' 2100 '452 6392' '785 2695' 820201 0 'ADM' '02' 68000.04 10282 0 5666.67);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1015' 'WOODS' 'BRADLEY' '59 Darley Road,' 'BEXLEY.' 'NSW.' 2030 '450 1236' '789 4562' 841212 0 'ADM' '01' 313000.04 121284 0 26083.34);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1016' 'TURNER' 'JACK' '22 Wentworth Avenue,' 'WENTWORHTVILLE.' 'NSW.' 2100 '456 1236' '789 4521' 870601 0 'FLT' '01' 22000.04 10687 0 1833.34);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1017' 'NEAVE' 'GARY' '14 Hutchins Crescent,' 'PADSTOW HEIGHTS.' 'NSW.' 2016 '456 1524' '151 4583' 830301 0 'INF' '02' 25600.04 10383 0 2133.34);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1018' 'ZACHARIA' 'PAUL' '45 Colby Place,' 'NEUTRAL BAY.' 'NSW.' 2021 '121 1300' '231 1919' 850601 0 'GAC' '02' 25900.04 10685 0 2158.34);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1019' 'DICKENS' 'CHARLES' '17 Grantham Road,' 'SEVEN HILLS.' 'NSW.' 2147 '718 1891' '565 2341' 800101 0 'LEG' '01' 45000.04 10180 0 3750.00);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1020' 'DOUGLAS' 'ADAM PETER' '6 Reading Avenue,' 'KINGSLANGLEY.' 'NSW.' 2147 '674 5310' '639 5188' 880201 0 'ADM' '01' 121500.04 10288 0 10125.00);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1021' 'MCCULLY' 'DAVID' '15 Baker Place,' 'PENSHURST.' 'NSW.' 2153 '762 1321' '159 6845' 800301 0 'ADM' '01' 87000.04 10380 0 7250.00);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1022' 'THOMPSON' 'KELLY' '45 Marina Road,' 'BAULKHAM HILLS' 'NSW.' 2144 '674 5656' '218 9568' 870101 0 'MKT' '02' 25000.29 10187 0 2083.36);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1023' 'REID' 'DAVID' '15 Cascade parade,' 'PADDINGTON.' 'NSW.' 2001 '774 2823' '427 5684' 880305 0 'LEG' '03' 21000.04 50388 0 1750.00);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1024' 'TAYLOR' 'JOHN' '9 Kensington Road,' 'KENSINGTON.' 'NSW.' 2002 '662 8062' '331 2598' 871201 0 'MKT' '01' 15000.04 11287 0 1250.00);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1025' 'ROBINSON' 'MARY' '14 Whitby Road,' 'ST IVES.' 'NSW.' 2005 '126 3598' '456 1852' 860501 0 'ADM' '01' 44455.04 10586 0 3704.59);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1026' 'LEWIS' 'TONY' '9 Anzac Parade,' 'BONDI.' 'NSW.' 2006 '421 7856' '256 2985' 861112 0 'GAC' '03' 46000.04 121186 0 3833.34);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1027' 'MORRISON' 'ALAN' '47 Lincoln Street,' 'STANMORE.' 'NSW.' 2007 '148 2365' '489 2485' 870201 0 'ADM' '01' 1878773.04 10287 0 156564.42);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1028' 'MAXWELL' 'ANDREW' '16 Wattle Road' 'Janali' 'NSW Australia' 2053 '(02) 9727 3665' '(02) 9922 5588' 931015 0 'GAC' 'FC' 75500.00 151093 0 6291.67);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1030' 'TURNER' 'VALERIE' '13 Balaclava Road,' 'NORTH ROCKS.' 'NSW.' 2111 '145 5911' '157 1654' 860201 0 'INF' '01' 45000.04 10286 0 3750.00);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1031' 'BLAKE' 'JOHN' '3 Woodbury Road' 'Winston Hills' 'NSW Australia' 2100 '(02) 9668 9235' '(02) 9922 5588' 960518 0 'MIS' 'EI' 60725.00 180596 0 5060.42);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1032' 'LINCOLN' 'PAUL' '45 Rebecca Place,' 'INGLEBURN.' 'NSW.' 2100 '957 3457' '77 7798' 850201 0 'INF' '03' 36000.04 10285 0 3000.00);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1111' 'VEREY' 'WARREN PETER' '1 Main Rd' 'Hill Top' 'NSW' 2345 '958 4567' '957 3188' 890925 0 'ADM' '01' 45678.04 250989 0 3806.50);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1234' 'JACKSON' 'STEPHEN' '6 Melissa Place' 'West Pennant Hills' 'NSW Australia' 2125 '(02) 9871 7773' '(02) 9647 2788' 960814 0 'SD' 'ES' 72125.00 140896 0 6010.42);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1404' 'MRS BRICK' 'GILL' '22 Moton Street' 'Marrickville' 'NSW' 2090 '3343 333' '324 444' 940501 0 'ADM' '01' 12345.04 10594 0 1028.75);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A1509' 'REDFORD' 'ROBERT' '122 Arthur Street' 'North Sydney' 'NSW Australia' 2060 '5559966' '9573188' 950219 0 'ADM' '01' 10.00 190295 0 .83);
EXECUTE SUBROUTINE(I_PSLMST) WITH_PARMS('A3564' 'BROWN' 'FREDDY' '121 SMITH STREET' 'Newtown' ' ' 2153 '(02) 567-6758' '(02) 456-5678' 950531 0 'ADM' '04' 30000.00 310595 0 2500.00);
********** COMMENT(Pslskl);
**********;
CALL PROCESS(*DIRECT) FUNCTION(SET164B);
MESSAGE MSGTXT('Personnel system data successfully refreshed. ');
ENDIF;
MENU;
**********;
********** COMMENT(Write PSLMST to Database);
**********;
SUBROUTINE NAME(I_PSLMST) PARMS(#EMPNO #SURNAME #GIVENAME #ADDRESS1 #ADDRESS2 #ADDRESS3 #POSTCODE #PHONEHME #PHONEBUS #STARTDTER #TERMDATER #DEPTMENT #SECTION #SALARY #STARTDTE #TERMDATE #MNTHSAL);
**********;
GROUP_BY NAME(#S_GRPPSLM) FIELDS(#EMPNO #SURNAME #GIVENAME #ADDRESS1 #ADDRESS2 #ADDRESS3 #POSTCODE #PHONEHME #PHONEBUS #STARTDTER #TERMDATER #DEPTMENT #SECTION #SALARY #STARTDTE #TERMDATE #MNTHSAL);
CHECK_FOR IN_FILE(PSLMST) WITH_KEY(#EMPNO);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPPSLM) IN_FILE(PSLMST) WITH_KEY(#EMPNO) IO_ERROR(*NEXT) VAL_ERROR(*NEXT);
ELSE;
INSERT FIELDS(#S_GRPPSLM) TO_FILE(PSLMST) IO_ERROR(*NEXT) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;
**********;
********** COMMENT(Write DEPTAB to Database);
**********;
SUBROUTINE NAME(I_DEPTAB) PARMS(#DEPTMENT #DEPTDESC);
**********;
GROUP_BY NAME(#S_GRPDEPT) FIELDS(#DEPTMENT #DEPTDESC);
CHECK_FOR IN_FILE(DEPTAB) WITH_KEY(#DEPTMENT);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPDEPT) IN_FILE(DEPTAB) WITH_KEY(#DEPTMENT) IO_ERROR(*NEXT) VAL_ERROR(*NEXT);
ELSE;
INSERT FIELDS(#S_GRPDEPT) TO_FILE(DEPTAB) IO_ERROR(*NEXT) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;
**********;
********** COMMENT(Write SECTAB to Database);
**********;
SUBROUTINE NAME(I_SECTAB) PARMS(#DEPTMENT #SECTION #SECDESC #SECADDR1 #SECADDR2 #SECADDR3 #SECPCODE #SECPHBUS);
**********;
GROUP_BY NAME(#S_GRPSECT) FIELDS(#DEPTMENT #SECTION #SECDESC #SECADDR1 #SECADDR2 #SECADDR3 #SECPCODE #SECPHBUS);
CHECK_FOR IN_FILE(SECTAB) WITH_KEY(#DEPTMENT #SECTION);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPSECT) IN_FILE(SECTAB) WITH_KEY(#DEPTMENT #SECTION) IO_ERROR(*NEXT) VAL_ERROR(*NEXT);
ELSE;
INSERT FIELDS(#S_GRPSECT) TO_FILE(SECTAB) IO_ERROR(*NEXT) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;
**********;
********** COMMENT(Write SKLTAB to Database);
**********;
SUBROUTINE NAME(I_SKLTAB) PARMS(#SKILCODE #SKILDESC);
**********;
GROUP_BY NAME(#S_GRPSKLT) FIELDS(#SKILCODE #SKILDESC);
CHECK_FOR IN_FILE(SKLTAB) WITH_KEY(#SKILCODE);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPSKLT) IN_FILE(SKLTAB) WITH_KEY(#SKILCODE) IO_ERROR(*NEXT) VAL_ERROR(*NEXT);
ELSE;
INSERT FIELDS(#S_GRPSKLT) TO_FILE(SKLTAB) IO_ERROR(*NEXT) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;