Cobol - Re: OT: ISPF Question

Author

Re: OT: ISPF Question

Andreas Lerch

2004-03-26, 10:59 pm

Am 10.03.04, 18:14:06, schrieb SkippyPB <swiegand@neo.rr.NOSPAM.com> zum=
=20
Thema OT: ISPF Question:

[color=darkred]
> This is a question for you mainframers who do your COBOL programming
> in ISPF. In all of the years that I've used it, there has always been=

> one annoying thing about the editing environment (well there are a
> lot, but this is post is only about 1). When you enter the line
> command COLS, you get a nice scale on the line right after the
> command. But once you page forward, that scale is gone.

hello

Why you do not use tab

enter prof 99 on Command =3D=3D> and you will see all of the profile lin=
es
then you can fill the tabs line like this:

000001=20
----+----1----+----2----+----3----+----4----+----5----+----6----+----
7-
=3DTABS# * * * * * =
=20
*
=3DMASK#
=3DBNDS# <
000002 01 filler pic x(08) value=20
spaces,
'''''' 05 test pic 9(04) value=20
zeroes.

Then:=20
tabs on
on command =3D=3D> line and tabs will work.

Every time you use the tab-key (forward / backward) your cursor is=20
moved one byte after the *
if you use - as a tab character enter moves to the next -=20

if you want to enter a character over the attrib-byte you must=20
posistioning then cursor at the unvisibil position attrib-byte - press=20=

enter and you can overtype all tabs position in that line.

another way to set off tab-positions is to erase the line-number -=20
press enter - and all lines with no line number are full editing

if you trimm your tab-positions quit well most lines can be insertet=20=

without (temp) delete of attrib byte.

One point. Every type dsn A.B.CBL A.B.TMP will have his own=20
profile-set (Maximum ist defined in the undergrounds of ISPF) an the=20=

profile which is used comes on the first line of the Prof command:

=3DPROF# ....TMP (DATA - 80)

this means -->
Last Qual of the dsn is TMP
the recordsize is 80 bytes (i dont know FB/VB is another differenz=20
indicator....)
if the recordsize is the same you can use PROF CBL to switch to the=20
Cobol profile.

Take some time to read the sections TABS and PROFILE in ISPF - and=20
other very usefull things like overlay picture strings and and and

and you will do your job in half the time :-)

I use ispf myself since 1982/83 and on my pc i use SPF/2 (ISPF for=20
OS/2) full function with REXX EDIT macro and so on....

Have a nice day - an good luck

Andreas

SkippyPB

2004-03-26, 10:59 pm

On Thu, 11 Mar 2004 17:01:33 GMT, Andreas Lerch
<andreas@andreas-lerch.de> enlightened us:

>
>
>Am 10.03.04, 18:14:06, schrieb SkippyPB <swiegand@neo.rr.NOSPAM.com> zum
>Thema OT: ISPF Question:
>
>
>
>hello
>
>Why you do not use tab
>
>enter prof 99 on Command ==> and you will see all of the profile lines
>then you can fill the tabs line like this:
>
>000001
>----+----1----+----2----+----3----+----4----+----5----+----6----+----
>7-
>=TABS# * * * * *
> *
>=MASK#
>=BNDS# <
>000002 01 filler pic x(08) value
>spaces,
>'''''' 05 test pic 9(04) value
>zeroes.
>
>Then:
>tabs on
>on command ==> line and tabs will work.
>
>Every time you use the tab-key (forward / backward) your cursor is
>moved one byte after the *
>if you use - as a tab character enter moves to the next -
>
>if you want to enter a character over the attrib-byte you must
>posistioning then cursor at the unvisibil position attrib-byte - press
>enter and you can overtype all tabs position in that line.
>
>another way to set off tab-positions is to erase the line-number -
>press enter - and all lines with no line number are full editing
>
>if you trimm your tab-positions quit well most lines can be insertet
>without (temp) delete of attrib byte.
>
>One point. Every type dsn A.B.CBL A.B.TMP will have his own
>profile-set (Maximum ist defined in the undergrounds of ISPF) an the
>profile which is used comes on the first line of the Prof command:
>
>=PROF# ....TMP (DATA - 80)
>
>this means -->
>Last Qual of the dsn is TMP
>the recordsize is 80 bytes (i dont know FB/VB is another differenz
>indicator....)
>if the recordsize is the same you can use PROF CBL to switch to the
>Cobol profile.
>
>Take some time to read the sections TABS and PROFILE in ISPF - and
>other very usefull things like overlay picture strings and and and
>
>and you will do your job in half the time :-)
>
>I use ispf myself since 1982/83 and on my pc i use SPF/2 (ISPF for
>OS/2) full function with REXX EDIT macro and so on....
>
>Have a nice day - an good luck
>
>Andreas
>
>

Thanks for the tips. I had forgotten about Tabs and in fact I tried
to get them to work but I wasn't having much success. Your
explanation shows me where I erred. But I am a visual person and I
still like have a scale at the top :)

Regards,

////
(o o)
-oOO--(_)--OOo-

"Once in Africa I lost the corkscrew and we were
forced to live on food and water for w

s."
-- Ernest Hemingway
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Remove nospam to email me.

Steve

Andreas Lerch

2004-03-26, 10:59 pm

Am 13.03.04, 16:02:55, schrieb SkippyPB <swiegand@neo.rr.NOSPAM.com> zum=
=20
Thema Re: OT: ISPF Question:

Hello
[color=darkred]
> Thanks for the tips. I had forgotten about Tabs and in fact I tried
> to get them to work but I wasn't having much success. Your
> explanation shows me where I erred. But I am a visual person and I
> still like have a scale at the top :)

I am a visual person too :-)

You can modify the edit-panel (ISREDIT in ispplib) if you know how=20
EDSET will work.

i.e. One line below the Commandline you can put your scale line
and with a command (Scale on/Scale off) modify the visibility.

or you can take the ultimative hardware-solution - cut a scale out of=20=

paper - and glue it at the top of your screen :-) on real hardware=20
3270-5 i do this to see the 24 line limit of a 3270-2.

have a nice day - Andreas

SkippyPB

2004-03-26, 10:59 pm

On Sun, 14 Mar 2004 12:47:27 GMT, Andreas Lerch
<andreas@andreas-lerch.de> enlightened us:

>
>
>
>Am 13.03.04, 16:02:55, schrieb SkippyPB <swiegand@neo.rr.NOSPAM.com> zum
>Thema Re: OT: ISPF Question:
>
>Hello
>
>
>I am a visual person too :-)
>
>You can modify the edit-panel (ISREDIT in ispplib) if you know how
>EDSET will work.
>
>i.e. One line below the Commandline you can put your scale line
>and with a command (Scale on/Scale off) modify the visibility.
>
>or you can take the ultimative hardware-solution - cut a scale out of
>paper - and glue it at the top of your screen :-) on real hardware
>3270-5 i do this to see the 24 line limit of a 3270-2.
>

LOL! I love low-tech solutions :)

>have a nice day - Andreas
>
>
Regards,

////
(o o)
-oOO--(_)--OOo-

"Once in Africa I lost the corkscrew and we were
forced to live on food and water for w

s."
-- Ernest Hemingway
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Remove nospam to email me.

Steve

Andreas Lerch

2004-03-26, 10:59 pm

> On Sun, 14 Mar 2004 12:47:27 GMT, Andreas Lerch
> <andreas@andreas-lerch.de> enlightened us:

hello

Today - at work - i have a look on that - ispf (IBM) does a panel=20
switch
ISREDIT2 <--> ISREDIT4 with the option EDSET

so you can only change these panels or invoke ISPEXEC EDIT=20
PANEL(your_panel_name) . . . to resolve your problem - i.e. There is=20=

no way, else you would program yourself :-)
[color=darkred]
[color=darkred]
[color=darkred]
> LOL! I love low-tech solutions :)

oh 32 an 24 line thats true - i have designed a 25 line panel and -->=20=

error, error, error, error

this is the last message from me to this (ot)-theme. It's very=20
interesting, because it shows me what difference of kind of work exist=20=

and what kind of solutions are requested.
ISPF/PDF is one of the gratest (yes) programming tool for (old and=20
likely) languages that was ever builded. I work whit it since 1984 and=20=

I invest a lot, very lot, of time to produce useable tools under ispf.=20=

DBRC Command Interface, IMS generation Utility, some Edit tools like=20=

EDITC/BROWSEC (Cursor+PF selected invokation of ..) special menues=20
with DB2 and a lot more

But, i can 'Only bring a Solution' if i can understand the usability=20=

and take a job (view by view - (wo)man to (wo)man) to resolve the=20
problem and bring down, in a suitable area, the time to do our job,

Thank you, Steve, I have to do so much and to learn!

einen schoenen Tag - Andreas

Sponsored Links