Live data from Hacker News

Getting an IBM AS/400 Midrange Computer on the Internet

justanotherelectronicsblog.com

21–30 of 41 posts

Re: Getting an IBM AS/400 Midrange Computer on the Internet

#21
Back to 1987 rockin' with the "NYNEX/DPI Telco Friendly" system on original System/38, later AS/400. Nice table-driven structures for toll call classing, rating and billing. RPG III was like working in some bizarre structured assembly language with a db query front end... but the granular nature of the filesystem's storage and OS-maintained/enforced file indices were super performers.

Going from the CP/M world of dBASEII/FoxBase and CBASIC to IBM was strange and I remember thinking, "The money's better, but I look forward to unlearning all this some day." I did, and rejoined the ASCII world with no regrets. Except the pay. Did I mention the pay?

I did manage to save my company more than a year's worth of my salary once. Telephone calls were recorded on 6250BPI mag tapes and the ITT 1210 telephone switch dumped call information to the tapes twice a second to clear the queues and protect from data loss. You could see the tapes advancing in little spurts. This resulted in a dismal blocking factor since there is a physical ~1/2" leader per block, and they were required to archive the information for several years in a fireproof vault. The vault was full of these $250 tapes and they were on the verge of building an additional vault!

One day I was puttering around and noticed that the block factor was a major problem. I wrote a simple CL command to recopy and re-block the tapes to regroup the data into blocks 10x the size. After some very careful testing (my supervisor was very dubious at first) they were able to recopy their entire archive and recover 80% of the original tapes.

Re: Getting an IBM AS/400 Midrange Computer on the Internet

#22
As as been pointed out elsewhere S/38 AS/400 OS is a SASOS (Single Address Space Operating System). However, the other really new innovation was the capability based security system. This was based on the 9 bit byte. Object pointers had to have the 9th bit set throughout to be legal pointers. Only a limited number of instructions could produce a validated pointer. It was physically impossible to construct a pointer except through the security system. I very much doubt that an AS/400 has ever been hacked.

Re: Getting an IBM AS/400 Midrange Computer on the Internet

#25
I am using this system (IBM i) daily. Mostly supporting clients who want to run Node.js (or some other open source package) on there system.

I also maintain a basic IDE for writing code on this OS (replacement for SEU, which was used in the article) and IBM also supply Rational Developer for i.

- https://github.com/WorksOfBarry/ILEditor - https://www.ibm.com/uk-en/marketplace/rational-developer-for...

The OS gets one or two large patches a year, but generally not many new 'features'. I've done and still do my fair share of RPG and ILE C on this system too.

Re: Getting an IBM AS/400 Midrange Computer on the Internet

#26
post #9
post #8

Earlier quoted context omitted.

Do you know what they were called or any page with details about them? I had a quick search but nothing useful turned up.

I found this PDF: https://www.ibm.com/ibm/history/documents/pdf/as400.pdf > 1994 >A new generation of AS/400 computers called the AS/400 >Advanced Series is introduced in >May, including the AS/400 Advanced System, AS/400 Advanced >Server and the AS/400 >Advanced Portable.

Isn't the Advanced Portable just a regular ATX-sized box?

Re: Getting an IBM AS/400 Midrange Computer on the Internet

#27
I began my programming career in 1997 with the IBM AS/400 and a Windows version of a 5250 terminal emulator. Setting up an intelligent colour scheme was considered a talking point at water towers. COBOL and RPG were the only two business compilers on it and DB/2 was stock. DB/2 kicked ass as it was one of the few RDBMSs at that time to allow new generation heretics like us to do in-line SQL directly in our COBOL and RPG "pgms". I still remember the animated discussion the older members of the team had arguing against direct SQL in the COBOL programs. "Rather stick to OPEN file, (sequentially) READ file, DO WHILE loops with NESTED IF statements to select your records into WORKING MEMORY. And don't forget to CLOSE the damn FILE!"

I also fondly remember that all our compiles had to be done by exiting the editing screens and separately scheduling a BATCH job for the compile, and then reading the output of the BATCH job to see if your PGM compiled successfully. If not, you'd have to read the JOB LOGS to see where you committed syntax errors. No debugging at runtime, no IDEs. You had to read your own code top to bottom, scatter a few PRINT statements around (also viewed in the JOB LOGS) to see if your PGM worked at all.

One of the many things that amazed me at that time (1997) was that AS/400 had a robust ODBC CLI for both Windows and OS/2 Warp. This allowed the pointy haired bosses to enjoy results of data warehouse projects directly from their Windows PCs using Microsoft Access (of all things). In Comic Sans fonts to boot!

EDIT: Oh, I forgot to mention - I still haven't seen documentation for systems, compilers and databases as useful, user-friendly and comprehensive as the manuals compiled, printed and bound by IBM. There was absolutely no need for Google.

I will never be ashamed of that beginning. Never.

Re: Getting an IBM AS/400 Midrange Computer on the Internet

#28

> There are no games, no leisure programs, only business. Back in the late 90s, for some reason I had to attend work the last week of the year. There was barely anything to do, so I entertained myself doing an AS/400 Reversi game. It had a rudimentary AI inspired by the way the CPU played the same game on my cheap Ericsson phone: most squares had a value (3 for corners, 2 for notable squares and 1 for everything else…

There was (is?) a whole suite of games for the /36 system, which would presumably also run on the AS/400. This suite included Black Jack, dice games, and a very nice adventure game, which I enjoyed playing in the 80s as a kid on my dad's /36 (for which he ran a business). The screen showed a map with treasures, enemies, coins, and other stuff. You could move around, fight monsters and do trading. An interesting feature was that the weight of stuff you carried around mattered. And since one coin had a weight of 1 (whatever weight unit), it often made sense to overpay for an item so you could reduce the overall weight you were carrying around. Unfortunately, I don't remember the name of the game and I also don't have the gaming libraries anymore. I have an AS/400 (even two of them, hehe) and I would love to run the adventure one more time :-)

Re: Getting an IBM AS/400 Midrange Computer on the Internet

#30
I recently wrote an article about how storing code in plain text files is a local maximum we need to overcome as the software industry.

The db based file system in OS400 fascinates me, though I have little experience with it.

https://medium.com/@ustunozgur/the-nosql-database-every-soft...

Post reply on HN