User:Heiko: Difference between revisions
| Line 53: | Line 53: | ||
Create the member <tt>BOTT</tt>: | Create the member <tt>BOTT</tt>: | ||
Hit F6 to bring up the options of <tt>STRSEU</tt>: | Hit F6 to bring up the options of <tt>STRSEU</tt>: | ||
[[Image:Project99BottlesSTRSEU.png]] | [[Image:Project99BottlesSTRSEU.png]] | ||
Insert the code: | Insert the code: | ||
[[Image:Project99BottlesSEU.png]] | [[Image:Project99BottlesSEU.png]] | ||
Revision as of 11:45, 30 September 2019
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:
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:
Compile the code and run it
- Links
- References:
- ↑ https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_71/rzarl/rzarlcurlib.htm
- ↑ 99BOTTLES would have been nice, but filenames are not allowed to begin with numbers
- ↑ Members cannot have the same name as the physical source file (BOTTLES). Therefore the member is named BOTT.