/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* * "If it's squinky, then you know it's BrilligWare!" * */ /* * * */ /* * Source available at www.brilligware.com * */ /* * Brillig Enterprises (aka Chris Pando) (C)2006 * */ /* * * */ /* * This work is licensed under a Creative Commons * */ /* * Attribution-NonCommercial-ShareAlike License: * */ /* * http://creativecommons.org/licenses/by-nc-sa/2.0/legalcode * */ /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* * * */ /* * * Set User Profile * * */ /* * * */ /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ PGM PARM(&USRPRF + &MDLPRF ) /* Received Parms */ DCL VAR(&USRPRF ) TYPE(*CHAR) LEN( 10) DCL VAR(&MDLPRF ) TYPE(*CHAR) LEN( 25) /* CHGUSRPF Values for Model */ DCL VAR(&MDL001 ) TYPE(*CHAR) LEN( 100) /* SPCAUT */ DCL VAR(&MDL002 ) TYPE(*DEC ) LEN(11 0) /* MAXSTG */ DCL VAR(&MDL004 ) TYPE(*CHAR) LEN( 1) /* PTYLMT */ DCL VAR(&MDL005 ) TYPE(*CHAR) LEN( 10) /* INLPGM */ DCL VAR(&MDL006 ) TYPE(*CHAR) LEN( 10) /* INLPGMLIB */ DCL VAR(&MDL007 ) TYPE(*CHAR) LEN( 10) /* JOBD */ DCL VAR(&MDL008 ) TYPE(*CHAR) LEN( 10) /* JOBDLIB */ DCL VAR(&MDL009 ) TYPE(*CHAR) LEN( 10) /* GRPPRF */ DCL VAR(&MDL010 ) TYPE(*CHAR) LEN( 10) /* OWNER */ DCL VAR(&MDL011 ) TYPE(*CHAR) LEN( 10) /* GRPAUT */ DCL VAR(&MDL012 ) TYPE(*CHAR) LEN( 15) /* ACGCDE */ DCL VAR(&MDL015 ) TYPE(*CHAR) LEN( 10) /* OUTQ */ DCL VAR(&MDL016 ) TYPE(*CHAR) LEN( 10) /* OUTQLIB */ DCL VAR(&MDL019 ) TYPE(*CHAR) LEN( 10) /* USRCLS */ DCL VAR(&MDL020 ) TYPE(*CHAR) LEN( 10) /* ASTLVL */ DCL VAR(&MDL022 ) TYPE(*CHAR) LEN( 10) /* CURLIB */ DCL VAR(&MDL023 ) TYPE(*CHAR) LEN( 10) /* INLMNU */ DCL VAR(&MDL024 ) TYPE(*CHAR) LEN( 10) /* INLMNULIB */ DCL VAR(&MDL025 ) TYPE(*CHAR) LEN( 10) /* LMTCPB */ DCL VAR(&MDL026 ) TYPE(*CHAR) LEN( 10) /* DLVRY */ DCL VAR(&MDL027 ) TYPE(*DEC ) LEN( 2 0) /* SEV */ DCL VAR(&MDL028 ) TYPE(*CHAR) LEN( 10) /* PRTDEV */ DCL VAR(&MDL029 ) TYPE(*CHAR) LEN( 10) /* ATNPGM */ DCL VAR(&MDL030 ) TYPE(*CHAR) LEN( 10) /* ATNPGMLIB */ DCL VAR(&MDL031 ) TYPE(*CHAR) LEN( 240) /* USROPT */ DCL VAR(&MDL032 ) TYPE(*CHAR) LEN( 7) /* DSPSGNINF */ DCL VAR(&MDL033 ) TYPE(*DEC ) LEN( 5 0) /* PWDEXPITV */ DCL VAR(&MDL038 ) TYPE(*CHAR) LEN( 7) /* LMTDEVSSN */ DCL VAR(&MDL039 ) TYPE(*CHAR) LEN( 10) /* KBDBUF */ DCL VAR(&MDL040 ) TYPE(*CHAR) LEN( 10) /* LANGID */ DCL VAR(&MDL041 ) TYPE(*CHAR) LEN( 10) /* CNTRYID */ DCL VAR(&MDL042 ) TYPE(*DEC ) LEN( 5 0) /* CCSID */ DCL VAR(&MDL043 ) TYPE(*CHAR) LEN( 10) /* SRTSEQ */ DCL VAR(&MDL044 ) TYPE(*CHAR) LEN( 10) /* SRTSEQLIB */ DCL VAR(&MDL045 ) TYPE(*CHAR) LEN( 10) /* OBJAUD */ DCL VAR(&MDL046 ) TYPE(*CHAR) LEN( 640) /* AUDLVL */ DCL VAR(&MDL047 ) TYPE(*CHAR) LEN( 10) /* GRPAUTTYP */ DCL VAR(&MDL048 ) TYPE(*CHAR) LEN( 150) /* SUPGRPPRF */ DCL VAR(&MDL051 ) TYPE(*CHAR) LEN( 160) /* SETJOBATR*/ DCL VAR(&MDL052 ) TYPE(*CHAR) LEN( 10) /* CHRIDCTL */ /* CHGUSRPF Values for User Profile */ DCL VAR(&USR001 ) TYPE(*CHAR) LEN( 100) /* SPCAUT */ DCL VAR(&USR002 ) TYPE(*DEC ) LEN(11 0) /* MAXSTG */ DCL VAR(&USR004 ) TYPE(*CHAR) LEN( 1) /* PTYLMT */ DCL VAR(&USR005 ) TYPE(*CHAR) LEN( 10) /* INLPGM */ DCL VAR(&USR006 ) TYPE(*CHAR) LEN( 10) /* INLPGMLIB */ DCL VAR(&USR007 ) TYPE(*CHAR) LEN( 10) /* JOBD */ DCL VAR(&USR008 ) TYPE(*CHAR) LEN( 10) /* JOBDLIB */ DCL VAR(&USR009 ) TYPE(*CHAR) LEN( 10) /* GRPPRF */ DCL VAR(&USR010 ) TYPE(*CHAR) LEN( 10) /* OWNER */ DCL VAR(&USR011 ) TYPE(*CHAR) LEN( 10) /* GRPAUT */ DCL VAR(&USR012 ) TYPE(*CHAR) LEN( 15) /* ACGCDE */ DCL VAR(&USR015 ) TYPE(*CHAR) LEN( 10) /* OUTQ */ DCL VAR(&USR016 ) TYPE(*CHAR) LEN( 10) /* OUTQLIB */ DCL VAR(&USR019 ) TYPE(*CHAR) LEN( 10) /* USRCLS */ DCL VAR(&USR020 ) TYPE(*CHAR) LEN( 10) /* ASTLVL */ DCL VAR(&USR022 ) TYPE(*CHAR) LEN( 10) /* CURLIB */ DCL VAR(&USR023 ) TYPE(*CHAR) LEN( 10) /* INLMNU */ DCL VAR(&USR024 ) TYPE(*CHAR) LEN( 10) /* INLMNULIB */ DCL VAR(&USR025 ) TYPE(*CHAR) LEN( 10) /* LMTCPB */ DCL VAR(&USR026 ) TYPE(*CHAR) LEN( 10) /* DLVRY */ DCL VAR(&USR027 ) TYPE(*DEC ) LEN( 2 0) /* SEV */ DCL VAR(&USR028 ) TYPE(*CHAR) LEN( 10) /* PRTDEV */ DCL VAR(&USR029 ) TYPE(*CHAR) LEN( 10) /* ATNPGM */ DCL VAR(&USR030 ) TYPE(*CHAR) LEN( 10) /* ATNPGMLIB */ DCL VAR(&USR031 ) TYPE(*CHAR) LEN( 240) /* USROPT */ DCL VAR(&USR032 ) TYPE(*CHAR) LEN( 7) /* DSPSGNINF */ DCL VAR(&USR033 ) TYPE(*DEC ) LEN( 5 0) /* PWDEXPITV */ DCL VAR(&USR038 ) TYPE(*CHAR) LEN( 7) /* LMTDEVSSN */ DCL VAR(&USR039 ) TYPE(*CHAR) LEN( 10) /* KBDBUF */ DCL VAR(&USR040 ) TYPE(*CHAR) LEN( 10) /* LANGID */ DCL VAR(&USR041 ) TYPE(*CHAR) LEN( 10) /* CNTRYID */ DCL VAR(&USR042 ) TYPE(*DEC ) LEN( 5 0) /* CCSID */ DCL VAR(&USR043 ) TYPE(*CHAR) LEN( 10) /* SRTSEQ */ DCL VAR(&USR044 ) TYPE(*CHAR) LEN( 10) /* SRTSEQLIB */ DCL VAR(&USR045 ) TYPE(*CHAR) LEN( 10) /* OBJAUD */ DCL VAR(&USR046 ) TYPE(*CHAR) LEN( 640) /* AUDLVL */ DCL VAR(&USR047 ) TYPE(*CHAR) LEN( 10) /* GRPAUTTYP */ DCL VAR(&USR048 ) TYPE(*CHAR) LEN( 150) /* SUPGRPPRF */ DCL VAR(&USR051 ) TYPE(*CHAR) LEN( 160) /* SETJOBATR */ DCL VAR(&USR052 ) TYPE(*CHAR) LEN( 10) /* CHRIDCTL */ /* Miscellaneous Variables */ DCL VAR(&MSG ) TYPE(*CHAR) LEN( 50) DCL VAR(&CHANGE ) TYPE(*LGL ) LEN( 1) VALUE('0') DCL VAR(&ZONED02 ) TYPE(*DEC ) LEN( 2 0) DCL VAR(&CHAR02 ) TYPE(*CHAR) LEN( 2) DCL VAR(&ZONED05 ) TYPE(*DEC ) LEN( 5 0) DCL VAR(&CHAR05 ) TYPE(*CHAR) LEN( 5) DCL VAR(&ZONED11 ) TYPE(*DEC ) LEN(11 0) DCL VAR(&CHAR11 ) TYPE(*CHAR) LEN( 11) DCL VAR(&CMD ) TYPE(*CHAR) LEN(1024) DCL VAR(&CMDLEN ) TYPE(*DEC ) LEN(15 5) VALUE(1024) /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR)) /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* Verify Model Profile Existence */ RTVUSRPRF USRPRF(&MDLPRF) + SPCAUT(&MDL001) + MAXSTG(&MDL002) + PTYLMT(&MDL004) + INLPGM(&MDL005) + INLPGMLIB(&MDL006) + JOBD(&MDL007) + JOBDLIB(&MDL008) + GRPPRF(&MDL009) + OWNER(&MDL010) + GRPAUT(&MDL011) + OUTQ(&MDL015) + OUTQLIB(&MDL016) + USRCLS(&MDL019) + ASTLVL(&MDL020) + CURLIB(&MDL022) + INLMNU(&MDL023) + INLMNULIB(&MDL024) + LMTCPB(&MDL025) + DLVRY(&MDL026) + SEV(&MDL027) + PRTDEV(&MDL028) + ATNPGM(&MDL029) + ATNPGMLIB(&MDL030) + USROPT(&MDL031) + DSPSGNINF(&MDL032) + PWDEXPITV(&MDL033) + LMTDEVSSN(&MDL038) + KBDBUF(&MDL039) + LANGID(&MDL040) + CNTRYID(&MDL041) + CCSID(&MDL042) + SRTSEQ(&MDL043) + SRTSEQLIB(&MDL044) + OBJAUD(&MDL045) + AUDLVL(&MDL046) + GRPAUTTYP(&MDL047) + SUPGRPPRF(&MDL048) + SETJOBATR(&MDL051) + CHRIDCTL(&MDL052) MONMSG MSGID(CPF2204) EXEC(DO) /* CHGVAR VAR(&MSGID) VALUE('JDE7642') */ GOTO CMDLBL(EOJ) ENDDO CHGVAR VAR(&MSG) VALUE('Found Model Profile - ' *CAT &MDLPRF) SNDPGMMSG MSG(&MSG) TOPGMQ(*SAME) /* Retrieve User Profile */ RTVUSRPRF USRPRF(&USRPRF) + SPCAUT(&USR001) + MAXSTG(&USR002) + PTYLMT(&USR004) + INLPGM(&USR005) + INLPGMLIB(&USR006) + JOBD(&USR007) + JOBDLIB(&USR008) + GRPPRF(&USR009) + OWNER(&USR010) + GRPAUT(&USR011) + ACGCDE(&USR012) + OUTQ(&USR015) + OUTQLIB(&USR016) + USRCLS(&USR019) + ASTLVL(&USR020) + CURLIB(&USR022) + INLMNU(&USR023) + INLMNULIB(&USR024) + LMTCPB(&USR025) + DLVRY(&USR026) + SEV(&USR027) + PRTDEV(&USR028) + ATNPGM(&USR029) + ATNPGMLIB(&USR030) + USROPT(&USR031) + DSPSGNINF(&USR032) + PWDEXPITV(&USR033) + LMTDEVSSN(&USR038) + KBDBUF(&USR039) + LANGID(&USR040) + CNTRYID(&USR041) + CCSID(&USR042) + SRTSEQ(&USR043) + SRTSEQLIB(&USR044) + OBJAUD(&USR045) + AUDLVL(&USR046) + GRPAUTTYP(&USR047) + SUPGRPPRF(&USR048) + SETJOBATR(&USR051) + CHRIDCTL(&USR052) /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* */ /* There are five parameters accepting lists: */ /* */ /* SPCAUT */ /* AUDLVL */ /* USROPT */ /* SUPGRPPRF */ /* SETOBJATR */ /* */ /* The easiest way to specify a list argument in a batch program */ /* is to construct the command as a string, and execute it through */ /* a call to QCMDEXC. This has the added advantage of allowing us */ /* to only specify the attributes which have actually changed */ /* */ /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ CHGVAR VAR(&CMD) + VALUE('CHGUSRPRF USRPRF(' *CAT &USRPRF *TCAT ') ') IF COND(&MDL001 *NE &USR001) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'SPCAUT(' *CAT &MDL001 *TCAT ') ') ENDDO IF COND(&MDL002 *NE &USR002) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&ZONED11) VALUE(&MDL002) CHGVAR VAR(&CHAR11) VALUE(&ZONED11) IF COND(&MDL002 *EQ -1) THEN( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'MAXSTG(*NOMAX) ')) ELSE CMD( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'MAXSTG(' *CAT &CHAR11 *TCAT ') ')) ENDDO IF COND(&MDL004 *NE &USR004) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'PTYLMT(' *CAT &MDL004 *TCAT ') ') ENDDO IF COND(&MDL005 *NE &USR005 *OR + &MDL006 *NE &USR006) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') IF COND(&MDL005 *EQ '*NONE') THEN( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'INLPGM(*NONE) ')) ELSE CMD( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'INLPGM(' *CAT &MDL006 *TCAT '/' *CAT &MDL005 *TCAT ') ')) ENDDO IF COND(&MDL007 *NE &USR007 *OR + &MDL008 *NE &USR008) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'JOBD(' *CAT &MDL008 *TCAT '/' *CAT &MDL007 *TCAT ') ') ENDDO IF COND(&MDL009 *NE &USR009) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'GRPPRF(' *CAT &MDL009 *TCAT ') ') ENDDO IF COND(&MDL010 *NE &USR010) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'OWNER(' *CAT &MDL010 *TCAT ') ') ENDDO IF COND(&MDL011 *NE &USR011) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'GRPAUT(' *CAT &MDL011 *TCAT ') ') ENDDO IF COND(&MDL012 *NE &USR012) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'ACGCDE(''' *CAT &MDL012 *TCAT ''') ') ENDDO IF COND(&MDL015 *NE &USR015 *OR + &MDL016 *NE &USR016) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') IF COND(&MDL015 *EQ '*DEV') THEN( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'OUTQ(*DEV) ')) ELSE CMD(IF COND(&MDL015 *EQ '*WRKSTN') THEN( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'OUTQ(*WRKSTN) '))) ELSE CMD( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'OUTQ(' *CAT &MDL016 *TCAT '/' *CAT &MDL015 *TCAT ') ')) ENDDO IF COND(&MDL019 *NE &USR019) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'USRCLS(' *CAT &MDL019 *TCAT ') ') ENDDO IF COND(&MDL020 *NE &USR020) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'ASTLVL(' *CAT &MDL020 *TCAT ') ') ENDDO IF COND(&MDL022 *NE &USR022) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'CURLIB(' *CAT &MDL022 *TCAT ') ') ENDDO IF COND(&MDL023 *NE &USR023 *OR + &MDL024 *NE &USR024) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') IF COND(&MDL023 = '*SIGNOFF ') THEN( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'INLMNU(*SIGNOFF)')) ELSE CMD( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'INLMNU(' *CAT &MDL024 *TCAT '/' *CAT &MDL023 *TCAT ') ')) ENDDO IF COND(&MDL025 *NE &USR025) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'LMTCPB(' *CAT &MDL025 *TCAT ') ') ENDDO IF COND(&MDL026 *NE &USR026) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'DLVRY(' *CAT &MDL026 *TCAT ') ') ENDDO IF COND(&MDL027 *NE &USR027) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&ZONED02) VALUE(&MDL027) CHGVAR VAR(&CHAR02) VALUE(&ZONED02) CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'SEV(' *CAT &CHAR02 *TCAT ') ') ENDDO IF COND(&MDL028 *NE &USR028) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'PRTDEV(' *CAT &MDL028 *TCAT ') ') ENDDO IF COND(&MDL029 *NE &USR029 *OR + &MDL030 *NE &USR030) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') IF COND(&MDL029 *EQ '*NONE') THEN( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'ATNPGM(*NONE) ')) ELSE CMD(IF COND(&MDL029 *EQ '*SYSVAL') THEN( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'ATNPGM(*SYSVAL) '))) ELSE CMD( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'ATNPGM(' *CAT &MDL030 *TCAT '/' *CAT &MDL029 *TCAT ') ')) ENDDO IF COND(&MDL031 *NE &USR031) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'USROPT(' *CAT &MDL031 *TCAT ') ') ENDDO IF COND(&MDL032 *NE &USR032) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'DSPSGNINF(' *CAT &MDL032 *TCAT ') ') ENDDO IF COND(&MDL033 *NE &USR033) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&ZONED05) VALUE(&MDL033) CHGVAR VAR(&CHAR05) VALUE(&ZONED05) IF COND(&MDL033 *EQ -1) THEN( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'PWDEXPITV(*NOMAX) ')) ELSE CMD(IF COND(&MDL033 *EQ 0) THEN( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'PWDEXPITV(*SYSVAL) '))) ELSE CMD( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'PWDEXPITV(' *CAT &CHAR05 *TCAT ') ')) ENDDO IF COND(&MDL038 *NE &USR038) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'LMTDEVSSN(' *CAT &MDL038 *TCAT ') ') ENDDO IF COND(&MDL039 *NE &USR039) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'KBDBUF(' *CAT &MDL039 *TCAT ') ') ENDDO IF COND(&MDL040 *NE &USR040) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'LANGID(' *CAT &MDL040 *TCAT ') ') ENDDO IF COND(&MDL041 *NE &USR041) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'CNTRYID(' *CAT &MDL041 *TCAT ') ') ENDDO IF COND(&MDL042 *NE &USR042) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&ZONED05) VALUE(&MDL042) CHGVAR VAR(&CHAR05) VALUE(&ZONED05) IF COND(&MDL042 *EQ -2) THEN( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'CCSID(*SYSVAL) ')) ELSE CMD( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'CCSID(' *CAT &CHAR05 *TCAT ') ')) ENDDO IF COND(&MDL043 *NE &USR043 *OR + &MDL044 *NE &USR044) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') IF COND(&MDL044 *EQ ' ') THEN( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'SRTSEQ(' *CAT &MDL043 *TCAT ') ')) ELSE CMD( + CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'SRTSEQ(' *CAT &MDL044 *TCAT '/' *CAT &MDL043 *TCAT ') ')) ENDDO IF COND(&MDL047 *NE &USR047) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'GRPAUTTYP(' *CAT &MDL047 *TCAT ') ') ENDDO IF COND(&MDL048 *NE &USR048) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'SUPGRPPRF(' *CAT &MDL048 *TCAT ') ') ENDDO IF COND(&MDL051 *NE &USR051) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'SETJOBATR(' *CAT &MDL051 *TCAT ') ') ENDDO IF COND(&MDL052 *NE &USR052) THEN(DO) CHGVAR VAR(&CHANGE) VALUE('1') CHGVAR VAR(&CMD) + VALUE(&CMD *BCAT 'CHRIDCTL(' *CAT &MDL052 *TCAT ') ') ENDDO IF COND(&CHANGE) THEN(DO) SNDPGMMSG MSG(&CMD) TOPGMQ(*SAME) CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) ENDDO IF COND(&MDL045 *NE &USR045 *OR + &MDL046 *NE &USR046) THEN(DO) CHGVAR VAR(&CMD) + VALUE('CHGUSRAUD USRPRF(' *CAT &USRPRF *TCAT ') ' + *CAT 'OBJAUD(' *CAT &MDL045 *TCAT ') ' + *CAT 'AUDLVL(' *CAT &MDL046 *TCAT ')') SNDPGMMSG MSG(&CMD) TOPGMQ(*SAME) CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) ENDDO GOTO CMDLBL(EOJ) ERROR: /* CHGVAR VAR(&MSGID) VALUE('JDE7628') */ EOJ: ENDPGM