29
Fri, Nov
0 New Articles

Ladies and Gentlemen, Start Up Your AS/400s

Typography
  • Smaller Small Medium Big Bigger
  • Default Helvetica Segoe Georgia Times

Every iSeries and AS/400 (hereafter referred to as iSeries) comes with a program that runs automatically during a system IPL. This program is provided to perform such tasks as starting subsystems, starting TCP/IP services, and starting the system printers. IBM has granted you the right to modify the startup program by giving you access to its source code. In this article, I’ll show you how to find the startup program on your system, and how to retrieve its source. After that, I’ll take a look at the format of a typical startup program, and then I’ll show you how to modify it to meet the needs of your individual shop.

Where’s the Source?

The default OS/400 startup program is named QSTRUP, and it resides in library QSYS. It’s possible that, at some point in the past, you or someone else has changed the default startup program your system uses when it IPLs. That is, someone may have created a duplicate of the startup program, added some unique functionality, and then compiled it under a different name. To determine the name of the current system startup program, enter the Display System Value (DSPSYSVAL) command on an iSeries command line as shown:

DSPSYSVAL SYSVAL(QSTRUPPGM)

This command will display the name of the program, which is defined as the current system startup program. You can modify this program by retrieving its source code. To do so, enter the Retrieve CL Source (RTVCLSRC) command from an iSeries command line as shown:

RTVCLSRC PGM(pgmlib/pgmname) SRCFILE(yourlib/yourfile).

Remember to replace pgmlib and pgmname with the library and program names that were shown when you displayed the QSTRUPPGM system value earlier. You should issue this command every time you want to modify the startup program rather than using any existing source of the same name you may have found. This is because you never know if the source you discovered in the source file somewhere matches the current object. If it doesn’t, you could be creating problems by starting services you no longer need or not


starting services that should be running. Be safe. Get a fresh copy of the source for the current startup program each time.

Figure 1 (page 110) is an example of the source from a typical startup program. Before you start modifying your own startup program, take a moment to study the source you retrieved. Look at the subsystems and other services that are currently being started. One thing you should notice is that there is a Monitor Message (MONMSG) command immediately following each command. The reason for this is so that if any single command fails during program execution, the rest of the program can still continue running. And, this is a critical requirement because you can’t afford to have your system IPL fail due to a startup program not finishing! When you add your own commands or functions to the startup program, make sure that you monitor for any possible errors the commands or function can generate so that you don’t inadvertently keep your system from starting. The easiest way to do this is to monitor for the message ID CPF0000 after each command. If the command fails, this will generally catch any exception errors, and then allow the program to continue on to the next command. You may be tempted to add a global error message monitor at the beginning of the program. Don’t do it. If you do, and one of the commands in the program fails, the entire program will abend. And, if that happens, none of the commands that should have run after the failing command will be able to execute.

Modifying the Startup Program

In most cases you will want to place any additions to the program immediately after the DONE: tag line. It is possible that you would need to place commands in the section of the program before the DONE tag. For example, if you needed to complete a task prior to starting a specific subsystem, this would be inserted somewhere before the STRSBS command for that subsystem. One of the most common reasons to modify the startup program is to add a command to start your system’s TCP/IP services or start all the Host Servers when the system starts. To accomplish this, you would probably add the following five lines of code to the program source:

QSYS/STRTCP

MONMSG MSGID(CPF0000)

QSYS/DLYJOB DLY(60)

QSYS/STRHOSTSVR SERVER(*ALL)

MONMSG MSGID(CPF0000)

Remember to place these lines immediately following the line containing the DONE: This code will start the TCP/IP interface, take a one-minute pause to wait for all of the TCP/IP services to become active and then start the host server jobs allowing PC clients to access the host resources. Once you’ve added these lines to the startup program, save your work and exit SEU. Next, you will need to compile the new, modified version of this program. Do this by entering the Create CL Program command (CRTCLPGM) from a command line as shown:

CRTCLPGM PGM(libname/QSTRUP) SRCFILE(libname/filename)

You will probably want to create the modified version in a library other than the library containing the original, unmodified program (QSYS). This will leave the original program untouched for later use. Also, once you’ve tested your startup program and are sure it’s ready to go, you can simply change the QSTRUPPGM system value to activate the new program. If you choose to upgrade to a new release. the unmodified startup program for that release would overwrite whatever version of the startup program exists in QSYS library. By keeping your new startup program in a different library or by giving it a name other than QSTRUP, you can ensure that the new program will remain as the current


tag.

startup program, even after an operating system upgrade. After your source has been saved and compiled, it’s time to think about testing the program and checking object authority on any added commands.

Object Security and Testing

Once you’ve modified the startup program, it’s important to make sure that any commands you’ve added will be able to be run when the startup job runs. One of the primary causes of a modified startup program failing is that the QPGMR user profile doesn’t have authority to the command. To avoid this snag, you will need to make sure that the QPGMR profile has object authority on any commands you’ve added to the startup program, since the startup job itself runs under the QPGMR profile. When checking command authority, either *PUBLIC or QPMGR need to have at least *USE authority on any commands to be executed. To check or modify the object authority, use the Edit Object Authority (EDTOBJAUT) command as shown:

EDTOBJAUT OBJ(QSYS/STRTCP) OBJTYPE(*CMD)

The next step is to test your modified startup program. Believe it or not, testing your startup program is as simple as calling the program from a command prompt by issuing the command CALL PGM(mylib/QSTRUP). This is possible thanks to the MONMSG command that I mentioned earlier. Using this command prevents error messages from being returned if a job has already been started. This means that when you run the startup program you won’t receive error messages when the program tries to start subsystems that are already active. The downside to simply calling the startup program from a command line is that, while you can test the program for functionality, it won’t show any possible authority problems that could occur when the program is run at IPL under the QPGMR profile. The solution to that problem is to test the startup program by submitting the CALL command so that it runs using the QPGMR profile. The syntax for that command is as follows:

SBMJOB CMD(CALL PGM(mylib/QSTRUP)) USER(QPGMR)

Preventing the Startup Program from Running

You may have a legitimate need to not run the startup program during an IPL. Perhaps you are installing new DASD or other hardware, and you need to perform multiple IPLs. In that case, you may not want to wait for the startup program to finish running each time before you can IPL again. In that case, you should have an understanding of how the startup program is executed so that you can keep it from running.

The system startup program runs as an autostart job after the iSeries has finished IPLing and, more specifically, after the controlling subsystem, QCTL, has started. In the subsystem description for QCTL, you’ll find an autostart entry named QSTRUPJD. If you issue the command Display Job Description (DSPJOBD) command for the QSTRUPJD job description, you’ll see that the Request Data entry reads “QSYS/CALL QSYS/QWDAJPGM”. It is the QWDAJPGM program that retrieves the system value QSTRUPPGM and then runs the program defined there. If you want to keep the startup program from running, then you must ensure that the system value QSTRUPPGM contains the special value of *NONE. When the QSYS/QWDAJPGM program runs, it will find *NONE as the name of the program to run and immediately terminate. To change this system value, enter the Change System Value (CHGSYSVAL) command as shown:

CHGSYSVAL SYSVAL(QSTRUPPGM) VALUE(*NONE)


On Your Marks...

Using the information shown here, you should be able to accurately simulate how the startup program will run at IPL. It’s important to remember that, by default, the job description used by the startup program does not log CL commands. If you are experiencing problems with your startup program or if you want to monitor the startup program after making a modification, you can simply change the QSTRUPJD job description to log CL commands. This would be done using the Change Job Description (CHGJOBD) command as shown:

CHGJOBD JOBD(QSTRUPJD) LOGCLPGM(*YES)

After your system has IPLed and the startup job is complete, you will find the job log from this program in the QEZJOBLOG output queue. At this point, your modified startup job should be thoroughly tested and ready to go. All you need to do now is change the QSTRUPPGM system value by using the Change System Value command mentioned previously and entering the library and name of your new startup program in the VALUE parameter. With a little modification and some careful preparation and testing, you can easily automate the running of any required programs when your system IPLs.

REFERENCES AND RELATED MATERIALS

• OS/400 Work Management V4R4 (SC41-5306-03, QB3ALG03)

PGM

DCL VAR(&STRWTRS) TYPE(*CHAR) LEN(1)

DCL VAR(&CTLSBSD) TYPE(*CHAR) LEN(20)

DCL VAR(&CPYR) TYPE(*CHAR) LEN(90) VALUE('5769-SS1 (C) COPYRIGHT-

IBM CORP 1980, 1999. LICENSED MATERIAL - PROGRAM PROPERTY OF IBM')

QSYS/STRSBS SBSD(QSPL)

MONMSG MSGID(CPF0000)

QSYS/STRSBS SBSD(QSERVER)

MONMSG MSGID(CPF0000)

QSYS/STRSBS SBSD(QUSRWRK)

MONMSG MSGID(CPF0000)

QSYS/RLSJOBQ JOBQ(QGPL/QS36MRT)

MONMSG MSGID(CPF0000)

QSYS/RLSJOBQ JOBQ(QGPL/QS36EVOKE)

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))

QSYS/STRSBS SBSD(QINTER)

MONMSG MSGID(CPF0000)

QSYS/STRSBS SBSD(QBATCH)

MONMSG MSGID(CPF0000)

QSYS/STRSBS SBSD(QCMN)

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)

NOWTRS:

RETURN

CHGVAR VAR(&CPYR) VALUE(&CPYR)

ENDPGM

Figure 1: The retrieved startup program should contain the MONMSG command.


Mike Faust

Mike Faust is a senior consultant/analyst for Retail Technologies Corporation in Orlando, Florida. Mike is also the author of the books Active Server Pages Primer, The iSeries and AS/400 Programmer's Guide to Cool Things, JavaScript for the Business Developer, and SQL Built-in Functions and Stored Procedures. You can contact Mike at This email address is being protected from spambots. You need JavaScript enabled to view it..


MC Press books written by Mike Faust available now on the MC Press Bookstore.

Active Server Pages Primer Active Server Pages Primer
Learn how to make the most of ASP while creating a fully functional ASP "shopping cart" application.
List Price $79.00

Now On Sale

JavaScript for the Business Developer JavaScript for the Business Developer
Learn how JavaScript can help you create dynamic business applications with Web browser interfaces.
List Price $44.95

Now On Sale

SQL Built-in Functions and Stored Procedures SQL Built-in Functions and Stored Procedures
Unleash the full power of SQL with these highly useful tools.
List Price $49.95

Now On Sale

BLOG COMMENTS POWERED BY DISQUS

LATEST COMMENTS

Support MC Press Online

$

Book Reviews

Resource Center

  • SB Profound WC 5536 Have you been wondering about Node.js? Our free Node.js Webinar Series takes you from total beginner to creating a fully-functional IBM i Node.js business application. You can find Part 1 here. In Part 2 of our free Node.js Webinar Series, Brian May teaches you the different tooling options available for writing code, debugging, and using Git for version control. Brian will briefly discuss the different tools available, and demonstrate his preferred setup for Node development on IBM i or any platform. Attend this webinar to learn:

  • SB Profound WP 5539More than ever, there is a demand for IT to deliver innovation. Your IBM i has been an essential part of your business operations for years. However, your organization may struggle to maintain the current system and implement new projects. The thousands of customers we've worked with and surveyed state that expectations regarding the digital footprint and vision of the company are not aligned with the current IT environment.

  • SB HelpSystems ROBOT Generic IBM announced the E1080 servers using the latest Power10 processor in September 2021. The most powerful processor from IBM to date, Power10 is designed to handle the demands of doing business in today’s high-tech atmosphere, including running cloud applications, supporting big data, and managing AI workloads. But what does Power10 mean for your data center? In this recorded webinar, IBMers Dan Sundt and Dylan Boday join IBM Power Champion Tom Huntington for a discussion on why Power10 technology is the right strategic investment if you run IBM i, AIX, or Linux. In this action-packed hour, Tom will share trends from the IBM i and AIX user communities while Dan and Dylan dive into the tech specs for key hardware, including:

  • Magic MarkTRY the one package that solves all your document design and printing challenges on all your platforms. Produce bar code labels, electronic forms, ad hoc reports, and RFID tags – without programming! MarkMagic is the only document design and print solution that combines report writing, WYSIWYG label and forms design, and conditional printing in one integrated product. Make sure your data survives when catastrophe hits. Request your trial now!  Request Now.

  • SB HelpSystems ROBOT GenericForms of ransomware has been around for over 30 years, and with more and more organizations suffering attacks each year, it continues to endure. What has made ransomware such a durable threat and what is the best way to combat it? In order to prevent ransomware, organizations must first understand how it works.

  • SB HelpSystems ROBOT GenericIT security is a top priority for businesses around the world, but most IBM i pros don’t know where to begin—and most cybersecurity experts don’t know IBM i. In this session, Robin Tatam explores the business impact of lax IBM i security, the top vulnerabilities putting IBM i at risk, and the steps you can take to protect your organization. If you’re looking to avoid unexpected downtime or corrupted data, you don’t want to miss this session.

  • SB HelpSystems ROBOT GenericCan you trust all of your users all of the time? A typical end user receives 16 malicious emails each month, but only 17 percent of these phishing campaigns are reported to IT. Once an attack is underway, most organizations won’t discover the breach until six months later. A staggering amount of damage can occur in that time. Despite these risks, 93 percent of organizations are leaving their IBM i systems vulnerable to cybercrime. In this on-demand webinar, IBM i security experts Robin Tatam and Sandi Moore will reveal:

  • FORTRA Disaster protection is vital to every business. Yet, it often consists of patched together procedures that are prone to error. From automatic backups to data encryption to media management, Robot automates the routine (yet often complex) tasks of iSeries backup and recovery, saving you time and money and making the process safer and more reliable. Automate your backups with the Robot Backup and Recovery Solution. Key features include:

  • FORTRAManaging messages on your IBM i can be more than a full-time job if you have to do it manually. Messages need a response and resources must be monitored—often over multiple systems and across platforms. How can you be sure you won’t miss important system events? Automate your message center with the Robot Message Management Solution. Key features include:

  • FORTRAThe thought of printing, distributing, and storing iSeries reports manually may reduce you to tears. Paper and labor costs associated with report generation can spiral out of control. Mountains of paper threaten to swamp your files. Robot automates report bursting, distribution, bundling, and archiving, and offers secure, selective online report viewing. Manage your reports with the Robot Report Management Solution. Key features include:

  • FORTRAFor over 30 years, Robot has been a leader in systems management for IBM i. With batch job creation and scheduling at its core, the Robot Job Scheduling Solution reduces the opportunity for human error and helps you maintain service levels, automating even the biggest, most complex runbooks. Manage your job schedule with the Robot Job Scheduling Solution. Key features include:

  • LANSA Business users want new applications now. Market and regulatory pressures require faster application updates and delivery into production. Your IBM i developers may be approaching retirement, and you see no sure way to fill their positions with experienced developers. In addition, you may be caught between maintaining your existing applications and the uncertainty of moving to something new.

  • LANSAWhen it comes to creating your business applications, there are hundreds of coding platforms and programming languages to choose from. These options range from very complex traditional programming languages to Low-Code platforms where sometimes no traditional coding experience is needed. Download our whitepaper, The Power of Writing Code in a Low-Code Solution, and:

  • LANSASupply Chain is becoming increasingly complex and unpredictable. From raw materials for manufacturing to food supply chains, the journey from source to production to delivery to consumers is marred with inefficiencies, manual processes, shortages, recalls, counterfeits, and scandals. In this webinar, we discuss how:

  • The MC Resource Centers bring you the widest selection of white papers, trial software, and on-demand webcasts for you to choose from. >> Review the list of White Papers, Trial Software or On-Demand Webcast at the MC Press Resource Center. >> Add the items to yru Cart and complet he checkout process and submit

  • Profound Logic Have you been wondering about Node.js? Our free Node.js Webinar Series takes you from total beginner to creating a fully-functional IBM i Node.js business application.

  • SB Profound WC 5536Join us for this hour-long webcast that will explore:

  • Fortra IT managers hoping to find new IBM i talent are discovering that the pool of experienced RPG programmers and operators or administrators with intimate knowledge of the operating system and the applications that run on it is small. This begs the question: How will you manage the platform that supports such a big part of your business? This guide offers strategies and software suggestions to help you plan IT staffing and resources and smooth the transition after your AS/400 talent retires. Read on to learn: