Comments on: MOM Pt. 004: Writing simple COBOL on MVS3.8 tk4-

By: kevindurant

kevindurant — Sun, 26 Apr 2020 11:07:04 +0000

Hi Anonymous

Thanks for sharing! Sorry about the indentation, I believe it’s the way WordPress works without using real code plugins.

Kind regards
– Kevin

By: Anonymous

Anonymous — Tue, 21 Apr 2020 02:45:26 +0000

(I had sent it with proper indentation, I don’t know why it disappeared when I sent it)

By: Anonymous

Anonymous — Tue, 21 Apr 2020 02:40:44 +0000

Ok, I decided to take up this challenge myself.
Strangely enough, I used the distribution of TK4 that comes with Hercules and I was able to use ELSE and even a nested IF statement. My PROCEDURE DIVISION looks like this:

00051 MAIN-PARAGRAPH.
00052 OPEN INPUT INFILE.
00053 READ INFILE AT END DISPLAY ‘READY FIZZBUZZ’.
00054 MOVE UP-TO-NUMBER (1) TO N.
00055 CLOSE INFILE.
00056 *
00057 IF N > 0 AND N < 10000
00058 PERFORM PRINT-FIZZBUZZ UNTIL I GREATER N
00059 ELSE
00060 DISPLAY 'INPUT IS TOO LARGE OR TOO SMALL'.
00061 *
00062 DISPLAY 'FIN'.
00063 STOP RUN.
00064 **
00065 **
00066 PRINT-FIZZBUZZ.
00067 DIVIDE I BY 3 GIVING DIV REMAINDER REMAIN-T.
00068 DIVIDE I BY 5 GIVING DIV REMAINDER REMAIN-F.
00069 *
00070 IF REMAIN-T EQUAL ZERO AND REMAIN-F EQUAL ZERO
00071 DISPLAY 'FIZZBUZZ'
00072 ELSE
00073 IF REMAIN-F EQUAL ZERO
00074 DISPLAY 'BUZZ'
00075 ELSE
00076 IF REMAIN-T EQUAL ZERO
00077 DISPLAY 'FIZZ'
00078 ELSE
00079 DISPLAY I.
00080 *
00081 ADD 1 TO I.

By: kevindurant

kevindurant — Wed, 21 Aug 2019 12:56:39 +0000

Hi Gerard!

Sounds like a very cool setup! I’m thinking of getting a refurbished computer and run TK4- on it too.

Hercprt looks really cool! I’ll take a look! I never thought about exploring the net for third-party software, thanks for the tip 🙂

Inderdaad, groetjes!
– Kevin, Ieper.

By: Anonymous

Anonymous — Wed, 21 Aug 2019 12:45:27 +0000

Yes I have TK4- on an ubuntu linux 16.04 LTS old (2005 !!) IBM desktop.
I do TSO from my windows desktop
I have purchased hercprt (hercules remote print spooler) for looking at output in PDF format on Windows. You can use hercprt also for free.
kind
Groetjes, (.be ??)
Gerard, Johannesburg.

By: kevindurant

kevindurant — Wed, 21 Aug 2019 06:55:31 +0000

Hi Gerard!

You’re right! I didn’t really talk about my other defined variables, I should have mentioned them too. I blame the editor for this mistake 😉

My interest in MVS/Hercules and blogging about it is definitely here to stay! I am glad there’s still people interested in reading such beginner posts about MVS and Hercules!

Are you working on your own mainframe too?

Kind regards,
– Kevin

By: Gerard Guinee

Gerard Guinee — Wed, 21 Aug 2019 06:37:46 +0000

I would suggest for clarity that in the paragraph ‘Looping in Cobol’ you would start with something like: ‘In addition to the above mentioned text working storage variables I have defined 3 numeric variables….. etc’

Otherwise nice to see someone who likes the hercules / mvs environment.

By: Ramsae

Ramsae — Fri, 12 Jul 2019 23:52:03 +0000

Very interesting post and glad you are back! (Also, Calcul does sound very cool!)