Unnum STD sequence
Frank Swarbrick
Thanks,
Frank
>>>
The information contained in this electronic communication and any document attached hereto or transmitted herewith is confidential and intended for the exclusive use of the individual or entity named above. If the reader of this message is not the intended recipient or the employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any examination, use, dissemination, distribution or copying of this communication or any part thereof is strictly prohibited. If you have received this communication in error, please immediately notify the sender by reply e-mail and destroy this communication. Thank you.
Mike Kovach
From:
REN STD COB
UNNUM
________________________________
From: Frank Swarbrick <frank.s...@EFIRSTBANK.COM>
To: ISP...@LISTSERV.ND.EDU
Sent: Thu, May 20, 2010 2:22:02 PM
Subject: Unnum STD sequence
Lee Jenkins
I thought COBOL had numbers in 1 - 6.
> Lee Jenkins
> Mainframe Security - Technical Services
> Information Security Technology - IST
> (480) 724-4624
> 2600 South Price Road Chandler, AZ 85248
MAC S3929-022
>This message may contain confidential and/or privileged information. If you are not the addressee or authorized to receive this for the addressee, you must not use, copy, disclose, or take any action based on this message or any information herein. If you have received this message in error, please advise the sender immediately by reply e-mail and delete this message. Thank you for your cooperation.
McKown, John
> From: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] On
> Behalf Of Frank Swarbrick
> Sent: Thursday, May 20, 2010 1:22 PM
> To: ISP...@LISTSERV.ND.EDU
> Subject: Unnum STD sequence
>
> numbers in cols 73-80, how do I physically get rid of them?
> I can switch to NUMBER ON COB only, but the numbers remain.
>
> Thanks,
> Frank
I do it the easy way:
c p'#' ' ' all 73 80
Will change all digits (p'#') in columns 73 through 80 to blanks.
It is also possible to use the UNNUM command, perhaps after the NUM ON STD.
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * (817)-961-6183 cell
john....@healthmarkets.com * www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM
Frank Swarbrick
Actually I ended up doing this:
REN STD COB;UNNUM;REN COB
so that the Cobol sequence is retained.
Thanks!
--
Frank Swarbrick
Applications Architect - Mainframe Applications Development
FirstBank Data Corporation - Lakewood, CO USA
P: 303-235-1403
On 5/20/2010 at 12:25 PM, in message
<51980.8...@web53807.mail.re2.yahoo.com>, Mike Kovach <mrma...@YAHOO.COM>
wrote:
Seibert, Dave
cols 73-80 and put seq numbers in 1-6.
Dave
The contents of this e-mail are intended for the named addressee only. It contains information that may be confidential. Unless you are the named addressee or an authorized designee, you may not copy or use it, or disclose it to anyone else. If you received it in error please notify us immediately and then destroy it.
From: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] On Behalf Of
Frank Swarbrick
Sent: Thursday, May 20, 2010 2:22 PM
To: ISP...@LISTSERV.ND.EDU
Subject: Unnum STD sequence
Steve Comstock
See p. 271 in the handout for the class we taught
at your place this Spring. :-)
--
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-393-8716
http://www.trainersfriend.com
* z/OS application programmer training
+ Instructor-led on-site classroom based classes
+ Course materials licensing
+ Remote contact training
+ Roadshows
+ Course development
Rob Zenuk
cases.
Rob
In a message dated 5/20/2010 11:32:50 A.M. US Mountain Standard Time,
frank.s...@EFIRSTBANK.COM writes:
That worked. I have no idea what it's actually doing, but hey.
Actually I ended up doing this:
REN STD COB;UNNUM;REN COB
so that the Cobol sequence is retained.
Thanks!
--
Frank Swarbrick
Applications Architect - Mainframe Applications Development
FirstBank Data Corporation - Lakewood, CO USA
P: 303-235-1403
On 5/20/2010 at 12:25 PM, in message
<51980.8...@web53807.mail.re2.yahoo.com>, Mike Kovach
<mrma...@YAHOO.COM>
wrote:
> ________________________________
> From:
> REN STD COB
> UNNUM
>
>
>
>
> ________________________________
> From: Frank Swarbrick <frank.s...@EFIRSTBANK.COM>
> To: ISP...@LISTSERV.ND.EDU
> Sent: Thu, May 20, 2010 2:22:02 PM
> Subject: Unnum STD sequence
>
Frank Swarbrick
:-)
--
Frank Swarbrick
Applications Architect - Mainframe Applications Development
FirstBank Data Corporation - Lakewood, CO USA
P: 303-235-1403
On 5/20/2010 at 12:38 PM, in message <4BF581AB...@trainersfriend.com>,
Pinnacle
From: "Frank Swarbrick" <frank.s...@EFIRSTBANK.COM>
Newsgroups: bit.listserv.ispf-l
Sent: Thursday, May 20, 2010 2:23 PM
Subject: Unnum STD sequence
> If having NUMBER ON STD COB has created the standard sequence numbers in
> cols 73-80, how do I physically get rid of them? I can switch to NUMBER
> ON COB only, but the numbers remain.
>
> Thanks,
> Frank
>
Frank,
I use NUM ON;UNNUM;NUM OFF to get rid of numbers once and for all.
Regards,
Tom Conley
Don Leahy
I maintain a lot of Cobol, and the first thing I do is get rid of all of the
numbers in 1-6 and 73-80. IMO, those numbers are a relic from a bygone era,
and no longer serve any purpose.
Turriff, Leslie
Leslie
Don Leahy
can be convenient sometimes that commented lines always have an asterisk in
column 7; makes them easy to find.
Ted MacNEIL
Why use them?
-
Too busy driving to stop for gas!
-----Original Message-----
From: Don Leahy <don....@LEACOM.CA>
Date: Fri, 21 May 2010 17:20:09
To: <ISP...@LISTSERV.ND.EDU>
Subject: Re: Unnum STD sequence
Rob Zenuk
late nineties there were vendors that used the numbers in columns 73 - 80
with IEBUPDTE and other vendor provided "patch" programs. We had one vendor
that would void our maintenance agreement if we renumbered or unnumbered
the source. Not sure if any of them do that anymore... I haven't worked in
a shop with mainframe COBOL vendor code in over a decade.
Rob
In a message dated 5/21/2010 3:07:17 P.M. US Mountain Standard Time,
Ray, Ian
I use line numbers all the time. "===> REN" could well be my most-used
Editor command.
Why? Two reasons. Assuming standard line numbering in a card-image
file (line numbers in cols 73-80):
1) Sometimes I want to know what the most recent change was to a piece
of code. The Editor maintains in column 79-80 the modification level
(the MM from the member's VV.MM) at which the line was last modified.
So, if a member is at VERMOD 01.18, say, I can find the line(s) that
was/were most recently modified by issuing ===> F '18' 79
I know there are more sophisticated ways of tracking changes (Endevor,
SCLM etc), but this default action by the Editor serves my purpose,
without my having to administer the code in any way whatsoever.
2) Sometimes when working on a long program (in Rexx, say) I feel the
need to print the thing out (call me old-fashioned!) and leaf through it
on the desk. I have this Word macro that helps here, by getting two
columns of 60 lines each out on to a single side in landscape, which is
really quite economical. So I duly have the line numbers printed down
the right-hand side. Now, if in my desk-checking I come across a piece
of code that I want to change, it's not necessarily that easy to return
to the relevant place on-screen just by scrolling or doing FINDs. But
if you can see the line number on your listing, you can go straight to
the spot on screen by issuing ===> LOCATE nnn
Cheers,
Ian
-----Original Message-----
From: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] On Behalf Of
Lloyds TSB Bank plc. Registered Office: 25 Gresham Street, London EC2V 7HN. Registered in England and Wales, number 2065. Telephone: 020 7626 1500.
Bank of Scotland plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 327000. Telephone: 0870 600 5000
Lloyds TSB Scotland plc. Registered Office: Henry Duncan House, 120 George Street, Edinburgh EH2 4LH. Registered in Scotland, number 95237. Telephone: 0131 225 4555.
Cheltenham & Gloucester plc. Registered Office: Barnett Way, Gloucester GL4 3RL. Registered in England and Wales, number 2299428. Telephone: 01452 372372.
Lloyds TSB Bank plc, Lloyds TSB Scotland plc, Bank of Scotland plc and Cheltenham & Gloucester plc are authorised and regulated by the Financial Services Authority.
Halifax is a division of Bank of Scotland plc. Cheltenham & Gloucester Savings is a division of Lloyds TSB Bank plc.
HBOS plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 218813. Telephone: 0870 600 5000
Lloyds Banking Group plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 95000. Telephone: 0131 225 4555
This e-mail (including any attachments) is private and confidential and may contain privileged material. If you have received this e-mail in error, please notify the sender and delete it (including any attachments) immediately. You must not copy, distribute, disclose or use any of the information in it or any attachments.
Telephone calls may be monitored or recorded.
Mickey
--------------------------------------------------
From: "Ray, Ian" <Ian...@LLOYDSTSB.CO.UK>
Sent: Saturday, May 22, 2010 5:31 AM
To: <ISP...@LISTSERV.ND.EDU>
Subject: In defence of line numbers
Turriff, Leslie
Leslie
Paul Gilmartin
> They were very handy back when actual cards were used (remember when we measured the size of our program by the number of boxes or trays they filled?) but since the advent of terminals they serve little purpose.
>
Manifestly a relic of cards. Systems and languages, such as
BASIC, not descendant of cards put the numbers on the left,
if at all.
I've been told of an SDS (later acquired by XEROX) system which
kept source files in a sort of KSDS organization, indexed by the
line numbers.
-- gil