QSTRUP and STRTCP...
Patrick Goeman
My first success today was to RTVCLSRC my start-up program. I'm so proud of
that !
But now, I just want to put instructions in my start-up program to start
TCP/IP services automatically.
I have to insert 3 lines :
STRIPX IPXD(QDCIPX1)
STRTCP
STRHOSTSVR SERVER(*ALL)
The problem is to know where I should insert thoses lines.
Below is the listing of my QSTRUP. Any advice ?
Thanks for response...
0001.00
/********************************************************************/
000000
0002.00 /*
*/ 000000
0003.00 /* 5769SS1 V4R1M0 970829 Sortie RTVCLSRC 02/12/98 09:02:19
*/ 000000
0004.00 /*
*/ 000000
0005.00 /* Nom du programme . . . . . . . . . . . . : QSTRUP
PN*/ 000000
0006.00 /* Nom de la bibliothèque . . . . . . . . . : QSYS
PL*/ 000000
0007.00 /* Fichier source initial . . . . . . . . . : QCLSRC
SN*/ 000000
0008.00 /* Nom de la bibliothèque . . . . . . . . . : QGPL
SL*/ 000000
0009.00 /* Membre source initial . . . . . . . . . : QSTRUP
SM*/ 000000
0010.00 /* Modification du fichier source
*/ 000000
0011.00 /* date/heure . . . . . . . . . . . . . . : 01/12/98 10:11:21
SC*/ 000000
0012.00 /* Option de modification . . . . . . . . . : *NOPATCH
PO*/ 000000
0013.00 /* Profil utilisateur . . . . . . . . . . . : *USER
UP*/ 000000
0014.00 /* Texte . . : Start-up program PG 01/12/98
TX*/ 000000
0015.00 /* Propriétaire . . . . . . . . . . . . . . : GOEMAN
OW*/ 000000
0016.00 /* ID modification . . . . . . . . . . . . :
PC*/ 000000
0017.00 /* ID APAR modification . . . . . . . . . . :
PA*/ 000000
0018.00 /* Marquage modification utilisateur . . . : *YES
UM*/ 000000
0019.00 /*
ED*/ 000000
0020.00
/********************************************************************/
000000
0021.00 PGM
000000
0022.00 DCL VAR(&STRWTRS) TYPE(*CHAR) LEN(1)
000000
0023.00 DCL VAR(&CTLSBSD) TYPE(*CHAR) LEN(20)
000000
0024.00 DCL VAR(&CPYR) TYPE(*CHAR) LEN(90) VALUE('5769-SS1 (C)
COPYRIGHT- 000000
0025.00 IBM CORP 1980, 1997. LICENSED MATERIAL - PROGRAM PROPERTY OF IBM')
000000
0026.00 QSYS/STRSBS SBSD(QSPL)
000000
0027.00 MONMSG MSGID(CPF0000)
000000
0028.00 QSYS/STRSBS SBSD(QSERVER)
000000
0029.00 MONMSG MSGID(CPF0000)
000000
0030.00 QSYS/RLSJOBQ JOBQ(QGPL/QS36MRT)
000000
0031.00 MONMSG MSGID(CPF0000)
000000
0032.00 QSYS/RLSJOBQ JOBQ(QGPL/QS36EVOKE)
000000
0033.00 MONMSG MSGID(CPF0000)
000000
0034.00 QSYS/STRCLNUP
000000
0035.00 MONMSG MSGID(CPF0000)
000000
0036.00 QSYS/RTVSYSVAL SYSVAL(QCTLSBSD) RTNVAR(&CTLSBSD)
000000
0037.00 IF COND((&CTLSBSD *NE 'QCTL QSYS ') *AND (&CTLSBSD
*NE- 000000
0038.00 'QCTL QGPL ')) THEN(GOTO CMDLBL(DONE))
000000
0039.00 QSYS/STRSBS SBSD(QINTER)
000000
0040.00 MONMSG MSGID(CPF0000)
000000
0041.00 QSYS/STRSBS SBSD(QBATCH)
000000
0042.00 MONMSG MSGID(CPF0000)
000000
0043.00 QSYS/STRSBS SBSD(QCMN)
000000
0044.00 MONMSG MSGID(CPF0000)
000000
0045.00 DONE:
000000
0046.00 QSYS/RTVSYSVAL SYSVAL(QSTRPRTWTR) RTNVAR(&STRWTRS)
000000
0047.00 IF COND(&STRWTRS = '0') THEN(GOTO CMDLBL(NOWTRS))
000000
0048.00 CALL PGM(QSYS/QWCSWTRS)
000000
0049.00 MONMSG MSGID(CPF0000)
000000
0050.00 NOWTRS:
000000
0051.00 RETURN
000000
0052.00 CHGVAR VAR(&CPYR) VALUE(&CPYR)
000000
0053.00 ENDPGM
000000
Alessandro Monari
One consideration: you'll be better to compile the program in a library of
yours instead of overwriting QSYS/QSTRUP. Changing QSTRUPPGM system value to
YOURLIB/YOURPGM will get the trick preventing you from loosing the program
during an OS upgrade.
HTH
--------------------------------------------------
Alessandro Monari
DP Informatica
Via Giardini 454 Scala B
41100 Modena MO
e-mail: monar...@NS.dpinfo.it (remove "NS.")
--------------------------------------------------
Paul Nicolay
Some additional remarks;
- add a DLYJOB between STRTCP and STRHOSTSVR
- change the command authority of STRHOSTSVR to allow QPGMR to use it
And I would have added it after 44.
Have fun,
Paul
_______________
Alessandro Monari <monar...@NS.dpinfo.it> wrote in article
<366506E3...@NS.dpinfo.it>...
The contents of this message express only the sender's opinion.
This message does not necessarily reflect the policy or views of
my employer, Merck & Co., Inc. All responsibility for the statements
made in this Usenet posting resides solely and completely with the
sender.
Bengt Persson
Even more additional remarks!
I always compile the "QSTRUP" with the QSECOFR profile
specifying USRPRF(*OWNER) in CRTCLPGM. Then there will be no
authority problems when QPGMR runs it at IPL.
And yes, after line 44 is the right place.
Regards,
Bengt
Paul Nicolay skrev i meddelandet <01be1de0$4ba2e8c0$4e44...@merck.com>...
David Koski
Can anyone tell me where to find the CL source code for the
IBM supplied "base version" of the QSTRUP program?
Or
Can someone give me the CL source so I can edit/add some things to
it and make sure I get all the "required" stuff started in addition
to the things I want to add to it.
Any and all help is appreciated!
TIA
David Koski
(remove the NOSPAM to reply via Email)
PE
yesterday. Here is the command.
RTVCLSRC PGM(QSYS/QSTRUP) SRCFILE(QGPL/QCLSRC) SRCMBR(*PGM). This is
how to get the source.
Philip
Alessandro Monari
Right place is 45.00 or greater :-)
Peace.
Alessandro Monari
HTH
Alessandro Monari
Karl Hanson
the QSYS/QSTRUP program (or any IBM-supplied object for that matter). A
better alternative is to create another startup program in your library
of choice, and modify the QSTRUPPGM system value.
WRKSYSVAL QSTRUPPGM
or WRKSYSVAL *SYSCTL
--
Karl Hanson
Jack E. Kingsley II
forget to change your system value as well QSTRUPPGM.
Albert Enthammer
SEU==> QSTRUP_IBM
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
***************** Datenanfang *******************************************************************************************
0002.00 /* */ 000000
0004.00 /* */ 000000
0005.00 /* Programmname . . . . . . . . . . . . . . : QSTRUP PN*/ 000000
0006.00 /* Bibliotheksname . . . . . . . . . . . . : QSYS PL*/ 000000
0007.00 /* Ursprüngliche Quellendatei . . . . . . . : SN*/ 000000
0008.00 /* Bibliotheksname . . . . . . . . . . . . : SL*/ 000000
0009.00 /* Ursprüngliche Quellenteildatei . . . . . : SM*/ 000000
0010.00 /* Änderung der Quellendatei */ 000000
0011.00 /* Datum/Uhrzeit . . . . . . . . . . . . : SC*/ 000000
0012.00 /* Korrekturangabe . . . . . . . . . . . . : *NOPATCH PO*/ 000000
0013.00 /* Benutzerprofil . . . . . . . . . . . . . : *USER UP*/ 000000
0014.00 /* Text . . . : TX*/ 000000
0015.00 /* Eigner . . . . . . . . . . . . . . . . . : QSYS OW*/ 000000
0016.00 /* Korrekturänderungs-ID . . . . . . . . . : PC*/ 000000
0017.00 /* Korrektur-APAR-ID . . . . . . . . . . . : PA*/ 000000
0018.00 /* Benutzermodus . . . . . . . . . . . . . : *NO UM*/ 000000
0019.00 /* ED*/ 000000
F3=Verl. F5=Aktual. F9=Auffinden F10=Pos.-Anz. F11=Umschalten F12=Abbrechen
F16=Suchvorgang wiederholen F24=Weitere Tasten
(C) COPYRIGHT IBM CORP. 1981, 1998.
Spalten . . . : 1 101 Ansehen AS400_S20/QCLSRC
SEU==> QSTRUP_IBM
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
0020.00 /********************************************************************/ 000000
0021.00 PGM 000000
0022.00 DCL VAR(&STRWTRS) TYPE(*CHAR) LEN(1) 000000
0023.00 DCL VAR(&CTLSBSD) TYPE(*CHAR) LEN(20) 000000
0024.00 DCL VAR(&CPYR) TYPE(*CHAR) LEN(90) VALUE('5769-SS1 (C) COPYRIGHT- 000000
0025.00 IBM CORP 1980, 1997. LICENSED MATERIAL - PROGRAM PROPERTY OF IBM') 000000
0026.00 QSYS/STRSBS SBSD(QSPL) 000000
0027.00 MONMSG MSGID(CPF0000) 000000
0028.00 QSYS/STRSBS SBSD(QSERVER) 000000
0029.00 MONMSG MSGID(CPF0000) 000000
0030.00 QSYS/RLSJOBQ JOBQ(QGPL/QS36MRT) 000000
0031.00 MONMSG MSGID(CPF0000) 000000
0032.00 QSYS/RLSJOBQ JOBQ(QGPL/QS36EVOKE) 000000
0033.00 MONMSG MSGID(CPF0000) 000000
0034.00 QSYS/STRCLNUP 000000
0035.00 MONMSG MSGID(CPF0000) 000000
0036.00 QSYS/RTVSYSVAL SYSVAL(QCTLSBSD) RTNVAR(&CTLSBSD) 000000
0037.00 IF COND((&CTLSBSD *NE 'QCTL QSYS ') *AND (&CTLSBSD *NE- 000000
0038.00 'QCTL QGPL ')) THEN(GOTO CMDLBL(DONE)) 000000
F16=Suchvorgang wiederholen F24=Weitere Tasten
Spalten . . . : 1 101 Ansehen AS400_S20/QCLSRC
SEU==> QSTRUP_IBM
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
0039.00 QSYS/STRSBS SBSD(QINTER) 000000
0040.00 MONMSG MSGID(CPF0000) 000000
0041.00 QSYS/STRSBS SBSD(QBATCH) 000000
0042.00 MONMSG MSGID(CPF0000) 000000
0043.00 QSYS/STRSBS SBSD(QCMN) 000000
0044.00 MONMSG MSGID(CPF0000) 000000
0045.00 DONE: 000000
0046.00 QSYS/RTVSYSVAL SYSVAL(QSTRPRTWTR) RTNVAR(&STRWTRS) 000000
0047.00 IF COND(&STRWTRS = '0') THEN(GOTO CMDLBL(NOWTRS)) 000000
0048.00 CALL PGM(QSYS/QWCSWTRS) 000000
0049.00 MONMSG MSGID(CPF0000) 000000
0050.00 NOWTRS: 000000
0051.00 RETURN 000000
0052.00 CHGVAR VAR(&CPYR) VALUE(&CPYR) 000000
0053.00 ENDPGM 000000
F3=Verl. F5=Aktual. F9=Auffinden F10=Pos.-Anz. F11=Umschalten F12=Abbrechen
F16=Suchvorgang wiederholen F24=Weitere Tasten
David Koski schrieb:
David Koski
>
> There was just somebody asking about the QSTRUP program earlier today
> RTVCLSRC PGM(QSYS/QSTRUP) SRCFILE(QGPL/QCLSRC) SRCMBR(*PGM). This is
> how to get the source.
>
> Philip
Thanks to everyone for the speedy replies to my request.
I prolly read those posts yesterday and then had a "brain spaz"
and didn't actually pay attention to the responses.
Thanks again!
David Koski
Patrick Goeman
That was great help...
And tomorrow it was a miracle :
When I hit : VFYTCPCNN RMTSYS(AS400.SMSIE.FR), my favorite AS/400 answered
me :
Verifying connection to host system AS400 at address 129.1.1.1.
Connection verification 1 took 0,010 seconds. 1 successful connection
verifications.
Connection verification 2 took 0,009 seconds. 2 successful connection
verifications.
Connection verification 3 took 0,009 seconds. 3 successful connection
verifications.
Connection verification 4 took 0,009 seconds. 4 successful connection
verifications.
Connection verification 5 took 0,009 seconds. 5 successful connection
verifications.
Round-trip (in milliseconds) min/avg/max = 9/9/10
Connection verification statistics: 5 of 5 successful (100 %).
GREAT IT WORKS FINE...