Function SET164B Load Personnel System Data (PSLSKL)

LANSA

previous page next page
Function SET164B Load Personnel System Data (PSLSKL)
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_164);
********** COMMENT(Function .......: SET164B);
********** 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);
**********;
**********;
********** COMMENT(Mainline);
**********;
********** COMMENT(Pslskl);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0070' '4GL' 930305 'M' ' ' 50393);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0070' 'ADMIN1' 960630 'P' 'Met requirement' 300696);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0070' 'ADMIN2' 980301 'P' ' ' 10398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0070' 'ADVPGM' 951210 'P' ' ' 101295);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0070' 'COM' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0070' 'CS' 900605 'D' 'Very good result' 50690);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0070' 'INDUCT' 900220 'P' ' ' 200290);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0070' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0070' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0070' 'MANAGE1' 971210 'M' 'Good result' 101297);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0070' 'MANAGE2' 980301 'P' 'Met requirement' 10398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0070' 'MARKET1' 971210 'D' 'Execellent' 101297);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0070' 'MARKET2' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0090' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0090' 'ADMIN2' 980501 'P' 'G' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0090' 'COM' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0090' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0090' 'HIS' 980502 'F' 'EXECELLENT' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0090' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0090' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0090' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0090' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0090' 'MARKET2' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0193' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0193' 'COM' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0193' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0193' 'HIS' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0193' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0193' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0193' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0193' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0193' 'MARKET2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0193' 'OTH' 980503 'P' 'GEOGRAPHY' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0907' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0907' 'ADMIN2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0907' 'COM' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0907' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0907' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0907' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0907' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0907' 'MANAGE2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0907' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A0907' 'OTH' 980503 'P' 'PHYSICS' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1001' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1001' 'ADMIN2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1001' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1001' 'ENG' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1001' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1001' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1001' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1001' 'MANAGE2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1001' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1001' 'OTH' 980503 'P' 'PHYSICS' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1002' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1002' 'ADMIN2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1002' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1002' 'ENG' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1002' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1002' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1002' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1002' 'MANAGE2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1002' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1002' 'OTH' 980503 'P' 'PHYSICS' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1003' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1003' 'ADMIN2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1003' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1003' 'ENG' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1003' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1003' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1003' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1003' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1003' 'MARKET2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1003' 'OTH' 980503 'P' 'PHYSICS' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1004' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1004' 'COM' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1004' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1004' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1004' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1004' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1004' 'MANAGE2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1004' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1004' 'MARKET2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1004' 'OTH' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1005' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1005' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1005' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1005' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1005' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1005' 'MANAGE2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1005' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1005' 'MARKET2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1005' 'OTH' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1005' 'REL' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1006' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1006' 'ADMIN2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1006' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1006' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1006' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1006' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1006' 'MANAGE2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1006' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1006' 'OTH' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1006' 'REL' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1007' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1007' 'ADMIN2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1007' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1007' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1007' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1007' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1007' 'MANAGE2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1007' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1007' 'MARKET3' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1007' 'REL' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1008' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1008' 'ADMIN2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1008' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1008' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1008' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1008' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1008' 'MANAGE2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1008' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1008' 'MARKET3' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1008' 'REL' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1009' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1009' 'ADMIN2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1009' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1009' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1009' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1009' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1009' 'MANAGE3' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1009' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1009' 'MARKET3' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1009' 'REL' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1010' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1010' 'ADMIN2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1010' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1010' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1010' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1010' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1010' 'MANAGE3' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1010' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1010' 'MARKET3' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1010' 'OTH' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1011' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1011' 'ADMIN2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1011' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1011' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1011' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1011' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1011' 'MANAGE3' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1011' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1011' 'MARKET3' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1011' 'OTH' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1012' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1012' 'ADMIN2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1012' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1012' 'HIS' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1012' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1012' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1012' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1012' 'MANAGE3' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1012' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1012' 'OTH' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1013' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1013' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1013' 'ECD' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1013' 'HIS' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1013' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1013' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1013' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1013' 'MANAGE3' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1013' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1013' 'OTH' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1014' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1014' 'ADMIN2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1014' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1014' 'ECD' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1014' 'HIS' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1014' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1014' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1014' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1014' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1014' 'OTH' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1015' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1015' 'ADMIN2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1015' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1015' 'ECD' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1015' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1015' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1015' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1015' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1015' 'OTH' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1015' 'SHORT' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1016' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1016' 'ADMIN2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1016' 'COM' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1016' 'CS' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1016' 'ECD' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1016' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1016' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1016' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1016' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1016' 'SHORT' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1017' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1017' 'ADMIN2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1017' 'COM' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1017' 'ECD' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1017' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1017' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1017' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1017' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1017' 'REL' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1017' 'SHORT' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1018' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1018' 'ADMIN2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1018' 'COM' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1018' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1018' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1018' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1018' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1018' 'MARKET3' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1018' 'REL' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1018' 'SHORT' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1019' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1019' 'COM' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1019' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1019' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1019' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1019' 'MANAGE3' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1019' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1019' 'MARKET3' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1019' 'REL' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1019' 'SHORT' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1020' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1020' 'COM' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1020' 'HIS' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1020' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1020' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1020' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1020' 'MANAGE3' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1020' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1020' 'MARKET3' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1020' 'REL' 980505 'P' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1021' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1021' 'ADMIN2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1021' 'ECD' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1021' 'HIS' 980503 'P' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1021' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1021' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1021' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1021' 'MANAGE2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1021' 'MANAGE3' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1021' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1021' 'MARKET2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1021' 'MARKET3' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1021' 'REL' 980504 'D' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1022' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1022' 'ADMIN2' 980501 'P' ' ' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1022' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1022' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1022' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1022' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1022' 'MARKET2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1022' 'MBA' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1022' 'OTH' 980504 'P' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1022' 'REL' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1023' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1023' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1023' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1023' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1023' 'MANAGE2' 980501 'P' 'GOOD' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1023' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1023' 'MARKET2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1023' 'MBA' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1023' 'OTH' 980504 'P' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1023' 'REL' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1024' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1024' 'ADMIN2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1024' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1024' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1024' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1024' 'MANAGE2' 980501 'P' 'GOOD' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1024' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1024' 'MBA' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1024' 'OTH' 980504 'P' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1024' 'REL' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1025' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1025' 'ADMIN2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1025' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1025' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1025' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1025' 'MANAGE2' 980501 'P' 'GOOD' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1025' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1025' 'MBA' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1025' 'OTH' 980504 'P' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1025' 'PROD' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1026' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1026' 'ADMIN2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1026' 'COM' 980504 'P' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1026' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1026' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1026' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1026' 'MANAGE2' 980501 'P' 'GOOD' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1026' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1026' 'MBA' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1026' 'PROD' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1027' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1027' 'ADMIN2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1027' 'COM' 980504 'P' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1027' 'CS' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1027' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1027' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1027' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1027' 'MANAGE2' 980501 'P' 'GOOD' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1027' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1027' 'PROD' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'AC' 920605 'D' 'With distinction' 50692);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'COM' 980504 'P' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'CS' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'INDUCT' 931115 'P' ' ' 151193);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'MANAGE2' 960305 'D' ' ' 50396);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'MANAGE3' 960630 'P' 'Met requirement' 300696);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'MANAGE4' 971210 'D' ' ' 101297);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'MARKET2' 951210 'P' ' ' 101295);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'MARKET3' 971201 'P' ' ' 11297);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'MBA' 980301 'P' 'Met requirement' 10398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'PROD' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1028' 'REL' 971210 'M' 'Unusual choice' 101297);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1030' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1030' 'ADMIN2' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1030' 'COM' 980504 'P' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1030' 'CS' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1030' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1030' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1030' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1030' 'MANAGE2' 980501 'P' 'GOOD' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1030' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1030' 'MARKET2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' '4GL' 930305 'D' ' ' 50393);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' 'ADMIN1' 951210 'P' 'Met requirement' 101295);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' 'ADMIN2' 980301 'P' ' ' 10398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' 'ADVPGM' 960630 'P' ' ' 300696);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' 'COM' 900605 'D' 'With distinction' 50690);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' 'CS' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' 'INDUCT' 960520 'P' ' ' 200596);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' 'MANAGE1' 971210 'D' 'Execellent' 101297);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' 'MANAGE2' 980501 'P' 'GOOD' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' 'MARKET1' 971210 'M' ' ' 101297);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' 'MARKET2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' 'OTH' 980301 'P' 'Met requirement' 10398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1031' 'PROD' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1032' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1032' 'ADMIN2' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1032' 'COM' 980504 'P' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1032' 'CS' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1032' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1032' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1032' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1032' 'MANAGE2' 980501 'P' 'GOOD' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1032' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1032' 'MARKET2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1111' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1111' 'ADMIN2' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1111' 'CS' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1111' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1111' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1111' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1111' 'MANAGE2' 980501 'P' 'GOOD' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1111' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1111' 'MARKET2' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1111' 'REL' 980504 'P' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'ADMIN2' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'ECD' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'ENG' 940605 'D' 'With distinction' 50694);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'INDUCT' 960915 'P' ' ' 150996);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'MANAGE1' 960305 'D' ' ' 50396);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'MANAGE2' 960630 'P' 'Met requirement' 300696);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'MANAGE3' 971210 'P' 'Met requirement' 101297);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'MANAGE4' 980301 'F' 'Good effort' 10398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'MARKET1' 951210 'P' ' ' 101295);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'MARKET2' 971210 'M' 'With distinction' 101297);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'MARKET3' 971201 'P' ' ' 11297);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'MBA' 980501 'P' 'GOOD' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1234' 'REL' 980504 'P' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1404' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1404' 'ECD' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1404' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1404' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1404' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1404' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1404' 'MBA' 980501 'P' 'GOOD' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1404' 'OTH' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1404' 'PROD' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1404' 'REL' 980504 'P' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1509' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1509' 'ECD' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1509' 'HIS' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1509' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1509' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1509' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1509' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1509' 'MBA' 980501 'P' 'GOOD' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1509' 'OTH' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A1509' 'REL' 980504 'P' ' ' 40598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A3564' 'ADMIN1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A3564' 'ADMIN2' 980503 'D' ' ' 30598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A3564' 'ECD' 980505 'D' ' ' 50598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A3564' 'HIS' 980501 'P' 'GOOD' 10598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A3564' 'INTRO' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A3564' 'KEY' 980205 'P' 'Met requirement' 50298);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A3564' 'MANAGE1' 980315 'D' 'Met requirement' 150398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A3564' 'MANAGE3' 980502 'F' ' ' 20598);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A3564' 'MARKET1' 980325 'D' 'Met requirement' 250398);
EXECUTE SUBROUTINE(I_PSLSKL) WITH_PARMS('A3564' 'RPG' 980504 'P' ' ' 40598);
RETURN;
**********;
**********;
********** COMMENT(Write PSLSKL to Database);
**********;
SUBROUTINE NAME(I_PSLSKL) PARMS(#EMPNO #SKILCODE #DATEACQR #GRADE #COMMENT #DATEACQ);
**********;
GROUP_BY NAME(#S_GRPPSLS) FIELDS(#EMPNO #SKILCODE #DATEACQR #GRADE #COMMENT #DATEACQ);
CHECK_FOR IN_FILE(PSLSKL) WITH_KEY(#EMPNO #SKILCODE);
IF_STATUS IS(*EQUALKEY);
UPDATE FIELDS(#S_GRPPSLS) IN_FILE(PSLSKL) WITH_KEY(#EMPNO #SKILCODE) VAL_ERROR(*NEXT);
ELSE;
INSERT FIELDS(#S_GRPPSLS) TO_FILE(PSLSKL) VAL_ERROR(*NEXT);
ENDIF;
ENDROUTINE;

previous page start next page