How do I edit the Startup Program without PDM on the system?

[Jason Lane]

I went to change the startup program to add the STRTCP and STRHOSTSVR
commands to an AS/400 but I got -

STRPDM not found in LIBL

How do I change (edit) the startup program without PDM on the system?

I'm assuming it's not installed since I was logged in as QSECOFR and
still couldn't find it.

[Ian Simmons]

Gulp - What about STRSEU?

Jason Lane <lan...@nospam.gte.net> wrote in article

[PE]

try the command STRSEU press F4 and enter file and member name and
press enter

Jason Lane wrote:

> I went to change the startup program to add the STRTCP and STRHOSTSVR
> commands to an AS/400 but I got -
>
> STRPDM not found in LIBL
>

> How do I change (edit) the startup program without PDM on the system?
>

[Darryl Johns]

On Tue, 03 Nov 1998 19:28:08 GMT, lan...@nospam.gte.net (Jason Lane)
wrote:

>I went to change the startup program to add the STRTCP and STRHOSTSVR
>commands to an AS/400 but I got -
>
>STRPDM not found in LIBL
>
>How do I change (edit) the startup program without PDM on the system?
>
>I'm assuming it's not installed since I was logged in as QSECOFR and
>still couldn't find it.

Jason,
I've been in this situation myself a number of years ago. My technique
was to:
1. RTVCLSRC for the startup program to a source member of my choosing
2. Copy the "original" startup program object to another "safe" place
(just in case)
3. Download the source with Client Access to my PC
4. Edit the file on the PC (pick an editor)
5. Upload and replace the member
6. Compile the revised program

Hope this helps,

Darryl Johns
IBM AS/400 e-business Specialist
(opinions expressed are mine, not necessarily those of IBM)

[Tim]

If you are at V4 or above you can use the EDTF command if you download the
PTF to install it.

EDTF can edit stream files, program described database files, and source
files.

Jason Lane wrote in message <363f58dd...@news.supernews.com>...

[Orangtang]

It's possible that the STRPDM is not in QSYS where it's suppose to be..Do a
WRKOBJ *ALL/STRPDM *CMD....it may have just not been in your library list...we
had this problem once before..Ron

[Walter]

The editor is SEU (source entry utility) and is always available. STRSEU F4.
To compile use CRTCLPGM.

PDM is a license program you have to buy. It is a development system and
user interface to make things easier. It displays lists of sources, starts
SEU and the matching compiler by typing 14 in front of one and such things.

Walter

[Sclind2]

>The editor is SEU (source entry utility) and is always available.

I'm not sure this is true. I thought SEU (and PDM, RLU, SDA) are part of the
Application Development Toolset product. On my system, all these commands are
in library QPDA and then get copied to QSYS.

I'd be surprised if you find STRSEU anywhere on a system that doesn't have the
57xx-PW1 product licensed.
Scott Lindstrom
Zenith Electronics Corporation

[boo...@ibm.net]

You mif\ght have just as good results with:

UPDDTA QATOCSTART

That is much handier than messing around with the startup program.

In <363f58dd...@news.supernews.com>, on 11/03/98

at 07:28 PM, lan...@nospam.gte.net (Jason Lane) said:

>I went to change the startup program to add the STRTCP and STRHOSTSVR
>commands to an AS/400 but I got -

>STRPDM not found in LIBL

>How do I change (edit) the startup program without PDM on the system?

>I'm assuming it's not installed since I was logged in as QSECOFR and
>still couldn't find it.

--
-----------------------------------------------------------
boo...@ibm.net
Booth Martin
-----------------------------------------------------------

[John Hamrick]

We have a model 170 with V4R2 on it. SEU is not on this machine. Should it
be?

John Hamrick,
Fisher Auto Parts, Inc.

Walter <10043...@compuserve.com> wrote in message
<71p0gm$781$1...@euler.space.net>...

[charl...@yahoo.com]

On Wed, 4 Nov 1998 08:20:25 -0500, "John Hamrick"
<fapitm...@email.com> wrote:

>We have a model 170 with V4R2 on it. SEU is not on this machine. Should it
>be?
>
>John Hamrick,
>Fisher Auto Parts, Inc.

If you have 5769-PW1, you should have SEU along with the following:
PDM (Program Development Manager)
SEU (Source Entry Utility)
SDA (Screen Design Aid)
RLU (Report Layout Utility)
DFU (Data File Utility)
FCMU (File Compose and Merge Utility)
ISDB (Interactive Source Debugger)
Application Dictionary Services
Aplication Development Manager

I did not see any way in the ITSO handbook to order SEU separately.
- Charles

- - -
"Nothing makes a person more productive than the last minute."

[Jason Lane]

No go...STRSEU isn't on the system either.

On Tue, 03 Nov 1998 14:23:34 -0600, PE <p...@centuryinter.net> wrote:

>try the command STRSEU press F4 and enter file and member name and
>press enter
>
>Jason Lane wrote:
>

[Jason Lane]

Actually STRSEU isn't available. This customer did their own upgrade
to V3R2 and now both STRPDM and STRSEU are in a library called

QSYSV3R1M0

and when I try and run them I get an error saying it's not the correct
version.
What now?

[Nick Roux]

The following should do the trick:

1.Retreive the source code
RTVCLSRC PGM(QGPL/QSTRUP) SRCFILE(QGPL/QCLSRC)

2. Create a physical file that you can change with UPDDTA
CRTPF FILE(QTEMP/QSTRUP) RCDLEN(80)

3. Copy the source to the physical file
CPYF FROMFILE(QCLSRC/QGPL) TOFILE(QTEMP/QSTRUP) FROMMBR(QSTRUP)
MBROPT(*ADD) FMTOPT(*CVTSRC)

4. Do your changes
UPDDTA FILE(QTEMP/QSTRUP)

5. Copy the source back to the source file
CPYF FROMFILE(QTEMP/QSTRUP) TOFILE(QGPL/QCLSRC/QSTRUP) TOMBR(QSTRUP)
MBROPT(*REPLACE) FMTOPT(*CVTSRC)

6. Create the program
CRTCLPGM PGM(QGPL/QSTRUP) SRCFILE(QGPL/QCLSRC)

Nick

On Thu, 05 Nov 1998 13:29:02 GMT, lan...@nospam.gte.net (Jason Lane)
wrote:

>Actually STRSEU isn't available. This customer did their own upgrade

================================
Nick Roux
AS/400 Technical Specialist
Corporate Bank
Tel : +27.11.371.9366
Cell: +27.82.954.5463
================================

[Karl Hanson]

Darryl Johns wrote:
>
<snip>

> 1. RTVCLSRC for the startup program to a source member of my choosing
> 2. Copy the "original" startup program object to another "safe" place
> (just in case)
> 3. Download the source with Client Access to my PC
> 4. Edit the file on the PC (pick an editor)
> 5. Upload and replace the member
> 6. Compile the revised program

<snip>

Another way to use a PC editor via CA/400:
1) In Client Access Properties, on the Network Drives tab, add file
extension MBR in the section "File extensions for automatic EBCDIC/ASCII
conversion. (this is a one-time setup).
2) Map a network drive to the AS/400:
Right click on Network Neighborhood->Map Network Drive.
In the Path box, specify something like:
\\myas400
\\myas400\QSYS.LIB
3) Start a PC editor - eg WordPad - and use the std open dialog to open
your source member. For WordPad it would be File->Open, and in "Files
of type:" select "All Documents (*.*)". Find the network drive assigned
in step 2, then drill down to the file and member, eg MYLIB.LIB,
QCLSRC.FILE, QSTRUP.MBR and open it.
4) Change the source member as desired and save it.

I believe this method only uses the "no charge" parts of CA/400.

Also, you can leave the IBM-supplied QSTRUP program as is, and change
the QSTRUPPGM system value to specify your program:
WRKSYSVAL QSTRUPPGM

--

Karl Hanson

[John Gojnich]

Jason Lane wrote:

> Actually STRSEU isn't available. <SNIP>
> What now?

Like Tim said earlier, get EDTF the "secret" free-editor that has been available
since R360!

http://www.dejanews.com/dnquery.xp?QRY=edtf&ST=PS&groups=comp.sys.ibm.as400.misc

The post from "alcatraz" gives you the FTP site or get one of the following:

R360: SF32208
R370: SF38832
R410: SF41518
R420: SF45296
R430: SF49052

Don't tell anyone how you found it :)
--
John Gojnich
Intentia Australia
http://www.intentia.com.au