Guest.Visitor
01-01-1995, 02:00 AM
I recently upgraded my OS to v4r4 from v4r2. My original QSTRUP worked as listed here without a hitch... QSYS/STRSBS SBSD(QSPL) MONMSG MSGID(CPF0000) QSYS/STRSBS SBSD(QSERVER) MONMSG MSGID(CPF0000) QSYS/STRCLNUP MONMSG MSGID(CPF0000) QSYS/RTVSYSVAL SYSVAL(QCTLSBSD) RTNVAR(&CTLSBSD) IF COND((&CTLSBSD *NE 'QCTL QSYS ') *AND (&CTLSBSD *NE- 'QCTL QGPL ')) THEN(GOTO CMDLBL(DONE)) STRTCP /* START TCPIP */ QSYS/STRSBS SBSD(QINTER) MONMSG MSGID(CPF0000) QSYS/STRSBS SBSD(QBATCH) MONMSG MSGID(CPF0000) QSYS/STRSBS SBSD(QCMN) MONMSG MSGID(CPF0000) QSYS/STRSBS SBSD(QSNADS) MONMSG MSGID(CPF0000) DONE: QSYS/RTVSYSVAL SYSVAL(QSTRPRTWTR) RTNVAR(&STRWTRS) IF COND(&STRWTRS = '0') THEN(GOTO CMDLBL(NOWTRS)) CALL PGM(QSYS/QWCSWTRS) MONMSG MSGID(CPF0000) STRHOSTSVR SERVER(*ALL) /* STARTING HOST SERVERS */ NOWTRS: RETURN CHGVAR VAR(&CPYR) VALUE(&CPYR) ENDPGM The new QSTRUP with v4r4 was included as follows... . . . QSYS/STRSBS SBSD(QSPL) /* START QSPL SUBSYSTEM */ MONMSG CPF0000 QSYS/STRSBS SBSD(QSERVER) /* START QSERVER SUBSYSTEM */ MONMSG CPF0000 QSYS/STRSBS SBSD(QUSRWRK) /* START QUSRWRK SUBSYSTEM */ MONMSG CPF0000 QSYS/STRCLNUP MONMSG CPF0000 QSYS/RTVSYSVAL SYSVAL(QCTLSBSD) RTNVAR(&CTLSBSD) IF ( ( &CTLSBSD *NE 'QCTL QSYS ' ) + *AND ( &CTLSBSD *NE 'QCTL QGPL ' ) ) THEN(+ GOTO CMDLBL( DONE ) ) STRTCP /* START TCPIP */ QSYS/STRSBS SBSD(QINTER) /* START QINTER SUBSYSTEM */ MONMSG CPF0000 QSYS/STRSBS SBSD(INVCTL) /* START INVCTL SUBSYSTEM */ MONMSG CPF0000 QSYS/STRSBS SBSD(QBATCH) /* START QBATCH SUBSYSTEM */ MONMSG CPF0000 QSYS/STRSBS SBSD(QCMN) /* START QCMN SUBSYSTEM */ MONMSG CPF0000 QSYS/STRSBS SBSD(QSNADS) /* START QSNADS SUBSYSTEM */ MONMSG CPF0000 DONE: QSYS/RTVSYSVAL SYSVAL(QSTRPRTWTR) RTNVAR(&STRWTRS) IF ( &STRWTRS = '0' ) THEN(+ GOTO CMDLBL( NOWTRS ) ) CALL PGM(QSYS/QWCSWTRS) MONMSG CPF0000 STRHOSTSVR SERVER(*ALL) /* STARTING HOST SERVERS */ NOWTRS: RETURN CHGVAR &CPYR &CPYR ENDPGM The main difference I can tell is the QUSRWRK subsystem starting up before the STRCLNUP. Then the call to STRTCP. Then following up with QINTER, QBATCH etc... just as before. The problem is that I get error messages during the job QSTRUPJD, stating "Routing entry sequence number xxxx already exists." With the routing sequence number changing forcing several errors during startup. Is the Prestart Jobs when QSYSWRK is started duplicating some of the work done by STRTCP, thus giving me a MSGW with 'Job complete but with errors"?? If so, do I need to change the routing entries for the Prestart jobs in QSYSWRK? Do I manually STRTCP after the IPL is complete? Is there another way I can achieve the same startup that I had originally without using QSYSWRK and starting STRTCP? If I ignore the error message, the job completes normally, thus finishing the job and starting my QINTER, QBATCH and other subsystems so that my users can start work, or I can dial in through the network. Any suggestions or knowledge from previous experience with this is greatly appreciated. Rick