Rocksolid Light

Welcome to RetroBBS

mail  files  register  newsreader  groups  login

Message-ID:  

"Jesus may love you, but I think you're garbage wrapped in skin." -- Michael O'Donohugh

devel / comp.lang.cobol / ON 1 in COBOL

SubjectAuthor
* ON 1 in COBOLArnold Trembley
+- Lack of postings was Re: ON 1 in COBOLClark F Morris
`* Re: ON 1 in COBOLpete dashwood
 `* Re: ON 1 in COBOLJoe
  `- Re: ON 1 in COBOLpete dashwood

1
ON 1 in COBOL

<cpidnTpsTJU_8RH8nZ2dnUU7-WnNnZ2d@giganews.com>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=227&group=comp.lang.cobol#227

  copy link   Newsgroups: comp.lang.cobol
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!news.misty.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!buffer2.nntp.dca1.giganews.com!buffer1.nntp.dca1.giganews.com!news.giganews.com.POSTED!not-for-mail
NNTP-Posting-Date: Wed, 10 Nov 2021 19:06:42 -0600
Date: Wed, 10 Nov 2021 19:06:41 -0600
MIME-Version: 1.0
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:91.0) Gecko/20100101
Thunderbird/91.3.0
Newsgroups: comp.lang.cobol
Reply-To: arnold.trembley@att.net
Content-Language: en-US
From: arnold.trembley@att.net (Arnold Trembley)
Subject: ON 1 in COBOL
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <cpidnTpsTJU_8RH8nZ2dnUU7-WnNnZ2d@giganews.com>
Lines: 25
X-Usenet-Provider: http://www.giganews.com
X-Trace: sv3-6ZW6AxbOqsAvS9AWLOp00bea6YLC+AvEc3uQD93bXgesA/e5GU8Lrtis8+5Jfi10RusbHRh1UJqJ40W!Tuyeo09leUlS/8pKzcpKsz9Om6J2uqAv4fAq8BalvDPc4zgni27RIfGVAWupH0NGt34VCsd8DQ==
X-Complaints-To: abuse@giganews.com
X-DMCA-Notifications: http://www.giganews.com/info/dmca.html
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint properly
X-Postfilter: 1.3.40
X-Original-Bytes: 1922
 by: Arnold Trembley - Thu, 11 Nov 2021 01:06 UTC

Lately there have been no usenet postings in any of the groups I follow,
which makes me wonder if my provider is having a problem, or if my
account has expired.

For anyone who worked with IBM OS/VS COBOL, you might have encountered a
first-time switch in the procedure division via the "ON 1" statement.

There are a couple of interesting discussion threads in the GnuCOBOL
forums mentioning "ON 1". I even contributed by locating an online
OS/VS COBOL manual with the full syntax for the ON verb.

Enjoy.

Where did the ON verb dissappear to?
https://sourceforge.net/p/gnucobol/discussion/lounge/thread/eeb7391cca/

Converting OSVS-MF Cobo programsl to GnuCOBOL 2.2 (AIX 7)
https://sourceforge.net/p/gnucobol/discussion/help/thread/9a15394cc9/

--
https://www.arnoldtrembley.com/

Lack of postings was Re: ON 1 in COBOL

<krvoogpb4g45bdmibik0ipo7mmv5tbu5rd@4ax.com>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=228&group=comp.lang.cobol#228

  copy link   Newsgroups: comp.lang.cobol
Path: i2pn2.org!i2pn.org!aioe.org!news.uzoreto.com!newsfeed.xs4all.nl!newsfeed7.news.xs4all.nl!feeder1.feed.usenet.farm!feed.usenet.farm!news-out.netnews.com!news.alt.net!fdc2.netnews.com!peer01.ams1!peer.ams1.xlned.com!news.xlned.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!fx35.iad.POSTED!not-for-mail
From: cfmpublic@ns.sympatico.ca (Clark F Morris)
Newsgroups: comp.lang.cobol
Subject: Lack of postings was Re: ON 1 in COBOL
Reply-To: cfmpublic@ns.sympatico.ca
Message-ID: <krvoogpb4g45bdmibik0ipo7mmv5tbu5rd@4ax.com>
References: <cpidnTpsTJU_8RH8nZ2dnUU7-WnNnZ2d@giganews.com>
User-Agent: ForteAgent/8.00.32.1272
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Lines: 33
X-Complaints-To: abuse@easynews.com
Organization: Forte - www.forteinc.com
X-Complaints-Info: Please be sure to forward a copy of ALL headers otherwise we will be unable to process your complaint properly.
Date: Wed, 10 Nov 2021 22:33:06 -0400
X-Received-Bytes: 2205
 by: Clark F Morris - Thu, 11 Nov 2021 02:33 UTC

On Wed, 10 Nov 2021 19:06:41 -0600, Arnold Trembley
<arnold.trembley@att.net> wrote:

>Lately there have been no usenet postings in any of the groups I follow,
>which makes me wonder if my provider is having a problem, or if my
>account has expired.

Your provider, like mine - Forte-Agent may not have implemented TLS
1.2 security protocol (encryption as I recall) and in my case that
means I lost the feed from ibm-main so I had to change from no-mail to
mail to keep up with it. I don't understand the details but it has to
do with receiving messages from newsgroups (I also don't know how
Usenet works). I am going to look for another provider and am open to
suggestion for ones based in either the United States or Canada.

Clark Morris
>
>For anyone who worked with IBM OS/VS COBOL, you might have encountered a
>first-time switch in the procedure division via the "ON 1" statement.
>
>There are a couple of interesting discussion threads in the GnuCOBOL
>forums mentioning "ON 1". I even contributed by locating an online
>OS/VS COBOL manual with the full syntax for the ON verb.
>
>Enjoy.
>
>
>Where did the ON verb dissappear to?
>https://sourceforge.net/p/gnucobol/discussion/lounge/thread/eeb7391cca/
>
>
>Converting OSVS-MF Cobo programsl to GnuCOBOL 2.2 (AIX 7)
>https://sourceforge.net/p/gnucobol/discussion/help/thread/9a15394cc9/

Re: ON 1 in COBOL

<iv3jdpFb2dbU1@mid.individual.net>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=229&group=comp.lang.cobol#229

  copy link   Newsgroups: comp.lang.cobol
Path: i2pn2.org!i2pn.org!news.swapon.de!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: dashwood@enternet.co.nz (pete dashwood)
Newsgroups: comp.lang.cobol
Subject: Re: ON 1 in COBOL
Date: Thu, 11 Nov 2021 17:10:34 +1300
Lines: 61
Message-ID: <iv3jdpFb2dbU1@mid.individual.net>
References: <cpidnTpsTJU_8RH8nZ2dnUU7-WnNnZ2d@giganews.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
X-Trace: individual.net nctKJZfguQ/CpCdC50+YpwhBb9407LZ7PlJyk5rk6vHxP+zAQE
Cancel-Lock: sha1:AcRpwYJoSvIxPIqGE4Z/5sUeW1M=
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:78.0) Gecko/20100101
Thunderbird/78.14.0
In-Reply-To: <cpidnTpsTJU_8RH8nZ2dnUU7-WnNnZ2d@giganews.com>
Content-Language: en-US
 by: pete dashwood - Thu, 11 Nov 2021 04:10 UTC

On 11/11/2021 14:06, Arnold Trembley wrote:
> Lately there have been no usenet postings in any of the groups I follow,
> which makes me wonder if my provider is having a problem, or if my
> account has expired.
>
> For anyone who worked with IBM OS/VS COBOL, you might have encountered a
> first-time switch in the procedure division via the "ON 1" statement.
>
> There are a couple of interesting discussion threads in the GnuCOBOL
> forums mentioning "ON 1".  I even contributed by locating an online
> OS/VS COBOL manual with the full syntax for the ON verb.
>
> Enjoy.
>
>
> Where did the ON verb dissappear to?
> https://sourceforge.net/p/gnucobol/discussion/lounge/thread/eeb7391cca/
>
>
> Converting OSVS-MF Cobo programsl to GnuCOBOL 2.2 (AIX 7)
> https://sourceforge.net/p/gnucobol/discussion/help/thread/9a15394cc9/
>
>
>

Hi Arnold,

I remember using external switches in COBOL on an ICL 1901A and an IBM
360-30 back in the 1960s...

typically... (COBOL)

IF SWITCH-1
READY TRACE.

If anything hung or crashed, the SOP was for the Operator to set switch
1 and re-run it. There were 24 switches taking one "word" of storage.

typically ... (Operator CLI - later, GEORGE)

ON 1
EXEC <whatever>

On the IBM 360s these switches were held in a byte in the Communication
area of the 8KB OS... (Yes, really... we had 32KB of total memory... and
ran the business (invoicing, stock control, reporting, etc.) in that.

I seem to remember using dials and buttons to set them.

You dialed up the address of the switch byte and then selected the bit
you wanted, which lit up on the console display lights. To set it, you
pressed: System reset, ROAR Reset, and Start. Then checked it was lit.

There were 8 switches available.

Happy Days!

Pete.

--
I used to write *COBOL*; now I can do *anything*...

Re: ON 1 in COBOL

<ffqtoglsdhhg09mg3f2dannkb3vvosubjv@4ax.com>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=230&group=comp.lang.cobol#230

  copy link   Newsgroups: comp.lang.cobol
From: none@nowhere.whereo (Joe)
Newsgroups: comp.lang.cobol
Subject: Re: ON 1 in COBOL
Date: Fri, 12 Nov 2021 22:27:20 +0000
Reply-To: none@nowhere.whereo
Message-ID: <ffqtoglsdhhg09mg3f2dannkb3vvosubjv@4ax.com>
References: <cpidnTpsTJU_8RH8nZ2dnUU7-WnNnZ2d@giganews.com> <iv3jdpFb2dbU1@mid.individual.net>
User-Agent: ForteAgent/8.00.32.1272
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
Organization: KPN B.V.
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!news.uzoreto.com!newsfeed.xs4all.nl!newsfeed9.news.xs4all.nl!peer03.ams1!peer.ams1.xlned.com!news.xlned.com!peer01.ams4!peer.am4.highwinds-media.com!news.highwinds-media.com!feed.abavia.com!abe002.abavia.com!abp002.abavia.com!news.kpn.nl!not-for-mail
Lines: 63
Injection-Date: Fri, 12 Nov 2021 23:27:22 +0100
Injection-Info: news.kpn.nl; mail-complaints-to="abuse@kpn.com"
X-Received-Bytes: 2776
 by: Joe - Fri, 12 Nov 2021 22:27 UTC

On Thu, 11 Nov 2021 17:10:34 +1300, pete dashwood <dashwood@enternet.co.nz> wrote:

>On 11/11/2021 14:06, Arnold Trembley wrote:
>> Lately there have been no usenet postings in any of the groups I follow,
>> which makes me wonder if my provider is having a problem, or if my
>> account has expired.
>>
>> For anyone who worked with IBM OS/VS COBOL, you might have encountered a
>> first-time switch in the procedure division via the "ON 1" statement.
>>
>> There are a couple of interesting discussion threads in the GnuCOBOL
>> forums mentioning "ON 1".  I even contributed by locating an online
>> OS/VS COBOL manual with the full syntax for the ON verb.
>>
>> Enjoy.
>>
>>
>> Where did the ON verb dissappear to?
>> https://sourceforge.net/p/gnucobol/discussion/lounge/thread/eeb7391cca/
>>
>>
>> Converting OSVS-MF Cobo programsl to GnuCOBOL 2.2 (AIX 7)
>> https://sourceforge.net/p/gnucobol/discussion/help/thread/9a15394cc9/
>>
>>
>>
>
>Hi Arnold,
>
>I remember using external switches in COBOL on an ICL 1901A and an IBM
>360-30 back in the 1960s...
>
>typically... (COBOL)
>
>IF SWITCH-1
> READY TRACE.
>
>If anything hung or crashed, the SOP was for the Operator to set switch
>1 and re-run it. There were 24 switches taking one "word" of storage.
>
>typically ... (Operator CLI - later, GEORGE)
>
>ON 1
>EXEC <whatever>
>
>On the IBM 360s these switches were held in a byte in the Communication
>area of the 8KB OS... (Yes, really... we had 32KB of total memory... and
>ran the business (invoicing, stock control, reporting, etc.) in that.
>
>I seem to remember using dials and buttons to set them.
>
>You dialed up the address of the switch byte and then selected the bit
>you wanted, which lit up on the console display lights. To set it, you
>pressed: System reset, ROAR Reset, and Start. Then checked it was lit.
>
>There were 8 switches available.
>
>Happy Days!
>
>Pete.

UPSI switches I believe?

Re: ON 1 in COBOL

<ivauipFnml5U1@mid.individual.net>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=231&group=comp.lang.cobol#231

  copy link   Newsgroups: comp.lang.cobol
Path: i2pn2.org!i2pn.org!news.swapon.de!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: dashwood@enternet.co.nz (pete dashwood)
Newsgroups: comp.lang.cobol
Subject: Re: ON 1 in COBOL
Date: Sun, 14 Nov 2021 12:03:57 +1300
Lines: 71
Message-ID: <ivauipFnml5U1@mid.individual.net>
References: <cpidnTpsTJU_8RH8nZ2dnUU7-WnNnZ2d@giganews.com>
<iv3jdpFb2dbU1@mid.individual.net>
<ffqtoglsdhhg09mg3f2dannkb3vvosubjv@4ax.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
X-Trace: individual.net x0H1R8CRnHZUkKmSYcFh8gM+aTqoiI5tH0RPanK7PsIK9Kxjd6
Cancel-Lock: sha1:gd+V91cV53iBo0ZFGQAMZKWIbDY=
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:91.0) Gecko/20100101
Thunderbird/91.3.0
Content-Language: en-US
In-Reply-To: <ffqtoglsdhhg09mg3f2dannkb3vvosubjv@4ax.com>
 by: pete dashwood - Sat, 13 Nov 2021 23:03 UTC

On 13/11/2021 11:27, Joe wrote:
> On Thu, 11 Nov 2021 17:10:34 +1300, pete dashwood <dashwood@enternet.co.nz> wrote:
>
>> On 11/11/2021 14:06, Arnold Trembley wrote:
>>> Lately there have been no usenet postings in any of the groups I follow,
>>> which makes me wonder if my provider is having a problem, or if my
>>> account has expired.
>>>
>>> For anyone who worked with IBM OS/VS COBOL, you might have encountered a
>>> first-time switch in the procedure division via the "ON 1" statement.
>>>
>>> There are a couple of interesting discussion threads in the GnuCOBOL
>>> forums mentioning "ON 1".  I even contributed by locating an online
>>> OS/VS COBOL manual with the full syntax for the ON verb.
>>>
>>> Enjoy.
>>>
>>>
>>> Where did the ON verb dissappear to?
>>> https://sourceforge.net/p/gnucobol/discussion/lounge/thread/eeb7391cca/
>>>
>>>
>>> Converting OSVS-MF Cobo programsl to GnuCOBOL 2.2 (AIX 7)
>>> https://sourceforge.net/p/gnucobol/discussion/help/thread/9a15394cc9/
>>>
>>>
>>>
>>
>> Hi Arnold,
>>
>> I remember using external switches in COBOL on an ICL 1901A and an IBM
>> 360-30 back in the 1960s...
>>
>> typically... (COBOL)
>>
>> IF SWITCH-1
>> READY TRACE.
>>
>> If anything hung or crashed, the SOP was for the Operator to set switch
>> 1 and re-run it. There were 24 switches taking one "word" of storage.
>>
>> typically ... (Operator CLI - later, GEORGE)
>>
>> ON 1
>> EXEC <whatever>
>>
>> On the IBM 360s these switches were held in a byte in the Communication
>> area of the 8KB OS... (Yes, really... we had 32KB of total memory... and
>> ran the business (invoicing, stock control, reporting, etc.) in that.
>>
>> I seem to remember using dials and buttons to set them.
>>
>> You dialed up the address of the switch byte and then selected the bit
>> you wanted, which lit up on the console display lights. To set it, you
>> pressed: System reset, ROAR Reset, and Start. Then checked it was lit.
>>
>> There were 8 switches available.
>>
>> Happy Days!
>>
>> Pete.
>
> UPSI switches I believe?
>
Thanks Joe, that is exactly what they were. I had forgotten... User
Program Switch Indicators if memory serves me correctly.

Pete.

--
I used to write *COBOL*; now I can do *anything*...

1
server_pubkey.txt

rocksolid light 0.9.8
clearnet tor