User:Heiko

From Try-AS/400
Jump to navigation Jump to search

About

This is Heikos personal page, in which he maybe shares some private information or collects bits for new articles.

Personal information

Heiko has been in IT since the 90s, but never worked with an AS/400...until 2019. He'll document his first steps in the hope they will be useful to others.

Ideas for new articles

Project Hello World

Preparations

Things you need:

  • an AS/400 (obviously :) )
  • an working account
  • log in
  • command prompt
  • maybe this for easy reference: Basic Commands

Creating a physical file to hold the sources

Every user has a personal library, like an home in an Linux environment. Since a user can have and use multiple libraries, the current (=default for all operations) is stored in *CURLIB[1]. Because the value of *CURLIB can be changed by the screen you are currently working in, all following commands will contain my personal library name HKRETSCHME. It could be omitted if you're sure, *CURLIB is set correctly.

This command creates a physical file named HELLO01:

CRTSRCPF FILE(HKRETSCHME/HELLO01) RCDLEN(112) TEXT('Project Hello World')

But I prefer to do this in more steps, which I'd recommend to every beginner (by the way: don't bother using cases, the AS/400 won't either. Using capital commands and names just makes it more readable in this article):

CRTSRCPF

If you don't give any parameters, you will be asked. This a very convenient way use all the available options without looking them up:

HelloWorld01CRTSRCPF.png

Project 99 bottles of beer

I know Rexx from my OS/2 days. Why not trying to create and run a 99 bottles of beer? I got the source here: http://www.99-bottles-of-beer.net/language-rexx-2247.html

Preparations

Things you need:

  • an AS/400 (obviously :) )
  • an working account
  • log in
  • command prompt
  • maybe this for easy reference: Basic Commands
  • Create a physical file to hold the script. This is described in the Hello World Project. I created a file named BOTTLES[2].

Create the script file

The next step creates a member named BOTT[3] in source file BOTTLES which is stored in library HKRETSCHME.

Work with the BOTTLES file:

WRKMBRPDM FILE(HKRETSCHME/BOTTLES)

or…

WRKMBRPDM FILE(HKRETSCHME/BOTTLES) MBR(BOTT)

…if you already created the BOTTLES member (=script object in BOTTLES source file).

Create the member BOTT: Hit F6 to bring up the options of STRSEU: File:Project99BottlesSTRSEU.png

Insert the code: File:Project99BottlesSEU.png

Compile the code and run it


  1. https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_71/rzarl/rzarlcurlib.htm
  2. 99BOTTLES would have been nice, but filenames are not allowed to begin with numbers
  3. Members cannot have the same name as the physical source file (BOTTLES). Therefore the member is named BOTT.